From 1d758388ce3b17b8de1ae1d3a8ec39c1026baefc Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 13 Aug 2001 01:09:02 +0000 Subject: removing --- htdocs/view/cust_bill.cgi | 93 ---------- htdocs/view/cust_main.cgi | 437 -------------------------------------------- htdocs/view/cust_pkg.cgi | 206 --------------------- htdocs/view/svc_acct.cgi | 177 ------------------ htdocs/view/svc_acct_sm.cgi | 128 ------------- htdocs/view/svc_domain.cgi | 102 ----------- 6 files changed, 1143 deletions(-) delete mode 100755 htdocs/view/cust_bill.cgi delete mode 100755 htdocs/view/cust_main.cgi delete mode 100755 htdocs/view/cust_pkg.cgi delete mode 100755 htdocs/view/svc_acct.cgi delete mode 100755 htdocs/view/svc_acct_sm.cgi delete mode 100755 htdocs/view/svc_domain.cgi (limited to 'htdocs/view') diff --git a/htdocs/view/cust_bill.cgi b/htdocs/view/cust_bill.cgi deleted file mode 100755 index 93a6f7a29..000000000 --- a/htdocs/view/cust_bill.cgi +++ /dev/null @@ -1,93 +0,0 @@ -#!/usr/bin/perl -Tw -# -# $Id: cust_bill.cgi,v 1.8 1999-02-28 00:03:58 ivan Exp $ -# -# this is a quick & ugly hack which does little more than add some formatting to the ascii output from /dbin/print-invoice -# -# ivan@voicenet.com 96-dec-05 -# -# added navigation bar -# ivan@voicenet.com 97-jan-30 -# -# now uses Invoice.pm -# ivan@voicenet.com 97-jun-30 -# -# what to do if cust_bill search errors? -# ivan@voicenet.com 97-jul-7 -# -# s/FS::Search/FS::Record/; $cgisuidsetup($cgi); ivan@sisd.com 98-mar-14 -# -# Changes to allow page to work at a relative position in server -# bmccane@maxbaud.net 98-apr-3 -# -# also print 'printed' field ivan@sisd.com 98-jul-10 -# -# $Log: cust_bill.cgi,v $ -# Revision 1.8 1999-02-28 00:03:58 ivan -# removed misleading comments -# -# Revision 1.7 1999/01/25 12:26:03 ivan -# yet more mod_perl stuff -# -# Revision 1.6 1999/01/19 05:14:18 ivan -# for mod_perl: no more top-level my() variables; use vars instead -# also the last s/create/new/; -# -# Revision 1.5 1999/01/18 09:41:42 ivan -# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl -# (good idea anyway) -# -# Revision 1.4 1998/12/30 23:03:33 ivan -# bugfixes; fields isn't exported by derived classes -# -# Revision 1.3 1998/12/23 03:07:49 ivan -# $cgi->keywords instead of $cgi->query_string -# -# Revision 1.2 1998/12/17 09:57:20 ivan -# s/CGI::(Base|Request)/CGI.pm/; -# - -use strict; -use vars qw ( $cgi $query $invnum $cust_bill $custnum $printed $p ); -use IO::File; -use CGI; -use CGI::Carp qw(fatalsToBrowser); -use FS::UID qw(cgisuidsetup); -use FS::CGI qw(header popurl menubar); -use FS::Record qw(qsearchs); -use FS::cust_bill; - -$cgi = new CGI; -&cgisuidsetup($cgi); - -#untaint invnum -($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -$invnum = $1; - -$cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum}); -die "Invoice #$invnum not found!" unless $cust_bill; -$custnum = $cust_bill->getfield('custnum'); - -$printed = $cust_bill->printed; - -$p = popurl(2); -print $cgi->header( '-expires' => 'now' ), header('Invoice View', menubar( - "Main Menu" => $p, - "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", -)), <Enter payments (check/cash) against this invoice -
Reprint this invoice -

