--- libfile-scan-perl-1.43.orig/debian/libfile-scan-perl.install +++ libfile-scan-perl-1.43/debian/libfile-scan-perl.install @@ -0,0 +1 @@ +debian/update-libfile-scan-perl usr/sbin --- libfile-scan-perl-1.43.orig/debian/rules +++ libfile-scan-perl-1.43/debian/rules @@ -0,0 +1,20 @@ +#!/usr/bin/make -f + +PACKAGE=$(shell dh_listpackages) +TMP=$(CURDIR)/debian/$(PACKAGE) + +%: + dh --with quilt $@ + +override_dh_auto_build: + dh_auto_build --with quilt + pod2man --section=1 --release="Debian Project" --center="Debian GNU/Linux manual" debian/update-libfile-scan-perl debian/update-libfile-scan-perl.1 + +override_dh_auto_install: + dh_auto_install + mv $(TMP)/usr/share/perl5/File/virus-definitions.pm $(TMP)/var/lib/$(PACKAGE) + +override_dh_installexamples: + dh_installexamples + mv $(TMP)/usr/share/doc/$(PACKAGE)/examples/procmail/.procmailrc \ + $(TMP)/usr/share/doc/$(PACKAGE)/examples/procmail/procmailrc --- libfile-scan-perl-1.43.orig/debian/changelog +++ libfile-scan-perl-1.43/debian/changelog @@ -0,0 +1,181 @@ +libfile-scan-perl (1.43-2) unstable; urgency=low + + [ gregor herrmann ] + * Take over for the Debian Perl Group with maintainer's permission + (http://lists.debian.org/debian-perl/2008/06/msg00039.html) + * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser + field (source stanza); Homepage field (source stanza). Changed: + Maintainer set to Debian Perl Group (was: Florian Ragwitz + ); Florian Ragwitz moved to + Uploaders. + * debian/watch: use dist-based URL. + * Switch patch system from dpatch to quilt. + * Add debian/README.source to document quilt usage, as required by + Debian Policy since 3.8.0. + * debian/control: Changed: Switched Vcs-Browser field to ViewSVN + (source stanza). + * debian/control: Added: ${misc:Depends} to Depends: field. + + [ Ryan Niebur ] + * Remove Florian Ragwitz from Uploaders + * Close ITA (Closes: #523132) + + [ Nathan Handler ] + * debian/watch: Update to ignore development releases. + + [ Ansgar Burchardt ] + * Convert debian/copyright to proposed machine-readable format. + * Refresh debian/rules for debhelper 7. + * Bump Standards Version to 3.8.2. + * Add myself to Uploaders. + + -- Ansgar Burchardt Sun, 19 Jul 2009 17:54:04 +0200 + +libfile-scan-perl (1.43-1.1) unstable; urgency=low + + * Non-maintainer upload. + * Fix FTBFS with Perl 5.10. Closes: #467795 + + -- Mark Hymers Sat, 05 Apr 2008 21:08:59 +0100 + +libfile-scan-perl (1.43-1) unstable; urgency=low + + * New upstream release. + * Improved debian/copyright. + * Bumped up Standards-Version. + * Updated Maintainer field with my new mail address. + * Install the FAQ. + * Cleaned up debian/rules. + * Moved dpatch build-dep-indep to build-dep as it's needed in the clean + target. + + -- Florian Ragwitz Fri, 27 Jan 2006 06:49:50 +0100 + +libfile-scan-perl (1.42-1) unstable; urgency=low + + * New upstream release. + * Fixed update-libfile-scan-perl script (Closes: #298984). + + -- Florian Ragwitz Thu, 14 Apr 2005 14:30:58 +0200 + +libfile-scan-perl (1.38-1) unstable; urgency=low + + * New upstream release (Closes: #283477). + + -- Florian Ragwitz Wed, 15 Dec 2004 13:56:29 +0100 + +libfile-scan-perl (1.30-1) unstable; urgency=low + + * New upstream release. + * Moved virus definitions to external file. + * Added dpatch Build-Dep. + * Added update-libfile-scan-perl utility. + * Added libwww-perl depedency needed by the update util. + + -- Florian Ragwitz Tue, 21 Sep 2004 12:41:11 +0200 + +libfile-scan-perl (1.28-1) unstable; urgency=low + + * New maintainer. + * New upstream release (Closes: #271453). + + -- Florian Ragwitz Wed, 15 Sep 2004 06:10:25 +0200 + +libfile-scan-perl (1.14-1) unstable; urgency=low + + * New upstream release. + + -- Marc 'HE' Brockschmidt Fri, 28 May 2004 00:04:22 +0200 + +libfile-scan-perl (1.11-1) unstable; urgency=low + + * New upstream release. + + -- Marc 'HE' Brockschmidt Sun, 16 May 2004 00:36:29 +0200 + +libfile-scan-perl (1.08-1) unstable; urgency=low + + * New upstream release. + + -- Marc 'HE' Brockschmidt Fri, 30 Apr 2004 23:10:54 +0200 + +libfile-scan-perl (1.03-1) unstable; urgency=low + + * New upstream release. + + -- Marc 'HE' Brockschmidt Sun, 25 Apr 2004 19:48:12 +0200 + +libfile-scan-perl (1.01-1) unstable; urgency=low + + * New upstream release. + * debian/control: Correct maintainer field to match the one my other + packages use. + + -- Marc 'HE' Brockschmidt Sat, 10 Apr 2004 14:06:08 +0200 + +libfile-scan-perl (0.98-1) unstable; urgency=low + + * New upstream release. + + -- Marc 'HE' Brockschmidt Wed, 24 Mar 2004 18:31:43 +0100 + +libfile-scan-perl (0.93-1) unstable; urgency=low + + * New upstream release. + + -- Marc 'HE' Brockschmidt Sat, 6 Mar 2004 00:29:59 +0100 + +libfile-scan-perl (0.89-1) unstable; urgency=low + + * New upstream release. + + -- Marc 'HE' Brockschmidt Wed, 3 Mar 2004 14:07:19 +0100 + +libfile-scan-perl (0.86-1) unstable; urgency=low + + * New upstream release. + * debian/control: Reworded Description. + + -- Marc 'HE' Brockschmidt Sat, 28 Feb 2004 00:47:09 +0100 + +libfile-scan-perl (0.84-1) unstable; urgency=low + + * New upstream release. + * debian/control: I'm a DD now! :) + + -- Marc Brockschmidt Thu, 19 Feb 2004 00:48:07 +0100 + +libfile-scan-perl (0.82-1) unstable; urgency=low + + * New upstream release. + + -- Marc Brockschmidt Wed, 11 Feb 2004 21:45:28 +0100 + +libfile-scan-perl (0.79-1) unstable; urgency=low + + * New upstream release. + * debian/watch: Added. + * debian/rules: Cleaned up. + + -- Marc Brockschmidt Sat, 24 Jan 2004 09:57:59 +0100 + +libfile-scan-perl (0.76-1) unstable; urgency=low + + * New upstream release. + + -- Marc Brockschmidt Sat, 22 Nov 2003 15:30:05 +0100 + +libfile-scan-perl (0.69-1) unstable; urgency=low + + * New upstream release. + * debian/control: Moved debhelper dependency to Build-Depends. + + -- Marc Brockschmidt Thu, 23 Oct 2003 10:32:41 +0200 + +libfile-scan-perl (0.64-1) unstable; urgency=low + + * Initial Release. (Closes: #206019) + + -- Marc Brockschmidt Wed, 3 Sep 2003 18:16:58 +0200 + --- libfile-scan-perl-1.43.orig/debian/libfile-scan-perl.manpages +++ libfile-scan-perl-1.43/debian/libfile-scan-perl.manpages @@ -0,0 +1 @@ +debian/update-libfile-scan-perl.1 --- libfile-scan-perl-1.43.orig/debian/watch +++ libfile-scan-perl-1.43/debian/watch @@ -0,0 +1,3 @@ +version=3 + +http://search.cpan.org/dist/File-Scan/ .*/File-Scan-v?(\d[\d.]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip) --- libfile-scan-perl-1.43.orig/debian/README.Debian +++ libfile-scan-perl-1.43/debian/README.Debian @@ -0,0 +1,13 @@ +libfile-scan-perl for Debian +============================ + +In order to make this package ready for a stable release I needed to remove the +virus definitions from the module itself and put them somewhere else, where they +can be updated without the need of a new version of the libfile-scan-perl +package. + +Since version 1.30-1 the virus definitions can be found at +`/var/lib/libfile-scan-perl/virus-definitions.pm'. They may be easily updated +using the `update-libfile-scan-perl' utility. + + -- Florian Ragwitz Tue, 21 Sep 2004 12:27:08 +0200 --- libfile-scan-perl-1.43.orig/debian/dirs +++ libfile-scan-perl-1.43/debian/dirs @@ -0,0 +1,2 @@ +usr/sbin +var/lib/libfile-scan-perl --- libfile-scan-perl-1.43.orig/debian/libfile-scan-perl.examples +++ libfile-scan-perl-1.43/debian/libfile-scan-perl.examples @@ -0,0 +1 @@ +examples/* --- libfile-scan-perl-1.43.orig/debian/control +++ libfile-scan-perl-1.43/debian/control @@ -0,0 +1,20 @@ +Source: libfile-scan-perl +Section: perl +Priority: optional +Build-Depends: debhelper (>= 7), quilt (>= 0.46-7) +Build-Depends-Indep: perl (>= 5.8.0-7) +Maintainer: Debian Perl Group +Uploaders: Ansgar Burchardt +Standards-Version: 3.8.2 +Homepage: http://search.cpan.org/dist/File-Scan/ +Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libfile-scan-perl/ +Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libfile-scan-perl/ + +Package: libfile-scan-perl +Architecture: all +Depends: ${misc:Depends}, ${perl:Depends}, libwww-perl +Description: Perl module to scan files for viruses + The File::Scan module allows users to scan files for known viruses. + . + The purpose is to provide a basis for creating platform independent + virus scanners in Perl. --- libfile-scan-perl-1.43.orig/debian/copyright +++ libfile-scan-perl-1.43/debian/copyright @@ -0,0 +1,31 @@ +Format-Specification: + http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196 +Upstream-Maintainer: Henrique M. Ribeiro Dias +Upstream-Source: http://search.cpan.org/dist/File-Scan/ +Upstream-Name: File-Scan + +Files: * +Copyright: © 2005, Henrique Dias +License-Alias: Perl +License: Artistic | GPL-1+ + +Files: debian/* +Copyright: + © 2003-2004, Marc 'HE' Brockschmidt + © 2004-2006, Florian Ragwitz + © 2009, Ansgar Burchardt +License: Artistic | GPL-1+ + +License: Artistic + This program is free software; you can redistribute it and/or modify + it under the terms of the Artistic License, which comes with Perl. + On Debian GNU/Linux systems, the complete text of the Artistic License + can be found in `/usr/share/common-licenses/Artistic' + +License: GPL-1+ + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 1, or (at your option) + any later version. + On Debian GNU/Linux systems, the complete text of the GNU General + Public License can be found in `/usr/share/common-licenses/GPL' --- libfile-scan-perl-1.43.orig/debian/compat +++ libfile-scan-perl-1.43/debian/compat @@ -0,0 +1 @@ +7 --- libfile-scan-perl-1.43.orig/debian/README.source +++ libfile-scan-perl-1.43/debian/README.source @@ -0,0 +1,5 @@ +This package uses quilt to manage all modifications to the upstream +source. Changes are stored in the source package as diffs in +debian/patches and applied during the build. + +See /usr/share/doc/quilt/README.source for a detailed explanation. --- libfile-scan-perl-1.43.orig/debian/libfile-scan-perl.docs +++ libfile-scan-perl-1.43/debian/libfile-scan-perl.docs @@ -0,0 +1,4 @@ +TODO +README +FAQ +docs/write_sign_bin.txt --- libfile-scan-perl-1.43.orig/debian/clean +++ libfile-scan-perl-1.43/debian/clean @@ -0,0 +1 @@ +debian/update-libfile-scan-perl.1 --- libfile-scan-perl-1.43.orig/debian/update-libfile-scan-perl +++ libfile-scan-perl-1.43/debian/update-libfile-scan-perl @@ -0,0 +1,131 @@ +#!/usr/bin/perl +# +# Copyright (C) 2004 Florian Ragwitz. +# +# Written for the Debian GNU/Linux distribution based on latest.pl +# Copyright (c) 2003 Henrique Dias +# +# License: GNU General Public License v2 + +use strict; +use warnings; +use LWP::UserAgent; +use HTTP::Request; +use HTTP::Response; + +my $VERSION = "0.02"; + +(my $name = $0) =~ s#^.*/##; + +my $dir = "/tmp/$name-$$"; +my $dest = "/var/lib/libfile-scan-perl/virus-definitions.pm"; +my $cpan = "http://search.cpan.org/src/HDIAS"; +my $url = "http://search.cpan.org/search?mode=module&format=xml&query=File::Scan"; + +my $content = &get_content($url); +my ($module_version) = $content =~ /(\d+\.\d+)<\/VERSION>/i; + +my $dpkg_output = `COLUMNS=120 dpkg -l libfile-scan-perl`; +my ($debian_version) = $dpkg_output =~ m/libfile-scan-perl\s+([^\s]+)/; + +system("dpkg --compare-versions $module_version gt $debian_version"); + +if($? != 0) { + print "File::Scan is already up-to-date.\n"; + exit 1; +} + +mkdir $dir; +chdir $dir; +mkdir 'files'; + +my @files = qw( Makefile.PL files/signatures.txt files/suspicious.txt files/Scan.base ); + +for( @files ) { + my $in = "$cpan/File-Scan-$module_version/$_"; + &save($_, &get_content($in)); +} + +system("perl Makefile.PL >/dev/null 2>&1"); +unlink("Makefile"); + +my $found = 0; + +open(SCAN, "$dest") or die("Can't open $dest: $!"); + +while( ) { + $found-- if /__END__/; + print DATA if $found; + $found++ if /__DATA__/; +} + +print DATA "1;"; + +close(SCAN); +close(DATA); + +system("rm -r $dir"); + +exit; + +sub save { + my $file = shift; + my $content = shift; + + $file = "$dir/$file" if($dir); + open(FILE, ">$file") or die("$!"); + binmode(FILE); + print FILE $content; + close(FILE); + return(); +} + +sub get_content { + my $url = shift; + + my $req = HTTP::Request->new(GET => $url); + my $ua = LWP::UserAgent->new(); + my $response = $ua->request($req); + if($response->is_error()) { + print $response->status_line . "\n"; + exit(1); + } + my $content = $response->content(); + return($content); +} + +__END__ + +=pod + +=head1 NAME + +update-libfile-scan-perl - download new version of libfile-scan-perl's virus definitions + +=head1 SYNOPSIS + +B + +=head1 DESCRIPTION + +B fetches the current version of libfile-scan-perl's +virus definitions and installs them. + +=head1 FILES + +B Here we install the new +definitions. + +=head1 AUTHOR + +This manual page was written by Florian Ragwitz Eflorian@mookooh.orgE +for the B system (but may be used by others). +Permission is granted to copy, distribute and/or modify this document under +the terms of the GNU General Public License, Version 2 any later version +published by the Free Software Foundation. + +On Debian systems, the complete text of the GNU General Public License can +be found in F. + +=cut --- libfile-scan-perl-1.43.orig/debian/patches/series +++ libfile-scan-perl-1.43/debian/patches/series @@ -0,0 +1,2 @@ +10Makefile.PL.patch +20Scan.base.patch --- libfile-scan-perl-1.43.orig/debian/patches/10Makefile.PL.patch +++ libfile-scan-perl-1.43/debian/patches/10Makefile.PL.patch @@ -0,0 +1,45 @@ +Author: Florian Ragwitz +Description: Seperate virus-definitions from Scan.pm +--- a/Makefile.PL ++++ b/Makefile.PL +@@ -10,6 +10,7 @@ my $bufflen = 1024; + my $min_txt_size = 0; + my $signs = "files/signatures.txt"; + my $susp = "files/suspicious.txt"; ++my $data_path = "/var/lib/libfile-scan-perl/"; + + my @html_scripting = ("HTMLVBS", "HTMLJS"); + my $script_lang = { +@@ -74,6 +75,7 @@ WriteMakefile( + 'DISTNAME' => 'File-Scan', + 'VERSION_FROM' => 'Scan.pm', # finds $VERSION + 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 ++ 'clean' => { 'FILES' => "Scan.pm virus-definitions.pm" }, + 'dist' => { 'COMPRESS' => 'gzip -9f', 'SUFFIX' => 'gz', }, + @ppd, + ); +@@ -140,13 +142,23 @@ sub make_module { + open(PMFILE, ">Scan.pm") or die("Can't open Scan.pm: $!"); + while() { + s/\$min_txt_size/$min_txt_size/; ++ s/\@data_path\@/$data_path/; + print PMFILE $_; + if(/^__DATA__/) { +- print PMFILE $code; ++ print PMFILE <virus-definitions.pm") or die("Can't open virus-definitions.pm: $!"); ++ print DATAFILE $code; ++ print DATAFILE "1;"; ++ close(DATAFILE); + } + + sub get_code { --- libfile-scan-perl-1.43.orig/debian/patches/20Scan.base.patch +++ libfile-scan-perl-1.43/debian/patches/20Scan.base.patch @@ -0,0 +1,23 @@ +Author: Florian Ragwitz +Description: Use external virus-definitions istead of SelfLoader. +--- a/files/Scan.base ++++ b/files/Scan.base +@@ -14,7 +14,6 @@ use strict; + + require Exporter; + use File::Copy; +-use SelfLoader; + + use vars qw($VERSION @ISA @EXPORT $ERROR $SKIPPED $SUSPICIOUS $CALLBACK); + +@@ -23,7 +22,9 @@ $VERSION = '1.43'; + + ($ERROR, $SKIPPED, $SUSPICIOUS, $CALLBACK) = ("", 0, 0, ""); + +-SelfLoader->load_stubs(); ++my $data_path = "@data_path@"; ++ ++do "$data_path/virus-definitions.pm"; + + sub new { + my $proto = shift;