X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htdocs%2Fview%2Fsvc_acct.cgi;h=e658d2bb8675b0059b0182a69cce59a18608c097;hb=4013e8c540af6a8c41f9a95dd72be87198239dba;hp=7096c2fb11bf2c8860aed953e8d571ce10f3526c;hpb=064b8e729c8119a2f4d227745d0235ed09f26c3b;p=freeside.git diff --git a/htdocs/view/svc_acct.cgi b/htdocs/view/svc_acct.cgi index 7096c2fb1..e658d2bb8 100755 --- a/htdocs/view/svc_acct.cgi +++ b/htdocs/view/svc_acct.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# View svc_acct records +# $Id: svc_acct.cgi,v 1.4 1998-12-23 03:09:19 ivan Exp $ # # Usage: svc_acct.cgi svcnum # http://server.name/path/svc_acct.cgi?svcnum @@ -33,26 +33,35 @@ # /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.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 CGI::Base qw(:DEFAULT :CGI); +use vars qw($conf); +use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); use FS::Record qw(qsearchs fields); +use FS::Conf; -my($conf_domain)="/var/spool/freeside/conf/domain"; -open(DOMAIN,$conf_domain) or die "Can't open $conf_domain: $!"; -my($mydomain)=map { - /^(.*)$/ or die "Illegal line in $conf_domain!"; #yes, we trust the file - $1; -} grep $_ !~ /^(#|$)/, ; - -my($cgi) = new CGI::Base; -$cgi->get; +my($cgi) = new CGI; &cgisuidsetup($cgi); +$conf = new FS::Conf; +my $mydomain = $conf->config('domain'); + #untaint svcnum -$QUERY_STRING =~ /^(\d+)$/; +my($query) = $cgi->keywords; +$query =~ /^(\d+)$/; my($svcnum)=$1; my($svc_acct)=qsearchs('svc_acct',{'svcnum'=>$svcnum}); die "Unkonwn svcnum" unless $svc_acct; @@ -68,35 +77,26 @@ if ($pkgnum) { my($part_svc)=qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ); die "Unkonwn svcpart" unless $part_svc; -SendHeaders(); # one guess. -print < - - Account View - - -

Account View

- -
-END +print $cgi->header, header('Account View', ''); +my $p = popurl(2); if ($pkgnum || $custnum) { print <View this package (#$pkgnum) | -View this customer (#$custnum) | +View this package (#$pkgnum) | +View this customer (#$custnum) | END } else { print <Cancel this (unaudited)account | +Cancel this (unaudited)account | END } print <Main menu

+Main menu

Service #$svcnum END -print qq!
Edit this information!; +print qq!
Edit this information!; #print qq!
Send account information!; print qq!

General | Shell account | !; print qq!SLIP/PPP account!;