#!/usr/bin/tclsh
#
# TCL scripting by Tihomir Heidelberg 9a4gl@9a0tcp.ampr.org (c) 2005
#
package require ncgi
load ./wwl.so
source ./define.tcl
source ./nodes.tcl
source ./links_plan.tcl
source ./users.tcl
source ./utils.tcl
source ./io.tcl
source ./nodes.tcl
source ./show_nodes.tcl
source ./show_links.tcl
source ./create_icons.tcl
source ./qth.tcl
source ./links_plan.tcl
load_arrays "result_check.txt" "::RESULT ::IFACE_IP ::IFACE_MAC ::ARP_IP ::ARP_MAC"
load_one_list "result_links.txt" "::LINKS"
set variables [::ncgi::input]
foreach v $variables {
if { $v == "type" || $v == "x" || $v == "y" || $v == "z" || $v == "show" || $v == "username" || $v == "password" || $v == "refresh_time" || $v == "network" || $v == "node" } {
set $v [::ncgi::value $v]
}
}
if { ![info exists type] } {
set type "hybrid"
}
if { ![info exists show] } {
set show "public"
}
if { ![info exists x] } {
set x "15.9592"
}
if { ![info exists y] } {
set y "45.7820"
}
if { ![info exists username] } {
set username ""
}
if { ![info exists password] } {
set password ""
}
if { ![info exists refresh_time] } {
set refresh_time 600
}
if { ![info exists network] } {
set network ""
}
set zoom "9"
if { [info exists node] } {
if { [info exists nodes($node)] } {
set node $nodes($node)
set x [lindex $node 1]
set y [lindex $node 2]
set zoom "14"
}
}
if { ![info exists z] } {
set z $zoom
}
proc check_username_password { } {
if { [info exists ::users($::username)] } {
if { [lindex $::users($::username) 0] == $::password } {
set ::logged_in "1"
set ::perms [lindex ::users($::username) 1]
return "1"
}
}
return "0"
}
set logged_in "0"
set perms ""
check_username_password
puts "Content-type: text/html\n"
puts ""
# Below xml namespace is needed to make GPolyline work in IE7 (dont ask me why)
puts ""
puts " "
puts " Map of 9A Digital Radio Network"
set protocol "https"
if { [info exists env(SERVER_PORT)] } {
if { $env(SERVER_PORT) == "80" } {
set protocol "http"
}
}
set refreshUrl "${protocol}://ham2.cc.fer.hr:${env(SERVER_PORT)}/wireless/map/index.html"
if { [info exists env(HTTP_HOST)] && [info exists env(REQUEST_URI)] } {
set refreshUrl "${protocol}://$env(HTTP_HOST)$env(REQUEST_URI)"
}
puts " "
puts " "
if { $protocol == "http" } {
puts " "
puts " "
} else {
puts " "
}
puts " "
puts " "
puts " "
puts " "
puts " "
puts " "
puts " "
if { $protocol == "https" } {
puts " "
}
puts " "
puts " "
puts ""