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----