Error from a `cmd` sent to a subroutine?

[Paul Farley]

Hi all, I'm trying to figure this out, I'd appreciate any help.

I have an application that I am using a perl script to do pattern matching
and then execute commands specific to that application.  I need a way to
handle an error in my script if one of the `cmd blah`; doesn't work and send
it to an error subroutine.

Here's what I have now:
<SNIPPED>

sub subscription
 {
($passed_ep,$passed_pr$passed_sub,$passed_org,$passed_plat)=shift;

  #add error routine to handle if PR/PM doesn't exist -pass to
exception_sub?
   `wsub \@ProfileManager:Staging \@Endpoint:$passed_ep`;
   `wln \@Endpoint:$passed_ep \@PolicyRegion:$passed_pr\.$passed_org`;
   `wsub \@ProfileManager:$passed_sub\.$passed_org\.$passed_plat\.ep
\@Endpoint:$passed_ep`;
   # on error pass ($ep,$pr,$sub,$org,$plat)
 }

sub exception_sub
  {
  ($passed_ep,$passed_pr$passed_sub,$passed_org,$passed_plat)=shift;
  `wsub \@ProfileManager:Exceptions \@Endpoint:$passed_ep`;
  print AFTERLOG "$passed_ep cannot go to $passed_org - Check PR
Structure\n";
  }

I tried:

`wsub \@ProfileManager:Staging \@Endpoint:$passed_ep` ||
exception_sub($passed_ep);

but that didn't work.

-Paul Farley
[EMAIL PROTECTED]





-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]