ich hab hier ein Kleines CGI Skript, der zwei Funktion und HTML Seiten auf generiert, die dritte Funktion soll eine HTML Seite aufrufen. Kann mir jemand sagen, wie ich das Bewerkstelligen kann? Ich dachte an einer Weiterleitung, aber dass hat nicht geklappt, weil er eine neue Seite aufgemacht hat.
#!/usr/bin/perl# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Perl Funktionen
use CGI;
use Switch;
# Eigene Funktionen
use checkSAMBA;
use checkDISK;
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Variablen ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Values der Radiobuttons
$value_dienste="dienste";
$value_disk="disk";
$value_samba="samba";
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ HTML ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Neues Objekt $query erzeugen
$query = new CGI;
print $query->header(); # HTML Header ausgeben
print"
<html>
<!-- Kopfzeile -->
<head>
<title>Web-Interface für Servercheck</title>
<link rel=shortcut icon href=favicon.ico />
</head>
<!-- Body -->
<body>
<!-- Überschrift -->
<center><h2>Web-Interface für Servercheck</h2></center>
<!-- Formular -->
<form method=post action=servercheck.cgi>
<p>Bitte Wählen Sie eine Abfrage aus:</p>
<p>
<input type=radio name=abfrage value=dienste> Dienste<br>
<input type=radio name=abfrage value=disk> Disk Usage<br>
<input type=radio name=abfrage value=samba> Samba<br>
<input type=radio name=abfrage value=all> ALLES TESTEN<br>
</p>
<br>
<br>
<!-- Submit Button -->
<input type=submit value=submit>
</form>
</body>
</html>";
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ PERL Auswertung ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Ausgabe einer Trennlienie
print "<hr>";
# Welchr Button wurder gewählt?
# Mit der Methode param wird der value der einzelenen Buttons ausgelesen.
# Die Variable $value wird mit diesen Wert gesetzt.
$value = $query->param('abfrage');
# TEST WECHER BUTTON WURDE AUSGEWÄHLT
#print "Button: <b>$value</b>";
#print "<br>";
# TEST WECHER BUTTON WURDE AUSGEWÄHLT
# An Hand der values, werden hier die Funktionenen für die einzelnen Aufgaben aufgerufen
switch ($value){
case "$value_dienste" { print "<meta http-equiv=\"refresh\" content=\"0; URL=http:\/\/de.selfhtml.org\/\">" };
case "$value_disk" { &checkDISK::checkDISK };
case "$value_samba" { &checkSAMBA::checkSAMBA };
}
HTML Weiterleitung
