Fehlerbereinigung beim URL-Filter

[ipfire-2.x.git] / config / urlfilter / makeconf.pl

diff --git a/config/urlfilter/makeconf.pl b/config/urlfilter/makeconf.pl
index 8a2e5428d52930c53459f90ee167b01756634c0c..91446116736bb1f71f40b846c8436815fd9c1a4e 100644 (file)
--- a/config/urlfilter/makeconf.pl
+++ b/config/urlfilter/makeconf.pl
@@ -51,109 +51,3 @@ system("touch $dbdir/custom/blocked/urls");
 print "\n";
 
 exit
-#!/usr/bin/perl
-
-$swroot="/var/ipfire";
-$logdir="/var/log/squidGuard";
-$dbdir="/var/ipfire/urlfilter/blacklists";
-
-print "Creating configuration file ";
-foreach $blacklist (<$dbdir/*>)
-{
-       if (-d $blacklist)
-       {
-               $lastslashpos = rindex($blacklist,"/");
-               $section = substr($blacklist,$lastslashpos+1);
-               push(@categories,$section);
-       }
-}
-open(FILE, ">$swroot/urlfilter/squidGuard.conf");
-print FILE "logdir $logdir\n";
-print FILE "dbhome $dbdir\n\n";
-foreach $category (@categories)
-{
-       print FILE "dest $category {\n";
-       if (-e "$dbdir/$category/domains") {
-               print FILE "    domainlist     $category\/domains\n";
-       }
-       if (-e "$dbdir/$category/urls") {
-               print FILE "    urllist        $category\/urls\n";
-       }
-       print FILE "}\n\n";
-}
-print FILE "acl {\n";
-print FILE "    default {\n";
-print FILE "        pass all\n";
-print FILE "    }\n";
-print FILE "}\n";
-close FILE;
-print "\n";
-
-print "Building blacklist databases ";
-system("$swroot/urlfilter/bin/prebuild.pl");
-print "\n";
-
-print "Creating custom directories ";
-mkdir("$dbdir/custom");
-mkdir("$dbdir/custom/allowed");
-mkdir("$dbdir/custom/blocked");
-system("touch $dbdir/custom/allowed/domains");
-system("touch $dbdir/custom/allowed/urls");
-system("touch $dbdir/custom/blocked/domains");
-system("touch $dbdir/custom/blocked/urls");
-print "\n";
-
-exit
-#!/usr/bin/perl
-
-$swroot="/var/ipfire";
-$logdir="/var/log/squidGuard";
-$dbdir="/var/ipfire/urlfilter/blacklists";
-
-print "Creating configuration file ";
-foreach $blacklist (<$dbdir/*>)
-{
-       if (-d $blacklist)
-       {
-               $lastslashpos = rindex($blacklist,"/");
-               $section = substr($blacklist,$lastslashpos+1);
-               push(@categories,$section);
-       }
-}
-open(FILE, ">$swroot/urlfilter/squidGuard.conf");
-print FILE "logdir $logdir\n";
-print FILE "dbhome $dbdir\n\n";
-foreach $category (@categories)
-{
-       print FILE "dest $category {\n";
-       if (-e "$dbdir/$category/domains") {
-               print FILE "    domainlist     $category\/domains\n";
-       }
-       if (-e "$dbdir/$category/urls") {
-               print FILE "    urllist        $category\/urls\n";
-       }
-       print FILE "}\n\n";
-}
-print FILE "acl {\n";
-print FILE "    default {\n";
-print FILE "        pass all\n";
-print FILE "    }\n";
-print FILE "}\n";
-close FILE;
-print "\n";
-
-print "Building blacklist databases ";
-system("$swroot/urlfilter/bin/prebuild.pl");
-print "\n";
-
-print "Creating custom directories ";
-mkdir("$dbdir/custom");
-mkdir("$dbdir/custom/allowed");
-mkdir("$dbdir/custom/blocked");
-system("touch $dbdir/custom/allowed/domains");
-system("touch $dbdir/custom/allowed/urls");
-system("touch $dbdir/custom/blocked/domains");
-system("touch $dbdir/custom/blocked/urls");
-print "\n";
-
-exit