IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 5279


Ignore:
Timestamp:
Oct 11, 2005, 4:11:10 PM (21 years ago)
Author:
jhoblitt
Message:

rename files_avaiable() -> files_available()
add file_received()
rename list_files() -> get_available()
add set_received()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP/Server.pm

    r5277 r5279  
    11# Copyright (C) 2005  Joshua Hoblitt
    22#
    3 # $Id: Server.pm,v 1.1 2005-10-12 01:55:07 jhoblitt Exp $
     3# $Id: Server.pm,v 1.2 2005-10-12 02:11:10 jhoblitt Exp $
    44
    55package PS::IPP::PSFTP::Server;
     
    2222
    2323    if ($mode =~ /files_available/) {
    24         $class->files_avaiable($cgi);
     24        $class->files_available($cgi);
    2525    } elsif ($mode =~ /file_received/) {
    2626        $class->file_received($cgi);
    2727    } else {
    28         $class->error($cgi);
     28        $class->error($cgi, "invalid mode");
    2929    }
    3030}
    3131
    32 sub files_avaiable
     32sub files_available
    3333{
    3434    my ($class, $cgi) = @_;
    3535
    36     my $recipient = $cgi->param('recipient');
     36    my $recipient = $cgi->param('recipient')
     37        or $class->error($cgi, "recipient not specified");
    3738
    38     $class->error($cgi) unless $recip;
     39    print $cgi->header('text/plain'),
     40          $class->list_files($recipient);
     41}
    3942
    40     print $cgi->header('text/plain'), $class->list_files($recipient);
     43sub 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),
    4157}
    4258
    4359sub error
    4460{
    45     my ($class, $cgi) = @_;
     61    my ($class, $cgi, $message) = @_;
    4662
    47     print $cgi->header(-status=> 403)
     63    print $cgi->header(-status=> 400),
     64          $message, "\n",
     65          $cgi->end_html();
    4866}
    4967
    50 
    51 sub list_files
     68sub get_available
    5269{
    5370    my ($class, $recipient) = @_;
     
    6077}
    6178
     79sub set_received
     80{
     81}
     82
    62831;
    6384
Note: See TracChangeset for help on using the changeset viewer.