10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I have the following bash script lines in a file named test.sh.
#!/bin/bash
#
# Write Date to cron.log
#
echo "Begin SSI Load $(date +%d%b%y_%T)"
#
# Get the latest rates file for processing.
#
d=$(ls -tr /rms/data/ssi | grep -v "processed" | tail -n 1)
filename=$d
export filename... (3 Replies)
Discussion started by: ginowms
3 Replies
2. Programming
I have a program started on a 640x480 canvas with button/labels down the left side.
I want to put a circle in the middle but am drawing a blank whether to add it after the left buttons or to wait until I can add more buttons/labels on the right because I can't remember how to get such packed on... (5 Replies)
Discussion started by: slak0
5 Replies
3. Shell Programming and Scripting
how can i make a list with the n last files and their details in tcl?..
thanks. (0 Replies)
Discussion started by: eee
0 Replies
4. UNIX for Advanced & Expert Users
i am new one to tcl/tk
OTP-ARB:/home/ponmuthu/tcl=>/usr/bin/tclsh
tclsh tclsh8.4
OTP-ARB:/home/ponmuthu/tcl=>/usr/bin/tclsh
% wish
Application initialization failed: no display name and no $DISPLAY environment variable
when i give like that i am getting error Application... (0 Replies)
Discussion started by: ponmuthu
0 Replies
5. Shell Programming and Scripting
Hello,
I'm trying to make Tcl work with GNU readline. Tried searching the forum but difficult to find this specific thing with "read" search query. Could someone help me to understand the following behavior?
$ read -e
asdfasdfasdfasddddf
$ tclsh
% exec read -e
/usr/bin/read: read: bad... (0 Replies)
Discussion started by: pn8830
0 Replies
6. Shell Programming and Scripting
Hello,
Can someone explaine me the meaning of this program:
#! /usr/bin/tclsh
set mctal
set a
set b
set c
set d
set e
while {! line cell]} {
}
while {! line]} {
}
while {! line cell]} {
}
while {! line]} {
} (0 Replies)
Discussion started by: jolecanard
0 Replies
7. Shell Programming and Scripting
Does any one know how to capture the output of command called from a TCL script?
I cannot figure this out. I've been working on it for 4 hours now :confused: (2 Replies)
Discussion started by: Lorna
2 Replies
8. Shell Programming and Scripting
Hello Tcl Experts,
set i 0
while { $i < 10 } {
puts "$i"
incr i
}
I am trying to print the value of "i" at the same place. i.e. it should first print "1", then in next iteration print "2" over the location of "1" and so on.... (i.e. in every iteration, delete the previous number and... (2 Replies)
Discussion started by: sumitgarg
2 Replies
9. Linux
Hi,
I have developed some TCL scripts in windows to test my c code.
The same i want to use in Linux.
What is that i have change to port the code in Linux?
Any reference is appreciated.
Thanks (5 Replies)
Discussion started by: rvan
5 Replies
10. Shell Programming and Scripting
can someone tell my why the puts is not reflecting the variable?
CUT -->
set fp
while {-1 != } {
button .a${line} -text "${line} " -width 20 -command {
puts $line
}
pack .a${line}
} (0 Replies)
Discussion started by: hpuxrox
0 Replies
WATCH-MULTIPLE-MIMDEFANGS(8) System Manager's Manual WATCH-MULTIPLE-MIMDEFANGS(8)
NAME
watch-multiple-mimdefangs.tcl - Keep an eye on a cluster of MIMEDefang machines
SYNOPSIS
watch-multiple-mimdefangs.tcl [-archive] machine-1 machine-2 ... machine-N
DESCRIPTION
watch-multiple-mimdefangs.tcl is a Tk script that graphically displays the status of mimedefang-multiplexor(8) on a cluster of machines.
Note that Tcl/Tk 8.4 or higher is required to run watch-multiple-mimdefangs.tcl.
If you supply the -archive command-line option, then watch-multiple-mimdefangs.tcl logs the output of md-mx-ctrl rawload for each machine.
The output for machine_name is logged in:
$HOME/.watch-multiple-mimedefangs/machine_name/data.
PREREQUISITES
To use watch-multiple-mimdefangs.tcl to monitor a cluster of machines, you need the following prerequisites:
o A UNIX-like machine with Tcl/Tk 8.4, the X window system and an SSH client. You also need "xterm" to use some of the features.
o The ability to SSH as root to all of the machines you want to monitor. Ideally, you should be using the SSH agent so that you can
SSH to the monitored machines as root without being prompted for a password or pass phrase.
o The program md-mx-ctrl on root's path on all the machines you want to monitor.
DISPLAY
For each machine specified on the command line, watch-multiple-mimdefangs.tcl creates a chart with five columns. The columns are:
o A button with the name of the machine. Clicking the button pops up a menu that lets you take various actions, as described later.
If all slaves on the machine are busy, the button turns yellow.
o A label showing the number of busy slaves in the form "busy/total", where total is the total number of slaves.
o A label showing the average number of messages per second over the last 10 seconds.
o A label showing the average number of milliseconds per scan over the last 10 seconds.
o A chart that graphs the average number of busy slaves, the average number of messages per second and the average scan time in mil-
liseconds, all averaged over the last 10 seconds.
MACHINE MENU
If you click on a machine name, a menu with three options pops up:
SSH Open an xterm session and ssh as root to the machine.
Busy Slaves
Monitor the busy slaves on the machine. If you click on the process-ID of a slave, an xterm will open up and the command "strace -s
100 -t -p pid" will be executed on the remote machine. This is Linux-specific, but you can edit watch-multiple-mimdefangs.tcl to
replace the command with your particular system's command for tracing system calls.
Delete Remove the machine from the list of machines being monitored.
ADDING A MACHINE
If you need to add a machine to the display, simply type the name of the machine in the "Add Machine:" box and press Enter.
AUTHOR
watch-multiple-mimdefangs.tcl was written by David F. Skoll.
SEE ALSO
mimedefang.pl(8), mimedefang-filter(5), mimedefang(8), mimedefang-protocol(7), md-mx-ctrl(8), watch-mimedefang(8)
4th Berkeley Distribution 12 January 2007 WATCH-MULTIPLE-MIMDEFANGS(8)