diff options
Diffstat (limited to 'contrib/urlize.pl')
| -rw-r--r-- | contrib/urlize.pl | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/contrib/urlize.pl b/contrib/urlize.pl deleted file mode 100644 index 5acb52de..00000000 --- a/contrib/urlize.pl +++ /dev/null | |||
| @@ -1,29 +0,0 @@ | |||
| 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); | ||
