ARD (Video)-Podcast Downloader

Posted on Wed 24 November 2010 in Linux • Tagged with Linux, Perl, Code • 1 min read

#!/usr/bin/perl -w
#
# ARD tagesschau podcast url
$url = "http://www.tagesschau.de/export/video-podcast/webl/tagesschau/";
#
# wget parameter
$wgetopts = "--quiet";
$targetpath = "/tmp";
#
# Enable verbose output
$verbose = 0;
#
#############################

use XML::Simple;
use LWP::Simple;

sub output{
        my $msg = shift;
        if ($verbose) { printf STDERR "$msg\n"; }
}

$xmlcontent = get($url);

my $xml …

Continue reading

Nagios plugin for JBoss monitoring - check_ajp

Posted on Fri 05 November 2010 in Linux • Tagged with JBoss, Nagios, Perl, Server, linux, notepad, plugin • 1 min read

Released check_ajp v1 - see download

md5sum: bfd5c249a1f44123062a0485c3af524c

Usage: ./check_ajp --app 10.10.10.10

$ ./check_ajp --app 10.28.10.80; echo "return: $?"
OK - AJP - 0.00294 seconds response time|time=0.002943s;;;0.000000;10.000000
return: 0
default setting
port 8009
warning 1.5 seconds
critical 3 seconds …

Continue reading