Files
webmin/net/delete_routes.cgi
2014-08-03 12:07:08 -07:00

18 lines
464 B
Perl
Executable File

#!/usr/local/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");