diff options
| author | Florent Villard <warly@mandriva.com> | 2003-10-20 10:51:59 +0000 |
|---|---|---|
| committer | Florent Villard <warly@mandriva.com> | 2003-10-20 10:51:59 +0000 |
| commit | 306951e28791b261f894a8b71255b4c45d105661 (patch) | |
| tree | 9fa88f156c8a6fa200986dc52b42ab43047e81f6 /web_wizard/scripts/mytest.pl | |
| parent | eacbbd06a147d56f4edfaf008cc667b55577b3be (diff) | |
| download | drakwizard-306951e28791b261f894a8b71255b4c45d105661.tar drakwizard-306951e28791b261f894a8b71255b4c45d105661.tar.gz drakwizard-306951e28791b261f894a8b71255b4c45d105661.tar.bz2 drakwizard-306951e28791b261f894a8b71255b4c45d105661.tar.xz drakwizard-306951e28791b261f894a8b71255b4c45d105661.zip | |
change copyright
remove old xml related files
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 $_; -} - |