[Vienna-pm] Krauses Problem mit system in Linux

[nagy]

Hallo Kollegen,
entweder bin ich etwas eingerostet in der Perl Programmierung oder der Pinguin will mich nicht.

Folgendes kleines scriptchen will nicht funktionieren: (der relevante Teil ist mit !!!!!!!!!!! gekennzeichnet)

Ich habe es auch ohne sudo probiert.
"exec" und  `.....` macht auch nichts.

Der returnwert ist 256, dass will mir nichts sagen. Google kann mir auch nicht helfen, aber vielleicht bin
Ich auch ein bisschen ungeschickt beim suchen.
Wahrscheinlich ist es 'nur' irgend eine abgefahreren kleine Sache.

Der Ausdruckt funktioniert auf der Commandline.

Lg
\^/ili

#!/usr/bin/perl -w
#
# start/stop/restart des Tomcatservers
#
#
# W. Nagy
#
#

use strict;
use constant VERSION=>'1.2R010';

use CGI;
use CGI::Carp('fatalsToBrowser');

my $cgi = new CGI;

print CGI::header();
print CGI::start_html(-title=>'Tomcat::Service',-BGCOLOR=>'lightblue');

my $action = $cgi->param('action');

print("ich bin action: '${action}'");
if ($action eq 'start') {
   print "<h1>start</h1>";
   }
elsif ($action eq 'stop') {
   print "<h1>stop</h1>";
#
#   !!!!!!!!!!!!!!!!!!!!!!!!! hier ist es !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   print system('sudo -u xxxx -p xxxxx  /etc/rc3.d/S86tomcat8181 stop');
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   }
elsif ($action eq 'restart') {
   print "<h1>restart</h1>"
   }
else {
   print "<div style=\"color:red\">Eine bislang unbekannte aktion '${action}' stellt sich vor</div>";
   }
print CGI::end_html();


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/vienna-pm/attachments/20090513/eca2ec6b/attachment.html>