Schreibberechtigung in Verzeichnis

[Jörg Reinholz]

Moin!

Ich habe für Dich den relevanten Teil herausgesucht. Füttere den mit Daten und melde Dich mit der eventuellen Fehlermeldung.

            my $fh = IO::File->new;
            $fh->open($r->{filename}, O_CREAT|O_BINARY|O_RDWR ) or return $self->errorP( descr => "Keine Schreibberechtigung in '$cwd'\n");
            $r->{iohandle}->seek(0,0);
            read($r->{iohandle}, my $buffer, $r->{content_length});
            $fh->print($buffer);
            $fh->close;

Jörg Reinholz