[BACK]Return to su.cgi CVS log [TXT][DIR] Up to [local] / trango / Net-Telnet-Trango / scripts

Diff for /trango/Net-Telnet-Trango/scripts/su.cgi between version 1.2 and 1.3

version 1.2, 2007/02/07 17:42:56 version 1.3, 2007/02/07 17:44:56
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # $RedRiver: su.cgi,v 1.1 2007/02/07 16:55:12 andrew Exp $  # $RedRiver: su.cgi,v 1.2 2007/02/07 17:42:56 andrew Exp $
 ########################################################################  ########################################################################
 # su.cgi *** a CGI for Trango SU utilities.  # su.cgi *** a CGI for Trango SU utilities.
 #  #
Line 23 
Line 23 
   
 use CGI qw/:standard/;  use CGI qw/:standard/;
 use File::Basename;  use File::Basename;
 use YAML qw/ LoadFile Dump /;  use YAML qw/ LoadFile /;
 use Net::Telnet::Trango;  use Net::Telnet::Trango;
   
 my $me = basename($0);  my $me = basename($0);
Line 36 
Line 36 
   
 if (param()) {  if (param()) {
   
         my $AP = param('AP');      my $AP = param('AP');
   
         unless (exists $aps->{$AP}) {      unless (exists $aps->{$AP}) {
                 print h3("AP '$AP' does not exist!");          print h3("AP '$AP' does not exist!");
                 print end_html;          print end_html;
                 exit;          exit;
         }      }
   
         my $sumac = param('sumac');      my $sumac = param('sumac');
   
         $sumac =~ s/[^0-9A-Fa-f]//g;      $sumac =~ s/[^0-9A-Fa-f]//g;
         $sumac = uc($sumac);      $sumac = uc($sumac);
   
         my $suid = param('suid');      my $suid = param('suid');
   
         if (length $sumac == 12) {      if (length $sumac == 12) {
                 add_su($aps->{$AP}, $sumac);          add_su($aps->{$AP}, $sumac);
         } elsif (length $suid) {      } elsif (length $suid) {
                 testrflink($aps->{$AP}, $suid);          testrflink($aps->{$AP}, $suid);
         } else {      } else {
                 print h3("Invalid SUID '$suid' and MAC '$sumac'");          print h3("Invalid SUID '$suid' and MAC '$sumac'");
                 show_form($aps, $default_mac);          show_form($aps, $default_mac);
         }      }
   
 } else {  } else {
         show_form($aps, $default_mac);      show_form($aps, $default_mac);
 }  }
   
   
