X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htdocs%2Fview%2Fsvc_acct.cgi;h=e658d2bb8675b0059b0182a69cce59a18608c097;hb=4013e8c540af6a8c41f9a95dd72be87198239dba;hp=e48878c4262814c39387646255f34703d370b5aa;hpb=7678d3ee6ea69741060539ab79946555228a07e5;p=freeside.git diff --git a/htdocs/view/svc_acct.cgi b/htdocs/view/svc_acct.cgi index e48878c42..e658d2bb8 100755 --- a/htdocs/view/svc_acct.cgi +++ b/htdocs/view/svc_acct.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: svc_acct.cgi,v 1.2 1998-12-16 05:24:29 ivan Exp $ +# $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 @@ -35,27 +35,33 @@ # displays arbitrary radius attributes ivan@sisd.com 98-aug-16 # # $Log: svc_acct.cgi,v $ -# Revision 1.2 1998-12-16 05:24:29 ivan +# 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); -use CGI::Base qw(:DEFAULT :CGI); +use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); use FS::Record qw(qsearchs fields); use FS::Conf; +my($cgi) = new CGI; +&cgisuidsetup($cgi); + $conf = new FS::Conf; my $mydomain = $conf->config('domain'); -my($cgi) = new CGI::Base; -$cgi->get; -&cgisuidsetup($cgi); - #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; @@ -71,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!;