upload

[roman lenz]

hi hi

ich möchte Dateien uploaden und habe mir dafür von hier ein script geholt. das script läuft auch soweit.

wenn ich das script in mein script einbaue läuft es nicht mehr richtig.
im zielverzeichnis wird  eine datei angelegt aber nicht rein geschrieben.

kann mir einer weiter helfen?

besten dank

bis bis roman

sub upload {
#  my @ffile = split(/\/,$file);        # später ausbessern
#  $file = $ffile[$#ffile];
  my $data;
  open (DAT,'> '.$DIRsave.$file) || ($meld=$DIRsave.$file,&kill());
  binmode ($file);
  binmode (DAT);
  while(read $file,$data,1024) {
    print DAT $data || ($meld=$DIRsave.$file,&kill());
  }
  close (DAT);
}  #----Subende----

[Michael Schröpl]

Hi roman,

im zielverzeichnis wird  eine datei angelegt aber nicht rein geschrieben.
kann mir einer weiter helfen?

einige Deiner aufgerufenen Perl-Funktionen würden Dir eine Fehlerbeschreibung zurückliefern - diese solltest Du dringend abfragen und ausgeben (so wie Du das bei 'open' schon tust, mindestens auch bei 'close', beispielsweise, und "$!" ausgeben usw.).

So, wie Dein "Schönwetterskript" bisher arbeitet, läßt es Dich buchstäblich im Regen stehen, wenn irgendwas nicht so ist, wie Du das vielleicht gedacht hast.

Viele Grüße
      Michael