[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.1 and 1.3

version 1.1, 2007/02/07 16:55:12 version 1.3, 2007/02/07 17:44:56
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # $RedRiver$  # $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 13 
Line 13 
 use strict;  use strict;
 use warnings;  use warnings;
   
 my $host_file = '/conf/wstationinfo/hosts.xml';  my $host_file = 'su.yaml';
   
 my $default_mac  = '0001DE';  my $default_mac  = '0001DE';
 my $default_suid = 'all';  my $default_suid = 'all';
Line 22 
Line 22 
 my $Start_SUID = 3;  my $Start_SUID = 3;
   
 use CGI qw/:standard/;  use CGI qw/:standard/;
 use XML::Simple;  use File::Basename;
   use YAML qw/ LoadFile /;
 use Net::Telnet::Trango;  use Net::Telnet::Trango;
   
 use File::Basename;  
   
 my $me = basename($0);  my $me = basename($0);
   
   my $aps = get_aps($host_file);
   
 print header,  print header,
       start_html('Trango SU Utilities'),        start_html('Trango SU Utilities'),
       h1('Trango SU Utilities');        h1('Trango SU Utilities');
   
 my $aps = get_aps($host_file);  
   
 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 71 
Line 70 
   
 sub get_aps  sub get_aps
 {  {
         my $file = shift;      my $file = shift;
   
         my $conf = Read_Hosts($file);      my $conf = LoadFile($file);
   
         my %aps;      my %aps;
   
         foreach my $ap (@{ $conf }) {      foreach my $ap (keys %{ $conf }) {
                 if ($ap->{'group'} eq 'Trango') {          next if $ap eq 'default';
                         my $name = $ap->{'comment'} || $ap->{'name'};          $aps{ $ap } = $conf->{$ap};
                         $aps{ $name } = $ap;          if (ref $conf->{default} eq 'HASH') {
                 }              foreach my $k (keys %{ $conf->{default} }) {
         }                  $aps{ $ap }{$k} ||= $conf->{default}->{$k};
               }
           }
       }
   
         return \%aps;      return \%aps;
   
         return {      return {
                 'rrlhcwap0000' => {          'rrlhcwap0000' => {
                         group   => 'Trango',              name     => '192.168.1.1',
                         version => 1,              password => 'trango',
                         name    => '192.168.1.1',          }
                         port    => 161,      };
                         Read_Community => 'private',  
                         Write_Community => 'private',  
                 }  
         };  
   
 }  }
   
 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->{'Telnet_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'}' with SUID '$su->{'suid'}'");              print h3("MAC '$sumac' already in AP '$ap->{name}' " .
                         $t->exit;                "with SUID '$su->{suid}'");
                         $t->close;              $t->exit;
                         return undef;              $t->close;
                 }              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->{'Telnet_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;  
 }  
   
 sub Read_Hosts  
 {  
     my $file = shift;  
     my $xs = XML::Simple->new();  
   
         my %Default_SNMP = (  
         Read_Community => 'public',  
                 Telnet_Password => 'password',  
         port => 161,  
         version => 1,  
         );  
   
     my @hosts;  
     my $hosts = $xs->XMLin($file,  
         keyattr => [ 'Station' ],  
         ForceArray => qr/^Host$/,  
     );  
   
     foreach my $group (keys %{ $hosts }) {  
         next if $group eq 'Read_Community';  
   
         foreach my $host (@{ $hosts->{$group}->{Host} }) {  
             foreach my $item ('Read_Community', 'Telnet_Password', 'port', 'version') {  
                 $host->{$item} =  
                     $host->{$item} ||  
                     $hosts->{$group}->{$item} ||  
                     $hosts->{$item} ||  
                     $Default_SNMP{$item};  
             }  
             $host->{group} = $group;  
   
             push @hosts, $host;  
         }  
     }      }
   
     return \@hosts;      return $next_id;
 }  }
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>