Subversion Repositories Koakuma

Rev

Rev 12 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12 Rev 17
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: launch-job.in 12 2024-10-02 03:25:33Z nishi $
 2 
# $Id: launch-job.in 17 2024-10-02 07:31:01Z nishi $
3 
package require tdom
 3 
package require tdom
4 
foreach path [glob "@@PREFIX@@/lib/koakuma/utility/*.tcl"] {
 4 
foreach path [glob "@@PREFIX@@/lib/koakuma/utility/*.tcl"] {
5 
	source $path
 5 
	source $path
6 
}
 6 
}
7 
set name ""
 7 
set name ""
Line 21... Line 21...
21 
		} elseif { "$arg" == "-R" } {
 21 
		} elseif { "$arg" == "-R" } {
22 
			set dothis "set-rpc"
 22 
			set dothis "set-rpc"
23 
		}
 23 
		}
24 
	} else {
 24 
	} else {
25 
		if { "$dothis" == "set-username" } {
 25 
		if { "$dothis" == "set-username" } {
26 
			set ::rpc::useranme "$arg"
 26 
			::rpc::set-username "$arg"
27 
		} elseif { "$dothis" == "set-password" } {
 27 
		} elseif { "$dothis" == "set-password" } {
28 
			set ::rpc::password "$arg"
 28 
			::rpc::set-password "$arg"
29 
		} elseif { "$dothis" == "set-rpc" } {
 29 
		} elseif { "$dothis" == "set-rpc" } {
30 
			set RPC_URL "$arg"
 30 
			set RPC_URL "$arg"
31 
		} elseif { "$name" == "" } {
 31 
		} elseif { "$name" == "" } {
32 
			set name "$arg"
 32 
			set name "$arg"
33 
		} elseif { "$description" == "" } {
 33 
		} elseif { "$description" == "" } {