Changeset 5279
- Timestamp:
- Oct 11, 2005, 4:11:10 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP/Server.pm (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP/Server.pm
r5277 r5279 1 1 # Copyright (C) 2005 Joshua Hoblitt 2 2 # 3 # $Id: Server.pm,v 1. 1 2005-10-12 01:55:07jhoblitt Exp $3 # $Id: Server.pm,v 1.2 2005-10-12 02:11:10 jhoblitt Exp $ 4 4 5 5 package PS::IPP::PSFTP::Server; … … 22 22 23 23 if ($mode =~ /files_available/) { 24 $class->files_avai able($cgi);24 $class->files_available($cgi); 25 25 } elsif ($mode =~ /file_received/) { 26 26 $class->file_received($cgi); 27 27 } else { 28 $class->error($cgi );28 $class->error($cgi, "invalid mode"); 29 29 } 30 30 } 31 31 32 sub files_avai able32 sub files_available 33 33 { 34 34 my ($class, $cgi) = @_; 35 35 36 my $recipient = $cgi->param('recipient'); 36 my $recipient = $cgi->param('recipient') 37 or $class->error($cgi, "recipient not specified"); 37 38 38 $class->error($cgi) unless $recip; 39 print $cgi->header('text/plain'), 40 $class->list_files($recipient); 41 } 39 42 40 print $cgi->header('text/plain'), $class->list_files($recipient); 43 sub file_received 44 { 45 my ($class, $cgi) = @_; 46 47 my $recipient = $cgi->param('recipient') 48 or $class->error($cgi, "recipient not specified"); 49 my $id = $cgi->param('id') 50 or $class->error($cgi, "id not specified"); 51 my $discarded = $cgi->param('discarded') 52 or $class->error($cgi, "discarded not specified"); 53 54 $class->set_received($recipient, $id, $discarded); 55 56 print $cgi->header(-status=> 200), 41 57 } 42 58 43 59 sub error 44 60 { 45 my ($class, $cgi ) = @_;61 my ($class, $cgi, $message) = @_; 46 62 47 print $cgi->header(-status=> 403) 63 print $cgi->header(-status=> 400), 64 $message, "\n", 65 $cgi->end_html(); 48 66 } 49 67 50 51 sub list_files 68 sub get_available 52 69 { 53 70 my ($class, $recipient) = @_; … … 60 77 } 61 78 79 sub set_received 80 { 81 } 82 62 83 1; 63 84
Note:
See TracChangeset
for help on using the changeset viewer.
