Changeset 5282

Timestamp:

Oct 11, 2005, 4:49:56 PM (21 years ago)

Author:

jhoblitt

Message:

add $VESRION
add partial file_received()

File:

• trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP.pm (modified) (3 diffs)

trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP.pm

@@ -1 +1 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: PSFTP.pm,v 1.4 2005-10-12 02:37:37 jhoblitt Exp $
+# $Id: PSFTP.pm,v 1.5 2005-10-12 02:49:56 jhoblitt Exp $
 
 package PS::IPP::PSFTP;
@@ -7 +7 @@
 use strict;
 use warnings FATAL => qw( all );
+
+use vars qw( $VERSION );
+$VERSION = '0.01';
 
 use Carp qw( carp );
@@ -63 +66 @@
 }
 
+sub file_received
+{
+    my $self = shift;
+
+    my %p = validate(@_,
+        {
+            id => {
+                type        => SCALAR,
+                regex       => qr/\S+/, # string with atleast 1 non WS char
+            },
+            discarded => {
+                type        => SCALAR,
+                callbacks   => {
+                    'is 0 or 1' => sub { $_[0] == 0 or $_[0] == 1 },
+                },
+            },
+        },
+    );
+
+    my $url = $self->{base_url}
+              . "/files_received"
+              . "?recipient="
+              . $self->{recipient}
+              . "&id=" . $p{id}
+              . "&discarded=" . $p{discarded};
+}
+
 1;