Import of revision 2.10d
authorceo <ceo>
Wed, 26 Oct 1994 04:00:00 +0000 (00:00 -0400)
committerceo <ceo>
Wed, 26 Oct 1994 04:00:00 +0000 (00:00 -0400)
[This revision is between those in RCS -- Michael Spang]

ceo

diff --git a/ceo b/ceo
index 7ae58d0..ac552fe 100755 (executable)
--- a/ceo
+++ b/ceo
@@ -8,6 +8,8 @@
 #  ----------------
 #
 #
+#  2.10d 26 Oct 1994 - added terminal reset after any more command.
+#
 #  2.10c 02 Oct 1994
 #
 #    Got rid of the silly timeouts
@@ -198,8 +200,8 @@ sub Configure
     $CAPTERM =~ tr/a-z/A-Z/;
 
     ## Set these flags near the end of term
-    $NEXTTERMQUOTA = 0;
-    $NEXTTERMMEMBER = 0;
+    $NEXTTERMQUOTA = 1;
+    $NEXTTERMMEMBER = 1;
 
     ## List of people allowed to start ceo and use cash-box menu items
     $OFFICESTAFF = "$HOME/OSlist";
@@ -219,6 +221,12 @@ sub Configure
        $USERTODO = "$USERDIR/todo";
     $editfile = "_editscreen";
 
+       ## The restrictions for the public lynx
+       $LYNX_RESTRICTIONS = "inside_telnet,outside_telnet,".
+                                                "inside_news,outside_news,news_post,".
+                                                "inside_rlogin,outside_rlogin,".
+                                                "shell,editor,bookmark,option_save,".
+                                                "print,download,disk_save,exec,exec_frozen";
 
     ## Costs
     $MEMBERFEE = '2.00';
@@ -377,6 +385,7 @@ sub MORE0
     &Secure;
     system("$PAGER $fname");
     &Unsecure;
+       print "\033c";
 }
 
 sub MORE
@@ -484,7 +493,7 @@ sub mainmenu
     $menu=<<EOM;
 
 CSC Electronic Office Version 2.10 (9/1994) by Ian Goldberg
-Recent Mangling Version 2.10c is the fault of Zygo Blaxell (10/1994)
+Recent Mangling Version 2.10d is the fault of Zygo Blaxell (10/1994)
 
 Choose an option:
   (C)ashbox
@@ -494,7 +503,7 @@ Choose an option:
   (S)tats
   (M)embership
   (Q)uota
-  (W)orld Wide Web (lynx 2.3)
+  (W)orld Wide Web (lynx 2.3.6)
   e(X)it
 
 (M,Q,N,L,C,A,S,W,X): 
@@ -512,7 +521,8 @@ sub dowww
        ##$lterm = $ENV{'TERM'};
        ##$lterm = "vt100" if $lterm eq "vt240";
        ##$lterm = "wy75" if $lterm eq "wy75d";
-       system("lynx -restrictions=shell,editor,bookmark,options_save,print,file_url,download,exec");
+       system("lynx -restrictions=$LYNX_RESTRICTIONS");
+       ##system("lynx -restrictions=inside_telnet,outside_telnet,shell,editor,bookmark,options_save,print,file_url,download,exec");
 }
 
 sub dobd
@@ -1135,7 +1145,7 @@ sub dobuyquota
     local ($thename, $theidnum, $theuserid);
     chop($userid = <STDIN>);
     $userid =~ s/[^\w-]//g;
-    substr($userid,8)="";
+    substr($userid,8)="" if length($userid) > 8;
     if ($userid eq "")
     {
         print "\n${beep}No userid supplied - aborting.\n\n";
@@ -1170,7 +1180,7 @@ sub dobuyquota
     {
         $cardnum = $QUOT{$userid};
         ($thename, $theidnum, $theuserid) = split(/;/,$QUOT{$cardnum});
-        substr($theuserid,8)="";
+        substr($theuserid,8)="" if length($theuserid) > 8;
         warn "Card number $cardnum is for userid $theuserid\n" unless
                 $theuserid eq $userid;
         dbmclose(QUOT);
@@ -1653,7 +1663,7 @@ sub doaccount
         return;
     }
        $forterm = $NEXTTERMMEMBER ? $NEXTTERM : $TERM;
-    $match = grep(/^$forterm$/,split(/,/,(split(/;/,$MEM{$memnum}))[7]));
+    $match = grep(/^$forterm/,split(/,/,(split(/;/,$MEM{$memnum}))[7]));
     unless ($match)
     {
         print "\n${beep}This member has not paid for the current term.\n";
@@ -1731,7 +1741,7 @@ EOM
        ## Truncate the username
        $usernane =~ y/A-Z/a-z/;
        $username =~ s/[^a-z0-9-]//g;
-       substr($username,8)="";
+       substr($username,8)="" if length($username) > 8;
 
        print "\nYour userid will be $username.\n\n";
 
@@ -1920,7 +1930,7 @@ sub doquotalist
     {
         next if (/^\s*$/ || /^\s*#/);
         ($qdate, $quid, $qamt, $qtot, $qleft) = split(/;/);
-        next if $quid eq "csc@math";
+        next if $quid eq "csc\@math";
         $Quota{$QUOTA{$quid}} = $qtot;
     }
     close(QLOG);
@@ -2156,7 +2166,7 @@ sub Gopher_Quota
     {
         next if (/^\s*$/ || /^\s*#/);
         ($qdate, $quid, $qamt, $qtot, $qleft) = split(/;/);
-        next if $quid eq "csc@math";
+        next if $quid eq "csc\@math";
         $Quota{$QUOTA{$quid}} = $qtot;
     }
     close(QLOG);