From 160be29a0dc62e79a4fb95d2ab8c0c7e5996760e Mon Sep 17 00:00:00 2001 From: cvs2git Date: Mon, 12 Aug 2002 06:17:10 +0000 Subject: This commit was manufactured by cvs2svn to create branch 'BESTPRACTICAL'. --- httemplate/view/cust_bill.cgi | 48 --- httemplate/view/cust_main.cgi | 653 ---------------------------------------- httemplate/view/cust_pkg.cgi | 157 ---------- httemplate/view/svc_acct.cgi | 156 ---------- httemplate/view/svc_acct_sm.cgi | 58 ---- httemplate/view/svc_domain.cgi | 106 ------- httemplate/view/svc_forward.cgi | 69 ----- httemplate/view/svc_www.cgi | 59 ---- 8 files changed, 1306 deletions(-) delete mode 100755 httemplate/view/cust_bill.cgi delete mode 100755 httemplate/view/cust_main.cgi delete mode 100755 httemplate/view/cust_pkg.cgi delete mode 100755 httemplate/view/svc_acct.cgi delete mode 100755 httemplate/view/svc_acct_sm.cgi delete mode 100755 httemplate/view/svc_domain.cgi delete mode 100755 httemplate/view/svc_forward.cgi delete mode 100644 httemplate/view/svc_www.cgi (limited to 'httemplate/view') diff --git a/httemplate/view/cust_bill.cgi b/httemplate/view/cust_bill.cgi deleted file mode 100755 index 53d7bc051..000000000 --- a/httemplate/view/cust_bill.cgi +++ /dev/null @@ -1,48 +0,0 @@ - -<% - -#untaint invnum -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $invnum = $1; - -my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum}); -die "Invoice #$invnum not found!" unless $cust_bill; -my $custnum = $cust_bill->getfield('custnum'); - -#my $printed = $cust_bill->printed; - -print header('Invoice View', menubar( - "Main Menu" => $p, - "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", -)); - -print qq!Enter payments (check/cash) against this invoice | ! - if $cust_bill->owed > 0; - -print qq!Reprint this invoice!. '

'; - -#false laziness with search/cust_bill_event.cgi - -print table(). 'EventDateStatus'; -foreach my $cust_bill_event ( - sort { $a->_date <=> $b->_date } $cust_bill->cust_bill_event -) { - my $status = $cust_bill_event->status; - $status .= ': '. $cust_bill_event->statustext if $cust_bill_event->statustext; - print ''. $cust_bill_event->part_bill_event->event. ''. - time2str("%a %b %e %T %Y", $cust_bill_event->_date). ''. - $status. ''; -} -print '
';
-
-print $cust_bill->print_text;
-
-	#formatting
-	print <
-  
-
-END
-
-%>
diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi
deleted file mode 100755
index 421bd98a4..000000000
--- a/httemplate/view/cust_main.cgi
+++ /dev/null
@@ -1,653 +0,0 @@
-
-<%
-
-my $conf = new FS::Conf;
-
-#false laziness with view/cust_pkg.cgi, but i'm trying to make that go away so
-my %uiview = ();
-my %uiadd = ();
-foreach my $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";
-}
-
-print header("Customer View", menubar(
-  'Main Menu' => popurl(2)
-));
-
-die "No customer specified (bad URL)!" unless $cgi->keywords;
-my($query) = $cgi->keywords; # needs parens with my, ->keywords returns array
-$query =~ /^(\d+)$/;
-my $custnum = $1;
-my $cust_main = qsearchs('cust_main',{'custnum'=>$custnum});
-die "Customer not found!" unless $cust_main;
-
-print qq!Edit this customer!;
-print qq! |  Delete this customer!
-  if $conf->exists('deletecustomers');
-
-unless ( $conf->exists('disable_customer_referrals') ) {
-  print qq! | !,
-        qq!Refer a new customer!;
-
-  print qq! | !,
-        qq!View this customer's referrals!;
-}
-
-print '

