%
my $conf = new FS::Conf;
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 $svc = $part_svc->svc;
die 'Empty domsvc for svc_acct.svcnum '. $svc_acct->svcnum
unless $svc_acct->domsvc;
my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $svc_acct->domsvc } );
die 'Unknown domain (domsvc '. $svc_acct->domsvc.
' for svc_acct.svcnum '. $svc_acct->svcnum. ')'
unless $svc_domain;
my $domain = $svc_domain->domain;
%>
<% if ( $custnum ) { %>
<%= header("View $svc account", menubar(
"View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
"Main menu" => $p,
)) %>
<%= include( '/elements/small_custview.html', $custnum, '', 1 ) %>
<% } else { %>
<%= header('Account View', menubar(
"Cancel this (unaudited) account" =>
"javascript:areyousure(\'${p}misc/cancel-unaudited.cgi?$svcnum\')",
"Main menu" => $p,
)) %>
<% } %>
<% if ( $part_svc->part_export_usage ) {
my $last_bill;
my %plandata;
if ( $cust_pkg ) {
#false laziness w/httemplate/edit/part_pkg... this stuff doesn't really
#belong in plan data
%plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); }
split("\n", $cust_pkg->part_pkg->plandata );
$last_bill = $cust_pkg->last_bill;
} else {
$last_bill = 0;
%plandata = ();
}
my $seconds = $svc_acct->seconds_since_sqlradacct( $last_bill, time );
my $hour = int($seconds/3600);
my $min = int( ($seconds%3600) / 60 );
my $sec = $seconds%60;
my $input = $svc_acct->attribute_since_sqlradacct(
$last_bill, time, 'AcctInputOctets'
) / 1048576;
my $output = $svc_acct->attribute_since_sqlradacct(
$last_bill, time, 'AcctOutputOctets'
) / 1048576;
%>
RADIUS session information
<%= ntable('#cccccc',2) %>