(Printed $printed times) - 
-END
-
-print $cust_bill->print_text;
-
-	#formatting
-	print <
-  
-
-END
-
diff --git a/htdocs/view/cust_main.cgi b/htdocs/view/cust_main.cgi
deleted file mode 100755
index 7c96ddffa..000000000
--- a/htdocs/view/cust_main.cgi
+++ /dev/null
@@ -1,437 +0,0 @@
-#!/usr/bin/perl -Tw
-#
-# $Id: cust_main.cgi,v 1.20 2001-06-03 11:40:48 ivan Exp $
-#
-# Usage: cust_main.cgi custnum
-#        http://server.name/path/cust_main.cgi?custnum
-#
-# the payment history section could use some work, see below
-# 
-# ivan@voicenet.com 96-nov-29 -> 96-dec-11
-#
-# added navigation bar (go to main menu ;)
-# ivan@voicenet.com 97-jan-30
-#
-# changes to the way credits/payments are applied (the links are here).
-# ivan@voicenet.com 97-apr-21
-#
-# added debugging code to diagnose CPU sucking problem.
-# ivan@voicenet.com 97-may-19
-#
-# CPU sucking problem was in comment code?  fixed?
-# ivan@voicenet.com 97-may-22
-#
-# rewrote for new API
-# ivan@voicenet.com 97-jul-22
-#
-# Changes to allow page to work at a relative position in server
-# Changed 'day' to 'daytime' because Pg6.3 reserves the day word
-#       bmccane@maxbaud.net     98-apr-3
-#
-# lose background, FS::CGI ivan@sisd.com 98-sep-2
-#
-# $Log: cust_main.cgi,v $
-# Revision 1.20  2001-06-03 11:40:48  ivan
-# inline doc clarification
-#
-# Revision 1.19  2001/04/22 01:38:39  ivan
-# svc_domain needs to import dbh sub from Record
-# view/cust_main.cgi needs to use ->owed method, not check (depriciated) owed field
-# search/cust_bill.cgi redirect error when there's only one invoice
-#
-# Revision 1.18  1999/08/12 04:16:01  ivan
-# hidecancelledpackages config option
-#
-# Revision 1.17  1999/04/15 16:44:36  ivan
-# delete customers
-#
-# Revision 1.16  1999/04/09 04:22:34  ivan
-# also table()
-#
-# Revision 1.15  1999/04/09 03:52:55  ivan
-# explicit & for table/itable/ntable
-#
-# Revision 1.14  1999/04/08 04:04:37  ivan
-# eliminate double // in links
-#
-# Revision 1.13  1999/02/28 00:04:00  ivan
-# removed misleading comments
-#
-# Revision 1.12  1999/02/07 09:59:40  ivan
-# more mod_perl fixes, and bugfixes Peter Wemm sent via email
-#
-# Revision 1.11  1999/01/25 12:26:04  ivan
-# yet more mod_perl stuff
-#
-# Revision 1.10  1999/01/19 05:14:19  ivan
-# for mod_perl: no more top-level my() variables; use vars instead
-# also the last s/create/new/;
-#
-# Revision 1.9  1999/01/18 09:41:43  ivan
-# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
-# (good idea anyway)
-#
-# Revision 1.8  1999/01/18 09:22:35  ivan
-# changes to track email addresses for email invoicing
-#
-# Revision 1.7  1998/12/30 23:03:34  ivan
-# bugfixes; fields isn't exported by derived classes
-#
-# Revision 1.6  1998/12/23 02:42:33  ivan
-# remove double '/' in link urls
-#
-# Revision 1.5  1998/12/23 02:36:28  ivan
-# use FS::cust_refund; to eliminate warning
-#
-# Revision 1.4  1998/12/17 09:57:21  ivan
-# s/CGI::(Base|Request)/CGI.pm/;
-#
-# Revision 1.3  1998/11/15 13:14:20  ivan
-# first pass as per-customer custom pricing
-#
-# Revision 1.2  1998/11/13 11:28:08  ivan
-# s/CGI-modules/CGI.pm/;, relative URL's with popurl
-#
-
-use strict;
-use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral 
-              @packages $package @history @bills $bill @credits $credit
-              $balance $item @agents @referrals @invoicing_list $n1 $conf ); 
-use CGI;
-use CGI::Carp qw(fatalsToBrowser);
-use Date::Format;
-use FS::UID qw(cgisuidsetup);
-use FS::Record qw(qsearchs qsearch);
-use FS::CGI qw(header menubar popurl table itable ntable);
-use FS::cust_credit;
-use FS::cust_pay;
-use FS::cust_bill;
-use FS::part_pkg;
-use FS::cust_pkg;
-use FS::part_referral;
-use FS::agent;
-use FS::cust_main;
-use FS::cust_refund;
-
-$cgi = new CGI;
-&cgisuidsetup($cgi);
-
-$conf = new FS::Conf;
-
-print $cgi->header( '-expires' => 'now' ), header("Customer View", menubar(
-  'Main Menu' => popurl(2)
-));
-
-die "No customer specified (bad URL)!" unless $cgi->keywords;
-($query) = $cgi->keywords; # needs parens with my, ->keywords returns array
-$query =~ /^(\d+)$/;
-$custnum = $1;
-$cust_main = qsearchs('cust_main',{'custnum'=>$custnum});
-die "Customer not found!" unless $cust_main;
-$hashref = $cust_main->hashref;
-
-print &itable(), '';
-
-print qq!Edit this customer!;
-print qq! |  Delete this customer!
-  if $conf->exists('deletecustomers');
-print &ntable("#c0c0c0"), "", &ntable("#c0c0c0",2),
-      'Customer number',
-      $custnum, '',
-;
-
-@agents = qsearch( 'agent', {} );
-unless ( scalar(@agents) == 1 ) {
-  $agent = qsearchs('agent',{
-    'agentnum' => $cust_main->agentnum
-  } );
-  print 'Agent',
-        $agent->agentnum, ": ", $agent->agent, '';
-}
-@referrals = qsearch( 'part_referral', {} );
-unless ( scalar(@referrals) == 1 ) {
-  my $referral = qsearchs('part_referral', {
-    'refnum' => $cust_main->refnum
-  } );
-  print 'Referral',
-        $referral->refnum, ": ", $referral->referral, '';
-}
-print 'Order taker',
-  $cust_main->otaker, '';
-
-print '';
-
-print '';
-
-print "Contact information", &ntable("#c0c0c0"), "",
-      &ntable("#c0c0c0",2),
-  'Contact name
(last, first)',
-    '',
-    $cust_main->last, ', ', $cust_main->first,
-    'SS#',
-    $cust_main->ss || ' ', '',
-  'Company',
-    $cust_main->company,
-    '',
-  'Address',
-    $cust_main->address1,
-    '',
-;
-print ' ',
-      $cust_main->address2, ''
-  if $cust_main->address2;
-print 'City',
-        $cust_main->city,
-        'State',
-        $cust_main->state,
-        'Zip',
-        $cust_main->zip, '',
-      'Country',
-        $cust_main->country,
-        '',
-;
-print 'Day Phone',
-        $cust_main->daytime || ' ', '',
-      'Night Phone',
-        $cust_main->night || ' ', '',
-      'Fax',
-        $cust_main->fax || ' ', '',
-      '', ""
-;
-
-print '';
-
-@invoicing_list = $cust_main->invoicing_list;
-print "Billing information (",
-      qq!!, "Bill now)",
-      &ntable("#c0c0c0"), "", &ntable("#c0c0c0",2),
-      'Tax exempt',
-      $cust_main->tax ? 'yes' : 'no',
-      '',
-      'Postal invoices',
-      ( grep { $_ eq 'POST' } @invoicing_list ) ? 'yes' : 'no',
-      '',
-      'Email invoices',
-      join(', ', grep { $_ ne 'POST' } @invoicing_list ) || 'no',
-      '',
-      'Billing type',
-;
-
-if ( $cust_main->payby eq 'CARD' ) {
-  print 'Credit card',
-        'Card number',
-        $cust_main->payinfo, '',
-        'Expiration',
-        $cust_main->paydate, '',
-        'Name on card',
-        $cust_main->payname, ''
-  ;
-} elsif ( $cust_main->payby eq 'BILL' ) {
-  print 'Billing';
-  print 'P.O. ',
-        $cust_main->payinfo, '',
-    if $cust_main->payinfo;
-  print 'Expiration',
-        $cust_main->paydate, '',
-        'Attention',
-        $cust_main->payname, '',
-  ;
-} elsif ( $cust_main->payby eq 'COMP' ) {
-  print 'Complimentary',
-        'Authorized by',
-        $cust_main->payinfo, '',
-        'Expiration',
-        $cust_main->paydate, '',
-  ;
-}
-
-print "";
-
-print qq!

