Index: /trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP.pm
===================================================================
--- /trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP.pm	(revision 5281)
+++ /trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP.pm	(revision 5282)
@@ -1,5 +1,5 @@
 # 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,4 +7,7 @@
 use strict;
 use warnings FATAL => qw( all );
+
+use vars qw( $VERSION );
+$VERSION = '0.01';
 
 use Carp qw( carp );
@@ -63,4 +66,31 @@
 }
 
+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;