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