PAL.C.T MINI SHELL
#!/usr/bin/perl
# Deletes several active routes
require './net-lib.pl';
$access{'routes'} || &error($text{'routes_ecannot'});
&ReadParse();
&error_setup($text{'routes_derr'});
@d = split(/\0/, $in{'d'});
@d || &error($text{'routes_denone'});
@routes = &list_routes();
foreach $d (sort { $b <=> $a } @d) {
$err = &delete_route($routes[$d]);
&error($err) if ($err);
}
&webmin_log("delete", "routes", scalar(@d));
&redirect("list_routes.cgi?mode=active");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`