Changeset 5283

Timestamp:

Oct 11, 2005, 4:58:03 PM (21 years ago)

Author:

jhoblitt

Message:

complete 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.5 2005-10-12 02:49:56 jhoblitt Exp $
+# $Id: PSFTP.pm,v 1.6 2005-10-12 02:58:03 jhoblitt Exp $
 
 package PS::IPP::PSFTP;
@@ -36 +36 @@
     );
 
-    my $self = bless (\%p, ref ($class) || $class);
+    my $self = bless(\%p, ref ($class) || $class);
 
     return $self;
@@ -86 +86 @@
 
     my $url = $self->{base_url}
-              . "/files_received"
+              . "/file_received"
               . "?recipient="
               . $self->{recipient}
               . "&id=" . $p{id}
               . "&discarded=" . $p{discarded};
+
+    my $ua = LWP::UserAgent->new;
+    my $response = $ua->get( $url );
+
+    if (! $response->is_success) {
+        carp $response->status_line;
+        return undef;
+    }
+
+    return 1;
 }