#!/usr/bin/perl -Tw
#
-# $Id: cust_credit.cgi,v 1.6 1999-01-25 12:09:52 ivan Exp $
+# $Id: cust_credit.cgi,v 1.7 1999-02-28 00:03:33 ivan Exp $
#
# 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.
#
# rewrite ivan@sisd.com 98-mar-16
#
# $Log: cust_credit.cgi,v $
-# Revision 1.6 1999-01-25 12:09:52 ivan
+# 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
#!/usr/bin/perl -Tw
#
-# $Id: cust_main.cgi,v 1.9 1999-02-23 08:09:20 ivan Exp $
+# $Id: cust_main.cgi,v 1.10 1999-02-28 00:03:34 ivan Exp $
#
# Usage: cust_main.cgi custnum
# http://server.name/path/cust_main.cgi?custnum
#
-# Note: Should be run setuid freeside as user nobody.
-#
# ivan@voicenet.com 96-nov-29 -> 96-dec-04
#
# Blank custnum for new customer.
# fixed one missed day->daytime ivan@sisd.com 98-jul-13
#
# $Log: cust_main.cgi,v $
-# Revision 1.9 1999-02-23 08:09:20 ivan
+# Revision 1.10 1999-02-28 00:03:34 ivan
+# removed misleading comments
+#
+# Revision 1.9 1999/02/23 08:09:20 ivan
# beginnings of one-screen new customer entry and some other miscellania
#
# Revision 1.8 1999/01/25 12:09:53 ivan
#for false laziness below
use FS::svc_acct_pop;
+ #for (other) false laziness below
+ use FS::agent;
+ use FS::type_pkgs;
+
$cgi = new CGI;
cgisuidsetup($cgi);
#use FS::part_svc;
#use FS::part_pkg;
+ #false laziness, copied from FS::cust_pkg::order
+ my %part_pkg;
+ if ( scalar(@agents) == 1 ) {
+ # generate %part_pkg
+ # $part_pkg{$pkgpart} is true iff $custnum may purchase $pkgpart
+ #my($cust_main)=qsearchs('cust_main',{'custnum'=>$custnum});
+ #my($agent)=qsearchs('agent',{'agentnum'=> $cust_main->agentnum });
+ my($agent)=qsearchs('agent',{'agentnum'=> $agentnum });
+
+ my($type_pkgs);
+ foreach $type_pkgs ( qsearch('type_pkgs',{'typenum'=> $agent->typenum }) ) {
+ my($pkgpart)=$type_pkgs->pkgpart;
+ $part_pkg{$pkgpart}++;
+ }
+ } else {
+ #can't know (agent not chosen), so, allow all
+ my %typenum;
+ foreach my $agent ( @agents ) {
+ next if $typenum{$agent->typenum}++;
+ foreach my $type_pkgs ( qsearch('type_pkgs',{'typenum'=> $agent->typenum }) ) {
+ my($pkgpart)=$type_pkgs->pkgpart;
+ $part_pkg{$pkgpart}++;
+ }
+ }
+
+ }
+ #eslaf
+
my %pkgpart;
#foreach ( @pkg_svc ) {
foreach ( qsearch( 'pkg_svc', {} ) ) {
my @part_pkg =
#grep { $pkgpart{ $_->pkgpart } == 1 } qsearch( 'part_pkg', {} );
- grep { ( $pkgpart{ $_->pkgpart } || 0 ) == 1 } qsearch( 'part_pkg', {} );
+ grep {
+ ( $pkgpart{ $_->pkgpart } || 0 ) == 1
+ && $part_pkg{ $_->pkgpart }
+ } qsearch( 'part_pkg', {} );
if ( @part_pkg ) {
#!/usr/bin/perl -Tw
#
-# $Id: cust_pay.cgi,v 1.5 1999-01-25 12:09:56 ivan Exp $
+# $Id: cust_pay.cgi,v 1.6 1999-02-28 00:03:35 ivan Exp $
#
# 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.5 1999-01-25 12:09:56 ivan
+# 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
#!/usr/bin/perl -Tw
#
-# $Id: cust_pkg.cgi,v 1.5 1999-02-07 09:59:18 ivan Exp $
+# $Id: cust_pkg.cgi,v 1.6 1999-02-28 00:03:36 ivan Exp $
#
# this is for changing packages around, not editing things within the package
#
# Usage: cust_pkg.cgi custnum
# http://server.name/path/cust_pkg.cgi?custnum
#
-# Note: Should be run setuid freeside as user nobody
-#
# started with /sales/add/cust_pkg.cgi, which added packages
# ivan@voicenet.com 97-jan-5, 97-mar-21
#
# 98-jun-1
#
# $Log: cust_pkg.cgi,v $
-# Revision 1.5 1999-02-07 09:59:18 ivan
+# Revision 1.6 1999-02-28 00:03:36 ivan
+# removed misleading comments
+#
+# Revision 1.5 1999/02/07 09:59:18 ivan
# more mod_perl fixes, and bugfixes Peter Wemm sent via email
#
# Revision 1.4 1999/01/19 05:13:38 ivan
#!/usr/bin/perl -Tw
#
-# $Id: cust_credit.cgi,v 1.5 1999-01-25 12:09:59 ivan Exp $
+# $Id: cust_credit.cgi,v 1.6 1999-02-28 00:03:41 ivan Exp $
#
# Usage: post form to:
# http://server.name/path/cust_credit.cgi
#
-# Note: Should be run setuid root as user nobody.
-#
# ivan@voicenet.com 96-dec-05 -> 96-dec-08
#
# post a refund if $new_paybatch
# bmccane@maxbaud.net 98-apr-3
#
# $Log: cust_credit.cgi,v $
-# Revision 1.5 1999-01-25 12:09:59 ivan
+# Revision 1.6 1999-02-28 00:03:41 ivan
+# removed misleading comments
+#
+# Revision 1.5 1999/01/25 12:09:59 ivan
# yet more mod_perl stuff
#
# Revision 1.4 1999/01/19 05:13:49 ivan
#!/usr/bin/perl -Tw
#
-# $Id: cust_main.cgi,v 1.6 1999-01-25 12:10:00 ivan Exp $
+# $Id: cust_main.cgi,v 1.7 1999-02-28 00:03:42 ivan Exp $
#
# Usage: post form to:
# http://server.name/path/cust_main.cgi
#
-# Note: Should be run setuid root as user nobody.
-#
# ivan@voicenet.com 96-dec-04
#
# added referral check
# bmccane@maxbaud.net 98-apr-3
#
# $Log: cust_main.cgi,v $
-# Revision 1.6 1999-01-25 12:10:00 ivan
+# Revision 1.7 1999-02-28 00:03:42 ivan
+# removed misleading comments
+#
+# Revision 1.6 1999/01/25 12:10:00 ivan
# yet more mod_perl stuff
#
# Revision 1.5 1999/01/19 05:13:50 ivan
#perhaps the invocing_list magic should move to cust_main.pm?
if ( $new->custnum eq '' ) {
+ #false laziness: copied from cust_pkg.pm
+ HERE!
+ #
$error ||= $new->insert;
} else { #create old record object
my $old = qsearchs( 'cust_main', { 'custnum' => $new->custnum } );
#!/usr/bin/perl -Tw
#
-# $Id: cust_pay.cgi,v 1.6 1999-01-25 12:19:09 ivan Exp $
+# $Id: cust_pay.cgi,v 1.7 1999-02-28 00:03:43 ivan Exp $
#
# Usage: post form to:
# http://server.name/path/cust_pay.cgi
#
-# Note: Should be run setuid root as user nobody.
-#
# ivan@voicenet.com 96-dec-11
#
# rewrite ivan@sisd.com 98-mar-16
# bmccane@maxbaud.net 98-apr-3
#
# $Log: cust_pay.cgi,v $
-# Revision 1.6 1999-01-25 12:19:09 ivan
+# Revision 1.7 1999-02-28 00:03:43 ivan
+# removed misleading comments
+#
+# Revision 1.6 1999/01/25 12:19:09 ivan
# yet more mod_perl stuff
#
# Revision 1.5 1999/01/19 05:13:53 ivan
#!/usr/bin/perl -Tw
#
-# $Id: cust_pkg.cgi,v 1.5 1999-02-07 09:59:26 ivan Exp $
+# $Id: cust_pkg.cgi,v 1.6 1999-02-28 00:03:44 ivan Exp $
#
# this is for changing packages around, not for editing things within the
# package
# Usage: post form to:
# http://server.name/path/cust_pkg.cgi
#
-# Note: Should be run setuid root as user nobody.
-#
# ivan@voicenet.com 97-mar-21 - 97-mar-24
#
# rewrote for new API
# bmccane@maxbaud.net 98-apr-3
#
# $Log: cust_pkg.cgi,v $
-# Revision 1.5 1999-02-07 09:59:26 ivan
+# Revision 1.6 1999-02-28 00:03:44 ivan
+# removed misleading comments
+#
+# Revision 1.5 1999/02/07 09:59:26 ivan
# more mod_perl fixes, and bugfixes Peter Wemm sent via email
#
# Revision 1.3 1999/01/19 05:13:54 ivan
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct.cgi,v 1.5 1999-02-07 09:59:30 ivan Exp $
+# $Id: svc_acct.cgi,v 1.6 1999-02-28 00:03:45 ivan Exp $
#
# Usage: post form to:
# http://server.name/path/svc_acct.cgi
#
-# Note: Should br run setuid root as user nobody.
-#
# ivan@voicenet.com 96-dec-18
#
# Changed /u to /u2
# bmccane@maxbaud.net 98-apr-3
#
# $Log: svc_acct.cgi,v $
-# Revision 1.5 1999-02-07 09:59:30 ivan
+# Revision 1.6 1999-02-28 00:03:45 ivan
+# removed misleading comments
+#
+# Revision 1.5 1999/02/07 09:59:30 ivan
# more mod_perl fixes, and bugfixes Peter Wemm sent via email
#
# Revision 1.4 1999/01/19 05:13:58 ivan
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct_sm.cgi,v 1.5 1999-02-07 09:59:32 ivan Exp $
+# $Id: svc_acct_sm.cgi,v 1.6 1999-02-28 00:03:46 ivan Exp $
#
# Usage: post form to:
# http://server.name/path/svc_acct_sm.cgi
#
-# Note: Should br run setuid root as user nobody.
-#
# lots of crufty stuff from svc_acct still in here, and modifications are (unelegantly) disabled.
#
# ivan@voicenet.com 97-jan-6
# bmccane@maxbaud.net 98-apr-3
#
# $Log: svc_acct_sm.cgi,v $
-# Revision 1.5 1999-02-07 09:59:32 ivan
+# Revision 1.6 1999-02-28 00:03:46 ivan
+# removed misleading comments
+#
+# Revision 1.5 1999/02/07 09:59:32 ivan
# more mod_perl fixes, and bugfixes Peter Wemm sent via email
#
# Revision 1.4 1999/01/19 05:14:00 ivan
#!/usr/bin/perl -Tw
#
-# $Id: svc_domain.cgi,v 1.5 1999-02-07 09:59:33 ivan Exp $
+# $Id: svc_domain.cgi,v 1.6 1999-02-28 00:03:47 ivan Exp $
#
# Usage: post form to:
# http://server.name/path/svc_domain.cgi
#
-# Note: Should br run setuid root as user nobody.
-#
# lots of yucky stuff in this one... bleachlkjhui!
#
# ivan@voicenet.com 97-jan-6
# bmccane@maxbaud.net 98-apr-3
#
# $Log: svc_domain.cgi,v $
-# Revision 1.5 1999-02-07 09:59:33 ivan
+# Revision 1.6 1999-02-28 00:03:47 ivan
+# removed misleading comments
+#
+# Revision 1.5 1999/02/07 09:59:33 ivan
# more mod_perl fixes, and bugfixes Peter Wemm sent via email
#
# Revision 1.4 1999/01/19 05:14:01 ivan
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct.cgi,v 1.8 1999-02-23 08:09:22 ivan Exp $
+# $Id: svc_acct.cgi,v 1.9 1999-02-28 00:03:37 ivan Exp $
#
# Usage: svc_acct.cgi {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
# http://server.name/path/svc_acct.cgi? {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
#
-# Note: Should be run setuid freeside as user nobody
-#
# ivan@voicenet.com 96-dec-18
#
# rewrite ivan@sisd.com 98-mar-8
# use conf/shells and dbdef username length ivan@sisd.com 98-jul-13
#
# $Log: svc_acct.cgi,v $
-# Revision 1.8 1999-02-23 08:09:22 ivan
+# Revision 1.9 1999-02-28 00:03:37 ivan
+# removed misleading comments
+#
+# Revision 1.8 1999/02/23 08:09:22 ivan
# beginnings of one-screen new customer entry and some other miscellania
#
# Revision 1.7 1999/02/07 09:59:22 ivan
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct_sm.cgi,v 1.8 1999-02-07 09:59:24 ivan Exp $
+# $Id: svc_acct_sm.cgi,v 1.9 1999-02-28 00:03:38 ivan Exp $
#
# Usage: svc_acct_sm.cgi {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
# http://server.name/path/svc_acct_sm.cgi? {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
#
# use {svcnum} for edit, pkgnum{pkgnum}-svcpart{svcpart} for add
#
-# Note: Should be run setuid freeside as user nobody.
-#
# should error out in a more CGI-friendly way, and should have more error checking (sigh).
#
# ivan@voicenet.com 97-jan-5
# /var/spool/freeside/conf/domain ivan@sisd.com 98-jul-26
#
# $Log: svc_acct_sm.cgi,v $
-# Revision 1.8 1999-02-07 09:59:24 ivan
+# Revision 1.9 1999-02-28 00:03:38 ivan
+# removed misleading comments
+#
+# Revision 1.8 1999/02/07 09:59:24 ivan
# more mod_perl fixes, and bugfixes Peter Wemm sent via email
#
# Revision 1.7 1999/01/19 05:13:45 ivan
#!/usr/bin/perl -Tw
#
-# $Id: svc_domain.cgi,v 1.8 1999-02-07 09:59:25 ivan Exp $
+# $Id: svc_domain.cgi,v 1.9 1999-02-28 00:03:39 ivan Exp $
#
# Usage: svc_domain.cgi pkgnum{pkgnum}-svcpart{svcpart}
# http://server.name/path/svc_domain.cgi?pkgnum{pkgnum}-svcpart{svcpart}
#
-# Note: Should be run setuid freeside as user nobody
-#
# ivan@voicenet.com 97-jan-5 -> 97-jan-6
#
# changes for domain template 3.5
# no GOV in instructions ivan@sisd.com 98-jul-17
#
# $Log: svc_domain.cgi,v $
-# Revision 1.8 1999-02-07 09:59:25 ivan
+# Revision 1.9 1999-02-28 00:03:39 ivan
+# removed misleading comments
+#
+# Revision 1.8 1999/02/07 09:59:25 ivan
# more mod_perl fixes, and bugfixes Peter Wemm sent via email
#
# Revision 1.7 1999/01/19 05:13:46 ivan
#!/usr/bin/perl -Tw
#
-# $Id: cancel-unaudited.cgi,v 1.5 1999-02-07 09:59:34 ivan Exp $
+# $Id: cancel-unaudited.cgi,v 1.6 1999-02-28 00:03:48 ivan Exp $
#
# Usage: cancel-unaudited.cgi svcnum
# http://server.name/path/cancel-unaudited.cgi pkgnum
#
-# Note: Should be run setuid freeside as user nobody
-#
# ivan@voicenet.com 97-apr-23
#
# rewrote for new API
# bmccane@maxbaud.net 98-apr-3
#
# $Log: cancel-unaudited.cgi,v $
-# Revision 1.5 1999-02-07 09:59:34 ivan
+# Revision 1.6 1999-02-28 00:03:48 ivan
+# removed misleading comments
+#
+# Revision 1.5 1999/02/07 09:59:34 ivan
# more mod_perl fixes, and bugfixes Peter Wemm sent via email
#
# Revision 1.4 1999/01/19 05:14:03 ivan
#!/usr/bin/perl -Tw
#
-# $Id: cancel_pkg.cgi,v 1.4 1999-01-19 05:14:04 ivan Exp $
+# $Id: cancel_pkg.cgi,v 1.5 1999-02-28 00:03:49 ivan Exp $
#
# Usage: cancel_pkg.cgi pkgnum
# http://server.name/path/cancel_pkg.cgi pkgnum
#
-# Note: Should be run setuid freeside as user nobody
-#
# IT DOESN'T RUN THE APPROPRIATE PROGRAMS YET!!!!
#
# probably should generalize this to do cancels, suspensions, unsuspensions, etc.
# bmccane@maxbaud.net 98-apr-3
#
# $Log: cancel_pkg.cgi,v $
-# Revision 1.4 1999-01-19 05:14:04 ivan
+# Revision 1.5 1999-02-28 00:03:49 ivan
+# removed misleading comments
+#
+# Revision 1.4 1999/01/19 05:14:04 ivan
# for mod_perl: no more top-level my() variables; use vars instead
# also the last s/create/new/;
#
#!/usr/bin/perl -Tw
#
-# $Id: expire_pkg.cgi,v 1.3 1999-01-19 05:14:05 ivan Exp $
+# $Id: expire_pkg.cgi,v 1.4 1999-02-28 00:03:50 ivan Exp $
#
# Usage: post form to:
# http://server.name/path/expire_pkg.cgi
#
-# Note: Should be run setuid freeside as user nobody
-#
# based on susp_pkg
# ivan@voicenet.com 97-jul-29
#
# bmccane@maxbaud.net 98-apr-3
#
# $Log: expire_pkg.cgi,v $
-# Revision 1.3 1999-01-19 05:14:05 ivan
+# Revision 1.4 1999-02-28 00:03:50 ivan
+# removed misleading comments
+#
+# Revision 1.3 1999/01/19 05:14:05 ivan
# for mod_perl: no more top-level my() variables; use vars instead
# also the last s/create/new/;
#
#!/usr/bin/perl -Tw
#
-# $Id: link.cgi,v 1.5 1999-01-19 05:14:06 ivan Exp $
-#
-# Note: Should be run setuid freeside as user nobody
+# $Id: link.cgi,v 1.6 1999-02-28 00:03:51 ivan Exp $
#
# ivan@voicenet.com 97-feb-5
#
# can also link on some other fields now (about time) ivan@sisd.com 98-jun-24
#
# $Log: link.cgi,v $
-# Revision 1.5 1999-01-19 05:14:06 ivan
+# Revision 1.6 1999-02-28 00:03:51 ivan
+# removed misleading comments
+#
+# Revision 1.5 1999/01/19 05:14:06 ivan
# for mod_perl: no more top-level my() variables; use vars instead
# also the last s/create/new/;
#
#!/usr/bin/perl -Tw
#
-# $Id: susp_pkg.cgi,v 1.4 1999-01-19 05:14:08 ivan Exp $
+# $Id: susp_pkg.cgi,v 1.5 1999-02-28 00:03:52 ivan Exp $
#
# Usage: susp_pkg.cgi pkgnum
# http://server.name/path/susp_pkg.cgi pkgnum
#
-# Note: Should be run setuid freeside as user nobody
-#
# probably should generalize this to do cancels, suspensions, unsuspensions, etc.
#
# ivan@voicenet.com 97-feb-27
# bmccane@maxbaud.net 98-apr-3
#
# $Log: susp_pkg.cgi,v $
-# Revision 1.4 1999-01-19 05:14:08 ivan
+# Revision 1.5 1999-02-28 00:03:52 ivan
+# removed misleading comments
+#
+# Revision 1.4 1999/01/19 05:14:08 ivan
# for mod_perl: no more top-level my() variables; use vars instead
# also the last s/create/new/;
#
#!/usr/bin/perl -Tw
#
-# $Id: unsusp_pkg.cgi,v 1.4 1999-01-19 05:14:09 ivan Exp $
+# $Id: unsusp_pkg.cgi,v 1.5 1999-02-28 00:03:53 ivan Exp $
#
# Usage: susp_pkg.cgi pkgnum
# http://server.name/path/susp_pkg.cgi pkgnum
#
-# Note: Should be run setuid freeside as user nobody
-#
# probably should generalize this to do cancels, suspensions, unsuspensions, etc.
#
# ivan@voicenet.com 97-feb-27
# bmccane@maxbaud.net 98-apr-3
#
# $Log: unsusp_pkg.cgi,v $
-# Revision 1.4 1999-01-19 05:14:09 ivan
+# Revision 1.5 1999-02-28 00:03:53 ivan
+# removed misleading comments
+#
+# Revision 1.4 1999/01/19 05:14:09 ivan
# for mod_perl: no more top-level my() variables; use vars instead
# also the last s/create/new/;
#
#!/usr/bin/perl -Tw
#
-# $Id: cust_bill.cgi,v 1.3 1999-01-19 05:14:11 ivan Exp $
+# $Id: cust_bill.cgi,v 1.4 1999-02-28 00:03:54 ivan Exp $
#
# Usage: post form to:
# http://server.name/path/cust_bill.cgi
#
-# Note: Should be run setuid freeside as user nobody.
-#
# ivan@voicenet.com 97-apr-4
#
# Changes to allow page to work at a relative position in server
# bmccane@maxbaud.net 98-apr-3
#
# $Log: cust_bill.cgi,v $
-# Revision 1.3 1999-01-19 05:14:11 ivan
+# Revision 1.4 1999-02-28 00:03:54 ivan
+# removed misleading comments
+#
+# Revision 1.3 1999/01/19 05:14:11 ivan
# for mod_perl: no more top-level my() variables; use vars instead
# also the last s/create/new/;
#
#!/usr/bin/perl -Tw
#
-# $Id: cust_main.cgi,v 1.8 1999-02-07 09:59:36 ivan Exp $
+# $Id: cust_main.cgi,v 1.9 1999-02-28 00:03:55 ivan Exp $
#
# Usage: post form to:
# http://server.name/path/cust_main.cgi
#
-# Note: Should be run setuid freeside as user nobody.
-#
# ivan@voicenet.com 96-dec-12
#
# rewrite ivan@sisd.com 98-mar-4
# display total, use FS::CGI ivan@sisd.com 98-jul-17
#
# $Log: cust_main.cgi,v $
-# Revision 1.8 1999-02-07 09:59:36 ivan
+# Revision 1.9 1999-02-28 00:03:55 ivan
+# removed misleading comments
+#
+# Revision 1.8 1999/02/07 09:59:36 ivan
# more mod_perl fixes, and bugfixes Peter Wemm sent via email
#
# Revision 1.7 1999/01/25 12:19:11 ivan
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct_sm.cgi,v 1.6 1999-02-09 09:22:58 ivan Exp $
+# $Id: svc_acct_sm.cgi,v 1.7 1999-02-28 00:03:56 ivan Exp $
#
# Usage: post form to:
# http://server.name/path/svc_domain.cgi
#
-# Note: Should be run setuid freeside as user nobody.
-#
# ivan@voicenet.com 96-mar-5
#
# need to look at table in results to make it more readable
# bmccane@maxbaud.net 98-apr-3
#
# $Log: svc_acct_sm.cgi,v $
-# Revision 1.6 1999-02-09 09:22:58 ivan
+# Revision 1.7 1999-02-28 00:03:56 ivan
+# removed misleading comments
+#
+# Revision 1.6 1999/02/09 09:22:58 ivan
# visual and bugfixes
#
# Revision 1.5 1999/01/19 05:14:16 ivan
#!/usr/bin/perl -Tw
#
-# $Id: svc_domain.cgi,v 1.7 1999-02-23 08:09:24 ivan Exp $
+# $Id: svc_domain.cgi,v 1.8 1999-02-28 00:03:57 ivan Exp $
#
# Usage: post form to:
# http://server.name/path/svc_domain.cgi
#
-# Note: Should be run setuid freeside as user nobody.
-#
# ivan@voicenet.com 97-mar-5
#
# rewrite ivan@sisd.com 98-mar-14
# display total, use FS::CGI now does browsing too ivan@sisd.com 98-jul-17
#
# $Log: svc_domain.cgi,v $
-# Revision 1.7 1999-02-23 08:09:24 ivan
+# Revision 1.8 1999-02-28 00:03:57 ivan
+# removed misleading comments
+#
+# Revision 1.7 1999/02/23 08:09:24 ivan
# beginnings of one-screen new customer entry and some other miscellania
#
# Revision 1.6 1999/02/09 09:22:59 ivan
#!/usr/bin/perl -Tw
#
-# $Id: cust_bill.cgi,v 1.7 1999-01-25 12:26:03 ivan Exp $
-#
-# Note: Should be run setuid freeside as user nobody.
+# $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
#
# also print 'printed' field ivan@sisd.com 98-jul-10
#
# $Log: cust_bill.cgi,v $
-# Revision 1.7 1999-01-25 12:26:03 ivan
+# 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
#!/usr/bin/perl -Tw
#
-# $Id: cust_main.cgi,v 1.12 1999-02-07 09:59:40 ivan Exp $
+# $Id: cust_main.cgi,v 1.13 1999-02-28 00:04:00 ivan Exp $
#
# Usage: cust_main.cgi custnum
# http://server.name/path/cust_main.cgi?custnum
#
-# Note: Should be run setuid freeside as user nobody.
-#
# the payment history section could use some work, see below
#
# ivan@voicenet.com 96-nov-29 -> 96-dec-11
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: cust_main.cgi,v $
-# Revision 1.12 1999-02-07 09:59:40 ivan
+# 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
#!/usr/bin/perl -Tw
#
-# $Id: cust_pkg.cgi,v 1.7 1999-01-19 05:14:20 ivan Exp $
+# $Id: cust_pkg.cgi,v 1.8 1999-02-28 00:04:01 ivan Exp $
#
# Usage: cust_pkg.cgi pkgnum
# http://server.name/path/cust_pkg.cgi?pkgnum
#
-# Note: Should be run setuid freeside as user nobody.
-#
# ivan@voicenet.com 96-dec-15
#
# services section needs to be cleaned up, needs to display extraneous
# no FS::Search ivan@sisd.com 98-mar-7
#
# $Log: cust_pkg.cgi,v $
-# Revision 1.7 1999-01-19 05:14:20 ivan
+# 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/;
#
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct.cgi,v 1.7 1999-01-19 05:14:21 ivan Exp $
+# $Id: svc_acct.cgi,v 1.8 1999-02-28 00:04:02 ivan Exp $
#
# Usage: svc_acct.cgi svcnum
# http://server.name/path/svc_acct.cgi?svcnum
#
-# Note: Should be run setuid freeside as user nobody.
-#
# ivan@voicenet.com 96-dec-17
#
# added link to send info
# displays arbitrary radius attributes ivan@sisd.com 98-aug-16
#
# $Log: svc_acct.cgi,v $
-# Revision 1.7 1999-01-19 05:14:21 ivan
+# 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/;
#
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct_sm.cgi,v 1.8 1999-02-09 09:23:00 ivan Exp $
+# $Id: svc_acct_sm.cgi,v 1.9 1999-02-28 00:04:03 ivan Exp $
#
# Usage: svc_acct_sm.cgi svcnum
# http://server.name/path/svc_acct_sm.cgi?svcnum
#
-# Note: Should be run setuid freeside as user nobody.
-#
# based on view/svc_acct.cgi
#
# ivan@voicenet.com 97-jan-5
# /var/spool/freeside/conf/domain ivan@sisd.com 98-jul-17
#
# $Log: svc_acct_sm.cgi,v $
-# Revision 1.8 1999-02-09 09:23:00 ivan
+# 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
#!/usr/bin/perl -Tw
#
-# $Id: svc_domain.cgi,v 1.7 1999-02-23 08:09:25 ivan Exp $
+# $Id: svc_domain.cgi,v 1.8 1999-02-28 00:04:04 ivan Exp $
#
# Usage: svc_domain svcnum
# http://server.name/path/svc_domain.cgi?svcnum
#
-# Note: Should be run setuid freeside as user nobody.
-#
# ivan@voicenet.com 97-jan-6
#
# rewrite ivan@sisd.com 98-mar-14
# bmccane@maxbaud.net 98-apr-3
#
# $Log: svc_domain.cgi,v $
-# Revision 1.7 1999-02-23 08:09:25 ivan
+# 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