Packages !,
-#      qq!
Click on package number to view/edit package.!,
-      qq!( Order and cancel packages (preserves services) )!,
-;
-
-#display packages
-
-#formatting
-print qq!!, &table(), "\n",
-      qq!Package!,
-      qq!DatesServices\n!,
-      qq!Setup!,
-      qq!Next bill!,
-      qq!Susp.Expire!,
-      qq!!,
-      qq!Cancel!,
-      qq!\n!;
-
-#get package info
-if ( $conf->exists('hidecancelledpackages') ) {
-  @packages = $cust_main->ncancelled_pkgs;
-} else {
-  @packages = $cust_main->all_pkgs;
-}
-
-$n1 = '';
-foreach $package (@packages) {
-  my $pkgnum = $package->pkgnum;
-  my $pkg = $package->part_pkg->pkg;
-  my $comment = $package->part_pkg->comment;
-  my $pkgview = popurl(2). "view/cust_pkg.cgi?$pkgnum";
-  my @cust_svc = qsearch( 'cust_svc', { 'pkgnum' => $pkgnum } );
-  my $rowspan = scalar(@cust_svc) || 1;
-
-  my $button_cgi = new CGI;
-  $button_cgi->param('clone', $package->part_pkg->pkgpart);
-  $button_cgi->param('pkgnum', $package->pkgnum);
-  my $button_url = popurl(2). "edit/part_pkg.cgi?". $button_cgi->query_string;
-
-  #print $n1, qq!$pkgnum!,
-  print $n1, qq!$pkgnum!,
-        qq!!,
-        #qq!$pkg - $comment!,
-        qq!$pkg - $comment!,
-        qq! ( Edit | Customize pricing )!,
-  ;
-  for ( qw( setup bill susp expire cancel ) ) {
-    print "", ( $package->getfield($_)
-            ? time2str("%D", $package->getfield($_) )
-            :  ' '
-          ), '',
-    ;
-  }
-
-  my $n2 = '';
-  foreach my $cust_svc ( @cust_svc ) {
-     my($label, $value, $svcdb) = $cust_svc->label;
-     my($svcnum) = $cust_svc->svcnum;
-     my($sview) = popurl(2). "view";
-     print $n2,qq!$label!,
-           qq!$value!;
-     $n2="";
-  }
-  $n1="";
-}  
-print "";
-
-#formatting
-print "";
-
-#formatting
-print qq!

