invalid command name "hgetvars"
    while executing
"hgetvars"
    (in namespace eval "::request" script line 91)
    invoked from within
"namespace eval request {
puts -nonewline "
OUTPUT BUFFER:
namespace eval request {
puts -nonewline "

























"

hgetvars
set sort "date"
set enanswer ""
if {[info exists ENVS(QUERY_STRING)]} {
  set envq $ENVS(QUERY_STRING)
  foreach block [split $envq &] {
    set "[lindex [split $block =] 0]" "[lindex [split $block =] 1]"
  }
  if {([info exists email]) && ($email!="")} {
    regsub -- "%40" $email "@" email
    if {![info exists submit]} {
      if {[file exists emailnot.dir/$email]} {
        set enanswer "= The address: $email is on the list. ="
      } {
        set enanswer "= The address: $email is not on the list. ="
      }
    } {
      switch -exact -- $submit {
        "Add" {
          if {![file exists emailnot.dir/$email]} {
            file mkdir emailnot.dir/$email
            set enanswer "= Address $email has been added. ="
          } {
            set enanswer "= Address $email has already been added. ="
          }
        }
        "Remove" {
          if {[file exists emailnot.dir/$email]} {
            file delete -force emailnot.dir/$email
            set enanswer "= Address $email has been removed. ="
          } {
            set enanswer "= Address $email is not on the list yet. ="
          }
        }
        "Check" {
          if {![file exists emailnot.dir/$email]} {
            set enanswer "= The address: $email is not on the list. ="
          } {
            set enanswer "= The address: $email is on the list. ="
          }
        }
      }
    }
  } {
    if {[info exists submit]} {
      set enanswer "= Please specify an email address. Thanks. ="
    }
    set email ""
  }
}
puts "
We have an email notification list about new maps and mapcycle changes for you!
"
puts "Enter your email address: "
puts ""
puts ""
puts ""
puts "
"
#(Sorry, the notification engine is still under development.

#NOTE: GOOD NEWS! I have squashed the bug. BIG-BUG HURRAY! :)
AND I was able to recover ALL the email addresses from the log files!)
puts "
"
puts "$enanswer"

proc rputs {text} {
  puts $::tablefd "$text"
  puts "$text"
}

if {![info exists tablegen]} {
  include mapstable.html
} {
  puts "NEW TABLE GENERATION
"
  if {$tablegen!=""} {
    set mapstablefilename mapstable.html
    puts "NEW TABLE WILL BE ACTIVATED"
  } {
    set mapstablefilename mapstabletemp.html
  }
  set ::tablefd [open $mapstablefilename w]
  set totalsize 0
  set pk3l [glob -nocomplain *.pk3]
  if {[catch {exec zipinfo -1 *.pk3 2>/dev/null | grep maps | grep -e "\.bsp$" | cut -f 2 -d/} totalmaps]} {
    rputs "== HIBA =="
    exit 1
  }
  if {[catch {exec echo $totalmaps | sort -n | uniq -c | cut -c 9-} uniqmaps]} {
    rputs "== HIBA =="
    exit
  }
  set filters ""
  set pk3lt ""
  set timenow [clock seconds]
  foreach pk3 $pk3l {
    if {[lsearch -exact $filters $pk3]==-1} {
      lappend pk3lt "[file mtime $pk3] $pk3"
    }
  }
  if {[string compare $sort "abc"]==0} {
    set pk3lt [lsort -increasing -dictionary -index 1 $pk3lt]
  } {
    set pk3lt [lsort -decreasing -dictionary $pk3lt]
  }
  file delete -force current_pk3list.txt
  set ml_fd [open current_pk3list.txt w]
#  puts $ml_fd "[join [lsort -dictionary $pk3l] \n]"
  set filters "zpak000.pk3"
  foreach pk3 [join [lsort -dictionary $pk3l] \n] {
    if {[lsearch -exact $filters $pk3]==-1} {
      puts $ml_fd $pk3
    }
  }
  close $ml_fd
  set bl_fd [open current_bsplist.txt w]
  puts $bl_fd $uniqmaps
  close $bl_fd
  set bl_fd [open current_totalmaps.txt w]
  puts $bl_fd $totalmaps
  close $bl_fd
  rputs "
[llength $totalmaps] ([set no [llength $uniqmaps]] unique) UrT4 maps (.bsp)
"
  incr no
  rputs "in [expr [llength $pk3lt]-1] downloadable files (.pk3)
"
  rputs "  This repository is now dedicated to the Urban Terror beta4 game versions only! 

For older maps, please visit sections 2.6a and 3.7. Thank you, enjoy! "
#  puts ""
#  rputs ""
#  rputs ""
#  puts "
The full pk3 list
Sort by: "
#  foreach sortingtype {added filename size getcount} {
#    rputs "$sortingtype"
#  }
#  rputs "
"
#
#  rputs "
  rputs "
"
  set dlfd [open dload.dat]
  set dloadl [split [read -nonewline $dlfd] \n]
  close $dlfd
  set dlds 0
  foreach cnt $dloadl {
    incr dlds [lindex $cnt 0]
  }
  rputs "
  "
      if {$rsc==1} {
        if {[set dldnr [lindex [lindex $dloadl [lsearch $dloadl *maps/$pk3]] 0]]==""} {
          set dldnr "New!"
        }
        rputs ""
      }
      rputs ""
    }
  }
  set sum $totalsize
  while {[regsub {^ *([-+]?[0-9]+)([0-9][0-9][0-9])} $totalsize "\\1,\\2" totalsize]} {}
  rputs ""
  close $tablefd
}

