Bug#405151: ITP: libclamav-client-perl -- A client for the ClamAV virus scanner daemon

[Devin Carraway]

Package: wnpp
Severity: wishlist
Owner: Devin Carraway <[EMAIL PROTECTED]>

* Package name: libclamav-client-perl
  Version : 0.11
  Upstream Author : Julian Mehnle <[EMAIL PROTECTED]>
* URL : http://search.cpan.org/dist/ClamAV-Client/
* License : GPL, Artistic
  Programming Lang: Perl
  Description : A client for the ClamAV virus scanner daemon

 This package supplies ClamAV::Client, a Perl interface to
 the ClamAV virus scanner via the clamd daemon.  It allows
 connection either over a UNIX domain socket to a local
 clamd, via TCP to a remote one.

 The client package fully implements the clamd socket protocol,
 with both scanning and daemon management calls provided.


... this will be uploaded after Etch ships, unless there's some
specific need to upload it to experimental.  Upload candidates
are in http://devin.com/debian/ if anyone wants 'em.

-- System Information:
Debian Release: 4.0
  APT prefers unstable
  APT policy: (500, 'unstable'), (1, 'experimental')
Architecture: amd64 (x86_64)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.18-1-amd64
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Re: Bug#405151: ITP: libclamav-client-perl -- A client for the ClamAV virus scanner daemon

[Devin Carraway]

On Mon, Jan 01, 2007 at 03:02:52PM +, Stephen Gran wrote:
> Can you please test it against the 0.90 rc candidate in experimental and
> let me know if you have problems?  It makes it easier that this package
> isn't targetted for etch, but I'm trying to make sure things are smooth
> when clamav does release 0.90.

No problem.  All seems peachy w/ 0.90~rc2-1:

$ cat clamav-test
#!/usr/bin/perl

use ClamAV::Client;
use Data::Dumper;
use IO::File;

my $s = new ClamAV::Client;

print "ping: ", $s->ping, "\n";
print "version: ", $s->version, "\n";

my @r = $s->scan_path("/tmp/samples/clean");
print "clean: ", Dumper([EMAIL PROTECTED]);

@r = $s->scan_path("/tmp/samples/infected/postcard.zip");
print "infected: ", Dumper([EMAIL PROTECTED]);

@r = $s->scan_path("/tmp/samples/infected", ClamAV::Client::SCAN_MODE_RAW);
print "infected (raw): ", Dumper([EMAIL PROTECTED]);

@r = eval { $s->scan_path("/tmp/samples/unreadable") };
print "read error: ", Dumper([EMAIL PROTECTED]);

my %r = $s->scan_path_complete("/tmp/samples/infected");
print "infected (complete): ", Dumper(\%r);

my $r = $s->scan_stream(new IO::File "/tmp/samples/infected/postcard.exe");
print "infected (stream): $r\n";

my $f = new IO::File "/tmp/samples/infected/postcard.exe";
my $dat = join('', <$f>);
$r = $s->scan_scalar(\ $dat);
print "infected (scalar): $r\n";


$ perl clamav-test
ping: PONG
version: ClamAV 0.90rc2/2403/Mon Jan  1 14:35:09 2007
clean: $VAR1 = [
  '/tmp/samples/clean',
  undef
];
infected: $VAR1 = [
  '/tmp/samples/infected/postcard.zip',
  'Trojan.Downloader-390'
];
infected (raw): $VAR1 = [
  '/tmp/samples/infected/postcard.exe',
  'Trojan.Downloader-390'
];
read error: $VAR1 = [];
infected (complete): $VAR1 = {
  '/tmp/samples/infected/postcard.exe' => 'Trojan.Downloader-390',
  '/tmp/samples/infected/postcard.zip' => 'Trojan.Downloader-390'
};
infected (stream): Trojan.Downloader-390
infected (scalar): Trojan.Downloader-390




-- 
Devin  \ aqua(at)devin.com, IRC:Requiem; http://www.devin.com
Carraway \ 1024D/E9ABFCD2: 13E7 199E DD1E 65F0 8905 2E43 5395 CA0D E9AB FCD2


signature.asc
Description: Digital signature