#!/usr/bin/perl -w
# Nutzung des Perl-CGI-Interfaces
use CGI qw/:standard/;
$query = new CGI;
print $query->header(),
$query->start_html(-title=>'Test-Skript zur OTRSAnbindung');
# Sicherheitsabfrage (Skript darf nur aus OTRS heraus aufgerufen werden)
if(!( $ENV{HTTP_REFERER} =~ /Action\=AgentTicketZoom/))
{
print $query->h3("Aufruf des Skripts nicht gestattet!");
exit;
}
# Parameter aus der URL
my $ip = $query->param('IP');
my $ticketID = $query->param('TicketID');
my $result = "Test-Resultat";
# Inhalt der Webseite
print $query->h1("Testskript zu IP=$ip");
print p(
a({href=>$ENV{HTTP_REFERER}},"Zurück zum Ticket")
,"--"
,"Ergebnis: $result"
);
if ($result)
{
# Rückgabe des Ergebnisses als Freitextfeld 4
print 'Ergebnis übernehmen
';
}
print $query->end_html();