';
-
-my $signupurl = $conf->config('signupurl');
-if ( $signupurl ) {
-print "This customer's signup URL: ".
-      "$signupurl?ref=$custnum

";
-}
-
-print '';
-
-print &itable(), '';
-
-print '';
-
-  print "Billing address", &ntable("#cccccc"), "",
-        &ntable("#cccccc",2),
-    'Contact name',
-      '',
-      $cust_main->last, ', ', $cust_main->first,
-      '';
-print 'SS#',
-      $cust_main->ss || ' ', ''
-  if $conf->exists('show_ss');
-
-print '',
-    '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 || ' ', '',
-        '', ""
-  ;
-
-  if ( defined $cust_main->dbdef_table->column('ship_last') ) {
-
-    my $pre = $cust_main->ship_last ? 'ship_' : '';
-
-    print "
Service address", &ntable("#cccccc"), "",
-          &ntable("#cccccc",2),
-      'Contact name',
-        '',
-        $cust_main->get("${pre}last"), ', ', $cust_main->get("${pre}first"),
-        '',
-      'Company',
-        $cust_main->get("${pre}company"),
-        '',
-      'Address',
-        $cust_main->get("${pre}address1"),
-        '',
-    ;
-    print ' ',
-          $cust_main->get("${pre}address2"), ''
-      if $cust_main->get("${pre}address2");
-    print 'City',
-            $cust_main->get("${pre}city"),
-            'State',
-            $cust_main->get("${pre}state"),
-            'Zip',
-            $cust_main->get("${pre}zip"), '',
-          'Country',
-            $cust_main->get("${pre}country"),
-            '',
-    ;
-    print 'Day Phone',
-          '',
-            $cust_main->get("${pre}daytime") || ' ', '',
-          'Night Phone'.
-          '',
-            $cust_main->get("${pre}night") || ' ', '',
-          'Fax',
-            $cust_main->get("${pre}fax") || ' ', '',
-          '', ""
-    ;
-
-  }
-
-print '';
-
-print '';
-
-  print &ntable("#cccccc"), "", &ntable("#cccccc",2),
-        'Customer number',
-        $custnum, '',
-  ;
-
-  my @agents = qsearch( 'agent', {} );
-  my $agent;
-  unless ( scalar(@agents) == 1 ) {
-    $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
-    print 'Agent',
-        $agent->agentnum, ": ", $agent->agent, '';
-  } else {
-    $agent = $agents[0];
-  }
-  my @referrals = qsearch( 'part_referral', {} );
-  unless ( scalar(@referrals) == 1 ) {
-    my $referral = qsearchs('part_referral', {
-      'refnum' => $cust_main->refnum
-    } );
-    print 'Advertising source',
-          $referral->refnum, ": ", $referral->referral, '';
-  }
-  print 'Order taker',
-    $cust_main->otaker, '';
-
-  print 'Referring Customer';
-  my $referring_cust_main = '';
-  if ( $cust_main->referral_custnum
-       && ( $referring_cust_main =
-            qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
-          )
-     ) {
-    print ''.
-          $cust_main->referral_custnum. ': '.
-          ( $referring_cust_main->company
-              ? $referring_cust_main->company. ' ('.
-                  $referring_cust_main->last. ', '. $referring_cust_main->first.
-                  ')'
-              : $referring_cust_main->last. ', '. $referring_cust_main->first
-          ).
-          '';
-  }
-  print '';
-
-  print '';
-
-print '
';
-
-  my @invoicing_list = $cust_main->invoicing_list;
-  print "Billing information (",
-       qq!!, "Bill now)",
-        &ntable("#cccccc"), "", &ntable("#cccccc",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' ) {
-    my $payinfo = $cust_main->payinfo;
-    $payinfo = 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4));
-    print 'Credit card',
-          'Card number',
-          $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 '';
-
-if ( defined $cust_main->dbdef_table->column('comments')
-     && $cust_main->comments )
-{
-  print "
Comments", &ntable("#cccccc"), "",
-        &ntable("#cccccc",2),
-        '
', $cust_main->comments,
-        '
';
-}
-
-print '';
-
-print '
'.
-  '
'.
-  qq!!.
-  '

';
-
-print '
'.
-  qq!
!.
-  qq!!.
-  qq!Description:!.
-  qq! Amount:!.
-  qq! !;
-
-#false laziness w/ edit/part_pkg.cgi
-if ( $conf->exists('enable_taxclasses') ) {
-  print '';
-} else {
-  print '';
-}
-
-print qq!