Line 70 
Line 70 
   
 sub get_aps  sub get_aps
 {  {
         my $file = shift;      my $file = shift;
   
         my $conf = LoadFile($file);      my $conf = LoadFile($file);
   
         my %aps;      my %aps;
   
         foreach my $ap (keys %{ $conf }) {      foreach my $ap (keys %{ $conf }) {
                 next if $ap eq 'default';          next if $ap eq 'default';
                 $aps{ $ap } = $conf->{$ap};          $aps{ $ap } = $conf->{$ap};
                 if (ref $conf->{default} eq 'HASH') {          if (ref $conf->{default} eq 'HASH') {
                         foreach my $k (keys %{ $conf->{default} }) {              foreach my $k (keys %{ $conf->{default} }) {
                                 $aps{ $ap }{$k} ||= $conf->{default}->{$k};                  $aps{ $ap }{$k} ||= $conf->{default}->{$k};
                         }              }
                 }          }
         }      }
   
         return \%aps;      return \%aps;
   
         return {      return {
                 'rrlhcwap0000' => {          'rrlhcwap0000' => {
                         name     => '192.168.1.1',              name     => '192.168.1.1',
                         password => 'trango',              password => 'trango',
                 }          }
         };      };
   
 }  }
   
 sub show_form  sub show_form
 {  {
         my $aps  = shift;      my $aps  = shift;
   
         my %cache = ();      my %cache = ();
         my @ap_names = sort {      my @ap_names = sort {
                 my @a = $a =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;          my @a = $a =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
                 my @b = $b =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;          my @b = $b =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
   
                 if (@a) {          if (@a) {
                         $cache{$a} ||= pack('C4' => @a);              $cache{$a} ||= pack('C4' => @a);
                 } else {          } else {
                         $cache{$a} ||= lc($a);              $cache{$a} ||= lc($a);
                 }          }
                 if (@b) {          if (@b) {
                         $cache{$b} ||= pack('C4' => @b);              $cache{$b} ||= pack('C4' => @b);
                 } else {          } else {
                         $cache{$b} ||= lc($b);              $cache{$b} ||= lc($b);
                 }          }
   
                 $cache{$a} cmp $cache{$b};          $cache{$a} cmp $cache{$b};
         } keys %{ $aps };      } keys %{ $aps };
   
     print p(start_form(-method => 'GET'),      print p(start_form(-method => 'GET'),
                 'AP:    ', popup_menu(-name=>'AP',    -values=>\@ap_names),br,          'AP:    ', popup_menu(-name=>'AP',    -values=>\@ap_names),br,
             'SUMAC: ', textfield( -name=>'sumac', -default=>$default_mac),br,          'SUMAC: ', textfield( -name=>'sumac', -default=>$default_mac),br,
             'SUID:  ', textfield( -name=>'suid',  -default=>$default_suid),br,          'SUID:  ', textfield( -name=>'suid',  -default=>$default_suid),br,
         submit,          submit,
         end_form);          end_form);
   
         print p('Fill in the SUMAC if you wish to add an SU ',      print p('Fill in the SUMAC if you wish to add an SU ',
           'or fill in the SUID to run an rflinktest.');        'or fill in the SUID to run an rflinktest.');
   
         return 1;      return 1;
 }  }
   
 sub login  sub login
 {  {
         my $host     = shift;      my $host     = shift;
         my $password = shift;      my $password = shift;
   
         my $t = new Net::Telnet::Trango ( Timeout => 5 );      my $t = new Net::Telnet::Trango ( Timeout => 5 );
   
         #$t->input_log('/tmp/telnet_log');      #$t->input_log('/tmp/telnet_log');
         #$t->dump_log('/tmp/telnet_log');      #$t->dump_log('/tmp/telnet_log');
   
         unless ($t->open( Host => $host )) {      unless ($t->open( Host => $host )) {
                 print h3("Error connecting!");          print h3("Error connecting!");
                 $t->close;          $t->close;
                 return undef;          return undef;
         }      }
   
         unless ($t->login( $password ) ) {      unless ($t->login( $password ) ) {
                 print h3("Couldn't log in: $!");          print h3("Couldn't log in: $!");
                 $t->exit;          $t->exit;
                 $t->close;          $t->close;
                 return undef;          return undef;
         }      }
   
         return $t;      return $t;
 }  }
   
 sub add_su  sub add_su
 {  {
         my $ap  = shift;      my $ap  = shift;
         my $sumac = shift;      my $sumac = shift;
   
         my $t = login($ap->{name}, $ap->{password});      my $t = login($ap->{name}, $ap->{password});
   
         my $cur_sus = $t->sudb_view;      my $cur_sus = $t->sudb_view;
   
         my $new_suid = next_suid($cur_sus);      my $new_suid = next_suid($cur_sus);
   
         foreach my $su (@{ $cur_sus }) {      foreach my $su (@{ $cur_sus }) {
                 if ($sumac eq $su->{mac}) {          if ($sumac eq $su->{mac}) {
                         print h3("MAC '$sumac' already in AP '$ap->{name}' " .              print h3("MAC '$sumac' already in AP '$ap->{name}' " .
                           "with SUID '$su->{suid}'");                "with SUID '$su->{suid}'");
                         $t->exit;              $t->exit;
                         $t->close;              $t->close;
                         return undef;              return undef;
                 }          }
         }      }
   
         unless ($t->sudb_add(      unless ($t->sudb_add(
                 $new_suid, 'reg', $default_cir, $default_mir, $sumac          $new_suid, 'reg', $default_cir, $default_mir, $sumac
         ) ) {      ) ) {
                 print h3("Error adding SU!");          print h3("Error adding SU!");
                 $t->exit;          $t->exit;
                 $t->close;          $t->close;
                 return undef;          return undef;
         }      }
   
         my $new_sus = $t->sudb_view;      my $new_sus = $t->sudb_view;
         my $added = 0;      my $added = 0;
         foreach my $su (@{ $new_sus }) {      foreach my $su (@{ $new_sus }) {
                 if ($su->{suid} == $new_suid) {          if ($su->{suid} == $new_suid) {
                         $added = 1;              $added = 1;
                         last;              last;
                 }          }
         }      }
   
         unless ($added) {      unless ($added) {
                 print h3("Couldn't add su id: $new_suid");          print h3("Couldn't add su id: $new_suid");
                 $t->exit;          $t->exit;
                 $t->close;          $t->close;
                 return undef;          return undef;
         }      }
   
         unless ($t->save_sudb) {      unless ($t->save_sudb) {
                 print h3("Couldn't save sudb");          print h3("Couldn't save sudb");
                 $t->exit;          $t->exit;
                 $t->close;          $t->close;
                 return undef;          return undef;
         }      }
   
         print p(      print p(
                 "Added new SU with ID '$new_suid' " .          "Added new SU with ID '$new_suid' " .
                 "and MAC '$sumac' " .          "and MAC '$sumac' " .
                 "to '$ap->{name}'.  " .          "to '$ap->{name}'.  " .
                 '<a href="' . $me . '?' .          '<a href="' . $me . '?' .
                 'AP=' . $ap->{name} . '&' .          'AP=' . $ap->{name} . '&' .
                 'suid=' . $new_suid .          'suid=' . $new_suid .
                 '">Test SU RFLink</a>'          '">Test SU RFLink</a>'
         );      );
   
         $t->exit;      $t->exit;
         $t->close;      $t->close;
         return 1;      return 1;
   
 }  }
   
 sub testrflink  sub testrflink
 {  {
         my $ap  = shift;      my $ap  = shift;
         my $suid = shift;      my $suid = shift;
   
         my $t = login($ap->{name}, $ap->{password});      my $t = login($ap->{name}, $ap->{password});
   
         my $result = $t->su_testrflink( $suid );      my $result = $t->su_testrflink( $suid );
   
         unless ($result) {      unless ($result) {
                 print h3("Error testing SU rflink!");          print h3("Error testing SU rflink!");
                 $t->exit;          $t->exit;
                 $t->close;          $t->close;
                 return undef;          return undef;
         }      }
   
         my @keys = ('suid', 'AP Tx', 'AP Rx', 'SU Rx');      my @keys = ('suid', 'AP Tx', 'AP Rx', 'SU Rx');
   
         my @table;      my @table;
         foreach my $su (@{ $result }) {      foreach my $su (@{ $result }) {
                 next unless ref $su eq 'HASH';          next unless ref $su eq 'HASH';
                 next unless exists $su->{suid};          next unless exists $su->{suid};
                 $su->{suid} =~ s/\D//g;          $su->{suid} =~ s/\D//g;
                 next unless $su->{suid};          next unless $su->{suid};
   
                 push @table, td([ @{ $su }{ @keys } ]);          push @table, td([ @{ $su }{ @keys } ]);
         }      }
   
         print table({-border=>1,-cellspacing=>0,-cellpadding=>1},      print table({-border=>1,-cellspacing=>0,-cellpadding=>1},
                 caption($ap->{name} . ': su testrflink ' . $suid),          caption($ap->{name} . ': su testrflink ' . $suid),
                 Tr({-align=>'CENTER', -valign=>'TOP'},          Tr({-align=>'CENTER', -valign=>'TOP'},
                         [ th(\@keys), @table ]              [ th(\@keys), @table ]
                 )          )
         );      );
   
         $t->exit;      $t->exit;
         $t->close;      $t->close;
         return 1;      return 1;
   
 }  }
   
 sub next_suid  sub next_suid
 {  {
         my $sudb = shift;      my $sudb = shift;
   
         my $next_id = $Start_SUID;      my $next_id = $Start_SUID;
   
         my %ids = map { $_->{suid} => 1 } @{ $sudb };      my %ids = map { $_->{suid} => 1 } @{ $sudb };
   
         my $next_key = sprintf('%04d', $next_id);      my $next_key = sprintf('%04d', $next_id);
         while (exists $ids{$next_key}) {      while (exists $ids{$next_key}) {
                 $next_id++;          $next_id++;
                 $next_key = sprintf('%04d', $next_id);          $next_key = sprintf('%04d', $next_id);
         }      }
   
         return $next_id;      return $next_id;
 }  }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>