From 306951e28791b261f894a8b71255b4c45d105661 Mon Sep 17 00:00:00 2001
From: Florent Villard <warly@mandriva.com>
Date: Mon, 20 Oct 2003 10:51:59 +0000
Subject: change copyright remove old xml related files

---
 web_wizard/scripts/mytest.pl | 28 ----------------------------
 1 file changed, 28 deletions(-)
 delete mode 100755 web_wizard/scripts/mytest.pl

(limited to 'web_wizard/scripts/mytest.pl')

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 $_;
-}
-    
-- 
cgit v1.2.1