Payment History!,
-      qq!!,
-      qq! ( Click on invoice to view invoice/enter payment. | !,
-      qq!!,
-      qq!Post credit / refund )!;
-
-#get payment history
-#
-# major problem: this whole thing is way too sloppy.
-# minor problem: the description lines need better formatting.
-
-@history = (); #needed for mod_perl :)
-
-@bills = qsearch('cust_bill',{'custnum'=>$custnum});
-foreach $bill (@bills) {
-  my($bref)=$bill->hashref;
-  push @history,
-    $bref->{_date} . qq!\tInvoice #! . $bref->{invnum} .
-    qq! (Balance \$! . $bill->owed . qq!)\t! .
-    $bref->{charged} . qq!\t\t\t!;
-
-  my(@payments)=qsearch('cust_pay',{'invnum'=> $bref->{invnum} } );
-  my($payment);
-  foreach $payment (@payments) {
-    my($date,$invnum,$payby,$payinfo,$paid)=($payment->getfield('_date'),
-                                             $payment->getfield('invnum'),
-                                             $payment->getfield('payby'),
-                                             $payment->getfield('payinfo'),
-                                             $payment->getfield('paid'),
-                      );
-    push @history,
-      "$date\tPayment, Invoice #$invnum ($payby $payinfo)\t\t$paid\t\t";
-  }
-}
-
-@credits = qsearch('cust_credit',{'custnum'=>$custnum});
-foreach $credit (@credits) {
-  my($cref)=$credit->hashref;
-  push @history,
-    $cref->{_date} . "\tCredit #" . $cref->{crednum} . ", (Balance \$" .
-    $cref->{credited} . ") by " . $cref->{otaker} . " - " .
-    $cref->{reason} . "\t\t\t" . $cref->{amount} . "\t";
-
-  my(@refunds)=qsearch('cust_refund',{'crednum'=> $cref->{crednum} } );
-  my($refund);
-  foreach $refund (@refunds) {
-    my($rref)=$refund->hashref;
-    push @history,
-      $rref->{_date} . "\tRefund, Credit #" . $rref->{crednum} . " (" .
-      $rref->{payby} . " " . $rref->{payinfo} . ") by " .
-      $rref->{otaker} . " - ". $rref->{reason} . "\t\t\t\t" .
-      $rref->{refund};
-  }
-}
-
-        #formatting
-        print &table(), <
-  Date
-  Description
-  Charge
-  Payment
-  In-house
Credit
-  Refund
-  Balance
-
-END
-
-#display payment history
-
-$balance = 0;
-foreach $item (sort keyfield_numerically @history) {
-  my($date,$desc,$charge,$payment,$credit,$refund)=split(/\t/,$item);
-  $charge ||= 0;
-  $payment ||= 0;
-  $credit ||= 0;
-  $refund ||= 0;
-  $balance += $charge - $payment;
-  $balance -= $credit - $refund;
-
-  print "",time2str("%D",$date),"",
-	"$desc",
-	"",
-        ( $charge ? "\$".sprintf("%.2f",$charge) : '' ),
-        "",
-	"",
-        ( $payment ? "- \$".sprintf("%.2f",$payment) : '' ),
-        "",
-	"",
-        ( $credit ? "- \$".sprintf("%.2f",$credit) : '' ),
-        "",
-	"",
-        ( $refund ? "\$".sprintf("%.2f",$refund) : '' ),
-        "",
-	"\$" . sprintf("%.2f",$balance),
-        "",
-        "\n";
-}
-
-#formatting
-print "";
-
-#end
-
-#formatting
-print <
-
-END
-
-#subroutiens
-sub keyfield_numerically { (split(/\t/,$a))[0] <=> (split(/\t/,$b))[0] ; }
-
diff --git a/htdocs/view/cust_pkg.cgi b/htdocs/view/cust_pkg.cgi
deleted file mode 100755
index 0054ee0fa..000000000
--- a/htdocs/view/cust_pkg.cgi
+++ /dev/null
@@ -1,206 +0,0 @@
-#!/usr/bin/perl -Tw
-#
-# $Id: cust_pkg.cgi,v 1.11 1999-04-09 04:22:34 ivan Exp $
-#
-# Usage: cust_pkg.cgi pkgnum
-#        http://server.name/path/cust_pkg.cgi?pkgnum
-#
-# ivan@voicenet.com 96-dec-15
-#
-# services section needs to be cleaned up, needs to display extraneous
-# entries in cust_pkg!
-# ivan@voicenet.com 96-dec-31
-#
-# added navigation bar
-# ivan@voicenet.com 97-jan-30
-#
-# changed and fixed up suspension and cancel stuff, now you can't add
-# services to a cancelled package
-# ivan@voicenet.com 97-feb-27
-#
-# rewrote for new API, still needs to be cleaned up!
-# ivan@voicenet.com 97-jul-29
-#
-# no FS::Search ivan@sisd.com 98-mar-7
-# 
-# $Log: cust_pkg.cgi,v $
-# Revision 1.11  1999-04-09 04:22:34  ivan
-# also table()
-#
-# Revision 1.10  1999/04/09 03:52:55  ivan
-# explicit & for table/itable/ntable
-#
-# Revision 1.9  1999/04/08 12:00:19  ivan
-# aesthetic update
-#
-# Revision 1.8  1999/02/28 00:04:01  ivan
-# removed misleading comments
-#
-# Revision 1.7  1999/01/19 05:14:20  ivan
-# for mod_perl: no more top-level my() variables; use vars instead
-# also the last s/create/new/;
-#
-# Revision 1.6  1999/01/18 09:41:44  ivan
-# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
-# (good idea anyway)
-#
-# Revision 1.5  1998/12/23 03:11:40  ivan
-# *** empty log message ***
-#
-# Revision 1.3  1998/12/17 09:57:22  ivan
-# s/CGI::(Base|Request)/CGI.pm/;
-#
-# Revision 1.2  1998/11/13 09:56:49  ivan
-# change configuration file layout to support multiple distinct databases (with
-# own set of config files, export, etc.)
-#
-
-use strict;
-use vars qw ( $cgi %uiview %uiadd $part_svc $query $pkgnum $cust_pkg $part_pkg
-              $custnum $susp $cancel $expire $pkg $comment $setup $bill
-              $otaker );
-use Date::Format;
-use CGI;
-use CGI::Carp qw(fatalsToBrowser);
-use FS::UID qw(cgisuidsetup);
-use FS::CGI qw(popurl header menubar ntable table);
-use FS::Record qw(qsearch qsearchs);
-use FS::part_svc;
-use FS::cust_pkg;
-use FS::part_pkg;
-use FS::pkg_svc;
-use FS::cust_svc;
-
-$cgi = new CGI;
-cgisuidsetup($cgi);
-
-foreach $part_svc ( qsearch('part_svc',{}) ) {
-  $uiview{$part_svc->svcpart} = popurl(2). "view/". $part_svc->svcdb . ".cgi";
-  $uiadd{$part_svc->svcpart}= popurl(2). "edit/". $part_svc->svcdb . ".cgi";
-}
-
-($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
-$pkgnum = $1;
-
-#get package record
-$cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
-die "No package!" unless $cust_pkg;
-$part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
-
-$custnum = $cust_pkg->getfield('custnum');
-print $cgi->header( '-expires' => 'now' ), header('Package View', menubar(
-  "View this customer (#$custnum)" => popurl(2). "view/cust_main.cgi?$custnum",
-  'Main Menu' => popurl(2)
-));
-
-#print info
-($susp,$cancel,$expire)=(
-  $cust_pkg->getfield('susp'),
-  $cust_pkg->getfield('cancel'),
-  $cust_pkg->getfield('expire'),
-);
-($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment'));
-($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill'));
-$otaker = $cust_pkg->getfield('otaker');
-
-print "Package information";
-print ' (unsuspend)' if ( $susp && ! $cancel );
-print ' (suspend)' unless ( $susp || $cancel );
-print ' (cancel)' unless $cancel;
-
-print &ntable("#c0c0c0"), '', &ntable("#c0c0c0",2),
-      'Package number',
-      $pkgnum, '',
-      'Package',
-      $pkg,  '',
-      'Comment',
-      $comment,  '',
-      'Setup date',
-      ( $setup ? time2str("%D",$setup) : "(Not setup)" ), '',
-      'Next bill date',
-      ( $bill ? time2str("%D",$bill) : " " ), '',
-;
-print 'Suspension date',
-       time2str("%D",$susp), '' if $susp;
-print 'Expiration date',
-       time2str("%D",$expire), '' if $expire;
-print 'Cancellation date',
-       time2str("%D",$cancel), '' if $cancel;
-print  'Order taker',
-      $otaker,  '',
-      ''
-;
-
-#  print <
-#
-#Expire (date): 
-#
-#END
-
-unless ($cancel) {
-
-  #services
-  print '
Service Information', &table();
-
-  #list of services this pkgpart includes
-  my $pkg_svc;
-  my %pkg_svc = ();
-  foreach $pkg_svc ( qsearch('pkg_svc',{'pkgpart'=> $cust_pkg->pkgpart }) ) {
-    $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity if $pkg_svc->quantity;
-  }
-
-  #list of records from cust_svc
-  my $svcpart;
-  foreach $svcpart (sort {$a <=> $b} keys %pkg_svc) {
-
-    my($svc)=qsearchs('part_svc',{'svcpart'=>$svcpart})->getfield('svc');
-
-    my(@cust_svc)=qsearch('cust_svc',{'pkgnum'=>$pkgnum, 
-                                      'svcpart'=>$svcpart,
-                                     });
-
-    my($enum);
-    for $enum ( 1 .. $pkg_svc{$svcpart} ) {
-
-      my($cust_svc);
-      if ( $cust_svc=shift @cust_svc ) {
-        my($svcnum)=$cust_svc->svcnum;
-        my($label, $value, $svcdb) = $cust_svc->label;
-        print <(View) $svc: $value
-END
-      } else {
-        print <
-  
-      (Add) $svc
-   or 
-      (Link to existing) $svc
-  
-
-END
-      }
-
-    }
-    warn "WARNING: Leftover services pkgnum $pkgnum!" if @cust_svc;; 
-  }
-
-  print "",
-        "Choose (View) to view or edit an existing service
",
-        "Choose (Add) to setup a new service
",
-        "Choose (Link to existing) to link to a legacy (pre-Freeside) service",
-        ""
-  ;
-}
-
-#formatting
-print <
-
-END
-
diff --git a/htdocs/view/svc_acct.cgi b/htdocs/view/svc_acct.cgi
deleted file mode 100755
index 40e3c2d15..000000000
--- a/htdocs/view/svc_acct.cgi
+++ /dev/null
@@ -1,177 +0,0 @@
-#!/usr/bin/perl -Tw
-#
-# $Id: svc_acct.cgi,v 1.12 2001-01-31 07:21:00 ivan Exp $
-#
-# Usage: svc_acct.cgi svcnum
-#        http://server.name/path/svc_acct.cgi?svcnum
-#
-# ivan@voicenet.com 96-dec-17
-#
-# added link to send info
-# ivan@voicenet.com 97-jan-4
-#
-# added navigation bar and ability to change username, etc.
-# ivan@voicenet.com 97-jan-30
-#
-# activate 800 service
-# ivan@voicenet.com 97-feb-10
-#
-# modified navbar code (should be a subroutine?), added link to cancel account (only if not audited)
-# ivan@voicenet.com 97-apr-16
-#
-# INCOMPLETELY rewrote some things for new API
-# ivan@voicenet.com 97-jul-29
-#
-# FS::Search became FS::Record, use strict, etc. ivan@sisd.com 98-mar-9
-#
-# Changes to allow page to work at a relative position in server
-# Changed 'password' to '_password' because Pg6.3 reserves the password word
-#       bmccane@maxbaud.net     98-apr-3
-#
-# /var/spool/freeside/conf/domain ivan@sisd.com 98-jul-17
-#
-# displays arbitrary radius attributes ivan@sisd.com 98-aug-16
-#
-# $Log: svc_acct.cgi,v $
-# Revision 1.12  2001-01-31 07:21:00  ivan
-# fix tyops
-#
-# Revision 1.11  2000/12/03 20:25:20  ivan
-# session monitor updates
-#
-# Revision 1.10  1999/04/14 11:27:06  ivan
-# showpasswords config option to show passwords
-#
-# Revision 1.9  1999/04/08 12:00:19  ivan
-# aesthetic update
-#
-# Revision 1.8  1999/02/28 00:04:02  ivan
-# removed misleading comments
-#
-# Revision 1.7  1999/01/19 05:14:21  ivan
-# for mod_perl: no more top-level my() variables; use vars instead
-# also the last s/create/new/;
-#
-# Revision 1.6  1999/01/18 09:41:45  ivan
-# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
-# (good idea anyway)
-#
-# Revision 1.5  1999/01/18 09:22:36  ivan
-# changes to track email addresses for email invoicing
-#
-# Revision 1.4  1998/12/23 03:09:19  ivan
-# $cgi->keywords instead of $cgi->query_string
-#
-# Revision 1.3  1998/12/17 09:57:23  ivan
-# s/CGI::(Base|Request)/CGI.pm/;
-#
-# Revision 1.2  1998/12/16 05:24:29  ivan
-# use FS::Conf;
-#
-
-use strict;
-use vars qw( $conf $cgi $mydomain $query $svcnum $svc_acct $cust_svc $pkgnum
-             $cust_pkg $custnum $part_svc $p $svc_acct_pop $password );
-use CGI;
-use CGI::Carp qw( fatalsToBrowser );
-use FS::UID qw( cgisuidsetup );
-use FS::CGI qw( header popurl menubar);
-use FS::Record qw( qsearchs fields );
-use FS::Conf;
-use FS::svc_acct;
-use FS::cust_svc;
-use FS::cust_pkg;
-use FS::part_svc;
-use FS::svc_acct_pop;
-
-$cgi = new CGI;
-&cgisuidsetup($cgi);
-
-$conf = new FS::Conf;
-$mydomain = $conf->config('domain');
-
-($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
-$svcnum = $1;
-$svc_acct = qsearchs('svc_acct',{'svcnum'=>$svcnum});
-die "Unknown svcnum" unless $svc_acct;
-
-$cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
-$pkgnum = $cust_svc->getfield('pkgnum');
-if ($pkgnum) {
-  $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
-  $custnum=$cust_pkg->getfield('custnum');
-} else {
-  $cust_pkg = '';
-  $custnum = '';
-}
-
-$part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
-die "Unknown svcpart" unless $part_svc;
-
-$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header('Account View', menubar(
-  ( ( $pkgnum || $custnum )
-    ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
-        "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
-      )
-    : ( "Cancel this (unaudited) account" =>
-          "${p}misc/cancel-unaudited.cgi?$svcnum" )
-  ),
-  "Main menu" => $p,
-));
-
-#print qq!
Send account information!;
-
-print qq!Edit this information!,
-      "
Service #$svcnum",
-      "
Service: ", $part_svc->svc, "",
-      "

Username: ", $svc_acct->username, ""
-;
-
-print "
Password: ";
-$password = $svc_acct->_password;
-if ( $password =~ /^\*\w+\* (.*)$/ ) {
-  $password = $1;
-  print "(login disabled) ";
-}
-if ( $conf->exists('showpasswords') ) {
-  print "$password";
-} else {
-  print "(hidden)";
-}
-$password = '';
-
-$svc_acct_pop = qsearchs('svc_acct_pop',{'popnum'=>$svc_acct->popnum});
-print "
POP: ", $svc_acct_pop->city, ", ", $svc_acct_pop->state,
-      " (", $svc_acct_pop->ac, ")/", $svc_acct_pop->exch, ""
-  if $svc_acct_pop;
-
-if ($svc_acct->uid ne '') {
-  print "

Uid: ", $svc_acct->uid, "",
-        "
Gid: ", $svc_acct->gid, "",
-        "
Finger name: ", $svc_acct->finger, "",
-        "
Home directory: ", $svc_acct->dir, "",
-        "
Shell: ", $svc_acct->shell, "",
-        "
Quota: ", $svc_acct->quota, " (unimplemented)"
-  ;
-} else {
-  print "

(No shell account)";
-}
-
-if ($svc_acct->slipip) {
-  print "

IP address: ", ( $svc_acct->slipip eq "0.0.0.0" || $svc_acct->slipip eq '0e0' ) ? "(Dynamic)" : $svc_acct->slipip ,"";
-  my($attribute);
-  foreach $attribute ( grep /^radius_/, fields('svc_acct') ) {
-    #warn $attribute;
-    $attribute =~ /^radius_(.*)$/;
-    my($pattribute) = ($1);
-    $pattribute =~ s/_/-/g;
-    print "
Radius $pattribute: ". $svc_acct->getfield($attribute), "";
-  }
-} else {
-  print "

(No SLIP/PPP account)";
-}
-
-print "";
-
diff --git a/htdocs/view/svc_acct_sm.cgi b/htdocs/view/svc_acct_sm.cgi
deleted file mode 100755
index 072c94d44..000000000
--- a/htdocs/view/svc_acct_sm.cgi
+++ /dev/null
@@ -1,128 +0,0 @@
-#!/usr/bin/perl -Tw
-#
-# $Id: svc_acct_sm.cgi,v 1.11 2000-07-17 10:58:42 ivan Exp $
-#
-# Usage: svc_acct_sm.cgi svcnum
-#        http://server.name/path/svc_acct_sm.cgi?svcnum
-#
-# based on view/svc_acct.cgi
-# 
-# ivan@voicenet.com 97-jan-5
-#
-# added navigation bar
-# ivan@voicenet.com 97-jan-30
-# 
-# rewrite ivan@sisd.com 98-mar-15
-#
-# Changes to allow page to work at a relative position in server
-#       bmccane@maxbaud.net     98-apr-3
-#
-# /var/spool/freeside/conf/domain ivan@sisd.com 98-jul-17
-#
-# $Log: svc_acct_sm.cgi,v $
-# Revision 1.11  2000-07-17 10:58:42  ivan
-# better error messages if svc_acct or svc_domain records are missing
-#
-# Revision 1.10  1999/04/08 12:00:19  ivan
-# aesthetic update
-#
-# Revision 1.9  1999/02/28 00:04:03  ivan
-# removed misleading comments
-#
-# Revision 1.8  1999/02/09 09:23:00  ivan
-# visual and bugfixes
-#
-# Revision 1.7  1999/02/07 09:59:42  ivan
-# more mod_perl fixes, and bugfixes Peter Wemm sent via email
-#
-# Revision 1.6  1999/01/19 05:14:22  ivan
-# for mod_perl: no more top-level my() variables; use vars instead
-# also the last s/create/new/;
-#
-# Revision 1.5  1999/01/18 09:41:46  ivan
-# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
-# (good idea anyway)
-#
-# Revision 1.4  1998/12/23 03:09:52  ivan
-# $cgi->keywords instead of $cgi->query_string
-#
-# Revision 1.3  1998/12/17 09:57:24  ivan
-# s/CGI::(Base|Request)/CGI.pm/;
-#
-# Revision 1.2  1998/12/16 05:24:30  ivan
-# use FS::Conf;
-#
-
-use strict;
-use vars qw($conf $cgi $mydomain $query $svcnum $svc_acct_sm $cust_svc
-            $pkgnum $cust_pkg $custnum $part_svc $p $domsvc $domuid $domuser
-            $svc $svc_domain $domain $svc_acct $username );
-use CGI;
-use FS::UID qw(cgisuidsetup);
-use FS::CGI qw(header popurl menubar );
-use FS::Record qw(qsearchs);
-use FS::Conf;
-use FS::svc_acct_sm;
-use FS::cust_svc;
-use FS::cust_pkg;
-use FS::part_svc;
-use FS::svc_domain;
-use FS::svc_acct;
-
-$cgi = new CGI;
-cgisuidsetup($cgi);
-
-$conf = new FS::Conf;
-$mydomain = $conf->config('domain');
-
-($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
-$svcnum = $1;
-$svc_acct_sm = qsearchs('svc_acct_sm',{'svcnum'=>$svcnum});
-die "Unknown svcnum" unless $svc_acct_sm;
-
-$cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
-$pkgnum = $cust_svc->getfield('pkgnum');
-if ($pkgnum) {
-  $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
-  $custnum=$cust_pkg->getfield('custnum');
-} else {
-  $cust_pkg = '';
-  $custnum = '';
-}
-
-$part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } )
-  or die "Unkonwn svcpart";
-
-$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header('Mail Alias View', menubar(
-  ( ( $pkgnum || $custnum )
-    ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
-        "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
-      )
-    : ( "Cancel this (unaudited) account" =>
-          "${p}misc/cancel-unaudited.cgi?$svcnum" )
-  ),
-  "Main menu" => $p,
-));
-
-($domsvc,$domuid,$domuser) = (
-  $svc_acct_sm->domsvc,
-  $svc_acct_sm->domuid,
-  $svc_acct_sm->domuser,
-);
-$svc = $part_svc->svc;
-$svc_domain = qsearchs('svc_domain',{'svcnum'=>$domsvc})
-  or die "Corrupted database: no svc_domain.svcnum matching domsvc $domsvc";
-$domain = $svc_domain->domain;
-$svc_acct = qsearchs('svc_acct',{'uid'=>$domuid})
-  or die "Corrupted database: no svc_acct.uid matching domuid $domuid";
-$username = $svc_acct->username;
-
-print qq!Edit this information!,
-      "
Service #$svcnum",
-      "
Service: $svc",
-      qq!
Mail to !, ( ($domuser eq '*') ? "(anything)" : $domuser ) , qq!\@$domain forwards to $username\@$mydomain mailbox.!,
-      ''
-;
-
diff --git a/htdocs/view/svc_domain.cgi b/htdocs/view/svc_domain.cgi
deleted file mode 100755
index 85c854ee0..000000000
--- a/htdocs/view/svc_domain.cgi
+++ /dev/null
@@ -1,102 +0,0 @@
-#!/usr/bin/perl -Tw
-#
-# $Id: svc_domain.cgi,v 1.11 2000-12-03 15:14:00 ivan Exp $
-#
-# Usage: svc_domain svcnum
-#        http://server.name/path/svc_domain.cgi?svcnum
-#
-# ivan@voicenet.com 97-jan-6
-#
-# rewrite ivan@sisd.com 98-mar-14
-#
-# Changes to allow page to work at a relative position in server
-#       bmccane@maxbaud.net     98-apr-3
-#
-# $Log: svc_domain.cgi,v $
-# Revision 1.11  2000-12-03 15:14:00  ivan
-# bugfixes from Jeff Finucane , thanks!
-#
-# Revision 1.10  1999/08/27 22:18:44  ivan
-# point to patrick instead of internic!
-#
-# Revision 1.9  1999/04/08 12:00:19  ivan
-# aesthetic update
-#
-# Revision 1.8  1999/02/28 00:04:04  ivan
-# removed misleading comments
-#
-# Revision 1.7  1999/02/23 08:09:25  ivan
-# beginnings of one-screen new customer entry and some other miscellania
-#
-# Revision 1.6  1999/01/19 05:14:23  ivan
-# for mod_perl: no more top-level my() variables; use vars instead
-# also the last s/create/new/;
-#
-# Revision 1.5  1999/01/18 09:41:47  ivan
-# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
-# (good idea anyway)
-#
-# Revision 1.4  1998/12/23 03:10:19  ivan
-# $cgi->keywords instead of $cgi->query_string
-#
-# Revision 1.3  1998/12/17 09:57:25  ivan
-# s/CGI::(Base|Request)/CGI.pm/;
-#
-# Revision 1.2  1998/11/13 09:56:50  ivan
-# change configuration file layout to support multiple distinct databases (with
-# own set of config files, export, etc.)
-#
-
-use strict;
-use vars qw( $cgi $query $svcnum $svc_domain $domain $cust_svc $pkgnum 
-             $cust_pkg $custnum $part_svc $p );
-use CGI;
-use FS::UID qw(cgisuidsetup);
-use FS::CGI qw(header menubar popurl menubar);
-use FS::Record qw(qsearchs);
-use FS::svc_domain;
-use FS::cust_svc;
-use FS::cust_pkg;
-use FS::part_svc;
-
-$cgi = new CGI;
-cgisuidsetup($cgi);
-
-($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
-$svcnum = $1;
-$svc_domain = qsearchs('svc_domain',{'svcnum'=>$svcnum});
-die "Unknown svcnum" unless $svc_domain;
-
-$cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
-$pkgnum = $cust_svc->getfield('pkgnum');
-if ($pkgnum) {
-  $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
-  $custnum=$cust_pkg->getfield('custnum');
-} else {
-  $cust_pkg = '';
-  $custnum = '';
-}
-
-$part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
-die "Unkonwn svcpart" unless $part_svc;
-
-$domain = $svc_domain->domain;
-
-$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header('Domain View', menubar(
-  ( ( $pkgnum || $custnum )
-    ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
-        "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
-      )
-    : ( "Cancel this (unaudited) account" =>
-          "${p}misc/cancel-unaudited.cgi?$svcnum" )
-  ),
-  "Main menu" => $p,
-)),
-      "Service #$svcnum",
-      "
Service: ", $part_svc->svc, "",
-      "
Domain name: $domain.",
-      qq!

View whois information.!,
-      '',
-;
-- 
cgit v1.2.1