diff options
Diffstat (limited to 'web_wizard/scripts/mytest.pl')
-rwxr-xr-x | web_wizard/scripts/mytest.pl | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/web_wizard/scripts/mytest.pl b/web_wizard/scripts/mytest.pl deleted file mode 100755 index e13f3708..00000000 --- a/web_wizard/scripts/mytest.pl +++ /dev/null @@ -1,28 +0,0 @@ -#!/usr/bin/perl -use strict; - -open(FH, $ARGV[0]); - -my $that; - -if ($ENV{wiz_web_external} eq "1") { - $that = "all"; -} -elsif ($ENV{wiz_web_internal} eq "1") { - $that = $ip; -} -else { - $that = "localhost"; -} - - -while(<FH>) { - if( m/^[[:space:]]*<Directory \/home/s...m/^[[:space:]]*<\/Directory>/s ) { - s/^[[:space:]]*Allow .*$/Allow from $that/s; - } - if( m /^[[:space:]]*<Directory \/var\/www/s...m/^[[:space:]]*<\/Directory>/s ) { - s/^[[:space:]]*Allow .*$/Allow from $that/s; - } - print $_; -} - |