r21272 - in /trunk/libfile-scan-perl/debian: ./ patches/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sun Jun 15 13:59:12 UTC 2008
Author: gregoa
Date: Sun Jun 15 13:59:11 2008
New Revision: 21272
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=21272
Log:
[svn-inject] Applying Debian modifications to trunk
Added:
trunk/libfile-scan-perl/debian/
trunk/libfile-scan-perl/debian/README.Debian
trunk/libfile-scan-perl/debian/changelog
trunk/libfile-scan-perl/debian/compat
trunk/libfile-scan-perl/debian/control
trunk/libfile-scan-perl/debian/copyright
trunk/libfile-scan-perl/debian/dirs
trunk/libfile-scan-perl/debian/libfile-scan-perl.docs
trunk/libfile-scan-perl/debian/libfile-scan-perl.examples
trunk/libfile-scan-perl/debian/patches/
trunk/libfile-scan-perl/debian/patches/00list
trunk/libfile-scan-perl/debian/patches/10Makefile.PL.dpatch (with props)
trunk/libfile-scan-perl/debian/patches/20Scan.base.dpatch (with props)
trunk/libfile-scan-perl/debian/rules (with props)
trunk/libfile-scan-perl/debian/update-libfile-scan-perl
trunk/libfile-scan-perl/debian/watch
Added: trunk/libfile-scan-perl/debian/README.Debian
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/README.Debian?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/README.Debian (added)
+++ trunk/libfile-scan-perl/debian/README.Debian Sun Jun 15 13:59:11 2008
@@ -1,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 <florian at mookooh.org> Tue, 21 Sep 2004 12:27:08 +0200
Added: trunk/libfile-scan-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/changelog?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/changelog (added)
+++ trunk/libfile-scan-perl/debian/changelog Sun Jun 15 13:59:11 2008
@@ -1,0 +1,147 @@
+libfile-scan-perl (1.43-1.1) unstable; urgency=low
+
+ * Non-maintainer upload.
+ * Fix FTBFS with Perl 5.10. Closes: #467795
+
+ -- Mark Hymers <mhy at debian.org> 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 <rafl at debian.org> 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 <florian at mookooh.org> Thu, 14 Apr 2005 14:30:58 +0200
+
+libfile-scan-perl (1.38-1) unstable; urgency=low
+
+ * New upstream release (Closes: #283477).
+
+ -- Florian Ragwitz <florian at mookooh.org> 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 <florian at mookooh.org> 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 <florian at mookooh.org> Wed, 15 Sep 2004 06:10:25 +0200
+
+libfile-scan-perl (1.14-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Marc 'HE' Brockschmidt <he at debian.org> Fri, 28 May 2004 00:04:22 +0200
+
+libfile-scan-perl (1.11-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Marc 'HE' Brockschmidt <he at debian.org> Sun, 16 May 2004 00:36:29 +0200
+
+libfile-scan-perl (1.08-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Marc 'HE' Brockschmidt <he at debian.org> Fri, 30 Apr 2004 23:10:54 +0200
+
+libfile-scan-perl (1.03-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Marc 'HE' Brockschmidt <he at debian.org> 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 <he at debian.org> Sat, 10 Apr 2004 14:06:08 +0200
+
+libfile-scan-perl (0.98-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Marc 'HE' Brockschmidt <he at debian.org> Wed, 24 Mar 2004 18:31:43 +0100
+
+libfile-scan-perl (0.93-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Marc 'HE' Brockschmidt <he at debian.org> Sat, 6 Mar 2004 00:29:59 +0100
+
+libfile-scan-perl (0.89-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Marc 'HE' Brockschmidt <he at debian.org> 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 <he at debian.org> 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 <he at debian.org> Thu, 19 Feb 2004 00:48:07 +0100
+
+libfile-scan-perl (0.82-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Marc Brockschmidt <marc at dch-faq.de> 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 <marc at dch-faq.de> Sat, 24 Jan 2004 09:57:59 +0100
+
+libfile-scan-perl (0.76-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Marc Brockschmidt <marc at dch-faq.de> 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 <marc at dch-faq.de> Thu, 23 Oct 2003 10:32:41 +0200
+
+libfile-scan-perl (0.64-1) unstable; urgency=low
+
+ * Initial Release. (Closes: #206019)
+
+ -- Marc Brockschmidt <marc at dch-faq.de> Wed, 3 Sep 2003 18:16:58 +0200
+
Added: trunk/libfile-scan-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/compat?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/compat (added)
+++ trunk/libfile-scan-perl/debian/compat Sun Jun 15 13:59:11 2008
@@ -1,0 +1,1 @@
+4
Added: trunk/libfile-scan-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/control?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/control (added)
+++ trunk/libfile-scan-perl/debian/control Sun Jun 15 13:59:11 2008
@@ -1,0 +1,16 @@
+Source: libfile-scan-perl
+Section: perl
+Priority: optional
+Build-Depends: debhelper (>= 4), dpatch
+Build-Depends-Indep: perl (>= 5.8.0-7)
+Maintainer: Florian Ragwitz <rafl at debian.org>
+Standards-Version: 3.6.2
+
+Package: libfile-scan-perl
+Architecture: all
+Depends: ${perl:Depends}, libwww-perl
+Description: Perl lib to scan files for viruses
+ libfile-scan-perl allows users to scan files for known viruses.
+ .
+ The purpose is to provide a basis for creating platform independent
+ virus scanners in Perl.
Added: trunk/libfile-scan-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/copyright?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/copyright (added)
+++ trunk/libfile-scan-perl/debian/copyright Sun Jun 15 13:59:11 2008
@@ -1,0 +1,20 @@
+This is the debian package for the File::Scan module.
+It was created by Marc Brockschmidt <marc at dch-faq.de> using dh-make-perl.
+
+It's now maintained by Florian Ragwitz <rafl at debian.org>
+
+It was downloaded from http://search.cpan.org/~hdias/File-Scan/
+
+The upstream author is: Henrique Dias <hdias at aesbuc.pt>
+
+Licence:
+ This library is free software; you can redistribute it and/or
+ modify it under the same terms as Perl itself.
+
+Perl is dual-licenced under "Artistic" and "GPL".
+The text of the GPL licence is available from
+ /usr/share/common-licenses/GPL
+The text of the Artistic licence is available from
+ /usr/share/common-licenses/Artistic
+The text of the Perl licence is available from
+ /usr/share/doc/perl/copyright
Added: trunk/libfile-scan-perl/debian/dirs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/dirs?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/dirs (added)
+++ trunk/libfile-scan-perl/debian/dirs Sun Jun 15 13:59:11 2008
@@ -1,0 +1,2 @@
+usr/sbin
+var/lib/libfile-scan-perl
Added: trunk/libfile-scan-perl/debian/libfile-scan-perl.docs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/libfile-scan-perl.docs?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/libfile-scan-perl.docs (added)
+++ trunk/libfile-scan-perl/debian/libfile-scan-perl.docs Sun Jun 15 13:59:11 2008
@@ -1,0 +1,4 @@
+TODO
+README
+FAQ
+docs/write_sign_bin.txt
Added: trunk/libfile-scan-perl/debian/libfile-scan-perl.examples
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/libfile-scan-perl.examples?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/libfile-scan-perl.examples (added)
+++ trunk/libfile-scan-perl/debian/libfile-scan-perl.examples Sun Jun 15 13:59:11 2008
@@ -1,0 +1,1 @@
+examples/*
Added: trunk/libfile-scan-perl/debian/patches/00list
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/patches/00list?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/patches/00list (added)
+++ trunk/libfile-scan-perl/debian/patches/00list Sun Jun 15 13:59:11 2008
@@ -1,0 +1,2 @@
+10Makefile.PL
+20Scan.base
Added: trunk/libfile-scan-perl/debian/patches/10Makefile.PL.dpatch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/patches/10Makefile.PL.dpatch?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/patches/10Makefile.PL.dpatch (added)
+++ trunk/libfile-scan-perl/debian/patches/10Makefile.PL.dpatch Sun Jun 15 13:59:11 2008
@@ -1,0 +1,69 @@
+#! /bin/sh -e
+## 10Makefile.PL.dpatch by Florian Ragwitz <florian at mookooh.org>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: Seperate virus-definitions from Scan.pm
+
+if [ $# -lt 1 ]; then
+ echo "`basename $0`: script expects -patch|-unpatch as argument" >&2
+ exit 1
+fi
+
+[ -f debian/patches/00patch-opts ] && . debian/patches/00patch-opts
+patch_opts="${patch_opts:--f --no-backup-if-mismatch} ${2:+-d $2}"
+
+case "$1" in
+ -patch) patch -p1 ${patch_opts} < $0;;
+ -unpatch) patch -R -p1 ${patch_opts} < $0;;
+ *)
+ echo "`basename $0`: script expects -patch|-unpatch as argument" >&2
+ exit 1;;
+esac
+
+exit 0
+
+ at DPATCH@
+diff -Nur libfile-scan-perl-1.28.orig/Makefile.PL libfile-scan-perl-1.28/Makefile.PL
+--- libfile-scan-perl-1.28.orig/Makefile.PL 2004-09-11 18:40:30.000000000 +0200
++++ libfile-scan-perl-1.28/Makefile.PL 2004-09-21 10:52:48.835308856 +0200
+@@ -10,6 +10,7 @@
+ 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 = {
+@@ -72,6 +73,7 @@
+ '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,
+ );
+@@ -137,13 +139,23 @@
+ open(PMFILE, ">Scan.pm") or die("Can't open Scan.pm: $!");
+ while(<BASEFILE>) {
+ s/\$min_txt_size/$min_txt_size/;
++ s/\@data_path\@/$data_path/;
+ print PMFILE $_;
+ if(/^__DATA__/) {
+- print PMFILE $code;
++ print PMFILE <<DEBIAN;
++This version of File::Scan has been modified for the Debian GNU/Linux
++distribution. The virus definitions have been moved $data_path.
++See README.Debian for details.
++DEBIAN
+ }
+ }
+ close(PMFILE);
+ close(BASEFILE);
++
++ open(DATAFILE, ">virus-definitions.pm") or die("Can't open virus-definitions.pm: $!");
++ print DATAFILE $code;
++ print DATAFILE "1;";
++ close(DATAFILE);
+ }
+
+ sub get_code {
Propchange: trunk/libfile-scan-perl/debian/patches/10Makefile.PL.dpatch
------------------------------------------------------------------------------
svn:executable = *
Added: trunk/libfile-scan-perl/debian/patches/20Scan.base.dpatch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/patches/20Scan.base.dpatch?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/patches/20Scan.base.dpatch (added)
+++ trunk/libfile-scan-perl/debian/patches/20Scan.base.dpatch Sun Jun 15 13:59:11 2008
@@ -1,0 +1,47 @@
+#! /bin/sh -e
+## 20Scan.base.dpatch by Florian Ragwitz <florian at mookooh.org>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: Use external virus-definitions istead of SelfLoader.
+
+if [ $# -lt 1 ]; then
+ echo "`basename $0`: script expects -patch|-unpatch as argument" >&2
+ exit 1
+fi
+
+[ -f debian/patches/00patch-opts ] && . debian/patches/00patch-opts
+patch_opts="${patch_opts:--f --no-backup-if-mismatch} ${2:+-d $2}"
+
+case "$1" in
+ -patch) patch -p1 ${patch_opts} < $0;;
+ -unpatch) patch -R -p1 ${patch_opts} < $0;;
+ *)
+ echo "`basename $0`: script expects -patch|-unpatch as argument" >&2
+ exit 1;;
+esac
+
+exit 0
+
+ at DPATCH@
+diff -Nur libfile-scan-perl-1.28.orig/files/Scan.base libfile-scan-perl-1.28/files/Scan.base
+--- libfile-scan-perl-1.28.orig/files/Scan.base 2004-09-11 17:19:25.000000000 +0200
++++ libfile-scan-perl-1.28/files/Scan.base 2004-09-21 10:02:17.220184408 +0200
+@@ -14,7 +14,6 @@
+
+ require Exporter;
+ use File::Copy;
+-use SelfLoader;
+
+ use vars qw($VERSION @ISA @EXPORT $ERROR $SKIPPED $SUSPICIOUS $CALLBACK);
+
+@@ -23,7 +22,9 @@
+
+ ($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;
Propchange: trunk/libfile-scan-perl/debian/patches/20Scan.base.dpatch
------------------------------------------------------------------------------
svn:executable = *
Added: trunk/libfile-scan-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/rules?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/rules (added)
+++ trunk/libfile-scan-perl/debian/rules Sun Jun 15 13:59:11 2008
@@ -1,0 +1,68 @@
+#!/usr/bin/make -f
+
+include /usr/share/dpatch/dpatch.make
+
+PACKAGE=$(shell dh_listpackages)
+
+ifndef PERL
+PERL = /usr/bin/perl
+endif
+
+ifndef DESTDIR
+DESTDIR=..
+endif
+TMP =$(CURDIR)/debian/$(PACKAGE)
+
+build: build-stamp
+build-stamp: patch-stamp
+ dh_testdir
+ $(PERL) Makefile.PL INSTALLDIRS=vendor
+ $(MAKE)
+ pod2man --section=1 --release="Debian Project" --center="Debian GNU/Linux manual" debian/update-libfile-scan-perl debian/update-libfile-scan-perl.1
+ touch build-stamp
+
+clean: clean1 unpatch
+clean1:
+ dh_testdir
+ dh_testroot
+ rm -f build-stamp debian/update-libfile-scan-perl.1
+ -$(MAKE) realclean
+ dh_clean
+
+install:
+ dh_testdir
+ dh_testroot
+ dh_clean -k
+ dh_installdirs
+ $(MAKE) test
+ $(MAKE) install PREFIX=/usr DESTDIR=$(TMP)
+ mv $(TMP)/usr/share/perl5/File/virus-definitions.pm $(TMP)/var/lib/$(PACKAGE)
+ cp debian/update-libfile-scan-perl $(TMP)/usr/sbin
+ [ ! -d $(TMP)/usr/lib/perl5 ] || rmdir --ignore-fail-on-non-empty --parents $(TMP)/usr/lib/perl5
+
+# Build architecture-dependent files here.
+binary-arch: build install
+# We have nothing to do by default.
+
+# Build architecture-independent files here.
+binary-indep: build install
+ dh_testdir
+ dh_testroot
+ dh_installdocs
+ dh_installexamples
+ mv $(TMP)/usr/share/doc/$(PACKAGE)/examples/procmail/.procmailrc $(TMP)/usr/share/doc/$(PACKAGE)/examples/procmail/procmailrc
+ dh_installchangelogs Changes
+ dh_installman debian/update-libfile-scan-perl.1
+ dh_compress
+ dh_fixperms
+ dh_installdeb
+ dh_perl
+ dh_gencontrol
+ dh_md5sums
+ dh_builddeb --destdir=$(DESTDIR)
+
+source diff:
+ @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false
+
+binary: binary-indep binary-arch
+.PHONY: build clean binary-indep binary-arch binary patch unpatch
Propchange: trunk/libfile-scan-perl/debian/rules
------------------------------------------------------------------------------
svn:executable = *
Added: trunk/libfile-scan-perl/debian/update-libfile-scan-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/update-libfile-scan-perl?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/update-libfile-scan-perl (added)
+++ trunk/libfile-scan-perl/debian/update-libfile-scan-perl Sun Jun 15 13:59:11 2008
@@ -1,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 <hdias at aesbuc.pt>
+#
+# 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 =~ /<VERSION>(\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, "<Scan.pm") or die("Can't open Scan.pm: $!");
+open(DATA, ">$dest") or die("Can't open $dest: $!");
+
+while( <SCAN> ) {
+ $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<libfile-scan-perl>
+
+=head1 DESCRIPTION
+
+B<update-libfile-scan-perl> fetches the current version of libfile-scan-perl's
+virus definitions and installs them.
+
+=head1 FILES
+
+B</var/lib/libfile-scan-perl/virus-definitions.pm> Here we install the new
+definitions.
+
+=head1 AUTHOR
+
+This manual page was written by Florian Ragwitz E<lt>florian at mookooh.orgE<gt>
+for the B<Debian> 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</usr/share/common-licenses/GPL>.
+
+=cut
Added: trunk/libfile-scan-perl/debian/watch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-scan-perl/debian/watch?rev=21272&op=file
==============================================================================
--- trunk/libfile-scan-perl/debian/watch (added)
+++ trunk/libfile-scan-perl/debian/watch Sun Jun 15 13:59:11 2008
@@ -1,0 +1,3 @@
+version=2
+
+http://www.cpan.org/authors/id/H/HD/HDIAS/File-Scan-(.*)\.tar\.gz
More information about the Pkg-perl-cvs-commits
mailing list