#!/usr/bin/perl # edit.cgi # Display a form for editing or creating a table entry require './shorewall-lib.pl'; &ReadParse(); &get_clean_table_name(\%in); &can_access($in{'table'}) || &error($text{'list_ecannot'}); if ($in{'new'}) { &ui_print_header(undef, $text{$in{'tableclean'}."_create"}, ""); if ($in{'before'} ne '') { $msg = &text('edit_before', $in{'before'}+1); } elsif ($in{'after'} ne '') { $msg = &text('edit_after', $in{'after'}+1); } print "