bin/svc-radius-attributes

   1 #!/usr/bin/perl
   2
   3 use FS::UID qw(adminsuidsetup);
   4 use FS::Record qw(qsearchs);
   5 use FS::svc_acct;
   6
   7 my $user = shift or die;
   8 adminsuidsetup $user;
   9
  10 my $svcnum = shift or die;
  11
  12 my $svc_acct = qsearchs('svc_acct', { 'svcnum' => $svcnum } );
  13
  14 my %reply = $svc_acct->radius_reply;
  15
  16 use Data::Dumper;
  17 print Dumper(\%reply);