#!/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  '<a href="/otrs/index.pl?Action=AgentTicketFreeText&Subaction=Store&TicketID='.$ticketID.'&TicketFreeKey4=Ergebnis&TicketFreeText4='.$result.'">Ergebnis  &uuml;bernehmen</a><br>';
}
 
print $query->end_html();