version 1.3, 2007/02/07 17:44:56 |
version 1.5, 2008/09/04 21:38:06 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver: su.cgi,v 1.2 2007/02/07 17:42:56 andrew Exp $ |
# $RedRiver: su.cgi,v 1.4 2007/02/07 19:25:21 andrew Exp $ |
######################################################################## |
######################################################################## |
# su.cgi *** a CGI for Trango SU utilities. |
# su.cgi *** a CGI for Trango SU utilities. |
# |
# |
# 2007.02.07 #*#*# andrew fresh <andrew@mad-techies.org> |
# 2007.02.07 #*#*# andrew fresh <andrew@mad-techies.org> |
######################################################################## |
######################################################################## |
# Copyright (C) 2007 by Andrew Fresh |
# Copyright (C) 2007 by Andrew Fresh |
# |
# |
# This program is free software; you can redistribute it and/or modify |
# This program is free software; you can redistribute it and/or modify |
# it under the same terms as Perl itself. |
# it under the same terms as Perl itself. |
######################################################################## |
######################################################################## |
use strict; |
use strict; |
|
|
|
|
my $host_file = 'su.yaml'; |
my $host_file = 'su.yaml'; |
|
|
my $default_mac = '0001DE'; |
my $default_mac = '0001DE'; |
my $default_suid = 'all'; |
my $default_suid = 'all'; |
my $default_cir = 256; |
my $default_cir = 256; |
my $default_mir = 9999; |
my $default_mir = 9999; |
my $Start_SUID = 3; |
my $Start_SUID = 3; |
|
|
use CGI qw/:standard/; |
use CGI qw/:standard/; |
use File::Basename; |
use File::Basename; |
use YAML qw/ LoadFile /; |
use YAML qw/ LoadFile Dump /; |
use Net::Telnet::Trango; |
use Net::Telnet::Trango; |
|
|
my $me = basename($0); |
my $me = basename($0); |
|
|
my $aps = get_aps($host_file); |
my $aps = get_aps($host_file); |
|
|
print header, |
print header, start_html('Trango SU Utilities'), h1('Trango SU Utilities'); |
start_html('Trango SU Utilities'), |
|
h1('Trango SU Utilities'); |
|
|
|
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 $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) { |
} |
testrflink($aps->{$AP}, $suid); |
elsif ( length $suid ) { |
} else { |
testrflink( $aps->{$AP}, $suid ); |
|
} |
|
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 { |
|
show_form($aps, $default_mac); |
|
} |
} |
|
else { |
|
show_form( $aps, $default_mac ); |
|
} |
|
|
|
|
print end_html; |
print end_html; |
|
|
|
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 }) { |
my @hosts; |
|
foreach my $ap ( keys %{$conf} ) { |
next if $ap eq 'default'; |
next if $ap eq 'default'; |
$aps{ $ap } = $conf->{$ap}; |
my $h = $conf->{$ap}; |
if (ref $conf->{default} eq 'HASH') { |
|
foreach my $k (keys %{ $conf->{default} }) { |
if ( $h->{name} |
$aps{ $ap }{$k} ||= $conf->{default}->{$k}; |
=~ /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.)(\d{1,3})-(\d{1,3})/ ) |
|
{ |
|
for ( $2 .. $3 ) { |
|
my %cur_host; |
|
foreach my $k ( keys %{$h} ) { |
|
$cur_host{$k} = $h->{$k}; |
|
} |
|
$cur_host{name} = $1 . $_; |
|
if ( !grep { $cur_host{name} eq $h->{name} } values %aps ) { |
|
my $ap_name = $ap . $_; |
|
$aps{$ap_name} = \%cur_host; |
|
} |
} |
} |
} |
} |
|
else { |
|
$aps{$ap} = $conf->{$ap}; |
|
push @hosts, $h; |
|
} |
} |
} |
|
|
|
if ( ref $conf->{default} eq 'HASH' ) { |
|
foreach my $ap ( keys %aps ) { |
|
foreach my $k ( keys %{ $conf->{default} } ) { |
|
$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( |
'AP: ', popup_menu(-name=>'AP', -values=>\@ap_names),br, |
start_form( -method => 'GET' ), |
'SUMAC: ', textfield( -name=>'sumac', -default=>$default_mac),br, |
'AP: ', |
'SUID: ', textfield( -name=>'suid', -default=>$default_suid),br, |
popup_menu( -name => 'AP', -values => \@ap_names ), |
|
br, |
|
'SUMAC: ', |
|
textfield( -name => 'sumac', -default => $default_mac ), |
|
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( |
'or fill in the SUID to run an rflinktest.'); |
'Fill in the SUMAC if you wish to add an SU ', |
|
'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 $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 ( |
$new_suid, 'reg', $default_cir, $default_mir, $sumac |
$t->sudb_add( $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; |
|
|
} |
} |
|
|
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; |
} |
} |
|
|
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="' |
'<a href="' . $me . '?' . |
. $me . '?' . 'AP=' |
'AP=' . $ap->{name} . '&' . |
. $ap->{name} . '&' . 'suid=' |
'suid=' . $new_suid . |
. $new_suid |
'">Test SU RFLink</a>' |
. '">Test SU RFLink</a>' ); |
); |
|
|
|
$t->exit; |
$t->exit; |
$t->close; |
$t->close; |
|
|
|
|
} |
} |
|
|
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!"); |
|
|
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( |
caption($ap->{name} . ': su testrflink ' . $suid), |
{ -border => 1, -cellspacing => 0, -cellpadding => 1 }, |
Tr({-align=>'CENTER', -valign=>'TOP'}, |
caption( $ap->{name} . ': su testrflink ' . $suid ), |
[ th(\@keys), @table ] |
Tr( { -align => 'CENTER', -valign => 'TOP' }, |
|
[ th( \@keys ), @table ] |
) |
) |
); |
); |
|
|
|
|
|
|
} |
} |
|
|
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; |