#!/usr/bin/perl
#
#Sample Trigger to check for linked jobs
#
#Triggers:
# frmChange form-in change "c:\perl\bin\perl.exe c:\my_ws\perl_progs\chk4LinkedJobs.pl %formfile%"
#
use strict;
use warnings;
use Fatal qw/ open /;
my $formfile = $ARGV[0];
my ($valid,$in) = (0,0);
my @jobs = ();
open(FORM, "$formfile"); #open change spec.
while(<FORM>) {
if(/^Jobs\:/) {
$in = 1;
}
if($in #before Files: line
&& $_ ne "" #not empty
&& $_ ne "\n" #new line
&& $_ !~ /^Jobs\:/ #not Jobs field
&& $_ !~ /^Files\:/ ) { #not Files field
push(@jobs,$_);
$valid = 1;
}
if(/Files\:/) {
$in = 0;
}
}
close(FORM);
if($valid == 0) {
print "\n\nThe form is invalid\n";
print "You do not have any jobs linked\n";
exit 1;
} else {
print "The form is valid\n";
foreach (@jobs) {
print "Linked jobs are: $_";
}
exit 0;
}