saprouter/ 0040755 0000000 0000002 00000000000 11623147373 0012702 5 ustar 00root bin 0000000 0000000 saprouter/category_status.pl 0000755 0000000 0000002 00000004113 11532712301 0016441 0 ustar 00root bin 0000000 0000000 # Show status $cmd = &saprouter_cmd(); $cmd .= " -l 2>&1"; $out = `$cmd`; $out =~ /SAP Network Interface Router, Version\s*(.*)/; $version = $1; print "
$text{'status_version'} | \n"; print "$version | \n"; print "\n"; print " | ||||
$text{'status_running'} | \n"; print "||||||
\n"; print " | \n"; print " | \n"; print " | ||||
\n"; print " | \n"; print " | \n"; print " | ||||
\n"; print " | \n"; print " | \n"; print " | ||||
\n"; print " | \n"; print " | \n"; } else { print " | $text{'status_not_running'} | \n"; print ""; print " | "; } print " |
\n"; } else { print "
"; $out = `$config{'saprouter_path'}`; print "$out"; print ""; } print "
\n";
}
elsif (!-r $config{'logfile_path'}) {
print "
";
print &text('logfile_epath', "$config{'logfile_path'}",
"/config.cgi?$module_name"),"
\n"; } else { if (!$config{'logfile_lines'}) { $logfile = "$config{'logfile_path'}"; } else { $logfile = "tail -n $config{'logfile_lines'} $config{'logfile_path'} |"; } print "
$text{'logfile_date'} | \n"; print "$text{'logfile_time'} | \n"; print "$text{'logfile_event'} | \n"; print "$text{'logfile_host'} | \n"; print "$text{'logfile_service'} | \n"; print "|||
$wl0[1] $wl0[2] $wl0[4] | \n"; print "$wl0[3] | \n"; print "$event | \n"; if ($l[1] eq "") { print "$wl1[2] $wl1[3] | \n"; } if ($l[2] eq "") { print "$wl2[2] | \n"; } if ($l[3] ne "") { print "$l[3] | \n"; } print "
\n"; print " |
\n"; } footer("/$module_name/", $text{'index'}); saprouter/category_connections.pl 0000755 0000000 0000002 00000002403 07231600336 0017445 0 ustar 00root bin 0000000 0000000 # List connections $n = list_connections(); if ($n < 0) { print "
$text{'connections_id'} | \n"; print "$text{'connections_client'} | \n"; print "$text{'connections_partner'} | \n"; print "$text{'connections_service'} | \n"; print "
%s | \n", $connection{$i,"id"}, $connection{$i,"id"}; printf "%s \n", $connection{$i,"client"}; printf " %s | \n", $connection{$i,"client_ip"};
printf " %s \n", $connection{$i,"partner"}; printf " %s | \n", $connection{$i,"partner_ip"};
printf " %s \n", $connection{$i,"service"}; printf " %s | \n", $connection{$i,"service_nr"};
print "
\n" } 1; saprouter/routtab.cgi 0000755 0000000 0000002 00000000560 11620475222 0015040 0 ustar 00root bin 0000000 0000000 #!/usr/local/bin/perl # routtab.cgi # Create the SAProuttab require './saprouter-lib.pl'; &ReadParse(); $whatfailed = "$text{'routtab_ecreate'}"; if ($in{routtab}) { $cmd = "touch $in{routtab} 2>&1"; $out = `$cmd`; if ($out) { &error("$in{routtab}"); } } else { &error("$text{'routtab_efilename'}"); } &redirect("index.cgi?saprouter_cat=routtab"); saprouter/index.cgi 0000755 0000000 0000002 00000003177 11620475222 0014476 0 ustar 00root bin 0000000 0000000 #!/usr/local/bin/perl # index.cgi require './saprouter-lib.pl'; %minfo = &get_module_info("$module_name"); $saprouter_cats = "routtab connections status logfile tracefile"; # check for the executable if (!-x $config{'saprouter_path'}) { &header($text{'index_title'}, "", $text{'help'}, 1, 1); print "
\n"; print &text('index_erouter', "$config{'saprouter_path'}", "/config.cgi?$module_name"),"
\n"; print "
\n"; print &text('index_erouttab', "$config{'routtab_path'}", "/config.cgi?$module_name", "routtab.cgi?routtab=$config{'routtab_path'}"),"
\n"; print "
$out"); } $cmd = &saprouter_cmd(); $cmd .= " -l 2>&1"; $out = `$cmd`; if ($out !~ /ERROR/) { &error("$text{'stop_eunknown'}"); } &redirect("index.cgi?saprouter_cat=status"); saprouter/LICENSE 0000755 0000000 0000002 00000004716 07227561342 0013717 0 ustar 00root bin 0000000 0000000
############################################################################### # # # SAProuter module for Webmin to manage the router/proxy SAProuter for SAP # # # # Copyright (C) 2000 Gerhard Klein # # # # This program is free software; you can redistribute it and/or # # modify it under the terms of the GNU General Public License # # as published by the Free Software Foundation; either version 2 # # of the License, or (at your option) any later version. # # # # This program is distributed in the hope that it will be useful, # # but WITHOUT ANY WARRANTY; without even the implied warranty of # # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # # GNU General Public License for more details. # # # # You should have received a copy of the GNU General Public License # # along with this program; if not, write to the Free Software # # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # # # # # Contact information: # # # # email: Gerhard@Klein-home.de # # # # Snail mail: Gerhard Klein # # Braunenbergweg 1 # # 89537 Giengen # # Germany # # # ############################################################################### saprouter/flush_buffers.cgi 0000755 0000000 0000002 00000000431 11620475222 0016212 0 ustar 00root bin 0000000 0000000 #!/usr/local/bin/perl # flush_buffers.cgi # Flush buffers require './saprouter-lib.pl'; $whatfailed = "$text{'flush_ebuffers'}"; $cmd = &saprouter_cmd(); $cmd .= " -f 2>&1"; $out = `$cmd`; if ($out =~ /ERROR/) { &error("$out"); } &redirect("index.cgi?saprouter_cat=status"); saprouter/category_routtab.pl 0000755 0000000 0000002 00000007266 11624443312 0016617 0 ustar 00root bin 0000000 0000000 # List saprouttab $n = &list_routtab(); if ($n eq 0) { print "$text{'routtab_none'}\n"; } else { print "
$text{'routtab_insert'} | \n"; print "$text{'routtab_move'} | \n"; print "$text{'routtab_type'} | \n"; print "$text{'routtab_access'} | \n"; print "$text{'routtab_from'} | \n"; print "$text{'routtab_to'} | \n"; print "$text{'routtab_service'} | \n"; print "$text{'routtab_password'} | \n"; print "$text{'routtab_linecomment'} | \n"; print "||||||||
"; print ""; print ""; print ""; print " | \n"; print ""; if ( $i > 1 ) { print ""; print ""; } else { print ""; } print ""; if ($i < $n) { print ""; print ""; } else { print ""; } print " | "; print "";
if ($routtab{$i,"type"} eq "##") {
print " ";
print "$text{'routtab_comment'}";
print "";
}
else {
print "\n
| \n";
if ($routtab{$i,"type"} eq "##") {
printf " %s | \n",$routtab{$i,"comment"} ne "" ? $routtab{$i,"comment"} : "-"; } else { printf "%s | \n", $routtab{$i,"access"} ne "" ? $routtab{$i,"access"} : "-"; printf "%s | \n", $routtab{$i,"from"} ne "" ? $routtab{$i,"from"} : "-"; printf "%s | \n", $routtab{$i,"to"} ne "" ? $routtab{$i,"to"} : "-"; printf "%s | \n", $routtab{$i,"service"} ne "" ? $routtab{$i,"service"} : "-"; printf "%s | \n", $routtab{$i,"password"} ne "" ? "$text{'yes'}" : "$text{'no'}"; printf "%s | \n", $routtab{$i,"linecomment"} ne "" ? $routtab{$i,"linecomment"} : "-"; } print "
\n";
1;
saprouter/images/ 0040755 0000000 0000002 00000000000 11624402665 0014146 5 ustar 00root bin 0000000 0000000 saprouter/images/rc1.gif 0000755 0000000 0000002 00000000053 07050242305 0015306 0 ustar 00root bin 0000000 0000000 GIF87a ,
D~ ; saprouter/images/icon.gif 0000755 0000000 0000002 00000001016 06673426127 0015571 0 ustar 00root bin 0000000 0000000 GIF89a0 0 999 UUUrrr!Made with GIMP , 0 0 I8ͻ`(dihl+pǚ0σ5qB s(sph
e35* aJK`i z)6 ꕫRWm JHq[Tb~a K[d|G<=/fm qFQoFOcM?{OdJ >t3|]Jxc gJk kAkȰSlB|NA B Zd $܉Vg$I$t˗0ol< yo`[Op
^J/0 ,W<k1YE(zqlMSu4!Ĭ
!h rJL3 jA'JkfH"$ Qr /51 ȥP0c˞M۸sލ; ; saprouter/images/rc2.gif 0000755 0000000 0000002 00000000053 07050242305 0015307 0 ustar 00root bin 0000000 0000000 GIF87a ,
D~ ; saprouter/images/gap.gif 0000755 0000000 0000002 00000000111 07040636250 0015370 0 ustar 00root bin 0000000 0000000 GIF89a !Made with GIMP !
, ڋ> ; saprouter/images/insert.gif 0000755 0000000 0000002 00000001551 07041327601 0016134 0 ustar 00root bin 0000000 0000000 GIF89a rrr g u p . g i f D Gw ) " H ,wE ) " H D e @[ @` # 3 2 7 7 1 Y w< L w / $ ,w`w TGw x C ( * P ( `P vHwLwH Y Rvw {w . PW M S P h mwuwnwD w8 w$ Nw8 ,w`w LwH D w D / ( * d Dw(w |E D ,yb ,yb ,yb g up.g H (w D 8nH C TQ MnH `C ! , @F H@*\8|H0"ł&dQ~`$A&eȎ
IeI
S4I1 ; saprouter/images/lc1.gif 0000755 0000000 0000002 00000000052 07050242273 0015303 0 ustar 00root bin 0000000 0000000 GIF87a , Π\ ; saprouter/images/up.gif 0000755 0000000 0000002 00000000147 07040636231 0015255 0 ustar 00root bin 0000000 0000000 GIF89a rrr !Made with GIMP !
, &
|'Io|b%eRG;Ssf ; saprouter/images/lc2.gif 0000755 0000000 0000002 00000000052 07050242274 0015305 0 ustar 00root bin 0000000 0000000 GIF87a , Π\ ; saprouter/images/down.gif 0000755 0000000 0000002 00000000154 07040636242 0015600 0 ustar 00root bin 0000000 0000000 GIF89a rrr !Made with GIMP !
, +@"IUieJbAIm.dN ; saprouter/images/start.gif 0000755 0000000 0000002 00000000414 11624423317 0015765 0 ustar 00root bin 0000000 0000000 GIF89a D(_>V}R(WeAN/qI/g>&wMT\ZYzOI,iDmG%OtK6t!毎#L! , ydizl+I ]wv# :D ɰlNQi(-+Pґʦ2d
\teR(h8uT|@_i}#
h{
#*'')! ; saprouter/images/stop.gif 0000755 0000000 0000002 00000000402 11624423322 0015606 0 ustar 00root bin 0000000 0000000 GIF89a ttxxcc__mmjjy''UUjj^^j88//zFFVVooYee;;_??ww\\SSgBB! , '~^izcJFN zFCHc
00<_($ #>ij
t_.wz -{8xwprUz>
=$3
S*$'%! ; saprouter/images/calendar.gif 0000755 0000000 0000002 00000000374 11624424037 0016406 0 ustar 00root bin 0000000 0000000 GIF87a 0H`0h`x0 pP8PhphphP`pЀh ! , v'dihJ^ETq`2vY<!Mc8LFz&iz8x:@#.tS {-mcw