63 lines
1.5 KiB
Plaintext
63 lines
1.5 KiB
Plaintext
|
#!/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>
|