!;
-
-print <
-function cust_pkg_areyousure(href) {
-    if (confirm("Permanently delete included services and cancel this package?") == true)
-        window.location.href = href;
-}
-
-END
-
-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
-my @packages;
-if ( $conf->exists('hidecancelledpackages') ) {
-  @packages = sort { $a->pkgnum <=> $b->pkgnum } ($cust_main->ncancelled_pkgs);
-} else {
-  @packages = sort { $a->pkgnum <=> $b->pkgnum } ($cust_main->all_pkgs);
-}
-
-my $n1 = '';
-foreach my $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 @cust_svc = ();
-  my $rowspan = 0;
-  my %pkg_svc = ();
-  unless ( $package->getfield('cancel') ) {
-    foreach my $pkg_svc (
-      grep { $_->quantity }
-        qsearch('pkg_svc',{'pkgpart'=> $package->pkgpart })
-    ) {
-      $rowspan += ( $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity );
-    }
-  } else {
-    #@cust_svc = qsearch( 'cust_svc', { 'pkgnum' => $pkgnum } );
-    @cust_svc = ();
-    $rowspan = scalar(@cust_svc) || 1;
-  }
-  $rowspan ||= 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 ( Details )!;
-       # | !;
-
-  #false laziness with view/cust_pkg.cgi, but i'm trying to make that go away so
-  unless ( $package->getfield('cancel') ) {
-    print ' ( ';
-    if ( $package->getfield('susp') ) {
-      print qq!Unsuspend!;
-    } else {
-      print qq!Suspend!;
-    }
-    print ' | Cancel';
-  
-    print ' ) ';
-
-    print ' ( Edit dates | ';
-        
-    print qq!Customize )!;
-
-  }
-  print '';
-
-  for ( qw( setup bill susp expire cancel ) ) {
-    print "", ( $package->getfield($_)
-            ? time2str("%D
%l:%M:%S%P %z",
-              $package->getfield($_) )
-            :  ' '
-          ), '',
-    ;
-  }
-
-  my $n2 = '';
-  #false laziness with view/cust_pkg.cgi, but i'm trying to make that go away so
-  #foreach my $cust_svc ( @cust_svc ) {
-  foreach my $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,
-                                    });
-    for my $enum ( 1 .. $pkg_svc{$svcpart} ) {
-      my $cust_svc;
-      if ( $cust_svc = shift @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!;
-      } else {
-        print $n2, qq!!.
-              qq!Provision $svc!;
-
-        print qq!
!.
-              qq!Link to legacy $svc!
-          if $conf->exists('legacy_link');
-
-        print '';
-      }
-      $n2="";
-    }
-  }
-
-  $n1="";
-}  
-print "";
-
-#formatting
-print "";
-
-print <
-function cust_pay_areyousure(href) {
-    if (confirm("Are you sure you want to delete this payment?")
- == true)
-        window.location.href = href;
-}
-
-END
-
-#formatting
-print qq!

