Apache-UploadSvr

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

This distribution contains the code that I desribed in my talk about

  Seamless Publishing on the Web

on the O'Reilly Perl Conference, 2.0, on August 20th, 1998. The slides
of the talk are in the directory perl-conf-1998.

Code is not polished and catastrophically underdocumented, but several
people at the conference have expressed urgent desire for an upload,
so please be patient if you can't use it, look into the code or wait
until I come around to write some docu.

If you are clueful enough to understand the code, please consider
taking over the whole module/application. It's mainly a proof of
concept implementation and it works fine for us. So I probably won't
be able to support it as much as I would like.

Enjoy,
andreas koenig

lib/Apache/UploadSvr.pm  view on Meta::CPAN

  $userref->{lastlogin} = $time;
  if ($what_we_did) {
    unless (  $what_we_did =~ /^<TABLE/ ) {
      $what_we_did =~ s/^/<TABLE BORDER=2><TR><TD>/;
      $what_we_did =~ s|$|</TD></TR></TABLE>|;
    }
  } else {
    $what_we_did = "<HR>";
  }
  push @m, $what_we_did;
  push @m, $self->upload_form;
  push @m, qq{<HR><H4>Delete, Unzip, Publish, etc.</H4>};
  push @m, $file_listing;
  push @m, "<HR>";
  # push @m, $self->as_string;
  push @m, $cgi->endform;
  push @m, $cgi->end_html;
  $cgi->print(@m);
}

sub secure_transaction {

lib/Apache/UploadSvr.pm  view on Meta::CPAN

    warn "Uploader sent mail to $userref->{email} and closed successfully";
    $what_we_did .= $self->dict("D028", $userref->{email});
  } else {
    warn "Uploader tried to send mail, but...: $!";
    $what_we_did .= $self->dict("D029", $!);
  }
  $what_we_did .= qq{</TD></TR></TABLE>};
  $what_we_did;
}

sub upload_form {
  my($self) = @_;
  my $cgi = $self->{CGI};
  my $r = $self->{R};
  my($userref) = $self->{USERREF};

  my(@m);
  push @m, $cgi->start_multipart_form(-action => $r->uri);
  push @m, "<H4>Upload</H4>\n";
  push @m, $self->dict("D030");
  push @m, "<BR>";

lib/Apache/UploadSvr/Dictionary.data  view on Meta::CPAN

Report bad links

de:D007

Sie hatten versucht, eine Datei in Ihr Stagedirectory zu überspielen,
aber der Dateiname wurde nicht übermittelt. Bitte probieren Sie es
noch einmal oder wenden Sie sich an den Hauswart.

en:D007

You seem to have tried to upload a file into your stage directory but
the filename was not transmitted. Please try again.

de:D008

Fehler: illegaler Dateiname: %s -- ignoriert<BR>

en:D008

Error: illegal filename: %s -- ignored<BR>

lib/Apache/UploadSvr/Dictionary.data  view on Meta::CPAN

de:D014

Sie haben soeben die Datei <A HREF="%s/%s">%s</A>
in Ihr Directory "%s" eingespielt. Danke, sie ist angekommen.
Bitte wählen Sie unten weitere Optionen, was mit dieser Datei
geschehen soll.

en:D014

You have just uploaded the file <A HREF="%s/%s">%s</A> into your
directory "%s". Please choose below further options for processing.

de:D015

Zur Zeit enthält Ihr Stage Directory die unten aufgelisteten Dateien.
Bitte wählen Sie sowohl eine Aktion und klicken sie die Dateien an,
für welche die Aktion ausgeführt werden soll. Klicken Sie dann
"%s".<BR>

en:D015

lib/Apache/UploadSvr/Dictionary.data  view on Meta::CPAN

en:D029

Problem when trying to send a transaction ticket: %s<P>

de:D030

Ich möchte folgende Datei von meinem Rechner auf den Server laden:

en:D030

I want to upload the following file to the server:

de:D031

Ich möchte diese Datei in folgendem STAGE Directory haben (bitte
beachten Sie, daß Sie nur in bzw. unter folgenden Directories
Schreibberechtigung haben:

en:D031

I want the stage directory for this file to be
the following (please take into account that you only have upload
permissions for locations below:

de:D032

Lade in mein Directory

en:D032

Load into my directory

lib/Apache/UploadSvr/User.pm  view on Meta::CPAN

      changedon CHAR(10),
      changedby CHAR(10)
    )

C<user> corresponds to the username with which the users identify
in the authentication stage. C<email> is their email address where
the transaction tickets are delivered to. C<lastname> is their family name.
<fullname> is whatever the fullname is composed of in the local culture.
C<salut> is the salutation like C<Herr> or C<Mister>. C<lastlogin>
is the timestamp that is updated with every request. C<introduced> is
the timestamp when the user got registered (not used in this uploadserver).
C<password> is the crypted
password in the default upload server. If the authentication handler
uses a different table, then this field is not needed. C<changedon>
and C<changedby> are not used in this application, they are only used as
interesting facts for the administrator.

    CREATE TABLE perms (
      user CHAR(12),
      permitted CHAR(32)
    )

This table has a 1 to N mapping of users to directories they