freebsd-ports/astro/tkseti/files/patch-aa

--- tkseti.orig	Sun Oct 31 10:12:05 1999
+++ tkseti	Thu Nov 18 18:48:20 1999
@@ -1,6 +1,6 @@
 #!/bin/sh
 # the next line restarts using wish \
-exec wish "$0" ${1+"$@"}
+exec wish8.2 "$0" ${1+"$@"}
 #############################################################################
 # Visual Tcl v1.20 Project
 #
@@ -181,11 +181,11 @@
     TkSETI can be started if the client is already running, or it can start
     the client manually or automatically for you. This is explained in the
     Setup section that follows.
-    
-    TkSETI will look for the client files in the directory ~/setiathome. If
-    you've run the client elsewhere, or run more than one client, just
-    specify the setiathome client directory on the tkseti command line. For
-    example:
+
+    TkSETI will look for the client files in the directory
+    /var/db/setiathome . If you've run the client elsewhere, or run more
+    than one client, just specify the setiathome client directory on the
+    tkseti command line. For example:
 
     tkseti ~/setiathome
 
@@ -554,7 +554,7 @@
     if {[catch {info nameofexecutable} nameofexecutable]} {
         set nameofexecutable wish
     }
-    set seti(usage) "    TkSETI version $seti(tksetiVersion) by Rick Macdonald <rickm@vsl.com>\n\nYou are running $nameofexecutable patchlevel [info patchlevel].\n\nUsage: tkseti \[--help\] \[user_setiathome_directory\]\n       user_setiathome_directory defaults to ~/setiathome"
+    set seti(usage) "    TkSETI version $seti(tksetiVersion) by Rick Macdonald <rickm@vsl.com>\n\nYou are running $nameofexecutable patchlevel [info patchlevel].\n\nUsage: tkseti \[--help\] \[user_setiathome_directory\]\n       user_setiathome_directory defaults to /var/db/setiathome"
 
     if {[lsearch $argv "--help"] >= 0} {
         puts \n$seti(usage)
@@ -569,7 +569,7 @@
     option add *highlightBackground grey85 user
 
     if {$argc == 0} {
-        set seti(setidir) [glob ~]/setiathome
+        set seti(setidir) /var/db/setiathome
     } {
         set seti(setidir) [lindex $argv 0]
     }