Index: /trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP/Server.pm
===================================================================
--- /trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP/Server.pm	(revision 5278)
+++ /trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP/Server.pm	(revision 5279)
@@ -1,5 +1,5 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: Server.pm,v 1.1 2005-10-12 01:55:07 jhoblitt Exp $
+# $Id: Server.pm,v 1.2 2005-10-12 02:11:10 jhoblitt Exp $
 
 package PS::IPP::PSFTP::Server;
@@ -22,32 +22,49 @@
 
     if ($mode =~ /files_available/) {
-        $class->files_avaiable($cgi);
+        $class->files_available($cgi);
     } elsif ($mode =~ /file_received/) {
         $class->file_received($cgi);
     } else {
-        $class->error($cgi);
+        $class->error($cgi, "invalid mode");
     }
 }
 
-sub files_avaiable
+sub files_available
 {
     my ($class, $cgi) = @_;
 
-    my $recipient = $cgi->param('recipient');
+    my $recipient = $cgi->param('recipient')
+        or $class->error($cgi, "recipient not specified");
 
-    $class->error($cgi) unless $recip;
+    print $cgi->header('text/plain'),
+          $class->list_files($recipient);
+}
 
-    print $cgi->header('text/plain'), $class->list_files($recipient);
+sub file_received
+{
+    my ($class, $cgi) = @_;
+
+    my $recipient = $cgi->param('recipient')
+        or $class->error($cgi, "recipient not specified");
+    my $id = $cgi->param('id')
+        or $class->error($cgi, "id not specified");
+    my $discarded = $cgi->param('discarded')
+        or $class->error($cgi, "discarded not specified");
+
+    $class->set_received($recipient, $id, $discarded);
+
+    print $cgi->header(-status=> 200),
 }
 
 sub error
 {
-    my ($class, $cgi) = @_;
+    my ($class, $cgi, $message) = @_;
 
-    print $cgi->header(-status=> 403)
+    print $cgi->header(-status=> 400),
+          $message, "\n",
+          $cgi->end_html();
 }
 
-
-sub list_files
+sub get_available
 {
     my ($class, $recipient) = @_;
@@ -60,4 +77,8 @@
 }
 
+sub set_received
+{
+}
+
 1;