package PoxPost; use strict; use LWP::UserAgent; use HTTP::Request::Common; use CGI; use CGI::Carp qw ( fatalsToBrowser ); use XML::Simple; my $esbhost = "http://5.0.10.212:8280/services/"; my $query; ###################################################################### # PostESB ###################################################################### sub PostESB { my $servicename = $_[0]; my $payload = $_[1]; my $userAgent = LWP::UserAgent->new(agent => 'perl post'); my $message = "".$payload.""; my $link = $esbhost.$servicename; my $response = $userAgent->request(POST $link, Content_Type => 'application/xml', Content => $message); if ($response->is_success){ return 1; } else{ return 0; } } ##

##

print "start\n";

$svc = "PRUNE";
$msg = "90099368/gpfs/STUDIOS/HQ/2";

PoxPost::PostESB($svc, $msg);
print "sent\n";

##

##

#!/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);	
}