/opt/OV/nonOV/perl/a/bin/perl -d webpage_check.pl

Loading DB routines from perl5db.pl version 1.28
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(webpage_check.pl:24):      my $MON_NAME = $ARGV[0];
  DB<1> n
main::(webpage_check.pl:27):      my $config = '/var/opt/OV/bin/instrumentation/webpage_check.cfg';
  DB<1> n
main::(webpage_check.pl:30):      open my $fh, '<', $config or die $!;
  DB<1> n
main::(webpage_check.pl:33):      while( my $line = <$fh> ) {
  DB<1> n
main::(webpage_check.pl:40):          my ($fqdn, $svc_id, $url, $pattern, $comment) = split (/\t/, $line);
  DB<1> n
main::(webpage_check.pl:43):          my $content = safe_backticks('/usr/sfw/bin/wget', '-t', '2', '-T', '5', '-S', '-O', '-', $url );
  DB<1> n
--16:16:19--  http://blablabla/
           => `-'
Resolving blablabla
Connecting to blablabla|:80... connected.
HTTP request sent, awaiting response...
  HTTP/1.1 200 OK
  Date: Mon, 28 Sep 2009 14:16:19 GMT
  Server: Apache/2.2.2 (Win32) mod_jk/1.2.19
  Set-Cookie: JSESSIONID=AC77D1E711FE15DCDBCA27E5C4F64E7A; Path=/jupiter
  Pragma: No-cache
  Cache-Control: no-cache,no-store,max-age=0
  Expires: Thu, 01 Jan 1970 00:00:00 GMT
  Connection: close
  Content-Type: text/html;charset=UTF-8
Length: unspecified [text/html]

    [ <=>                                                                                           ] 71,956        --.--K/s

16:16:19 (3.75 MB/s) - `-' saved [71956]

main::(webpage_check.pl:50):        my @foo = grep(/$pattern/, $content);
  DB<1> n
main::(webpage_check.pl:52):                if ( @foo ){
  DB<1> n
main::(webpage_check.pl:54):            system ("/opt/OV/bin/opcmon", "Webpage_check=0", "-object", "Webpage_Monitor", "-option", "node=", $fqdn, "-option", "url=", $url, "-option", "svc_id=", $svc_id, "-option", "comment=", $comment);
  DB<1> n
Invalid parameter: 'servername_blabla'. (OpC30-683)
main::(webpage_check.pl:40):          my ($fqdn, $svc_id, $url, $pattern, $comment) = split (/\t/, $line);
  DB<1> n
main::(webpage_check.pl:43):          my $content = safe_backticks('/usr/sfw/bin/wget', '-t', '2', '-T', '5', '-S', '-O', '-', $url );
  DB<1> q