Payment History!.
-      qq! ( !.
-      qq!!.
-      qq!Post payment | !.
-      qq!!.
-      qq!Post credit )!;
-
-#get payment history
-#
-# major problem: this whole thing is way too sloppy.
-# minor problem: the description lines need better formatting.
-
-my @history = (); #needed for mod_perl :)
-
-my %target = ();
-
-my @bills = qsearch('cust_bill',{'custnum'=>$custnum});
-foreach my $bill (@bills) {
-  my($bref)=$bill->hashref;
-  my $bpre = ( $bill->owed > 0 )
-               ? ' Open '
-               : '';
-  my $bpost = ( $bill->owed > 0 ) ? '' : '';
-  push @history,
-    $bref->{_date} . qq!\t${bpre}Invoice #! . $bref->{invnum} .
-    qq! (Balance \$! . $bill->owed . qq!)$bpost\t! .
-    $bref->{charged} . qq!\t\t\t!;
-
-  my(@cust_bill_pay)=qsearch('cust_bill_pay',{'invnum'=> $bref->{invnum} } );
-#  my(@payments)=qsearch('cust_pay',{'invnum'=> $bref->{invnum} } );
-#  my($payment);
-#  foreach $payment (@payments) {
-  foreach my $cust_bill_pay (@cust_bill_pay) {
-    my $payment = $cust_bill_pay->cust_pay;
-    my($date,$invnum,$payby,$payinfo,$paid)=($payment->_date,
-                                             $cust_bill_pay->invnum,
-                                             $payment->payby,
-                                             $payment->payinfo,
-                                             $cust_bill_pay->amount,
-                      );
-    $payinfo = 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4))
-      if $payby eq 'CARD';
-    my $target = "$payby$payinfo";
-    $payby =~ s/^BILL$/Check #/ if $payinfo;
-    $payby =~ s/^(CARD|COMP)$/$1 /;
-    my $delete = $payment->closed !~ /^Y/i && $conf->exists('deletepayments')
-                   ? qq! (delete)!
-                   : '';
-    push @history,
-      "$date\tPayment, Invoice #$invnum ($payby$payinfo)$delete\t\t$paid\t\t\t$target";
-  }
-
-  my(@cust_credit_bill)=
-    qsearch('cust_credit_bill', { 'invnum'=> $bref->{invnum} } );
-  foreach my $cust_credit_bill (@cust_credit_bill) {
-    my $cust_credit = $cust_credit_bill->cust_credit;
-    my($date, $invnum, $crednum, $amount, $reason, $app_date ) = (
-      $cust_credit->_date,
-      $cust_credit_bill->invnum,
-      $cust_credit_bill->crednum,
-      $cust_credit_bill->amount,
-      $cust_credit->reason,
-      time2str("%D", $cust_credit_bill->_date),
-    );
-    push @history,
-      "$date\tCredit #$crednum: $reason
".
-      "(applied to invoice #$invnum on $app_date)\t\t\t$amount\t";
-  }
-}
-
-my @credits = grep { scalar(my @array = $_->cust_credit_refund) }
-           qsearch('cust_credit',{'custnum'=>$custnum});
-foreach my $credit (@credits) {
-  my($cref)=$credit->hashref;
-  my(@cust_credit_refund)=
-    qsearch('cust_credit_refund', { 'crednum'=> $cref->{crednum} } );
-  foreach my $cust_credit_refund (@cust_credit_refund) {
-    my $cust_refund = $cust_credit_refund->cust_credit;
-    my($date, $crednum, $amount, $reason, $app_date ) = (
-      $credit->_date,
-      $credit->crednum,
-      $cust_credit_refund->amount,
-      $credit->reason,
-      time2str("%D", $cust_credit_refund->_date),
-    );
-    push @history,
-      "$date\tCredit #$crednum: $reason
".
-      "(applied to refund on $app_date)\t\t\t$amount\t";
-  }
-}
-
-@credits = grep { $_->credited  > 0 }
-           qsearch('cust_credit',{'custnum'=>$custnum});
-foreach my $credit (@credits) {
-  my($cref)=$credit->hashref;
-  push @history,
-    $cref->{_date} . "\t" .
-    qq!!.
-    'Unapplied credit #' .
-    $cref->{crednum} . ": ".
-    $cref->{reason} . "\t\t\t" . $credit->credited . "\t";
-}
-
-my(@refunds)=qsearch('cust_refund',{'custnum'=> $custnum } );
-foreach my $refund (@refunds) {
-  my($rref)=$refund->hashref;
-  my($refundnum) = (
-    $refund->refundnum,
-  );
-
-  push @history,
-    $rref->{_date} . "\tRefund #$refundnum, (" .
-    $rref->{payby} . " " . $rref->{payinfo} . ") by " .
-    $rref->{otaker} . " - ". $rref->{reason} . "\t\t\t\t" .
-    $rref->{refund};
-}
-
-my @unapplied_payments =
-  grep { $_->unapplied > 0 } qsearch('cust_pay', { 'custnum' => $custnum } );
-foreach my $payment (@unapplied_payments) {
-  my $payby = $payment->payby;
-  my $payinfo = $payment->payinfo;
-  #false laziness w/above
-  $payinfo = 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4))
-    if $payby eq 'CARD';
-  my $target = "$payby$payinfo";
-  $payby =~ s/^BILL$/Check #/ if $payinfo;
-  $payby =~ s/^(CARD|COMP)$/$1 /;
-  my $delete = $payment->closed !~ /^Y/i && $conf->exists('deletepayments')
-                 ? qq! (delete)!
-                 : '';
-  push @history,
-    $payment->_date. "\t".
-    'Unapplied payment #' .
-    $payment->paynum . " ($payby$payinfo) ".
-    '('.
-    "apply)$delete".
-    "\t\t" . $payment->unapplied . "\t\t\t$target";
-}
-
-        #formatting
-        print &table(), <
-  Date
-  Description
-  Charge
-  Payment
-  In-house
Credit
-  Refund
-  Balance
-
-END
-
-#display payment history
-
-my $balance = 0;
-foreach my $item (sort keyfield_numerically @history) {
-  my($date,$desc,$charge,$payment,$credit,$refund,$target)=split(/\t/,$item);
-  $charge ||= 0;
-  $payment ||= 0;
-  $credit ||= 0;
-  $refund ||= 0;
-  $balance += $charge - $payment;
-  $balance -= $credit - $refund;
-  $balance = sprintf("%.2f", $balance);
-  $balance =~ s/^\-0\.00$/0.00/; #yay ieee fp
-  $target = '' unless defined $target;
-
-  print "";
-  print qq!! unless $target && $target{$target}++;
-  print time2str("%D",$date);
-  print '' if $target && $target{$target} == 1;
-  print "",
-	"$desc",
-	"",
-        ( $charge ? "\$".sprintf("%.2f",$charge) : '' ),
-        "",
-	"",
-        ( $payment ? "- \$".sprintf("%.2f",$payment) : '' ),
-        "",
-	"",
-        ( $credit ? "- \$".sprintf("%.2f",$credit) : '' ),
-        "",
-	"",
-        ( $refund ? "\$".sprintf("%.2f",$refund) : '' ),
-        "",
-	"\$" . $balance,
-        "",
-        "\n";
-}
-
-#formatting
-print "";
-
-#end
-
-#formatting
-print <
-
-END
-
-#subroutiens
-sub keyfield_numerically { (split(/\t/,$a))[0] <=> (split(/\t/,$b))[0] ; }
-
-%>
diff --git a/httemplate/view/cust_pkg.cgi b/httemplate/view/cust_pkg.cgi
deleted file mode 100755
index 09a2a7a8b..000000000
--- a/httemplate/view/cust_pkg.cgi
+++ /dev/null
@@ -1,157 +0,0 @@
-
-<%
-
-my $conf = new FS::Conf;
-
-my %uiview = ();
-my %uiadd = ();
-foreach my $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";
-}
-
-my ($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
-my $pkgnum = $1;
-
-#get package record
-my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
-die "No package!" unless $cust_pkg;
-my $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
-
-my $custnum = $cust_pkg->getfield('custnum');
-print header('Package View', menubar(
-  "View this customer (#$custnum)" => popurl(2). "view/cust_main.cgi?$custnum",
-  'Main Menu' => popurl(2)
-));
-
-#print info
-my ($susp,$cancel,$expire)=(
-  $cust_pkg->getfield('susp'),
-  $cust_pkg->getfield('cancel'),
-  $cust_pkg->getfield('expire'),
-);
-my($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment'));
-my($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill'));
-my $otaker = $cust_pkg->getfield('otaker');
-
-print <
-function areyousure(href) {
-    if (confirm("Permanently delete included services and cancel this package?") == true)
-        window.location.href = href;
-}
-
-END
-
-print "Package information";
-print ' (unsuspend)'
-  if ( $susp && ! $cancel );
-
-print ' (suspend)'
-  unless ( $susp || $cancel );
-
-print ' (cancel)'
-  unless $cancel;
-
-print ' (edit dates)';
-
-print &ntable("#cccccc"), '', &ntable("#cccccc",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/Edit) $svc: $value
-END
-      } else {
-        print qq!!.
-              qq!!.
-              qq!(Provision) $svc!;
-
-        print qq! or !.
-              qq!(Link to legacy) $svc!
-          if $conf->exists('legacy_link');
-
-        print '';
-      }
-
-    }
-    warn "WARNING: Leftover services pkgnum $pkgnum!" if @cust_svc;; 
-  }
-
-  print "",
-        "Choose (View/Edit) to view or edit an existing service
",
-        "Choose (Provision) to setup a new service
";
-
-  print "Choose (Link to legacy) to link to a legacy (pre-Freeside) service"
-    if $conf->exists('legacy_link');
-
-  print "";
-}
-
-#formatting
-print <
-
-END
-
-%>
diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi
deleted file mode 100755
index f6c1b026c..000000000
--- a/httemplate/view/svc_acct.cgi
+++ /dev/null
@@ -1,156 +0,0 @@
-
-<%
-
-my $conf = new FS::Conf;
-my $mydomain = $conf->config('domain');
-
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
-my $svcnum = $1;
-my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$svcnum});
-die "Unknown svcnum" unless $svc_acct;
-
-#false laziness w/all svc_*.cgi
-my $cust_svc = qsearchs( 'cust_svc' , { 'svcnum' => $svcnum } );
-my $pkgnum = $cust_svc->getfield('pkgnum');
-my($cust_pkg, $custnum);
-if ($pkgnum) {
-  $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } );
-  $custnum = $cust_pkg->custnum;
-} else {
-  $cust_pkg = '';
-  $custnum = '';
-}
-#eofalse
-
-my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
-die "Unknown svcpart" unless $part_svc;
-
-my $domain;
-if ( $svc_acct->domsvc ) {
-  my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $svc_acct->domsvc } );
-  die "Unknown domain" unless $svc_domain;
-  $domain = $svc_domain->domain;
-} else {
-  unless ( $mydomain ) {
-    die "No legacy domain config file and no svc_domain.svcnum record ".
-        "for svc_acct.domsvc: ". $cust_svc->domsvc;
-  }
-  $domain = $mydomain;
-}
-
-%>
-
-
-
-<%= 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" =>
-          "javascript:areyousure(\'${p}misc/cancel-unaudited.cgi?$svcnum\')" )
-  ),
-  "Main menu" => $p,
-)) %>
-
-<%
-
-#print qq!
Send account information!;
-
-print qq!Edit this information
!.
-      &ntable("#cccccc"). ''. &ntable("#cccccc",2).
-      "Service number".
-        "$svcnum".
-      "Service".
-        "". $part_svc->svc. "".
-      "Username".
-        "". $svc_acct->username. ""
-;
-
-print "Domain".
-        "". $domain, "";
-
-print "Password";
-my $password = $svc_acct->_password;
-if ( $password =~ /^\*\w+\* (.*)$/ ) {
-  $password = $1;
-  print "(login disabled) ";
-}
-if ( $conf->exists('showpasswords') ) {
-  print "$password";
-} else {
-  print "(hidden)";
-}
-print "";
-$password = '';
-
-if ( $conf->exists('security_phrase') ) {
-  my $sec_phrase = $svc_acct->sec_phrase;
-  print 'Security phrase'.
-        $svc_acct->sec_phrase. '';
-}
-
-my $svc_acct_pop = qsearchs('svc_acct_pop',{'popnum'=>$svc_acct->popnum});
-print "Access number".
-      "". $svc_acct_pop->text. ''
-  if $svc_acct_pop;
-
-if ($svc_acct->uid ne '') {
-  print "Uid".
-          "". $svc_acct->uid. "",
-        "Gid".
-          "". $svc_acct->gid. "",
-        "GECOS".
-          "". $svc_acct->finger. "",
-        "Home directory".
-          "". $svc_acct->dir. "",
-        "Shell".
-          "". $svc_acct->shell. "",
-        "Quota".
-          "". $svc_acct->quota. ""
-  ;
-} 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 = $FS::raddb::attrib{$1};
-    print "Radius (reply) $pattribute".
-          "". $svc_acct->getfield($attribute).
-          "";
-  }
-  foreach $attribute ( grep /^rc_/, fields('svc_acct') ) {
-    #warn $attribute;
-    $attribute =~ /^rc_(.*)$/;
-    my $pattribute = $FS::raddb::attrib{$1};
-    print "Radius (check) $pattribute: ".
-          "". $svc_acct->getfield($attribute).
-          "";
-  }
-} else {
-  print "(No SLIP/PPP account)";
-}
-
-print 'RADIUS groups'.
-      join('
', $svc_acct->radius_groups). '';
-
-print "".
-      '
'. joblisting({'svcnum'=>$svcnum}, 1).
-      "";
-
-%>
diff --git a/httemplate/view/svc_acct_sm.cgi b/httemplate/view/svc_acct_sm.cgi
deleted file mode 100755
index 4e5acc427..000000000
--- a/httemplate/view/svc_acct_sm.cgi
+++ /dev/null
@@ -1,58 +0,0 @@
-
-<%
-
-my $conf = new FS::Conf;
-my $mydomain = $conf->config('domain');
-
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
-my $svcnum = $1;
-my $svc_acct_sm = qsearchs('svc_acct_sm',{'svcnum'=>$svcnum});
-die "Unknown svcnum" unless $svc_acct_sm;
-
-my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
-my $pkgnum = $cust_svc->getfield('pkgnum');
-my($cust_pkg, $custnum);
-if ($pkgnum) {
-  $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
-  $custnum=$cust_pkg->getfield('custnum');
-} else {
-  $cust_pkg = '';
-  $custnum = '';
-}
-
-my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } )
-  or die "Unkonwn svcpart";
-
-print 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,
-));
-
-my($domsvc,$domuid,$domuser) = (
-  $svc_acct_sm->domsvc,
-  $svc_acct_sm->domuid,
-  $svc_acct_sm->domuser,
-);
-my $svc = $part_svc->svc;
-my $svc_domain = qsearchs('svc_domain',{'svcnum'=>$domsvc})
-  or die "Corrupted database: no svc_domain.svcnum matching domsvc $domsvc";
-my $domain = $svc_domain->domain;
-my $svc_acct = qsearchs('svc_acct',{'uid'=>$domuid})
-  or die "Corrupted database: no svc_acct.uid matching domuid $domuid";
-my $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/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi
deleted file mode 100755
index b70ac8f90..000000000
--- a/httemplate/view/svc_domain.cgi
+++ /dev/null
@@ -1,106 +0,0 @@
-
-<%
-
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
-my $svcnum = $1;
-my $svc_domain = qsearchs('svc_domain',{'svcnum'=>$svcnum});
-die "Unknown svcnum" unless $svc_domain;
-
-my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
-my $pkgnum = $cust_svc->getfield('pkgnum');
-my($cust_pkg, $custnum);
-if ($pkgnum) {
-  $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
-  $custnum=$cust_pkg->getfield('custnum');
-} else {
-  $cust_pkg = '';
-  $custnum = '';
-}
-
-my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
-die "Unknown svcpart" unless $part_svc;
-
-my $email = '';
-if ($svc_domain->catchall) {
-  my $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } );
-  die "Unknown svcpart" unless $svc_acct;
-  $email = $svc_acct->email;
-}
-
-my $domain = $svc_domain->domain;
-
-%>
-
-<%= 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) domain" =>
-          "${p}misc/cancel-unaudited.cgi?$svcnum" )
-  ),
-  "Main menu" => $p,
-)) %>
-
-Service #<%= $svcnum %>
-
Service: <%= $part_svc->svc %>
-
Domain name: <%= $domain %>
-
Catch all email (change):
-<%= $email ? "$email" : "(none)" %>
-

