Tcl Tk script question

KaYoS · 11-20-2006, 01:38 PM

Hi there

Im trying to get a script running under slackware, ive modified it so it should work, however parts of it do, and parts of it dont

Code:

#!/usr/bin/env wish
set sshcommand "/etc/rc.d/rc.sshd";
global sshcommand;
proc sshstart {} {
global $sshcommand start &;
}
proc sshstop {} {
global sshcommand;
exec $sshcommand stop &;
}
proc launchbrowser {} { exec firefox &;}
proc launcheditor {} { exec pico &; }
frame .app -borderwidth 10;
.app configure -background lightblue;
pack .app;
button .app.ssh-go -text "Start SSHD" -command sshstart;
button .app.ssh-end -text "Stop SSHD" -command sshstop;
button .app.browser -text "Web Browser" -command launchbrowser;
button .app.launcheditor -text "Text Editor" -command launcheditor;
.app.ssh-go configure -foreground green;
.app.ssh-end configure -foreground red;
pack .app.ssh-go .app.ssh-end .app.browser .app.launcheditor;

When run as root, the Stop SSHD part works, but the Start SSHD doesnt, both the firefox and pico launcher work as well.

Also, how do i stop the services running at startup, i want to be able to start the services once the system is running, as it will be (eventually) deployed ona laptop, so i will extend it to include other scripts, i just dont want it to spend ages looking for an ip via dhcp if its not connected to the network, and when it is connected i just want to press "Start Network"

Thanks in advance for any help!

KaYoS · 11-20-2006, 02:30 PM

Right, well after a break, i spotted my sytax error, so i alterd that and it works now, however upon trying to alter the script to do more things, i hit another problem.

Code:

#!/usr/bin/env wish
set netcommand "/etc/rc.d/rc.inet1";
global netcommand;
proc netstart {} {
global netcommand
exec $netcommand start &;
}
proc netstop {} {
global netcommand;
exec $netcommand stop &;
}
proc launchbrowser {} { exec firefox &;}
proc launcheditor {} { exec pico &; }
frame .app -borderwidth 10;
.app configure -background lightblue;
pack .app;
button .app.ssh-go -text "Start Net" -command netstart;
button .app.ssh-end -text "Stop Net" -command netstop;
button .app.browser -text "Web Browser" -command launchbrowser;
button .app.launcheditor -text "Text Editor" -command launcheditor;
.app.ssh-go configure -foreground green;
.app.ssh-end configure -foreground red;
pack .app.ssh-go .app.ssh-end .app.browser .app.launcheditor;

Now the "Stop Net" function works, But uppon pressing "Start Net" i am unable to connect to the network, altho i dont get an error

Any ideas?