contrib/urlize.pl

   1 #!/usr/bin/perl
   2 #
   3 # urlize.pl
   4 #   jcw, 5/12/00
   5 #
   6 # A wrapper around Nagios plugins that provides a URL link in the output
   7 #
   8
   9 ($#ARGV < 1) && die "Incorrect arguments";
  10 my $url = shift;
  11
  12 chomp ($result = `@ARGV`);
  13 print "<A HREF=\"$url\">$result</A>\n";
  14
  15 # exit with same exit value as the child produced
  16 exit ($? >> 8);