View whois information.
-


-
-
-<% my @records; if ( @records = $svc_domain->domain_record ) { %>
-  <%= ntable("",2) %>
-  ZoneTypeData
-
-  <% foreach my $domain_record ( @records ) {
-       my $type = $domain_record->rectype eq '_mstr'
-                    ? "(slave)"
-                    : $domain_record->recaf. ' '. $domain_record->rectype;
-  %>
-
-    <%= $domain_record->reczone %>
-    <%= $type %>
-    <%= $domain_record->recdata %>
-
-    <% unless ( $domain_record->rectype eq 'SOA' ) { %>
-      (delete)
-    <% } %>
-    
-  <% } %>
-  
-<% } %>
-
-

-

-
- 
- IN 
- 
- 
-


or


-

-
-
-<% if ( @records ) { %> Delete all records and <% } %>
-Slave from nameserver IP 
-
- 
-
-
- 
-

-

<%= joblisting({'svcnum'=>$svcnum}, 1) %>
-
diff --git a/httemplate/view/svc_forward.cgi b/httemplate/view/svc_forward.cgi
deleted file mode 100755
index c8d1d6213..000000000
--- a/httemplate/view/svc_forward.cgi
+++ /dev/null
@@ -1,69 +0,0 @@
-
-<%
-
-my $conf = new FS::Conf;
-
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
-my $svcnum = $1;
-my $svc_forward = qsearchs('svc_forward',{'svcnum'=>$svcnum});
-die "Unknown svcnum" unless $svc_forward;
-
-my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
-my $pkgnum = $cust_svc->getfield('pkgnum');
-my($cust_pkg, $custnum);
-if ($pkgnum) {
-  $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
-  $custnum=$cust_pkg->getfield('custnum');
-} else {
-  $cust_pkg = '';
-  $custnum = '';
-}
-
-my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } )
-  or die "Unkonwn svcpart";
-
-print header('Mail Forward 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,
-));
-
-my($srcsvc,$dstsvc,$dst) = (
-  $svc_forward->srcsvc,
-  $svc_forward->dstsvc,
-  $svc_forward->dst,
-);
-my $svc = $part_svc->svc;
-my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$srcsvc})
-  or die "Corrupted database: no svc_acct.svcnum matching srcsvc $srcsvc";
-my $source = $svc_acct->email;
-my $destination;
-if ($dstsvc) {
-  my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$dstsvc})
-    or die "Corrupted database: no svc_acct.svcnum matching dstsvc $dstsvc";
-  $destination = $svc_acct->email;
-}else{
-  $destination = $dst;
-}
-
-print qq!Edit this information!.
-      ntable("#cccccc",2).
-      'Service number'.
-        qq!$svcnum!.
-      'Service'.
-        qq!$svc!.
-      qq!Email to!.
-        qq!$source!.
-      qq!Forwards to !.
-        qq!$destination!.
-      '
'. joblisting({'svcnum'=>$svcnum}, 1).
-      ''
-;
-
-%>
diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi
deleted file mode 100644
index 9fa9661b1..000000000
--- a/httemplate/view/svc_www.cgi
+++ /dev/null
@@ -1,59 +0,0 @@
-
-<%
-
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
-my $svcnum = $1;
-my $svc_www = qsearchs( 'svc_www', { 'svcnum' => $svcnum } )
-  or die "svc_www: Unknown svcnum $svcnum";
-
-#false laziness w/all svc_*.cgi
-my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } );
-my $pkgnum = $cust_svc->getfield('pkgnum');
-my($cust_pkg, $custnum);
-if ($pkgnum) {
-  $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } );
-  $custnum = $cust_pkg->custnum;
-} else {
-  $cust_pkg = '';
-  $custnum = '';
-}
-#eofalse
-
-my $usersvc = $svc_www->usersvc;
-my $svc_acct = qsearchs('svc_acct', { 'svcnum' => $usersvc } )
-  or die "svc_www: Unknown usersvc $usersvc";
-my $email = $svc_acct->email;
-
-my $domain_record = qsearchs('domain_record', { 'recnum' => $svc_www->recnum } )
-  or die "svc_www: Unknown recnum ". $svc_www->recnum;
-
-my $www = $domain_record->reczone;
-unless ( $www =~ /\.$/ ) {
-  my $svc_domain = qsearchs('svc_domain', { svcnum=>$domain_record->svcnum } );
-  $www .= '.'. $svc_domain->domain;
-}
-
-print header('Website View', menubar(
-  ( ( $custnum )
-    ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
-        "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
-      )                                                                       
-    : ( "Cancel this (unaudited) website" =>
-          "${p}misc/cancel-unaudited.cgi?$svcnum" )
-  ),
-  "Main menu" => $p,
-)).
-      qq!Edit this information
!.
-      ntable("#cccccc"). ''. ntable("#cccccc",2).
-      qq!Service number!.
-        qq!$svcnum!.
-      qq!Website name!.
-        qq!$www!.
-      qq!Account!.
-        qq!$email!.
-      ''.
-      '
'. joblisting({'svcnum'=>$svcnum}, 1).
-      ''
-;
-%>
-- 
cgit v1.2.1