1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
#! /usr/bin/perl -w
use strict;
use warnings;
use CGI;
use DBI;
use Classes::Filter;
use Classes::User;
package main;
require 'Functions/config.pl';
require 'Functions/db.pl';
require 'Functions/parser.pl';
require 'Functions/web.pl';
require 'Functions/FilterList.pl';
require 'Functions/encode.pl';
require 'Functions/FakeFunctions.pl';
our $CurUser = User->new()->auth();
our %conf = (); # configuration directives
our $cgi = ''; # CGI data
LoadConfig();
print "Pragma: no-cache\n";
print "Expires: -1\n";
print "Cache-Control: no-cache\n";
print "Content-Type: text/html\n\n";
# Open the DB connection :
our $dbh = DB_Open();
# Import CGI parameters :
$cgi = CGI->new();
our $PageTitle = ' - Filters List';
ParseComponent( 'CommonHeader' );
ParseComponent( 'Links' );
if ( $cgi->param( 'del' ) ) { DeleteFilterFile( $cgi->param( 'del' ) );};
print "<a href=\"Filters$conf{'extension'}?mode=edit\">Hand made filter</a><br><br>\n";
print "<b>Filters available :</b><br><br>\n";
print "<table class=\"bordered\" width=\"90%\" align=\"center\" border=\"1\">\n";
local *DIRECTORY;
opendir( DIRECTORY, 'generated/Filters/' );
foreach my $DirEntry ( sort readdir( DIRECTORY ) )
{
if ( $DirEntry =~ m/^(.*)\.flt$/ )
{
my $FilterName = $1;
my $Filter = Filter->new();
$Filter->load( 'generated/Filters/'.$FilterName.'.flt' );
my $TotalResultNb = $Filter->count();
my $Bad = 0;
if ( ! defined( $TotalResultNb ) ) { $Bad = 1; };
print " <tr>";
print "<td valign=top><a href=\"FilterList$conf{'extension'}?del=".url_encode( $FilterName )."\">del</a></td>";
print "<td valign=top><a href=\"Filters$conf{'extension'}?mode=edit&load=".url_encode( $FilterName )."\">edit</a></td>";
print "<td valign=top align=right>".( $Bad?'<font color=red>bad</font>':$TotalResultNb ).'</td>';
print "<td valign=top>";
if ( ! $Bad )
{
print "<a href=\"Filters$conf{'extension'}?load=".url_encode( $FilterName )."\">";
}
print $FilterName;
if ( ! $Bad ) {print '</a>';};
print '</td>';
print '<td>'.( $Filter->comment() || ' ' ).'</td>';
print " </tr>\n";
}
}
closedir( DIRECTORY );
print "</table>\n";
ParseComponent( 'CommonFooter' );
|
