#!/usr/local/bin/perl # edit_policy.cgi # Display entries from a policy file for editing require './ipsec-lib.pl'; &ReadParse(); &ui_print_header(undef, $text{'policy_desc_'.$in{'policy'}} || &text('policy_desc', $in{'policy'}), ""); # Show explanation of this policy print $text{'policy_longdesc_'.$in{'policy'}} || &text('policy_longdesc', $in{'policy'}),"
\n"; print "
\n"; &ui_print_footer("", $text{'index_return'});