From 49ff463da29d3a86e9ca9fb58ddd41d14cdd8212 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Thu, 29 Jul 2004 04:53:03 +0000 Subject: fix missing visible_hostname in config file --- proxy_wizard/Squid.pm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/proxy_wizard/Squid.pm b/proxy_wizard/Squid.pm index e2687b33..04c97629 100755 --- a/proxy_wizard/Squid.pm +++ b/proxy_wizard/Squid.pm @@ -29,6 +29,8 @@ use services; use MDK::Wizard::Wizcommon; my $wiz = new MDK::Wizard::Wizcommon; +my $HOSTNAME = $wiz->{net}->network_get("HOSTNAME"); +if (!$HOSTNAME) { $HOSTNAME = chomp_(`hostname`) } my $df = -d '/var/spool/squid' ? `/bin/df -m /var/spool/squid` : `/bin/df -m /var/spool`; my ($free_disk) = $df =~ m/\d+\s+\d+\s+\d+\s+(\d+)/; my $mem = `/usr/bin/free -m`; @@ -274,6 +276,11 @@ level = $o->{var}{wiz_squid_level}"); } append_to_file($file, "cache_peer $o->{var}{wiz_squid_cachepeer} parent $o->{var}{wiz_squid_peerport} 3130"); } + + substInFile { + s|^visible_hostname.*|visible_hostname $HOSTNAME|; + } $file; + system("/sbin/chkconfig --level 345 squid on"); if (services::is_service_running('squid')) { services::restart('squid') -- cgit v1.2.1