← Back
Editing: save_defroute.cgi
#!/usr/bin/perl # save_defroute.cgi # Save the default route require './qmail-lib.pl'; &ReadParse(); &error_setup($text{'rsave_err'}); @routes = &list_routes(); $old = $routes[$in{'idx'}] if ($in{'idx'} ne ''); if ($old && $in{'direct'}) { &delete_route($old); } else { &to_ipaddress($in{'defroute'}) || &to_ip6address($in{'defroute'}) || &error(&text('rsave_eto', $in{'defroute'})); if ($old) { &modify_route($old, { 'from' => '', 'to' => $in{'defroute'} } ); } else { &create_route({ 'from' => '', 'to' => $in{'defroute'} } ); } } &webmin_log("defroute", undef, undef, \%in); &redirect("list_routes.cgi");
Save File
Cancel