#!/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>
