'freeside_1_3_1_pci_mods'.
+++ /dev/null
---#!/usr/bin/perl
---
---###
---# WHO WROTE THIS???
---###
---
---#require "perldb.pl";
---
---# Compute SLIP/PPP log times
---# Arguments -a Process entire file with totals
---# -t Process only totals
---# -f File to be processed if not current
---# -d processing start date (default is entire file)
---# -l to return all totals for dayuse
---# -w name of tmp work file for dayuse
---# user names
---
---require "time.pl";
---
---$space=' ';
---
---unless (@ARGV[0]) {
--- print "Missing Arguments\n";
--- print "-a - entire file\n";
--- print "-t - totals only\n";
--- print "-f - file name to be processed\n";
--- print "-d - processing start date (yymmdd)\n";
--- print "-l - return totals for dayuse\n";
--- print "-w - tmp work file for dayuse\n";
--- exit;
---} # end if test for missing arguments
---
---$infile = "/usr/annex/acp_logfile";
---$tmpfile = "/tmp/ppp";
---$n = $#ARGV;
---$start_yymmdd = "";
---for ($i = 0; $i <= $n; $i++) {
--- if ($ARGV[$i] eq "-a") {
--- $allflag = "true";
--- }
--- elsif ($ARGV[$i] eq "-t") {
--- $totalflag = "true";
--- }
--- elsif ($ARGV[$i] eq "-f") {
--- $i++;
--- $infile = $ARGV[$i];
--- }
--- elsif ($ARGV[$i] eq "-d") {
--- $i++;
--- $start_yymmdd = $ARGV[$i];
--- } #end start yymmdd
--- elsif ($ARGV[$i] eq "-l") {
--- $logflag = "true";
--- $totalflag = "true";
--- } # end log
--- elsif ($ARGV[$i] eq "-w") {
--- $i++;
--- $tmpfile = $ARGV[$i];
--- } # end tmp file
--- else {
--- ($arg_user,$arg_yymmdd) = split (/:/, $ARGV[$i]);
--- $ip_user_date {$arg_user} = $ARGV[$i];
--- $userflag = "true";
--- } # end else
--- } # end for 1 = 1 to n
---
---open (IN,$infile)
--- || die "Can't open acp_logfile";
---
---NEXTUSER: while (<IN>) {
--- chop;
--- ($add,$ether,$port,$date,$time,$type,$action,$user) = split(/:/);
---
--- if ($logflag) {
--- $start_yymmdd = '';
--- if ($ip_user_date{$user}) {
--- ($ip_user, $start_yymmdd) =
--- split (/:/, $ip_user_date{$user});
--- } # end get date
--- } # end log flag
--- if ($start_yymmdd) {
--- if ($date < $start_yymmdd) {
--- next NEXTUSER;
--- } #end date compare
--- } #end if date
--- if ($userflag){
--- if (!$ip_user_date{$user}) {
--- next NEXTUSER;
--- } # end user test
--- } # end by user or all
--- if (($totalflag) ||
--- ($allflag) ||
--- ($ip_user_date{$user})) {
--- if (($type eq 'ppp') || ($type eq 'slip')) {
---
--- if ($action eq 'login') {
--- $login{$user} = "$time:$date";
---
--- }
--- elsif ($action eq 'logout') {
--- if (!$login{$user}) {
--- $login{$user} = "010101:$date";
--- } #end pad user if carry over
--- ($stime,$sdate) = split(':',$login{$user});
--- $start = &annex2sec($stime);
--- $end = &annex2sec($time);
---
--- #If we went through midnight, add a day;
--- if ($end < $start) {$end += 86400;}
--- $timeon = $end - $start;
---
--- $elapsed{$user} += $timeon;
---
--- if (!$totalflag) {
--- print (&fmt_user($user),
--- ' ', &fmt_date($sdate), ' In: ',
--- &fmt_time($stime),' Out: ',
--- &fmt_time($time),
--- ' Elapsed: ', &fmt_sec($timeon), "\n");
--- } # end total test
--- } #end elsif action
--- } # type = ppp of slip
--- } # check arguments
---}
---close IN;
---
---if ($logflag) {
--- open (TMPPPP, ">$tmpfile")
--- || die "Can't open ppp tmp file";
--- foreach $user ( sort((keys(%elapsed))) ) {
--- $log_time = &fmt_sec($elapsed{$user});
--- $tmp = join (':',
--- $user,
--- $log_time);
--- print (TMPPPP "$tmp\n");
--- }
--- close (TMPPPP);
---}
--- else {
--- print "\n\nTotal Time On For Period:\n";
--- print "-------------------------\n";
---
--- foreach $user ( sort((keys(%elapsed))) ) {
--- print (&fmt_user($user), " ",&fmt_sec($elapsed{$user}), "\n");
--- }
--- }
---exit(0);
---
---#-------------------------------------------------------
---#--------------- Subroutines Start Here ----------------
---#-------------------------------------------------------
---
---sub annex2sec {
--- local($time) = @_;
--- return( &time2sec( &break_annex($time) ) );
---}
---
---sub fmt_date {
--- local($date) = @_;
---
--- return( substr($date,2,2).'/'.substr($date,4,2).'/'.substr($date,0,2) );
---}
---
---sub fmt_time {
--- local($time) = @_;
--- local($s,$m,$h) = &break_annex($time);
--- return ("$h:$m:$s");
---}
---
---
---sub break_annex {
--- local($time) = @_;
--- local($h,$m,$s);
---
--- $h=substr($time,0,2);
--- $m=substr($time,2,2);
--- $s=substr($time,4,2);
---
--- return ($s,$m,$h);
---}
---
---sub fmt_sec {
--- local(@t) = &sec2time(@_);
--- @t[2] += (@t[3]*24);
---
--- foreach $a (@t) {
--- if ($a < 10) {$a = "0$a";}
--- }
---
--- return ("@t[2]:@t[1]:@t[0]");
---}
---
---sub fmt_user {
--- local($user) = @_;
--- return( $user.substr($space,0,8 - length($user) ).' ' );
---}
---
+++ /dev/null
---AFGHANISTAN AF AFG 004
---ALBANIA AL ALB 008
---ALGERIA DZ DZA 012
---AMERICAN SAMOA AS ASM 016
---ANDORRA AD AND 020
---ANGOLA AO AGO 024
---ANGUILLA AI AIA 660
---ANTARCTICA AQ ATA 010
---ANTIGUA AND BARBUDA AG ATG 028
---ARGENTINA AR ARG 032
---ARMENIA AM ARM 051
---ARUBA AW ABW 533
---AUSTRALIA AU AUS 036
---AUSTRIA AT AUT 040
---AZERBAIJAN AZ AZE 031
---BAHAMAS BS BHS 044
---BAHRAIN BH BHR 048
---BANGLADESH BD BGD 050
---BARBADOS BB BRB 052
---BELARUS BY BLR 112
---BELGIUM BE BEL 056
---BELIZE BZ BLZ 084
---BENIN BJ BEN 204
---BERMUDA BM BMU 060
---BHUTAN BT BTN 064
---BOLIVIA BO BOL 068
---BOSNIA AND HERZEGOWINA BA BIH 070
---BOTSWANA BW BWA 072
---BOUVET ISLAND BV BVT 074
---BRAZIL BR BRA 076
---BRITISH INDIAN OCEAN TERRITORY IO IOT 086
---BRUNEI DARUSSALAM BN BRN 096
---BULGARIA BG BGR 100
---BURKINA FASO BF BFA 854
---BURUNDI BI BDI 108
---CAMBODIA KH KHM 116
---CAMEROON CM CMR 120
---CANADA CA CAN 124
---CAPE VERDE CV CPV 132
---CAYMAN ISLANDS KY CYM 136
---CENTRAL AFRICAN REPUBLIC CF CAF 140
---CHAD TD TCD 148
---CHILE CL CHL 152
---CHINA CN CHN 156
---CHRISTMAS ISLAND CX CXR 162
---COCOS (KEELING) ISLANDS CC CCK 166
---COLOMBIA CO COL 170
---COMOROS KM COM 174
---CONGO CG COG 178
---COOK ISLANDS CK COK 184
---COSTA RICA CR CRI 188
---COTE D'IVOIRE CI CIV 384
---CROATIA (local name: Hrvatska) HR HRV 191
---CUBA CU CUB 192
---CYPRUS CY CYP 196
---CZECH REPUBLIC CZ CZE 203
---DENMARK DK DNK 208
---DJIBOUTI DJ DJI 262
---DOMINICA DM DMA 212
---DOMINICAN REPUBLIC DO DOM 214
---EAST TIMOR TP TMP 626
---ECUADOR EC ECU 218
---EGYPT EG EGY 818
---EL SALVADOR SV SLV 222
---EQUATORIAL GUINEA GQ GNQ 226
---ERITREA ER ERI 232
---ESTONIA EE EST 233
---ETHIOPIA ET ETH 231
---FALKLAND ISLANDS (MALVINAS) FK FLK 238
---FAROE ISLANDS FO FRO 234
---FIJI FJ FJI 242
---FINLAND FI FIN 246
---FRANCE FR FRA 250
---FRANCE, METROPOLITAN FX FXX 249
---FRENCH GUIANA GF GUF 254
---FRENCH POLYNESIA PF PYF 258
---FRENCH SOUTHERN TERRITORIES TF ATF 260
---GABON GA GAB 266
---GAMBIA GM GMB 270
---GEORGIA GE GEO 268
---GERMANY DE DEU 276
---GHANA GH GHA 288
---GIBRALTAR GI GIB 292
---GREECE GR GRC 300
---GREENLAND GL GRL 304
---GRENADA GD GRD 308
---GUADELOUPE GP GLP 312
---GUAM GU GUM 316
---GUATEMALA GT GTM 320
---GUINEA GN GIN 324
---GUINEA-BISSAU GW GNB 624
---GUYANA GY GUY 328
---HAITI HT HTI 332
---HEARD AND MC DONALD ISLANDS HM HMD 334
---HONDURAS HN HND 340
---HONG KONG HK HKG 344
---HUNGARY HU HUN 348
---ICELAND IS ISL 352
---INDIA IN IND 356
---INDONESIA ID IDN 360
---IRAN (ISLAMIC REPUBLIC OF) IR IRN 364
---IRAQ IQ IRQ 368
---IRELAND IE IRL 372
---ISRAEL IL ISR 376
---ITALY IT ITA 380
---JAMAICA JM JAM 388
---JAPAN JP JPN 392
---JORDAN JO JOR 400
---KAZAKHSTAN KZ KAZ 398
---KENYA KE KEN 404
---KIRIBATI KI KIR 296
---KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF KP PRK 408
---KOREA, REPUBLIC OF KR KOR 410
---KUWAIT KW KWT 414
---KYRGYZSTAN KG KGZ 417
---LAO PEOPLE'S DEMOCRATIC REPUBLIC LA LAO 418
---LATVIA LV LVA 428
---LEBANON LB LBN 422
---LESOTHO LS LSO 426
---LIBERIA LR LBR 430
---LIBYAN ARAB JAMAHIRIYA LY LBY 434
---LIECHTENSTEIN LI LIE 438
---LITHUANIA LT LTU 440
---LUXEMBOURG LU LUX 442
---MACAU MO MAC 446
---MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF MK MKD 807
---MADAGASCAR MG MDG 450
---MALAWI MW MWI 454
---MALAYSIA MY MYS 458
---MALDIVES MV MDV 462
---MALI ML MLI 466
---MALTA MT MLT 470
---MARSHALL ISLANDS MH MHL 584
---MARTINIQUE MQ MTQ 474
---MAURITANIA MR MRT 478
---MAURITIUS MU MUS 480
---MAYOTTE YT MYT 175
---MEXICO MX MEX 484
---MICRONESIA, FEDERATED STATES OF FM FSM 583
---MOLDOVA, REPUBLIC OF MD MDA 498
---MONACO MC MCO 492
---MONGOLIA MN MNG 496
---MONTSERRAT MS MSR 500
---MOROCCO MA MAR 504
---MOZAMBIQUE MZ MOZ 508
---MYANMAR MM MMR 104
---NAMIBIA NA NAM 516
---NAURU NR NRU 520
---NEPAL NP NPL 524
---NETHERLANDS NL NLD 528
---NETHERLANDS ANTILLES AN ANT 530
---NEW CALEDONIA NC NCL 540
---NEW ZEALAND NZ NZL 554
---NICARAGUA NI NIC 558
---NIGER NE NER 562
---NIGERIA NG NGA 566
---NIUE NU NIU 570
---NORFOLK ISLAND NF NFK 574
---NORTHERN MARIANA ISLANDS MP MNP 580
---NORWAY NO NOR 578
---OMAN OM OMN 512
---PAKISTAN PK PAK 586
---PALAU PW PLW 585
---PANAMA PA PAN 591
---PAPUA NEW GUINEA PG PNG 598
---PARAGUAY PY PRY 600
---PERU PE PER 604
---PHILIPPINES PH PHL 608
---PITCAIRN PN PCN 612
---POLAND PL POL 616
---PORTUGAL PT PRT 620
---PUERTO RICO PR PRI 630
---QATAR QA QAT 634
---REUNION RE REU 638
---ROMANIA RO ROM 642
---RUSSIAN FEDERATION RU RUS 643
---RWANDA RW RWA 646
---SAINT KITTS AND NEVIS KN KNA 659
---SAINT LUCIA LC LCA 662
---SAINT VINCENT AND THE GRENADINES VC VCT 670
---SAMOA WS WSM 882
---SAN MARINO SM SMR 674
---SAO TOME AND PRINCIPE ST STP 678
---SAUDI ARABIA SA SAU 682
---SENEGAL SN SEN 686
---SEYCHELLES SC SYC 690
---SIERRA LEONE SL SLE 694
---SINGAPORE SG SGP 702
---SLOVAKIA (Slovak Republic) SK SVK 703
---SLOVENIA SI SVN 705
---SOLOMON ISLANDS SB SLB 090
---SOMALIA SO SOM 706
---SOUTH AFRICA ZA ZAF 710
---SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS GS SGS 239
---SPAIN ES ESP 724
---SRI LANKA LK LKA 144
---ST. HELENA SH SHN 654
---ST. PIERRE AND MIQUELON PM SPM 666
---SUDAN SD SDN 736
---SURINAME SR SUR 740
---SVALBARD AND JAN MAYEN ISLANDS SJ SJM 744
---SWAZILAND SZ SWZ 748
---SWEDEN SE SWE 752
---SWITZERLAND CH CHE 756
---SYRIAN ARAB REPUBLIC SY SYR 760
---TAIWAN, PROVINCE OF CHINA TW TWN 158
---TAJIKISTAN TJ TJK 762
---TANZANIA, UNITED REPUBLIC OF TZ TZA 834
---THAILAND TH THA 764
---TOGO TG TGO 768
---TOKELAU TK TKL 772
---TONGA TO TON 776
---TRINIDAD AND TOBAGO TT TTO 780
---TUNISIA TN TUN 788
---TURKEY TR TUR 792
---TURKMENISTAN TM TKM 795
---TURKS AND CAICOS ISLANDS TC TCA 796
---TUVALU TV TUV 798
---UGANDA UG UGA 800
---UKRAINE UA UKR 804
---UNITED ARAB EMIRATES AE ARE 784
---UNITED KINGDOM GB GBR 826
---UNITED STATES US USA 840
---UNITED STATES MINOR OUTLYING ISLANDS UM UMI 581
---URUGUAY UY URY 858
---UZBEKISTAN UZ UZB 860
---VANUATU VU VUT 548
---VATICAN CITY STATE (HOLY SEE) VA VAT 336
---VENEZUELA VE VEN 862
---VIET NAM VN VNM 704
---VIRGIN ISLANDS (BRITISH) VG VGB 092
---VIRGIN ISLANDS (U.S.) VI VIR 850
---WALLIS AND FUTUNA ISLANDS WF WLF 876
---WESTERN SAHARA EH ESH 732
---YEMEN YE YEM 887
---YUGOSLAVIA YU YUG 891
---ZAIRE ZR ZAR 180
---ZAMBIA ZM ZMB 894
---ZIMBABWE ZW ZWE 716
+++ /dev/null
---#!/usr/local/bin/perl
---
---###
---# THIS IS FROM CYBERCASH (is there a newer version?)
---###
---
---$paymentserverhost = 'localhost';
---$paymentserverport = 8000;
---$paymentserversecret = 'two-turntables';
---use CCLib qw(sendmserver);
---
---# first lets fake up some data
---# use time of day and pid to give me my pretend
---# order number
---# you obviously need to get real data from somewhere...
---
---$oid = "test$$"; #fake order number.
---$amount = 'usd 42.42';
---$ramount = 'usd 24.24';
---$pan = '4111111111111111';
---$name = 'John Q. Doe';
---$addr = '17 Richard Rd.';
---$city = 'Ivyland';
---$state = 'PA';
---$zip = '18974';
---$country = 'USA';
---$exp = '7/97';
---
---
---%result = &sendmserver('mauthcapture',
--- 'Order-ID', $oid,
--- 'Amount', $amount,
--- 'Card-Number', $pan,
--- 'Card-Name', $name,
--- 'Card-Address', $addr,
--- 'Card-City', $city,
--- 'Card-State', $state,
--- 'Card-Zip', $zip,
--- 'Card-Country', $country,
--- 'Card-Exp', $exp);
---
---#
---# just dump results to stdout.
---# you should process them...
---# to allow results to affect operation of your fulfillment...
---#
---foreach (keys(%result)) {
--- print " $_ ==> $result{$_}\n";
---}
---
---print "\n";
---
---exit;
---
---$trans=$result{'MTransactionNumber'};
---$code=$result{'MRetrievalCode'};
---
---%result = &sendmserver('return',
--- 'Order-ID', $oid,
--- 'Return-Amount',$ramount,
--- 'Amount',$amount,
--- );
---
---foreach (keys(%result)) {
--- print " $_ ==> $result{$_}\n";
---}
---
+++ /dev/null
---#!/usr/bin/perl -Tw
---#
-- # $Id: cust_credit.cgi,v 1.7 1999-02-28 00:03:33 ivan Exp $
-# cust_credit.cgi: Add a credit (output form)
---#
---# Usage: cust_credit.cgi custnum [ -paybatch ]
---# http://server.name/path/cust_credit?custnum [ -paybatch ]
-#
-# Note: Should be run setuid root as user nobody.
---#
---# some hooks in here for modifications as well as additions, but needs (lots) more work.
---# also see process/cust_credit.cgi, the script that processes the form.
---#
---# ivan@voicenet.com 96-dec-05
---#
---# paybatch field, differentiates between credits & credits+refunds by commandline
---# ivan@voicenet.com 96-dec-08
---#
---# added (but commented out) sprintf("%.2f" in amount field. Hmm.
---# ivan@voicenet.com 97-jan-3
---#
---# paybatch stuff thrown out - has checkbox now instead.
---# (well, sort of. still passed around for backward compatability and possible editing hook)
---# ivan@voicenet.com 97-apr-21
---#
---# rewrite ivan@sisd.com 98-mar-16
-- #
-- # $Log: cust_credit.cgi,v $
-- # Revision 1.7 1999-02-28 00:03:33 ivan
-- # removed misleading comments
-- #
-- # Revision 1.6 1999/01/25 12:09:52 ivan
-- # yet more mod_perl stuff
-- #
-- # Revision 1.5 1999/01/19 05:13:33 ivan
-- # for mod_perl: no more top-level my() variables; use vars instead
-- # also the last s/create/new/;
-- #
-- # Revision 1.4 1999/01/18 09:41:23 ivan
-- # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
-- # (good idea anyway)
-- #
-- # Revision 1.3 1998/12/23 02:26:06 ivan
-- # *** empty log message ***
-- #
-- # Revision 1.2 1998/12/17 06:16:59 ivan
-- # fix double // in relative URLs, s/CGI::Base/CGI/;
-- #
---
---use strict;
-- use vars qw( $cgi $query $custnum $otaker $p1 $crednum $_date $amount $reason );
---use Date::Format;
-- use CGI;
-- use CGI::Carp qw(fatalsToBrowser);
-use CGI::Base qw(:DEFAULT :CGI); #CGI module
---use FS::UID qw(cgisuidsetup getotaker);
-- use FS::CGI qw(header popurl);
-- use FS::Record qw(fields);
-- #use FS::cust_credit;
---
-- $cgi = new CGI;
-my($cgi) = new CGI::Base;
-$cgi->get;
---cgisuidsetup($cgi);
--
-- if ( $cgi->param('error') ) {
-- #$cust_credit = new FS::cust_credit ( {
-- # map { $_, scalar($cgi->param($_)) } fields('cust_credit')
-- #} );
-- $custnum = $cgi->param('custnum');
-- $amount = $cgi->param('amount');
-- #$refund = $cgi->param('refund');
-- $reason = $cgi->param('reason');
-- } else {
-- ($query) = $cgi->keywords;
-- $query =~ /^(\d+)$/;
-- $custnum = $1;
-- $amount = '';
-- #$refund = 'yes';
-- $reason = '';
-- }
-- $_date = time;
---
-- $otaker = getotaker;
-#untaint custnum
-$QUERY_STRING =~ /^(\d+)$/;
-my($custnum)=$1;
---
-- $p1 = popurl(1);
-#untaint otaker
-my($otaker)=getotaker;
---
-- print $cgi->header( '-expires' => 'now' ), header("Post Credit", '');
-- print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
-- "</FONT>"
-- if $cgi->param('error');
-SendHeaders(); # one guess.
---print <<END;
-- <FORM ACTION="${p1}process/cust_credit.cgi" METHOD=POST>
-- <PRE>
-<HTML>
- <HEAD>
- <TITLE>Post Credit</TITLE>
- </HEAD>
- <BODY>
- <CENTER>
- <H1>Post Credit</H1>
- </CENTER>
- <FORM ACTION="process/cust_credit.cgi" METHOD=POST>
- <HR><PRE>
---END
---
-- $crednum = "";
-#crednum
-my($crednum)="";
---print qq!Credit #<B>!, $crednum ? $crednum : " <I>(NEW)</I>", qq!</B><INPUT TYPE="hidden" NAME="crednum" VALUE="$crednum">!;
---
-#custnum
---print qq!\nCustomer #<B>$custnum</B><INPUT TYPE="hidden" NAME="custnum" VALUE="$custnum">!;
---
-#paybatch
---print qq!<INPUT TYPE="hidden" NAME="paybatch" VALUE="">!;
---
-- print qq!\nDate: <B>!, time2str("%D",$_date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="">!;
-#date
-my($date)=time;
-print qq!\nDate: <B>!, time2str("%D",$date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="$date">!;
---
-#amount
-my($amount)='';
---print qq!\nAmount \$<INPUT TYPE="text" NAME="amount" VALUE="$amount" SIZE=8 MAXLENGTH=8>!;
-- print qq!<INPUT TYPE="hidden" NAME="credited" VALUE="">!;
---
-- #print qq! <INPUT TYPE="checkbox" NAME="refund" VALUE="$refund">Also post refund!;
-#refund?
-#print qq! <INPUT TYPE="checkbox" NAME="refund" VALUE="yes">Also post refund!;
---
-#otaker (hidden)
---print qq!<INPUT TYPE="hidden" NAME="otaker" VALUE="$otaker">!;
---
-#reason
-my($reason)='';
---print qq!\nReason <INPUT TYPE="text" NAME="reason" VALUE="$reason" SIZE=72>!;
---
---print <<END;
---</PRE>
---<BR>
---<CENTER><INPUT TYPE="submit" VALUE="Post"></CENTER>
---END
---
---print <<END;
---
--- </FORM>
--- </BODY>
---</HTML>
---END
---
+++ /dev/null
---#!/usr/bin/perl -Tw
---#
-- # $Id: cust_pay.cgi,v 1.6 1999-02-28 00:03:35 ivan Exp $
-# cust_pay.cgi: Add a payment (output form)
---#
---# Usage: cust_pay.cgi invnum
---# http://server.name/path/cust_pay.cgi?invnum
-#
-# Note: Should be run setuid as user nobody.
---#
---# some hooks for modifications as well as additions, but needs work.
---#
---# ivan@voicenet.com 96-dec-11
---#
---# rewrite ivan@sisd.com 98-mar-16
-- #
-- # $Log: cust_pay.cgi,v $
-- # Revision 1.6 1999-02-28 00:03:35 ivan
-- # removed misleading comments
-- #
-- # Revision 1.5 1999/01/25 12:09:56 ivan
-- # yet more mod_perl stuff
-- #
-- # Revision 1.4 1999/01/19 05:13:37 ivan
-- # for mod_perl: no more top-level my() variables; use vars instead
-- # also the last s/create/new/;
-- #
-- # Revision 1.3 1999/01/18 09:41:27 ivan
-- # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
-- # (good idea anyway)
-- #
-- # Revision 1.2 1998/12/17 06:17:03 ivan
-- # fix double // in relative URLs, s/CGI::Base/CGI/;
-- #
---
---use strict;
-- use vars qw( $cgi $invnum $p1 $_date $payby $payinfo $paid );
---use Date::Format;
-- use CGI;
-- use CGI::Carp qw(fatalsToBrowser);
-use CGI::Base qw(:DEFAULT :CGI);
---use FS::UID qw(cgisuidsetup);
-- use FS::CGI qw(header popurl);
---
-- $cgi = new CGI;
-my($cgi) = new CGI::Base;
-$cgi->get;
---cgisuidsetup($cgi);
--
-- if ( $cgi->param('error') ) {
-- $invnum = $cgi->param('invnum');
-- $paid = $cgi->param('paid');
-- $payby = $cgi->param('payby');
-- $payinfo = $cgi->param('payinfo');
-- } else {
-- my ($query) = $cgi->keywords;
-- $query =~ /^(\d+)$/;
-- $invnum = $1;
-- $paid = '';
-- $payby = "BILL";
-- $payinfo = "";
-- }
-- $_date = time;
--
-- $p1 = popurl(1);
-- print $cgi->header( '-expires' => 'now' ), header("Enter payment", '');
---
-- print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
-- "</FONT>"
-- if $cgi->param('error');
-#untaint invnum
-$QUERY_STRING =~ /^(\d+)$/;
-my($invnum)=$1;
---
-SendHeaders(); # one guess.
---print <<END;
-- <FORM ACTION="${p1}process/cust_pay.cgi" METHOD=POST>
-<HTML>
- <HEAD>
- <TITLE>Enter payment</TITLE>
- </HEAD>
- <BODY>
- <CENTER>
- <H1>Enter payment</H1>
- </CENTER>
- <FORM ACTION="process/cust_pay.cgi" METHOD=POST>
--- <HR><PRE>
---END
---
-#invnum
---print qq!Invoice #<B>$invnum</B><INPUT TYPE="hidden" NAME="invnum" VALUE="$invnum">!;
---
-- print qq!<BR>Date: <B>!, time2str("%D",$_date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="$_date">!;
-#date
-my($date)=time;
-print qq!<BR>Date: <B>!, time2str("%D",$date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="$date">!;
---
-- print qq!<BR>Amount \$<INPUT TYPE="text" NAME="paid" VALUE="$paid" SIZE=8 MAXLENGTH=8>!;
-#paid
-print qq!<BR>Amount \$<INPUT TYPE="text" NAME="paid" VALUE="" SIZE=8 MAXLENGTH=8>!;
---
-#payby
-my($payby)="BILL";
---print qq!<BR>Payby: <B>$payby</B><INPUT TYPE="hidden" NAME="payby" VALUE="$payby">!;
---
---#payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
-my($payinfo)="";
---print qq!<BR>Check #<INPUT TYPE="text" NAME="payinfo" VALUE="$payinfo">!;
---
---#paybatch
---print qq!<INPUT TYPE="hidden" NAME="paybatch" VALUE="">!;
---
---print <<END;
---</PRE>
---<BR>
-- <INPUT TYPE="submit" VALUE="Post payment">
-<CENTER><INPUT TYPE="submit" VALUE="Post"></CENTER>
---END
---
---print <<END;
---
--- </FORM>
--- </BODY>
---</HTML>
---END
---
+++ /dev/null
---<HTML>
--- <HEAD>
--- <TITLE>Invoice Search</TITLE>
--- </HEAD>
--- <BODY>
--- <CENTER>
--- <H1>Invoice Search</H1>
--- </CENTER>
--- <HR>
--- <FORM ACTION="cust_bill.cgi" METHOD="post">
--- Search for <B>invoice #</B>:
--- <INPUT TYPE="text" NAME="invnum">
---
--- <P><INPUT TYPE="submit" VALUE="Search">
---
--- </FORM>
---
--- <HR>
--- </BODY>
---</HTML>
---
+++ /dev/null
---<HTML>
--- <HEAD>
--- <TITLE>Customer Search</TITLE>
--- </HEAD>
-- <BODY BGCOLOR="#ffffff">
-- <FONT COLOR="#ff0000" SIZE=7>
-- Customer Search
-- </FONT>
-- <BR>
- <BODY>
- <CENTER>
- <H1>Customer Search</H1>
- </CENTER>
- <HR>
--- <FORM ACTION="cust_main.cgi" METHOD="post">
--- Search for <B>Credit card #</B>:
--- <INPUT TYPE="hidden" NAME="card_on" VALUE="TRUE">
--- <INPUT TYPE="text" NAME="card">
---
--- <P><INPUT TYPE="submit" VALUE="Search">
---
--- </FORM>
- <HR>
--- </BODY>
---</HTML>
---
+++ /dev/null
---<HTML>
--- <HEAD>
--- <TITLE>Customer Search</TITLE>
--- </HEAD>
-- <BODY BGCOLOR="#ffffff">
-- <FONT COLOR="#ff0000" SIZE=7>
-- Customer Search
-- </FONT>
-- <BR>
- <BODY>
- <CENTER>
- <H1>Customer Search</H1>
- </CENTER>
- <HR>
--- <FORM ACTION="cust_main.cgi" METHOD="post">
-- <INPUT TYPE="checkbox" NAME="last_on" CHECKED> Search for <B>last name</B>:
- <INPUT TYPE="checkbox" NAME="last_on"> Search for <B>last name</B>:
--- <INPUT TYPE="text" NAME="last_text">
-- using search method: <SELECT NAME="last_type">
- using search method(s): <SELECT NAME="last_type" MULTIPLE>
--- <OPTION SELECTED>Fuzzy
--- <OPTION>Exact
--- </SELECT>
---
-- <P><INPUT TYPE="checkbox" NAME="company_on" CHECKED> Search for <B>company</B>:
- <P><INPUT TYPE="checkbox" NAME="company_on"> Search for <B>company</B>:
--- <INPUT TYPE="text" NAME="company_text">
-- using search methods: <SELECT NAME="company_type">
- using search methods(s): <SELECT NAME="company_type" MULTIPLE>
--- <OPTION SELECTED>Fuzzy
--- <OPTION>Exact
--- </SELECT>
---
--- <P><INPUT TYPE="submit" VALUE="Search"> Note: Fuzzy searching can take a while. Please be patient.
---
--- </FORM>
---
--- <HR>Explanation of search methods:
--- <UL>
--- <LI><B>Fuzzy</B> - Searches for matches that are close to your text.
--- <LI><B>Exact</B> - Finds exact matches only, but much faster than the other search methods.
--- </UL>
--- </BODY>
---</HTML>
---
+++ /dev/null
---<HTML>
--- <HEAD>
--- <TITLE>Account Search</TITLE>
--- </HEAD>
--- <BODY>
--- <CENTER>
--- <H1>Account Search</H1>
--- </CENTER>
--- <HR>
--- <FORM ACTION="svc_acct.cgi" METHOD="post">
--- Search for <B>username</B>:
--- <INPUT TYPE="text" NAME="username">
---
--- <P><INPUT TYPE="submit" VALUE="Search">
---
--- </FORM>
---
--- <HR>
--- </BODY>
---</HTML>
---
+++ /dev/null
---<HTML>
--- <HEAD>
--- <TITLE>Mail Alias Search</TITLE>
--- </HEAD>
--- <BODY>
--- <CENTER>
--- <H1>Mail Alias Search</H1>
--- </CENTER>
--- <HR>
--- <FORM ACTION="svc_acct_sm.cgi" METHOD="post">
--- Search for <B>mail alias</B>:
--- <INPUT TYPE="text" NAME="domuser"><FONT SIZE=-1>(opt.)</FONT> @
--- <INPUT TYPE="text" NAME="domain"><FONT SIZE=-1>(req.)</FONT>
---
--- <P><INPUT TYPE="submit" VALUE="Search">
---
--- </FORM>
---
--- <HR>
---
--- </BODY>
---</HTML>
---
+++ /dev/null
---<HTML>
--- <HEAD>
--- <TITLE>Domain Search</TITLE>
--- </HEAD>
--- <BODY>
--- <CENTER>
--- <H1>Domain Search</H1>
--- </CENTER>
--- <HR>
--- <FORM ACTION="svc_domain.cgi" METHOD="post">
--- Search for <B>domain</B>:
--- <INPUT TYPE="text" NAME="domain">
---
--- <P><INPUT TYPE="submit" VALUE="Search">
---
--- </FORM>
---
--- <HR>
---
--- </BODY>
---</HTML>
---