#!/usr/bin/perl # status.cgi # Show the status require './shorewall-lib.pl'; &ui_print_header(undef, $text{'status_title'}, ""); print "<font size=-1><pre>"; open(STATUS, "$config{'shorewall'} status 2>&1 |"); while(<STATUS>) { print &html_escape($_); } close(STATUS); print "</pre></font>\n"; &ui_print_footer("", $text{'index_return'});