#!/usr/local/bin/wish -f

#############################################################################
set auto_path "/home/play/martin/moog-0.2 $auto_path"
set markFile $env(HOME)/.gopherrc
set fallbackMarkFile /home/play/martin/moog-0.2/dot.gopherrc
set moogRC /home/play/martin/moog-0.2/dot.moog
set rootServer genie.lut.ac.uk
set rootPort 70
set where /tmp
#############################################################################

if {[file exists $env(HOME)/.moog]} { set moogRC $env(HOME)/.moog } 

if {![file exists $moogRC]} {
  puts stderr "No RC file!  Moog cannot continue without this!"
  flush stderr
  exit
}

set innit [open $moogRC r]
while {[gets $innit it]} {
  set rr \
  [regexp "^(\[^:\]+):(\[^:\]+):(\[^:\]+):(\[^:\]+):(\[^:\]+):(\[^:\]+)$" \
    $it {} tempType tempMark tempXfer tempLink tempName tempHelp]

  set name($tempType) $tempName
  set mark($tempType) $tempMark
  set xfer($tempType) $tempXfer
  set link($tempType) $tempLink
  set help($tempType) $tempHelp

  if {$rr == "0"} break
}
close $innit

set i 0
set who [exec whoami]

set bookType {} 
set bookName {} 
set bookPath {} 
set bookHost {}
set bookPort {}

set dirType() {}
set dirName() {}
set dirPath() {}
set dirHost() {}
set dirPort() {}

if {$argc >= 1} { set rootServer [lindex $argv 0] }
if {$argc >= 2} { set rootPort [lindex $argv 1] }

moogDoDir $rootServer $rootPort {} \
  "Root gopher server - $rootServer, port $rootPort"

moogDoMarks $markFile

