addapted for next stage of quota sale /
authorceo <ceo>
Wed, 19 Mar 1997 05:09:10 +0000 (05:09 +0000)
committerceo <ceo>
Wed, 19 Mar 1997 05:09:10 +0000 (05:09 +0000)
quota.pl

index f74af52..90fa90b 100644 (file)
--- a/quota.pl
+++ b/quota.pl
@@ -175,14 +175,15 @@ EOS
     ## Compute cost
     $cost = $COSTPERMEG * $qadd;
 ## W96 and beyond 10 meg rule 
+## S97 and beyond 20 meg rule 
        do {
-         $cost = $COSTPERTENMEG * int($qadd / 10);
-         $cost += $COSTPERMEG * ($qadd % 10);
+         $cost = $COSTPERNUMMEG * int($qadd / $MEGNUMSPECIAL);
+         $cost += $COSTPERMEG * ($qadd % $MEGNUMSPECIAL);
          open(QLOG2, ">>$QUOTASPCLLOG") && do {
                print QLOG2 "$date;$userid;$qadd;$cost\n";
                close(QLOG2);
          }
-    } if ($qadd >= 10);
+    } if ($qadd >= $MEGNUMSPECIAL);
     $cost += $ADMINCHARGE if $qadd < $NOADMINIFOVER || $NOADMINIFOVER == 0;
 
     chop($date = `date`);