53 lines
1.1 KiB
Diff
53 lines
1.1 KiB
Diff
|
diff -Nru squidclamav-6.2.orig//cgi-bin/clwarn.cgi.it_IT squidclamav-6.2/cgi-bin/clwarn.cgi.it_IT
|
||
|
|
--- squidclamav-6.2.orig//cgi-bin/clwarn.cgi.it_IT 1970-01-01 01:00:00.000000000 +0100
|
||
|
|
+++ squidclamav-6.2/cgi-bin/clwarn.cgi.it_IT 2011-04-27 17:14:05.743456514 +0200
|
||
|
|
@@ -0,0 +1,48 @@
|
||
|
|
+#!/usr/bin/perl
|
||
|
|
+use strict;
|
||
|
|
+
|
||
|
|
+use CGI;
|
||
|
|
+
|
||
|
|
+my $VERSION = '6.2';
|
||
|
|
+my $TITLE_VIRUS = "SquidClamAv $VERSION : Virus rilevato";
|
||
|
|
+
|
||
|
|
+my $cgi = new CGI;
|
||
|
|
+
|
||
|
|
+my $url = $cgi->param('url') || '';
|
||
|
|
+my $virus = $cgi->param('virus') || '';
|
||
|
|
+my $source = $cgi->param('source') || '';
|
||
|
|
+$source =~ s/\/-//;
|
||
|
|
+my $user = $cgi->param('user') || '';
|
||
|
|
+
|
||
|
|
+
|
||
|
|
+# Remove clamd infos
|
||
|
|
+$virus =~ s/stream: //;
|
||
|
|
+$virus =~ s/ FOUND//;
|
||
|
|
+
|
||
|
|
+
|
||
|
|
+print $cgi->header();
|
||
|
|
+
|
||
|
|
+print $cgi->start_html(-title => $TITLE_VIRUS);
|
||
|
|
+print qq{
|
||
|
|
+<h2 style="color: #FF0000">$TITLE_VIRUS</h2>
|
||
|
|
+<hr>
|
||
|
|
+<p>
|
||
|
|
+};
|
||
|
|
+print qq{
|
||
|
|
+L\'indirizzo URL richiesto $url <br>
|
||
|
|
+contiene il virus : $virus
|
||
|
|
+};
|
||
|
|
+
|
||
|
|
+print qq{
|
||
|
|
+<p>
|
||
|
|
+Il file non può essere scaricato.
|
||
|
|
+<p>
|
||
|
|
+Origine: $source / $user
|
||
|
|
+<p>
|
||
|
|
+<hr>
|
||
|
|
+Powered by <a href="http://squidclamav.darold.net/">SquidClamAv $VERSION</a>.
|
||
|
|
+};
|
||
|
|
+
|
||
|
|
+print $cgi->end_html();
|
||
|
|
+
|
||
|
|
+exit 0;
|