#!/usr/bin/perl -w use CGI; use CGI::Carp qw ( fatalsToBrowser ); use File::Basename; use File::Copy; use File::Find; use File::Path; use DBI; use POSIX; use lib "/home/zed/ZLIB"; require "poxpost.pl"; ##################################################### # CGI Initialisation ##################################################### # get the form details my $query = new CGI; HTMLHeader(); umask(0); # check action requested my $action = $query->param("action"); # now call required handler if ($action eq "jobversion"){ JobVersionCreate(); } # end header print qq( ); # END ############################################################################## # HTMLHeader # ############################################################################## sub HTMLHeader{ print $query->header( ); print qq(); print qq( ); print qq(); print qq(); print qq( ); } ############################################################################## # JobVersionCreate ############################################################################## sub JobVersionCreate{ print "creating job version "; # now send message to prune previous versions $payload = "jobpathrootver"; print "OK"; PoxPost::PostESB("COMPARE_PRUNE", $payload); }