e-smith-proxy/root/etc/e-smith/web/functions/proxy

63 lines
1.5 KiB
XML

#!/usr/bin/perl -wT
# vim: ts=4 sw=4 et ft=xml ai:
#----------------------------------------------------------------------
# heading : Security
# description : Proxy settings
# navigation : 5000 5500
#----------------------------------------------------------------------
#----------------------------------------------------------------------
# copyright (C) 1999-2003 Mitel Networks Corporation
#----------------------------------------------------------------------
use strict;
use CGI;
use esmith::FormMagick::Panel::proxy;
eval {
my $q = CGI->new();
my $f = esmith::FormMagick::Panel::proxy->new();
$f->display();
};
if ($@)
{
print<<EOF;
<html>
<head><title>Fatal error caught</title></head>
<body bgcolor=\"#ffffff\">
<h3>Fatal error caught</h3>
<pre>
$@
</pre>
</body>
</html>
EOF
}
__DATA__
<form title="Proxy settings" header="/etc/e-smith/web/common/head.tmpl"
footer="/etc/e-smith/web/common/foot.tmpl">
<page
name="First"
post-event="change_settings()"
pre-event="print_status_message()">
<description>FIRST_PAGE_DESCRIPTION</description>
<field
id="http_proxy_status"
value="get_http_proxy_status()"
type="select"
options="'enabled' => 'ENABLED','disabled' => 'DISABLED'">
<description>HTTP_PROXY_STATUS_DESCRIPTION</description>
<label>HTTP_PROXY_STATUS_LABEL</label>
</field>
<subroutine src="show_smtp_proxy_status()" />
<subroutine src="print_button('SAVE')" />
</page>
</form>