#!/usr/bin/perl -w
use CGI;
print "Content-type: text/html\n\n";
print "\n\n\n";
print "\n";
print "Trigger Result\n\n";
print "\n";
print "Result:
";
my @query = split(/=/, $ENV{'QUERY_STRING'});
my $term = $query[$#query];
my $file = 'd:\\apps\\AETrigger\\' . $term . '.txt';
if (open (FH, '>', $file)) {
print "Trigger for $term ($query[0]) has been created.";
} else {
print "Error creating trigger; please contact support.";
}
print "\n";