1#!/usr/local/bin/perl 2# down.cgi 3# Move a row in a table down 4 5require './shorewall6-lib.pl'; 6&ReadParse(); 7&can_access($in{'table'}) || &error($text{'list_ecannot'}); 8$pfunc = &get_parser_func(\%in); 9&lock_table($in{'table'}); 10&swap_table_rows($in{'table'}, $pfunc, $in{'idx'}, $in{'idx'}+1); 11&unlock_table($in{'table'}); 12&webmin_log('down', 'table', $in{'table'}); 13&redirect("list.cgi?table=$in{'table'}"); 14 15