From 8713aefb261a6574396bc11929f8d445360c5ffd Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Fri, 26 Jul 2002 09:21:20 +0000
Subject: first perl traduction

---
 proxy_wizard/scripts/Squidconf.pm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 proxy_wizard/scripts/Squidconf.pm

(limited to 'proxy_wizard/scripts')

diff --git a/proxy_wizard/scripts/Squidconf.pm b/proxy_wizard/scripts/Squidconf.pm
new file mode 100644
index 00000000..877d60d5
--- /dev/null
+++ b/proxy_wizard/scripts/Squidconf.pm
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+package Squidconf;
+require "__WIZ_HOME__/common/scripts/Vareqval.pm";
+require "__WIZ_HOME__/common/scripts/Varspaceval.pm";
+use MDK::Common;
+use strict;
+
+sub	do_it_squid {
+    my %mdk = Vareqval->get("/etc/sysconfig/mdk_serv");
+    $mdk{wiz_squid_defdir} = $ENV{wiz_squid_defdir};
+    $mdk{wiz_squid_level} = $ENV{wiz_squid_level};
+    Vareqval->commit("/etc/sysconfig/mdk_serv");
+    my $file="/etc/squid/squid.conf";
+    MDK::Common::cp_af($file, $file.".orig");
+    MDK::Common::cp_af("__WIZ_HOME__/proxy_wizard/scripts/squid.conf.default", $file);
+    %mdk = Varspaceval->get($file);
+# echo_debug "squid port  ${wiz_squid_port}"
+    $mdk{http_port} = $ENV{wiz_squid_port};
+# echo_debug "squid mem  ${wiz_squid_mem}"
+    $mdk{cache_mem} = "$ENV{wiz_squid_mem} MB";
+    my %mdk = Varspaceval->commit($file, \%mdk);
+# echo_debug "squid disk  ${wiz_squid_disk}"
+    $t = `grep -E "^[[:space:]]*cache_dir[[:space:]]+[a-z]+[[:space:]]+$ENV{wiz_squid_defdir}[[:space:]]+[0-9]+" $file`;
+    
+}
-- 
cgit v1.2.1