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 $_;
-}
-