Import of revision 19950101
authorceo <ceo>
Sun, 1 Jan 1995 05:00:00 +0000 (00:00 -0500)
committerceo <ceo>
Sun, 1 Jan 1995 05:00:00 +0000 (00:00 -0500)
[This revision is between those in RCS -- Michael Spang]

ceo

diff --git a/ceo b/ceo
index e25ac03..13cc296 100755 (executable)
--- a/ceo
+++ b/ceo
@@ -8,6 +8,7 @@
 #                                                                      placed old audit trail into notes.txt
 #                                                                      use this type of audit trail from now on.
 # 94/12/07             Alex Brodsky            Modified for Lynx 2.3.6
+# 95/01/01             Alex Brodsky            Set to new term, w95
 # 
 
 # load in required modules
@@ -72,11 +73,12 @@ sub Configure
     $GOPHERDIR = "$CSCDISKHOME/Gopher/office_info";
     $CEOBACKUPDIR = "$CEODIR/backup";
     $QUOTATODO = "$CSCDISKHOME/records/to/do";
+    $QUOTATODOOLD = "$CSCDISKHOME/records/to/do.old";
     $QUOTAINFO = "$CSCDISKHOME/.project";
 
     ## This term and next
-    $TERM = "f94";
-    $NEXTTERM = "w95";
+    $TERM = "w96";
+    $NEXTTERM = "s96";
     $CAPTERM = $TERM;
     $CAPTERM =~ tr/a-z/A-Z/;
 
@@ -94,25 +96,32 @@ sub Configure
     $LIBRARYLOG = "$CEODIR/librarylog.$TERM";
     $CASHLOG = "$CEODIR/cashlog.$TERM";
     $QUOTALOG = "$CEODIR/quotalog.$TERM";
+# Log W96 special deals
+       $QUOTASPCLLOG = "$CEODIR/quotaspecial.$TERM";
+       if ($NEXTTERMQUOTA) {
+               $QUOTASPCLLOG = "$CEODIR/quotaspecial.$NEXTTERM";
+       }
     $NEXTQUOTALOG = "$CEODIR/quotalog.$NEXTTERM";
     $NOVELTYLOG = "$CEODIR/noveltylog.$TERM";
        $USERDIR = "/opt/local/admin/data/ceo";
        $USERLOG = "$USERDIR/accountlog.";
        $USERLOG .= $NEXTTERMMEMBER ? $NEXTTERM : $TERM;
        $USERTODO = "$USERDIR/todo";
+       $USERTODOOLD = "$USERDIR/todo.old";
     $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";
+       $LYNX_RESTRICTIONS = "bookmark,bookmark_exec,disk_save,download,editor,".
+                                                "exec,exec_frozen,inside_news,inside_rlogin,".
+                                                "inside_telnet,news_post,option_save,outside_ftp,".
+                                                "outside_news,outside_rlogin,outside_telnet,".
+                                                "print,shell,suspend";
 
     ## Costs
     $MEMBERFEE = '2.00';
-    $COSTPERMEG = 2.5;
-    $ADMINCHARGE = 1;
+    $COSTPERMEG = 2.00;
+       $COSTPERTENMEG = '13.00';
+    $ADMINCHARGE = 0;
     $NOADMINIFOVER = 0;   # Waive the admin fee if more than this is bought
                           # at a time (0 means always charge admin fee)
 
@@ -127,21 +136,36 @@ sub Configure
        $ROWS = 24;
     }
 
-
     if ($term eq "vt240")
     {
-        $csclogo = <<EOLOGO;
-\eP1pS(E)P[120,60]V[]C(A-240)[180,60]P[60,60]C(A-300)[120,60]P[180,60]V[]C(A-240)[120,60]P[240,60]C(A-300)[180,60]\e\\\e[7H
-EOLOGO
         print "\005";
         <STDIN>;
     }
     elsif ($term eq "xterm")
     {
-        print "\e]51;\a";
-        <STDIN>;
+        #print "\e]51;\a";
+        #<STDIN>;
     }
 
+       if ($term eq "vt240")
+       {
+        $csclogo = <<EOLOGO;
+\eP1pS(E)P[120,60]V[]C(A-240)[180,60]P[60,60]C(A-300)[120,60]P[180,60]V[]C(A-240)[120,60]P[240,60]C(A-300)[180,60]\e\\\e[7H
+EOLOGO
+       }
+       else
+       {
+               $csclogo = $cls . <<'EOLOGO';
+   oo$$$$$ooo    o$$$$$oo$$$$$oo
+ o$$""  $$$"  o$$""  $$$$$$  ""$$o    C O M P U T E R
+o$$    $$"    $$"   o$"  "$$    $$o
+$$     $$    $$o    $$    $$o    $$   S C I E N C E
+$$o   "$$    $$    o$$    $$     $$
+ $$o   "$o  $$"   o$$    o$$   o$$"   C L U B
+  "$$ooo$$$$$$ooo$$"   $$$$ooo$$$
+EOLOGO
+       }
+
     print $csclogo;
 }