#!/usr/bin/perl
#
# Script zur abfrage auf neue Patches bei IBM
#
# Author: Florian L  - 13.03.08
#
# Usage: ./checkupdate.pl
#
##############################################
use strict;
use warnings;
use LWP::UserAgent;

my $proxy = 'http://***:***@svproxsg01.****.de:8080/';

my $browser = LWP::UserAgent->new;
$browser->timeout(10);
$browser->proxy(['http','ftp'], $proxy) if defined $proxy;
$browser->cookie_jar({});

sub checkhmc() {
        print ("Trying http://www14.software.ibm.com/webapp/set2/sas/f/hmc/home.html\n");
        my $request = HTTP::Request->new('GET',"http://www14.software.ibm.com/webapp/set2/sas/f/hmc/home.html");
        my $response = $browser->request($request);
        if ($response -> is_success()) {
                my @site = $response->content;
                foreach (@site) {
                        my $line = $_;
                        if ($line =~ m/HMC V7 (.+)<\/a>/g) {
                                print("Aktuelle HMC Version: HMC V7 $1\n");
                        }
                }
        } else {
                print  "ERROR ".$response->message;
        }
}

sub checkfixpack() {
        print ("Trying http://www-912.ibm.com/eserver/support/fixes/fixcentral/pfixpacks/53\n");
        my $request = HTTP::Request->new('GET',"http://www-912.ibm.com/eserver/support/fixes/fixcentral/pfixpacks/53");
        my $response = $browser->request($request);
        if ($response -> is_success()) {
                my @site = $response->content;
                foreach (@site) {
                        my $line = $_;
                        if ($line =~ m/pseriesfixpackinformation\/(.+)\"/g) {
                                print("Fixpack: $1\n");
                        }
                }
        } else {
                print  "ERROR ".$response->message;
        }
}

sub checkvios() {
        print ("Trying http://www14.software.ibm.com/webapp/set2/sas/f/vios/download/home.html\n");
        my $request = HTTP::Request->new('GET',"http://www14.software.ibm.com/webapp/set2/sas/f/vios/download/home.html");
        my $response = $browser->request($request);
        if ($response -> is_success()) {
                my @site = $response->content;
                foreach (@site) {
                        my $line = $_;
                        if ($line =~ m/Fix Pack (.+)<\/b>/g) {
                                print("Vios Fixpack: $1\n");
                        } elsif ($line =~ m/IOSLEVEL: (.+)<\/b>/g) {
                                print("IOS-Level: $1\n");
                        }
                }
        } else {
                print  "ERROR ".$response->message;
        }
}

checkhmc();
checkfixpack();
checkvios();