squidclamav/squidclamav-6.2-cgi-it_IT.patch

53 lines
1.1 KiB
Diff
Raw Normal View History

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&ograve; 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;