Post Credit

From: cvs2git Date: Thu, 21 Jun 2001 16:27:56 +0000 (+0000) Subject: This commit was manufactured by cvs2svn to create branch X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=430b17ca457bc8f83fdbc9f34a552bf70be355a7;p=freeside.git This commit was manufactured by cvs2svn to create branch 'freeside_1_3_1_pci_mods'. --- 430b17ca457bc8f83fdbc9f34a552bf70be355a7 diff --cc etc/acp_logfile-parse index 5e258991b,5e258991b,5e258991b..000000000 deleted file mode 100755,100755,100755 --- a/etc/acp_logfile-parse +++ /dev/null @@@@ -1,197 -1,197 -1,197 +1,0 @@@@ ---#!/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 () { --- 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) ).' ' ); ---} --- diff --cc etc/countries.txt index 73c3975ed,73c3975ed,73c3975ed..000000000 deleted file mode 100644,100644,100644 --- a/etc/countries.txt +++ /dev/null @@@@ -1,239 -1,239 -1,239 +1,0 @@@@ ---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 diff --cc etc/example-direct-cardin index 1a4097221,1a4097221,1a4097221..000000000 deleted file mode 100755,100755,100755 --- a/etc/example-direct-cardin +++ /dev/null @@@@ -1,67 -1,67 -1,67 +1,0 @@@@ ---#!/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"; ---} --- diff --cc htdocs/edit/cust_credit.cgi index 35c4d48fe,35c4d48fe,75ef21208..000000000 deleted file mode 100755,100755,100755 --- a/htdocs/edit/cust_credit.cgi +++ /dev/null @@@@ -1,121 -1,121 -1,97 +1,0 @@@@ ---#!/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!Error: !, $cgi->param('error'), -- "" -- if $cgi->param('error'); -SendHeaders(); # one guess. ---print < --

  -
  -  
  -    Post Credit
  -  
  -  
  -    
  -    Post Credit
  -    
  -    
  -    
---END
---
-- $crednum = "";
  -#crednum
  -my($crednum)="";
---print qq!Credit #!, $crednum ? $crednum : " (NEW)", qq!!;
---
  -#custnum
---print qq!\nCustomer #$custnum!;
---
  -#paybatch
---print qq!!;
---
-- print qq!\nDate: !, time2str("%D",$_date), qq!!;
  -#date
  -my($date)=time;
  -print qq!\nDate: !, time2str("%D",$date), qq!!;
---
  -#amount
  -my($amount)='';
---print qq!\nAmount \$!;
-- print qq!!;
---
-- #print qq! Also post refund!;
  -#refund?
  -#print qq! Also post refund!;
---
  -#otaker (hidden)
---print qq!!;
---
  -#reason
  -my($reason)='';
---print qq!\nReason !;
---
---print <
---

---
---END
---
---print <
---  
---
---END
---
diff --cc htdocs/edit/cust_pay.cgi
index 5dee76ed9,5dee76ed9,a6cb204d1..000000000
deleted file mode 100755,100755,100755
--- a/htdocs/edit/cust_pay.cgi
+++ /dev/null
@@@@ -1,97 -1,97 -1,76 +1,0 @@@@
---#!/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!Error: !, $cgi->param('error'),
--       ""
--   if $cgi->param('error');
  -#untaint invnum
  -$QUERY_STRING =~ /^(\d+)$/;
  -my($invnum)=$1;
---
  -SendHeaders(); # one guess.
---print <
  -
  -  
  -    Enter payment
  -  
  -  
  -    
  -    Enter payment
  -    
  -    
---    
---END
---
  -#invnum
---print qq!Invoice #$invnum!;
---
-- print qq!
Date: !, time2str("%D",$_date), qq!!;
  -#date
  -my($date)=time;
  -print qq!
Date: !, time2str("%D",$date), qq!!;
---
-- print qq!
Amount \$!;
  -#paid
  -print qq!
Amount \$!;
---
  -#payby
  -my($payby)="BILL";
---print qq!
Payby: $payby!;
---
---#payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
  -my($payinfo)="";
---print qq!
Check #!;
---
---#paybatch
---print qq!!;
---
---print <
---

-- 
  -
---END
---
---print <
---  
---
---END
---
diff --cc htdocs/search/cust_bill.html
index 4adb40e4a,4adb40e4a,4adb40e4a..000000000
deleted file mode 100755,100755,100755
--- a/htdocs/search/cust_bill.html
+++ /dev/null
@@@@ -1,21 -1,21 -1,21 +1,0 @@@@
---
---  
---    Invoice Search
---  
---  
---    
---      Invoice Search
---    
---    
---    
---      Search for invoice #: 
---      
---
---      
---
---    
---
---  
---  
---
---
diff --cc htdocs/search/cust_main-payinfo.html
index 47bb83cbd,47bb83cbd,92341ad13..000000000
deleted file mode 100755,100755,100755
--- a/htdocs/search/cust_main-payinfo.html
+++ /dev/null
@@@@ -1,20 -1,20 -1,21 +1,0 @@@@
---
---  
---    Customer Search
---  
--   
--     
--       Customer Search
--     
--     

  -  
  -    
  -      Customer Search
  -    
  -    
---    
---      Search for Credit card #: 
---      
---      
---
---      
---
---    
  -    
---  
---
---
diff --cc htdocs/search/cust_main.html
index 3184698b4,3184698b4,656943f9c..000000000
deleted file mode 100755,100755,100755
--- a/htdocs/search/cust_main.html
+++ /dev/null
@@@@ -1,36 -1,36 -1,36 +1,0 @@@@
---
---  
---    Customer Search
---  
--   
--     
--       Customer Search
--     
--     

  -  
  -    
  -      Customer Search
  -    
  -    
---    
--        Search for last name: 
  -       Search for last name: 
---      
--       using search method: 
---        
---
---  Explanation of search methods:
---  
---    Fuzzy - Searches for matches that are close to your text.
---    
Exact - Finds exact matches only, but much faster than the other search methods.
---  
---  
---
---
diff --cc htdocs/search/svc_acct.html
index 91291be99,91291be99,91291be99..000000000
deleted file mode 100755,100755,100755
--- a/htdocs/search/svc_acct.html
+++ /dev/null
@@@@ -1,21 -1,21 -1,21 +1,0 @@@@
---
---  
---    Account Search
---  
---  
---    
---      Account Search
---    
---    
---    
---      Search for username: 
---      
---
---      
---
---    
---
---  
---  
---
---
diff --cc htdocs/search/svc_acct_sm.html
index 0719856db,0719856db,0719856db..000000000
deleted file mode 100755,100755,100755
--- a/htdocs/search/svc_acct_sm.html
+++ /dev/null
@@@@ -1,23 -1,23 -1,23 +1,0 @@@@
---
---  
---    Mail Alias Search
---  
---  
---    
---      Mail Alias Search
---    
---    
---    
---      Search for mail alias: 
---      (opt.) @
---      (req.)
---
---      
---
---    
---
---  
---
---  
---
---
diff --cc htdocs/search/svc_domain.html
index 533743ba2,533743ba2,533743ba2..000000000
deleted file mode 100755,100755,100755
--- a/htdocs/search/svc_domain.html
+++ /dev/null
@@@@ -1,22 -1,22 -1,22 +1,0 @@@@
---
---  
---    Domain Search
---  
---  
---    
---      Domain Search
---    
---    
---    
---      Search for domain: 
---      
---
---      
---
---    
---
---  
---
---  
---
---