#!/usr/bin/perl -w
use strict;
use CGI qw(param);
use CGI::Carp qw(fatalsToBrowser);
my $argument = param("argument");
print "Content-type: text/html\n\n";
print "\n";
print "App starten,stoppen \n";
print "\n";
###############
# Linkeinbauen#
###############
print qq(Google
\n);
# print
;
# print Google;
# print
;
if ($argument =~ m/start/) {
print "Argument = $argument - Programm wird gestartet.
\n";
my $start = `sh /home/jabla/sh_script/app_start.sh`;
print $start;
}
elsif ($argument =~ m/stop/) {
print "Argument = $argument - Programm wird gestopt.
\n";
my $stop = `sh /home/jabla/sh_script/app_stop.sh`;
print $stop;
}
else {
print "Argument ungueltig - Programmstatus wird angezeigt.
\n";
my $status = `sh /home/jabla/sh_script/app_status.sh`;
print $status;
}
print "\n";
print "\n";