puts -nonewline "

  "
  set bgc 0
  set nrmaps ""
  source gtypes-override.txt
  foreach pk3 $pk3lt {
puts "HAH"
    set pk3time [lindex $pk3 0]
    set pk3 [lindex $pk3 1]
    incr totalsize [set n [file size $pk3]]
    set mapname [lindex [split $pk3 .] 0]
    set maploadnamel ""
    set rowspan 0
    if {[catch {split [exec unzip -qq -l $pk3 *bsp] \n} bspl]} {
      set bspl ""
    }
    foreach bsp $bspl {
      lappend maploadnamel [file rootname [file tail $bsp]]
      incr rowspan
    }
    set rsc 0
    foreach maploadname "$maploadnamel" {
      incr rsc
      if {[expr [incr bgc]%2]} {
        set cls "lbg"
      } {
        set cls "dbg"
      }
      if {[set daysago [expr ($timenow-$pk3time)/86400]]==0} {
        set astyle "style=\"color: rgb(136,0,0)\""
        set daysago "Hot!"
      } {
        set daysago "$daysago"
        set astyle ""
      }
      set setgt 1
      set gto "gt_[set maploadname]"
      if {[info exists $gto]} {
        set pk3type [set $gto]
        set setgt 0
      }
      if {![catch {exec unzip -p $pk3 *.arena} cout]} {
        if {[regexp -- ".*\{(.*?map.*?\"$maploadname\".*?)\}.*" $cout m arena_$maploadname]} {
          if {![regexp -- ".*longname.*?\"(\[^\n]*)\".*" [set arena_$maploadname] m pk3longname]} {
            set pk3longname ""
          }
          if {$setgt && ![regexp -- ".*type\[^\"\n]*\"(\[^\n]*)\".*" [set arena_$maploadname] m pk3type]} {
            set pk3type ""                                                                     	 
          }
        } {
          set pk3longname ""
          if {$setgt} {
            set pk3type ""
          }
        }
        if {[set pk3longname [string trim $pk3longname]]==""} {
          set pk3longname "$mapname"
        }
        regsub -all -- "'" $pk3longname "\\'" pk3longname
        set pk3gts $pk3type
        set pk3gtype ""
        set validgtc 0

        foreach gtscat {{ftl ftl ut_follow follow} {ctf ctf ut_ctf ctf} {c&h c&h ut_cah cah} {B bomb ut_bomb}} {
          append pk3gtype ""
        }

        if {$validgtc==0} {
          set pk3gtype ""
        }
      } {
        set pk3longname "$mapname"
#        switch -- $maploadname {
#          "ut_training" {
#            set pk3gtype ""
#          }
#          default {
#            set pk3gtype ""
#          }
#        }
        set pk3gtype ""
      }
      while {[regsub {^ *([-+]?[0-9]+)([0-9][0-9][0-9])} $n "\\1,\\2" n]} {}
      regsub -all "<\[^<>]*>" $pk3gtype " " pk3gtypel
      rputs ""
      if {[lsearch $nrmaps $maploadname]==-1} {
        rputs ""
        lappend nrmaps $maploadname
      } {
        rputs ""
      }
      if {$rsc==1} {
        rputs ""
      }
      if {![file exists ../shots/$maploadname]} {
        file mkdir ../shots/$maploadname
      }
      if {[set shotnr [llength [glob -nocomplain ../shots/$maploadname/*.jpg]]]==0} {
        set shotnr ""
      } {
        set shotnr "($shotnr)"
      }
      set shotsurl "

  
No.
Age
days
Map name (nr of shots)
/callvote map name
G.types+
ts, tdm, ffa

  "
  if {[string compare $sort abc]==0} {
    set newsort "date"
  } {
    set newsort "abc"
  }
  rputs "Filename.pk3
click to dload
Size
bytes
GET
count
"
          foreach validgt $gtscat {
            if {([lsearch $pk3gts *$validgt*]!=-1) && ([lsearch $pk3gtype *[set gt [lindex $gtscat 0]]*]==-1)} {
              append pk3gtype $gt
              incr validgtc
            }
          }
          append pk3gtype "
koth race
[incr no -1].
$daysago
 $maploadname
$shotnr 
"
      rputs "
$shotsurl
$pk3gtype
 [file rootname $pk3] 
$n 
$dldnr 
Total ([format %5.1f [expr $sum/1024/1024.0]] MB):
$totalsize
$dlds