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








Please make sure to check the mapcycle of the server to find out which map(s) you actually have to download. Thanks! :)




Please check the footnote.


"

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]
  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]"
  close $ml_fd
  if {[catch {exec zipinfo -m \*.pk3 "*.bsp" 2>/dev/null | grep -vx "" | cut -c 63- | sort -n | uniq} uniqmaps]} {
    set uniqmaps [lrange $uniqmaps 0 end-4]
  }
  if {[catch {exec zipinfo -m \*.pk3 "*.bsp" 2>/dev/null | grep -vx "" | cut -c 63-} totalmaps]} {
    set totalmaps [llength [lrange $totalmaps 0 end-4]]
  }
  set bl_fd [open current_bsplist.txt w]
  puts $bl_fd "[join [lsort -dictionary $uniqmaps] \n]"
  close $bl_fd
  rputs "
$totalmaps ([set no [llength $uniqmaps]] unique) Q3 UrT maps (.bsp)
"
  incr no
  rputs "in [llength $pk3lt] downloadable files (.pk3)
"
  rputs " >padmaps were moved to the other folder.

This repository is now 2.6a maps-only. For 3.0 maps, see q3.utca.hu/maps

We're over 2 million downloads!  - Thank you all, gj! "
#  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 ""
  foreach pk3 $pk3lt {
    set pk3time [lindex $pk3 0]
    set pk3 [lindex $pk3 1]
    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 ""
      }
      if {![catch {exec unzip -p $pk3 *.arena} cout]} {
        if {[catch {foreach {name value} [lindex $cout [lsearch $cout *$maploadname*]] {set pk3$name $value}}]} {
          set pk3longname ""
          set pk3type ""
        }
        if {(![info exists pk3longname]) || ([set pk3longname [string trim $pk3longname]]=="")} {
          set pk3longname "$mapname"
        }
        if {(![info exists pk3type]) || ([set pk3type [string trim $pk3type]]=="")} {
          set pk3type "ut_ffa"
        }
        regsub -all -- "'" $pk3longname "\\'" pk3longname
        set pk3gts $pk3type
        set pk3gtype ""
        set validgtc 0

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

        if {$validgtc==0} {
          set pk3gtype ""
        }
      } {
        set pk3longname "$mapname"
        set pk3gtype ""
      }
      incr totalsize [set n [file size $pk3]]
      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 "
-
-
[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