#!/usr/bin/perl -w use CGI qw/:standard/; my $q=new CGI; use strict; umask 000; # This will set the permission of new files to the default for the user running this script. $|=1; # Autoflush after every print statement. print $q->header(); # i.e. this is the same as: print "Content-type: text/html\n\n"; my $default_dir = "/www/develop/jms/bridge_errors"; my $default_files_dir = "/www/develop/jms/bridge_errors/files"; my $identifier = $q->param("identifier"); #print "\$identifier = $identifier\n"; #exit; print < Background Processing

JMS Bridge Error Summariser Background Task

Background processing of the '$identifier' log files has started ...

Contact

HTMLcode # Launch the WLS Log Analyser script as a background task. exec "nohup ./error_summariser.cgi $identifier > $default_files_dir/$identifier/processing-log.txt &" or die "Can't exec: $!\n";