#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();
my $argument = $cgi->param("argument");

print $cgi->header(),$cgi->start_html(-title => 'App starten,stoppen');

###############
# Linkeinbauen#
###############
print $cgi->a({href=>"http://www.google.de"},"Google");

if ($argument =~ m/start/) {
   print "Argument = $argument - Programm wird gestartet.<br>\n";
   my $start = `sh /home/jabla/sh_script/app_start.sh`;
       print $start;
   }
   elsif ($argument =~ m/stop/) {
       print "Argument = $argument - Programm wird gestopt.<br>\n";
       my $stop = `sh /home/jabla/sh_script/app_stop.sh`;
       print $stop;
   }
   else {
       print "Argument ungueltig - Programmstatus wird angezeigt.<br>\n";
       my $status = `sh /home/jabla/sh_script/app_status.sh`;
       print $status;
   }
print $cgi->end_html();