#!/usr/bin/perl
use strict;
use warnings;

use CGI qw( param header );
use LWP::UserAgent ();
use Data::Dumper qw( Dumper );
use XML::Simple();

####################
# LWP::UserAgent
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
##########

####################
# XML::Simple
my $xmls = new XML::Simple(
	AttrIndent	=> 0,
	ContentKey	=> 'content',
	ForceArray	=> 1,
	KeepRoot	=> 1,
	NoAttr		=> 0,
	NoEscape	=> 1,
	NoIndent	=> 0,
	NoSort		=> 1,
	NormaliseSpace	=> 0,
	NSExpand	=> 1,
	NumericEscape	=> 0,
	RootName	=> 'xml',
	SuppressEmpty	=> undef,
	XMLDecl		=> '<?xml version="1.0" encoding="UTF-8"?>',
);
##########

####################
# localtime.
my @lt = localtime; $lt[5]+=1900; $lt[4]+=1;
##########

####################
# Verfügbare Klassen.
if( param('mode') eq 'klassen' ) {
	my $klassen = {};
	my $xml_hash = {'mmbbs' => [{'xmlns' => 'uri:de.dev5-media.mmbbs.stundenplan','klassen'=>[{'klasse'=>[]}]}]};
	
	####################
	# Lade Navigationsleiste vom Stundenplanprogramm.
	my $response = $ua->get('http://www.bbs-h.de/plan0910/klassen/frames/navbar.htm');
	my $navbar_html = $response->decoded_content;
	##########

	####################
	# Sind Klassen im Quelltext eingetragen?
	if( $navbar_html =~ m'var classes = \[([^\]]*)\];' ) {
		my $classes_html = $1; # Klassen als JavaScript Code.
		my $i = 0; # Zählindex für Klassen-IDs.
		
		####################
		# Für jede Klasse...
		foreach my $class_html (split ',', $classes_html) {
			if( $class_html =~ m'"([^"]+)"' ) {
				$klassen->{"$1"} = int($i);
			}
			$i++;
		}
		##########
	}
	else {
		print header( -type => 'text/plain', -status => '500 Internal Server Error' );
		print 'Klassen konnten nicht ermittelt werden.';
		exit 1;
	}
	##########
	
	####################
	# Daten aufbereiten.
	foreach my $klasse (sort keys %$klassen) {
		my $tmp = {};
		$tmp->{'id'} = "$klassen->{$klasse}";
		$tmp->{'content'} = "$klasse";
		
		# Für alle Klassen, die es gitb...
		if( $klasse !~ m/^CCNA|DR\w+|MB|BSFHR$/ ) {
			$tmp->{'email'} = lc("$klasse").'@mmbbs.eduplaza.de';
		}
		
		push @{ $xml_hash->{'mmbbs'}->[0]->{'klassen'}->[0]->{'klasse'} }, $tmp;
	}
	##########
	
# 	print header('text/plain'), Dumper($xml_hash);
	
	####################
	# Ergebnis ausgeben und Ende.
	print header( -type => 'text/xml', -status => '200 OK' );
	print $xmls->XMLout($xml_hash);
	exit 0;
	##########
}
##########
####################
# Verfügbare Kalenderwochen.
elsif( param('mode') eq 'wochen' ) {
	my $wochen = {};
	my $xml_hash = {'mmbbs' => [{'xmlns' => 'uri:de.dev5-media.mmbbs.stundenplan'}]};
	
	####################
	# Lade Navigationsleiste vom Stundenplanprogramm.
	my $response = $ua->get('http://www.bbs-h.de/plan0910/klassen/frames/navbar.htm');
	my $navbar_html = $response->decoded_content;
	##########

	####################
	# Sind Wochen im Quelltext eingetragen?
	if( $navbar_html =~ m~<select name="week" class="selectbox" style='width:114' onChange="doDisplayTimetable\(NavBar, topDir\);">\s*(.*)\s*$~s ) {
		####################
		# Wochen als HTML Options. Etwas unelegant aber "Quick And Dirty" ;)
		while( $1 =~ m~^(.*)</select>~s ) {
			last unless $_;
			$_ =~ m~^(.*)</select>~s
		}
		my $weeks_html = $1;
		$weeks_html =~ s/\s+$//g;
		$weeks_html =~ s/[\r\n]+$/\n/g;
		##########
		
		####################
		# Für jede Woche...
		foreach my $week_html (split /\n/, $weeks_html) {
			if( $week_html =~ m'<option value="(\d+)">(\d+)\.(\d+)\.(\d+)<\/option>' ) {
				$wochen->{sprintf('%04d-%02d-%02d',$4,$3,$2)} = $1;
			}
		}
		##########
	}
	else {
		print header( -type => 'text/plain', -status => '500 Internal Server Error' );
		print 'Wochen konnten nicht ermittelt werden.';
		exit 1;
	}
	##########
	
	####################
	# Daten aufbereiten.
	foreach my $woche (sort { $a=~m/(\d+)-(\d+)-(\d+)/; my $c = $1.$2.$3; $b=~m/(\d+)-(\d+)-(\d+)/; my $d = $1.$2.$3; $c <=> $d } keys %$wochen) {
		my $tmp = {};
		$tmp->{'id'} = "$wochen->{$woche}";
		$tmp->{'content'} = "$woche";
		
		push @{ $xml_hash->{'mmbbs'}->[0]->{'wochen'}->[0]->{'woche'} }, $tmp;
	}
	##########
	
# 	print header('text/plain'), Dumper($xml_hash);
	
	####################
	# Ergebnis ausgeben und Ende.
	print header( -type => 'text/xml', -status => '200 OK' );
	print $xmls->XMLout($xml_hash);
	exit 0;
	##########
}
##########
####################
# Unbekannter Modus.
else {
	print header( -type => 'text/html', -status => '404 Not Found' );
	print '<html><body><h1>de.dev5-media.mmbbs.stundenplan</h1><p>Unhandled mode</p></body></html>';
	exit 1;
}
##########
exit 0;