initial commit of file from CVS for e-smith-proxy on Wed 12 Jul 09:06:18 BST 2023

2023-07-12 09:06:18 +01:00
parent 1041715762
commit a376640216
68 changed files with 1794 additions and 2 deletions
--- a/root/etc/e-smith/web/functions/proxy
+++ b/root/etc/e-smith/web/functions/proxy
@@ -0,0 +1,62 @@
+#!/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>