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 # Pay close attention to quoting to ensure that the shell passes the
  10 # expected data to the plugin. For example, in:
  11 #
  12 #    urlize http://example.com/ check_http -H example.com -r 'two words'
  13 #
  14 # the shell will remove the single quotes and urlize will see:
  15 #
  16 #    urlize http://example.com/ check_http -H example.com -r two words
  17 #
  18 # You probably want:
  19 #
  20 #    urlize http://example.com/ \"check_http -H example.com -r 'two words'\"
  21 #
  22 ($#ARGV < 1) && die "Incorrect arguments";
  23 my $url = shift;
  24
  25 chomp ($result = `@ARGV`);
  26 print "<A HREF=\"$url\">$result</A>\n";
  27
  28 # exit with same exit value as the child produced
  29 exit ($? >> 8);