diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-26 11:42:47 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-26 11:42:47 -0500 |
| commit | 0df692f093959d1aa5ce5a3ce77acb8c03857130 (patch) | |
| tree | 3cfdc30fbc142d75a348a2568898340229f94133 /GradeBook.tcl | |
| parent | e268645a36a0d2ef3d485b4d36391b9e80db4f65 (diff) | |
| download | GradeBook-0df692f093959d1aa5ce5a3ce77acb8c03857130.tar.gz GradeBook-0df692f093959d1aa5ce5a3ce77acb8c03857130.zip | |
obtain host name from environment
Ignore-this: bb91cea79da9d5f56fdcb465cc98bef6
darcs-hash:20110126164247-067c0-f7cce71220c845eb3f2bd5c55543bd05157d6d9f.gz
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 0389cb0..4eb7973 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -25,6 +25,8 @@ set password [::ncgi::cookie password] set action [::ncgi::value action defaultview] # end of read cookies +# get hostname +if { [catch {set host_name $env(SERVER_NAME)} errStat] } { set request_uri unknown} # script uri if { [catch {set script_name $env(SCRIPT_NAME)} errStat] } { set script_name unknown} # figure out course db filename |