qmailadmin/save_defroute.cgi

   1 #!/usr/local/bin/perl
   2 # save_defroute.cgi
   3 # Save the default route
   4
   5 require './qmail-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'rsave_err'});
   8 @routes = &list_routes();
   9 $old = $routes[$in{'idx'}] if ($in{'idx'} ne '');
  10
  11 if ($old && $in{'direct'}) {
  12         &delete_route($old);
  13         }
  14 else {
  15         &to_ipaddress($in{'defroute'}) || &to_ip6address($in{'defroute'}) ||
  16                 &error(&text('rsave_eto', $in{'defroute'}));
  17         if ($old) {
  18                 &modify_route($old, { 'from' => '',
  19                                       'to' => $in{'defroute'} } );
  20                 }
  21         else {
  22                 &create_route({ 'from' => '',
  23                                 'to' => $in{'defroute'} } );
  24                 }
  25         }
  26 &webmin_log("defroute", undef, undef, \%in);
  27 &redirect("list_routes.cgi");
  28