r15847 - in /branches/upstream/libfax-hylafax-client-perl/current: Changes Client.pm MANIFEST Makefile.PL README test.pl
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Thu Feb 28 11:57:51 UTC 2008
Author: tincho-guest
Date: Thu Feb 28 11:57:50 2008
New Revision: 15847
URL: http://svn.debian.org/wsvn/?sc=1&rev=15847
Log:
[svn-upgrade] Integrating new upstream version, libfax-hylafax-client-perl (1.02)
Modified:
branches/upstream/libfax-hylafax-client-perl/current/Changes
branches/upstream/libfax-hylafax-client-perl/current/Client.pm
branches/upstream/libfax-hylafax-client-perl/current/MANIFEST
branches/upstream/libfax-hylafax-client-perl/current/Makefile.PL
branches/upstream/libfax-hylafax-client-perl/current/README
branches/upstream/libfax-hylafax-client-perl/current/test.pl
Modified: branches/upstream/libfax-hylafax-client-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libfax-hylafax-client-perl/current/Changes?rev=15847&op=diff
==============================================================================
--- branches/upstream/libfax-hylafax-client-perl/current/Changes (original)
+++ branches/upstream/libfax-hylafax-client-perl/current/Changes Thu Feb 28 11:57:50 2008
@@ -1,9 +1,13 @@
-Revision history for Perl extension Fax::Hylafax::Client.
-
-1.00 Sub Dec 7 01:37:47 2003
- - original version; framework created by h2xs 1.21
-
-1.01 Sat Dec 13 19:14:25 2003
- - a number of "service" methods added
- - global variables implemented
- - documentation added
+Revision history for Perl extension Fax::Hylafax::Client.
+
+1.00 Sun Dec 7 01:37:47 2003 MST
+ - original version; framework created by h2xs 1.21
+
+1.01 Sat Dec 13 19:14:25 2003 MST
+ - a number of "service" methods added
+ - global variables implemented
+ - documentation added
+
+1.02 Sun Jun 25 23:42:40 2006 MDT
+ - redesigned temporary file storage (bug #5008)
+ - added ability to attach multiple source documents
Modified: branches/upstream/libfax-hylafax-client-perl/current/Client.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libfax-hylafax-client-perl/current/Client.pm?rev=15847&op=diff
==============================================================================
--- branches/upstream/libfax-hylafax-client-perl/current/Client.pm (original)
+++ branches/upstream/libfax-hylafax-client-perl/current/Client.pm Thu Feb 28 11:57:50 2008
@@ -19,29 +19,31 @@
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(faxinfo faxrm faxstat sendfax sendpage);
-our $VERSION = "1.01";
+our $VERSION = "1.02";
our $Host;
our $Port;
our $User;
our $Password;
our $Passive;
+our $Debug;
our $NotifyAddr;
-sub faxinfo {
+sub faxinfo
+{
shift if $_[0] eq __PACKAGE__;
my %param = scalar @_ == 1 ? ('jobid', shift) : @_;
- my $self = {
+ my $self = {
TRACE => '',
SUCCESS => '',
CONTENT => '',
};
## Set defaults
- $param{host} ||= $Host || 'localhost';
- $param{port} ||= $Port || '4559';
- $param{user} ||= $User || 'anonymous';
+ $param{host} ||= $Host || 'localhost';
+ $param{port} ||= $Port || '4559';
+ $param{user} ||= $User || 'anonymous';
$param{password} ||= $Password || 'anonymous';
$param{passive} ||= $Passive || '0';
@@ -69,18 +71,19 @@
}
-sub faxrm {
+sub faxrm
+{
shift if $_[0] eq __PACKAGE__;
my %param = scalar @_ == 1 ? ('jobid', shift) : @_;
- my $self = {
+ my $self = {
TRACE => '',
SUCCESS => '',
};
## Set defaults
- $param{host} ||= $Host || 'localhost';
- $param{port} ||= $Port || '4559';
- $param{user} ||= $User || 'anonymous';
+ $param{host} ||= $Host || 'localhost';
+ $param{port} ||= $Port || '4559';
+ $param{user} ||= $User || 'anonymous';
$param{password} ||= $Password || 'anonymous';
$param{passive} ||= $Passive || '0';
@@ -105,19 +108,20 @@
}
-sub faxstat {
+sub faxstat
+{
shift if $_[0] eq __PACKAGE__;
my %param = @_;
- my $self = {
+ my $self = {
TRACE => '',
SUCCESS => '',
CONTENT => '',
};
## Set defaults
- $param{host} ||= $Host || 'localhost';
- $param{port} ||= $Port || '4559';
- $param{user} ||= $User || 'anonymous';
+ $param{host} ||= $Host || 'localhost';
+ $param{port} ||= $Port || '4559';
+ $param{user} ||= $User || 'anonymous';
$param{password} ||= $Password || 'anonymous';
$param{passive} ||= $Passive || '0';
$param{filefmt} ||= '';
@@ -135,9 +139,11 @@
$self->{TRACE} .= $client->message;
## Process the task
- if ($param{info}){
+ if ($param{info})
+ {
my $dataconn = $client->retr("status/any.info") || _com_error($client);
- while ($dataconn->read(my $buffer, 1024)){
+ while ($dataconn->read(my $buffer, 1024))
+ {
$self->{CONTENT} .= $buffer;
}
$dataconn->close;
@@ -145,17 +151,20 @@
}
my $dataconn = $client->list("status") || _com_error($client);
- while ($dataconn->read(my $buffer, 1024)){
+ while ($dataconn->read(my $buffer, 1024))
+ {
$self->{CONTENT} .= $buffer;
}
$dataconn->close;
$self->{TRACE} .= $client->message;
- if ($param{files}){
+ if ($param{files})
+ {
$client->quot("filefmt", $param{filefmt}) || _com_error($client);
my $dataconn = $client->list("docq") || _com_error($client);
my $content;
- while ($dataconn->read(my $buffer, 1024)){
+ while ($dataconn->read(my $buffer, 1024))
+ {
$content .= $buffer;
}
$dataconn->close;
@@ -163,11 +172,13 @@
$self->{TRACE} .= $client->message;
}
- if ($param{queue}){
+ if ($param{queue})
+ {
$client->quot("jobfmt", $param{jobfmt}) || _com_error($client);
my $dataconn = $client->list("sendq") || _com_error($client);
my $content;
- while ($dataconn->read(my $buffer, 1024)){
+ while ($dataconn->read(my $buffer, 1024))
+ {
$content .= $buffer;
}
$dataconn->close;
@@ -175,11 +186,13 @@
$self->{TRACE} .= $client->message;
}
- if ($param{done}){
+ if ($param{done})
+ {
$client->quot("jobfmt", $param{jobfmt}) || _com_error($client);
my $dataconn = $client->list("doneq") || _com_error($client);
my $content;
- while ($dataconn->read(my $buffer, 1024)){
+ while ($dataconn->read(my $buffer, 1024))
+ {
$content .= $buffer;
}
$dataconn->close;
@@ -187,11 +200,13 @@
$self->{TRACE} .= $client->message;
}
- if ($param{received}){
+ if ($param{received})
+ {
$client->quot("rcvfmt", $param{rcvfmt}) || _com_error($client);
my $dataconn = $client->list("recvq") || _com_error($client);
my $content;
- while ($dataconn->read(my $buffer, 1024)){
+ while ($dataconn->read(my $buffer, 1024))
+ {
$content .= $buffer;
}
$dataconn->close;
@@ -207,155 +222,192 @@
}
-sub sendfax {
+sub sendfax
+{
+ shift if $_[0] eq __PACKAGE__;
+ my %param = @_;
+ my $hostname = `hostname`; chomp $hostname;
+ my $self = {
+ JOB_ID => '',
+ TRACE => '',
+ SUCCESS => '',
+ };
+
+ ## Set defaults
+ $param{host} ||= $Host || 'localhost';
+ $param{port} ||= $Port || '4559';
+ $param{user} ||= $User || 'anonymous';
+ $param{password} ||= $Password || 'anonymous';
+ $param{passive} ||= $Passive || '0';
+ $param{debug} ||= $Debug || '0';
+ $param{lasttime} ||= '000259';
+ $param{maxdials} ||= '12';
+ $param{maxtries} ||= '3';
+ $param{pagewidth} ||= '216';
+ $param{pagelength} ||= '279';
+ $param{vres} ||= '196';
+ $param{schedpri} ||= '127';
+ $param{chopthreshold} ||= '3';
+ $param{notify} ||= 'none';
+ $param{notifyaddr} ||= $NotifyAddr || $param{'user'} . '@' . $hostname;
+ $param{sendtime} ||= 'now';
+
+ $self->{PARAM} = \%param;
+
+ ## Basic error checking
+ croak __PACKAGE__ . ": *dialstring* parameter is missing" unless $param{dialstring};
+ croak __PACKAGE__ . ": *docfile* parameter is missing" if (! $param{docfile} && ! $param{poll});
+ croak __PACKAGE__ . ": $param{coverfile} does not exist" if ($param{coverfile} && ! -e $param{coverfile});
+
+ if (ref(\$param{docfile}) eq 'SCALAR')
+ {
+ $param{docfiles} = [ $param{docfile} ];
+ }
+ elsif (ref($param{docfile}) eq 'ARRAY')
+ {
+ $param{docfiles} = $param{docfile};
+ }
+ else
+ {
+ croak __PACKAGE__ . ": *docfile* parameter must be a SCALAR or an ARRAY REFERENCE";
+ }
+
+ foreach my $docfile (@{$param{docfiles}})
+ {
+ croak __PACKAGE__ . ": $docfile does not exist" if (! -e $docfile);
+ }
+
+ delete $param{docfile};
+
+ ## Try to connect
+ my $client = Net::FTP->new($param{'host'}, Port => $param{'port'}, Passive => $param{'passive'}, Debug => $param{'debug'}) || croak __PACKAGE__ . ": " . $@;
+ $client->login($param{'user'}, $param{'password'}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+ $client->binary || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ ## Process the job
+ my @tempfiles = ();
+
+ if ($param{coverfile})
+ {
+ my $unique = time . sprintf('%05d', $$) . sprintf('%04d', int(rand 10000));
+ my $remote = '/tmp/cover.' . $hostname . '.' . $unique;
+
+ $client->put($param{coverfile}, $remote) || _com_error($client); # (STOT would be nice, but Net::FTP doesn`t support it and STOU is broken)
+ $self->{TRACE} .= $client->message;
+
+ push (@tempfiles, $remote);
+ }
+
+ foreach my $docfile (@{$param{docfiles}})
+ {
+ my $unique = time . sprintf('%05d', $$) . sprintf('%04d', int(rand 10000));
+ my $remote = '/tmp/doc.' . $hostname . '.' . $unique;
+
+ $client->put($docfile, $remote) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ push (@tempfiles, $remote);
+ }
+
+ $client->quot("jnew") || _com_error($client);
+ $self->{TRACE} .= $client->message;
+ $client->message =~ /jobid: (\d+)/i;
+ $self->{JOB_ID} = $1 if $1;
+ $self->{PARAM}->{jobid} = $self->{JOB_ID};
+
+ $client->quot("jparm fromuser", $param{'user'}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm lasttime", $param{lasttime}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm maxdials", $param{maxdials}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm maxtries", $param{maxtries}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm schedpri", $param{schedpri}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm dialstring", $param{dialstring}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm sendtime", $param{sendtime}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm notifyaddr", $param{notifyaddr}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm vres", $param{vres}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm pagewidth", $param{pagewidth}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm pagelength", $param{pagelength}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm notify", $param{notify}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm pagechop", "default") || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ $client->quot("jparm chopthreshold", $param{chopthreshold}) || _com_error($client);
+ $self->{TRACE} .= $client->message;
+
+ foreach my $docfile (@tempfiles)
+ {
+ if ($param{coverfile} && $docfile eq $tempfiles[0])
+ {
+ $client->quot("jparm cover", $docfile) or _com_error($client);
+ }
+ else
+ {
+ $client->quot("jparm document", $docfile) or _com_error($client);
+ }
+
+ $self->{TRACE} .= $client->message;
+ }
+
+ if (defined $param{poll})
+ {
+ my ($selector, $passwd) = split(" ", $param{poll});
+ $client->quot("jparm poll", $selector || "", $passwd || "") || _com_error($client);
+ $self->{TRACE} .= $client->message;
+ }
+
+ $client->quot("jsubm") || _com_error($client);
+ $self->{TRACE} .= $client->message;
+ $self->{SUCCESS} = $client->message =~ /failed/i || $client->message =~ /failed/i? 0 : 1;
+
+ ## Disconnect
+ $client->quit;
+ $self->{TRACE} .= $client->message;
+
+ return bless $self, __PACKAGE__ . "::Queued";
+}
+
+
+sub sendpage
+{
shift if $_[0] eq __PACKAGE__;
my %param = @_;
my $hostname = `hostname`; chomp $hostname;
my $unique = time . $$ . int(rand 10000);
- my $self = {
+ my $self = {
JOB_ID => '',
TRACE => '',
SUCCESS => '',
};
## Set defaults
- $param{host} ||= $Host || 'localhost';
- $param{port} ||= $Port || '4559';
- $param{user} ||= $User || 'anonymous';
- $param{password} ||= $Password || 'anonymous';
- $param{passive} ||= $Passive || '0';
- $param{lasttime} ||= '000259';
- $param{maxdials} ||= '12';
- $param{maxtries} ||= '3';
- $param{pagewidth} ||= '216';
- $param{pagelength} ||= '279';
- $param{vres} ||= '196';
- $param{schedpri} ||= '127';
- $param{chopthreshold} ||= '3';
- $param{notify} ||= 'none';
- $param{notifyaddr} ||= $NotifyAddr || $param{'user'} . '@' . $hostname;
- $param{sendtime} ||= 'now';
-
- $self->{PARAM} = \%param;
-
- ## Basic error checking
- croak __PACKAGE__ . ": *dialstring* parameter is missing" unless $param{dialstring};
- croak __PACKAGE__ . ": *docfile* parameter is missing" if (! $param{docfile} && ! $param{poll});
- croak __PACKAGE__ . ": $param{docfile} does not exist" if ($param{docfile} && ! -e $param{docfile});
- croak __PACKAGE__ . ": $param{coverfile} does not exist" if ($param{coverfile} && ! -e $param{coverfile});
-
- ## Try to connect
- my $client = Net::FTP->new($param{'host'}, Port => $param{'port'}, Passive => $param{'passive'}) || croak __PACKAGE__ . ": " . $@;
- $client->login($param{'user'}, $param{'password'}) || _com_error($client);
- $self->{TRACE} .= $client->message;
- $client->binary || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- ## Process the job
- my $remote_cover = "/tmp/$hostname.$unique.cover";
- my $remote_document = "/tmp/$hostname.$unique.document";
-
- if ($param{coverfile}){
- $client->put($param{coverfile}, $remote_cover) || _com_error($client);
- $self->{TRACE} .= $client->message;
- }
-
- if ($param{docfile}){
- $client->put($param{docfile}, $remote_document) || _com_error($client);
- $self->{TRACE} .= $client->message;
- }
-
- $client->quot("jnew") || _com_error($client);
- $self->{TRACE} .= $client->message;
- $client->message =~ /jobid: (\d+)/i;
- $self->{JOB_ID} = $1 if $1;
- $self->{PARAM}->{jobid} = $self->{JOB_ID};
-
- $client->quot("jparm fromuser", $param{'user'}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm lasttime", $param{lasttime}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm maxdials", $param{maxdials}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm maxtries", $param{maxtries}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm schedpri", $param{schedpri}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm dialstring", $param{dialstring}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm sendtime", $param{sendtime}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm notifyaddr", $param{notifyaddr}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm vres", $param{vres}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm pagewidth", $param{pagewidth}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm pagelength", $param{pagelength}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm notify", $param{notify}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm pagechop", "default") || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- $client->quot("jparm chopthreshold", $param{chopthreshold}) || _com_error($client);
- $self->{TRACE} .= $client->message;
-
- if ($param{coverfile}){
- $client->quot("jparm cover", $remote_cover) || _com_error($client);
- $self->{TRACE} .= $client->message;
- }
-
- if ($param{docfile}){
- $client->quot("jparm document", $remote_document) || _com_error($client);
- $self->{TRACE} .= $client->message;
- }
-
- if (defined $param{poll}){
- my ($selector, $passwd) = split(" ", $param{poll});
- $client->quot("jparm poll", $selector || "", $passwd || "") || _com_error($client);
- $self->{TRACE} .= $client->message;
- }
-
- $client->quot("jsubm") || _com_error($client);
- $self->{TRACE} .= $client->message;
- $self->{SUCCESS} = $client->message =~ /failed/i || $client->message =~ /failed/i? 0 : 1;
-
- ## Disconnect
- $client->quit;
- $self->{TRACE} .= $client->message;
-
- return bless $self, __PACKAGE__ . "::Queued";
-}
-
-
-sub sendpage {
- shift if $_[0] eq __PACKAGE__;
- my %param = @_;
- my $hostname = `hostname`; chomp $hostname;
- my $unique = time . $$ . int(rand 10000);
- my $self = {
- JOB_ID => '',
- TRACE => '',
- SUCCESS => '',
- };
-
- ## Set defaults
- $param{host} ||= $Host || 'localhost';
- $param{port} ||= $Port || '444';
- $param{user} ||= $User || 'anonymous';
+ $param{host} ||= $Host || 'localhost';
+ $param{port} ||= $Port || '444';
+ $param{user} ||= $User || 'anonymous';
$param{password} ||= $Password || 'anonymous';
$param{passive} ||= $Passive || '0';
$param{maxdials} ||= '12';
@@ -405,7 +457,8 @@
$self->{JOB_ID} = $1 if $1;
$self->{PARAM}->{jobid} = $self->{JOB_ID};
- if ($param{message}){
+ if ($param{message})
+ {
$client->quot("mess", $param{message}) || _com_error($client);
$self->{TRACE} .= $client->message;
}
@@ -423,27 +476,31 @@
######################################################################
-sub _com_error {
+sub _com_error
+{
my $client = shift;
- croak __PACKAGE__ . ": Cummunication error: " . $client->message;
-}
-
-
-sub _content {
+ croak __PACKAGE__ . ": Communication error: " . $client->message;
+}
+
+
+sub _content
+{
my $class = shift;
my $self = shift;
return $self->{CONTENT} || undef;
}
-sub _success {
+sub _success
+{
my $class = shift;
my $self = shift;
return $self->{SUCCESS} || undef;
}
-sub _trace {
+sub _trace
+{
my $class = shift;
my $self = shift;
return $self->{TRACE} || undef;
@@ -454,7 +511,8 @@
package Fax::Hylafax::Client::Queued;
-sub faxinfo {
+sub faxinfo
+{
my $self = shift;
my $conn = Fax::Hylafax::Client->faxinfo(%{$self->{PARAM}});
$self->{TRACE} = $conn->trace;
@@ -463,7 +521,8 @@
}
-sub faxrm {
+sub faxrm
+{
my $self = shift;
my $conn = Fax::Hylafax::Client->faxrm(%{$self->{PARAM}});
$self->{TRACE} = $conn->trace;
@@ -472,18 +531,21 @@
}
-sub jobid {
+sub jobid
+{
my $self = shift;
return $self->{JOB_ID};
}
-sub success {
+sub success
+{
return Fax::Hylafax::Client->_success(shift);
}
-sub trace {
+sub trace
+{
return Fax::Hylafax::Client->_trace(shift);
}
@@ -492,17 +554,20 @@
package Fax::Hylafax::Client::Instant;
-sub content {
+sub content
+{
return Fax::Hylafax::Client->_content(shift);
}
-sub success {
+sub success
+{
return Fax::Hylafax::Client->_success(shift);
}
-sub trace {
+sub trace
+{
return Fax::Hylafax::Client->_trace(shift);
}
@@ -528,7 +593,7 @@
=head1 DESCRIPTION
This is a simple Perl client for HylaFAX fax server (www.hylafax.org). It communicates
-with the server directly through FTP protocol and thus does not require any HylaFAX
+with the server directly through FTP-like protocol and thus does not require any HylaFAX
software components to be installed on the client machine.
=head1 MAIN METHODS AND ATTRIBUTES
@@ -564,13 +629,15 @@
=item docfile
-Full pathname of the main (document) file. Document file must be in one of the
+Full pathname of the document file. This attribute takes a single filename (scalar)
+or a reference to an array of filenames. Document files must be in one of the
native HylaFAX formats, i.e. Plain Text, PostScript, TIFF Class F, or PDF.
[REQUIRED unless you use "poll" option]
=item coverfile
-Full pathname of the cover page file. All notes about "docfile" apply. [OPTIONAL]
+Full pathname of the cover page file. All notes about "docfile" apply, except
+it only takes one filename as scalar. [OPTIONAL]
=item notifyaddr
@@ -892,9 +959,12 @@
notifyaddr => 'test at user.com',
);
- if ($fax->success){
+ if ($fax->success)
+ {
print "We are OK";
- } else {
+ }
+ else
+ {
print $fax->trace;
}
@@ -909,7 +979,10 @@
my $fax = sendfax(
dialstring => '14151234567',
- docfile => '/usr/home/test/document.ps',
+ docfile => [
+ '/usr/home/test/document1.ps',
+ '/usr/home/test/document2.ps',
+ ],
);
my $task_succeded = $fax->success ? "YES" : "NO";
@@ -918,7 +991,8 @@
my $current_job_status = $fax->faxinfo;
my $server_stats = faxstat( info => 1, active => 1 )->content;
- if (faxinfo($job_id)->content ne 'DONE'){
+ if (faxinfo($job_id)->content ne 'DONE')
+ {
print "We're not done yet";
$fax->faxrm;
@@ -939,9 +1013,12 @@
}
my $other_server_task = faxstats( host => 'other.server.host', user => 'bob', password => 'whatever' );
- if ($other_server_task->success){
+ if ($other_server_task->success)
+ {
print $other_server_task->content;
- } else {
+ }
+ else
+ {
print "Doh! We failed to get stats from the server: ", $other_server_task->trace;
}
@@ -958,14 +1035,14 @@
=head1 COPYRIGHT
-Copyright (c) 2003 Alex Rak. All rights reserved.
+Copyright (c) 2003,2006 Alex Rak. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 SEE ALSO
-HylaFAX man pages L<http://www.hylafax.org/man/>
+HylaFAX man pages L<http://www.hylafax.org/>
=cut
Modified: branches/upstream/libfax-hylafax-client-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libfax-hylafax-client-perl/current/MANIFEST?rev=15847&op=diff
==============================================================================
--- branches/upstream/libfax-hylafax-client-perl/current/MANIFEST (original)
+++ branches/upstream/libfax-hylafax-client-perl/current/MANIFEST Thu Feb 28 11:57:50 2008
@@ -1,7 +1,7 @@
-Changes
-Client.pm
-Makefile.PL
-MANIFEST
-README
-test.pl
-test.ps
+Changes
+Client.pm
+Makefile.PL
+MANIFEST
+README
+test.pl
+test.ps
Modified: branches/upstream/libfax-hylafax-client-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libfax-hylafax-client-perl/current/Makefile.PL?rev=15847&op=diff
==============================================================================
--- branches/upstream/libfax-hylafax-client-perl/current/Makefile.PL (original)
+++ branches/upstream/libfax-hylafax-client-perl/current/Makefile.PL Thu Feb 28 11:57:50 2008
@@ -1,10 +1,8 @@
use ExtUtils::MakeMaker;
WriteMakefile(
- 'NAME' => 'Fax::Hylafax::Client',
- 'VERSION_FROM' => 'Client.pm',
- 'PREREQ_PM' => { 'Net::FTP' => 2.65 },
- ($] >= 5.005 ?
- (ABSTRACT_FROM => 'Client.pm',
- AUTHOR => 'Alex Rak <arak at cpan.org>') : ()),
+ 'NAME' => 'Fax::Hylafax::Client',
+ 'VERSION_FROM' => 'Client.pm',
+ 'PREREQ_PM' => { 'Net::FTP' => 2.65 },
+ ($] >= 5.005 ? (ABSTRACT_FROM => 'Client.pm', AUTHOR => 'Alex Rak <arak at cpan.org>') : ()),
);
Modified: branches/upstream/libfax-hylafax-client-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libfax-hylafax-client-perl/current/README?rev=15847&op=diff
==============================================================================
--- branches/upstream/libfax-hylafax-client-perl/current/README (original)
+++ branches/upstream/libfax-hylafax-client-perl/current/README Thu Feb 28 11:57:50 2008
@@ -1,31 +1,31 @@
-Fax::Hylafax::Client version 1.01
-=================================
-
-This is a simple Perl client for HylaFAX fax server (www.hylafax.org).
-It communicates with the server directly through FTP protocol and
-thus does not require any HylaFAX software components to be installed
-on the client machine.
-
-INSTALLATION
-
-To install this module type the following:
-
- perl Makefile.PL
- make
- make test
- make install
-
-
-DEPENDENCIES
-
-This module requires these other modules and libraries:
-
- Net::FTP 2.65 or higher
-
-
-COPYRIGHT AND LICENCE
-
-Copyright (c) 2003 Alex Rak (arak at cpan.org). All rights reserved.
-
-This program is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
+Fax::Hylafax::Client version 1.02
+=================================
+
+This is a simple Perl client for HylaFAX fax server (www.hylafax.org).
+It communicates with the server directly through FTP-like protocol and
+thus does not require any HylaFAX software components to be installed
+on the client machine.
+
+INSTALLATION
+
+To install this module type the following:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+
+DEPENDENCIES
+
+This module requires these other modules and libraries:
+
+ Net::FTP 2.65 or higher
+
+
+COPYRIGHT AND LICENCE
+
+Copyright (c) 2003,2006 Alex Rak (arak at cpan.org). All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
Modified: branches/upstream/libfax-hylafax-client-perl/current/test.pl
URL: http://svn.debian.org/wsvn/branches/upstream/libfax-hylafax-client-perl/current/test.pl?rev=15847&op=diff
==============================================================================
--- branches/upstream/libfax-hylafax-client-perl/current/test.pl (original)
+++ branches/upstream/libfax-hylafax-client-perl/current/test.pl Thu Feb 28 11:57:50 2008
@@ -43,6 +43,8 @@
my $fax = Fax::Hylafax::Client->sendfax(
host => $hostname || '',
+ user => $user || '',
+ password => $password || '',
dialstring => $dialstring || '',
docfile => $docfile || '',
notifyaddr => $notifyaddr || '',
More information about the Pkg-perl-cvs-commits
mailing list