Net Send - funtz aber jetzt 500 error

[Cheatah]

Hi,

system ("net send ...." if -e "net.exe")
oioioi ... ein "if" innerhalb der Parameterliste?

oh, aufmerksam. Das habe ich gar nicht gesehen.

Geht so etwas in Perl?

Ohne es getestet zu haben: Könnte klappen. Wenn "net.exe" existiert, wird der String geliefert, ansonsten "false", sprich: nichts. Und das würde dann vermutlich in einem Fehler resultieren, der gut und gerne bei STDERR landet...

Das könnte in der Tat das Problem sein. Dass "net.exe" nicht im aktuellen Verzeichnis (s. dazu meine Anmerkung in einer anderen Antwort) liegt, ist äußerst wahrscheinlich.

(Ich weiß schon, weshalb ich keinen Perl-Code mehr in Antworten poste - aber so etwas würde ich auch dann nicht verwenden, wenn das legales Perl sein sollte ...)

Ja, ich auch nicht :-)

use CGI::Carp qw(fatalsToBrowser);
in Zeile 2 Deines Skripts (direkt nach der "#!..."-Zeile) einfügen.

Nein, in Zeile 3 - die zweite Zeile ist zweifelsohne mit "use strict;" belegt ;-)

Für die Entwicklungsphase eines Skripts _unbedingt_ zu empfehlen, finde ich.

ACK.

Cheatah