Posts Tagged ‘Perl’

ARD (Video)-Podcast Downloader

#!/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 = [...]

Nagios plugin for JBoss monitoring – check_ajp

Released check_ajp v1 – see here