use strict;
use warnings;
use Carp qw(croak carp);
use CGI ();
use CGI::Carp qw(fatalsToBrowser warningsToBrowser set_message);

use PBoard::Config;
use PBoard;
use PBoard::DB;
use PBoard::Storage;

use XML::RSS;
# http://search.cpan.org/dist/XML-RSS/lib/XML/RSS.pm

#############################################
### Parameter ###

# board=<id>, thread=<id>                   nur diesem dem Board/Thread <id>;
# action=lastMessagesDays;last=7            nur innerhalb der letzten 7 Tage
# action=lastMessagesNumbers;last=7         nur die letzten 7 Einträge
# user_id=<id>                              nur Threads von/mit Nutzer <id>
# filter=no_reply                           nur neue Threads anzeigen/keine Antworten

#############################################
### Debug ###

my $debug = 0;

#############################################
### Variablen   ###

	my $max_days    = 10;                          # Maximalwert für das Alter der Beiträge
	my $max_entries = 20;                          # Maximalwert für die Anzahl der Beiträge
	my $last_entries_default_days = 3;             # Default-Wert für das Alter der Beiträge
	my $last_entries_default_entries = 20;         # Default-Wert für die Anzahl der Beiträge
	my $action_default = 'lastMessagesNumbers';    # Default-Wert für die Action
	
	my $rss_board_titel     = $PBoard::Config::PageName;
	my $rss_board_link      = 'http://board.perl-community.de';
	my $rss_language        = 'de-de';
	my $rss_description     = 'Perl-Community.de - Deutschlands größte Community zum Thema Perl';
	my $rss_copyright       = 'Perl-Community.de';
	my $rss_docs            = 'http://blogs.law.harvard.edu/tech/rss';
	my $rss_managingEditor  = 'strat@perl-community.de';
	my $rss_webMaster       = 'strat@perl-community.de';
	
	my $rss_caching = 1;                           # Caching der Feeds aktivieren 
	my $rss_caching_time = 15;                     # Caching-Time (Wert in Minuten)
	my $rss_pfad = './';

	my $rss_out = '';
	
#############################################

print "\n==> Script $0 wurde gestartet\n" if $debug;

### Parameter einlesen & prüfen ###
	my $cgi = CGI->new();
	my $board_id      = $cgi->param( 'board' )   || 0;
	my $thread_id     = $cgi->param( 'thread' )  || 0;
	my $user_id       = $cgi->param( 'user_id' ) || 0;
	my $action        = $cgi->param( 'action' )  || 'lastMessagesNumbers';
	my $last_entries  = $cgi->param( 'last' )    || 0;
	my $filter        = $cgi->param( 'filter' )  || 0;

	# board_id prüfen
	$board_id = 0 if ($board_id !~ m|^[0-9]*$|) || ($board_id < 0);

	# thread_id prüfen
	$thread_id = 0 if ($thread_id !~ m|^[0-9]*$|) || ($thread_id < 0);

	# user_id prüfen
	$user_id = 0 if ($user_id !~ m|^[0-9]*$|) || ($user_id < 0);
	 
	# Default-Wert für '$action' falls ungültig
	if (!grep $action eq $_, qw/lastMessagesNumbers LastMessagesDays/) { $action = $action_default; } # if

	# Default-Wert für '$last_entries' falls nicht definiert
	$last_entries = 0 if ($last_entries !~ m|^[0-9]*$|) || ($last_entries < 0);
	if (!$last_entries) {
		if (lc($action) eq lc('lastMessagesDays')) { $last_entries = $last_entries_default_days; } # if
		else { $last_entries = $last_entries_default_entries; } # ifelse
		} # if 

	# '$last_entries' auf Höchst-Wert prüfen
	$last_entries = $max_days    if (lc($action) eq lc('lastMessagesDays')) && ($last_entries > $max_days);
	$last_entries = $max_entries if (lc($action) eq lc('lastMessagesDays')) && ($last_entries > $max_days);

	# Default-Wert für '$filter' falls ungültig
	if (!grep $filter eq $_, qw/no_replies/) { $filter = 0; } # if

	print "Board:   ".$board_id."\n" if $debug;
	print "Thread:  ".$thread_id."\n" if $debug;
	print "User:    ".$user_id."\n" if $debug;
	print "Action:  ".$action."\n" if $debug;
	print "Last:    ".$last_entries."\n" if $debug;
	print "Filter:  ".$filter."\n" if $debug;

### Caching ###
	if ($rss_caching && !$user_id) {
		# caching nur 'allgemein', nicht für Nutzer
		my $datei = 'rss';
		$datei .= '_board_'.$board_id      if $board_id;
		$datei .= '_thread_'.$thread_id    if $thread_id;
		$datei .= '_action_'.$action       if $action;
		$datei .= '_last_'.$last_entries   if $last_entries;
		$datei .= '_filter_'.$filter       if $filter;
		$datei = lc($rss_pfad.$datei.'.txt');
		print "Datei:   $datei\n" if $debug;

		# (-M $datei) bestimmt das Alter in Tagen als Gleitkommazahl
		if ((-e $datei) && (((-M $datei)*24*60 + 60) < $rss_caching_time)) {
			# d.h. die Datei ist vorhanden und ist nicht älter als $rss_caching_time
			print "Alter:   ".((-M $datei)*24*60 + 60)." Minuten\n" if $debug;
			print "Lese Datei aus Cache\n" if $debug;
			
			open (my $FH, "$datei") || die "Can't Open $datei: $!\n";
			my @LINES = <$FH>;
			close $FH;
			
			$rss_out = join('', @LINES);
			} # if
		else {
			# d.h. die Datei ist nicht vorhanden/zu alt
			print "Erzeuge Datei für Cache\n" if $debug;
			$rss_out = erzeuge_rss_feed();
			open (my $FH, ">$datei") || die "Can't Open $datei: $!\n";
			print $FH $rss_out;
			close $FH;
			} # ifelse
		} # if

	if ($rss_out eq '') { $rss_out = erzeuge_rss_feed(); } # if

	print $cgi->header(-type    => 'text/plain',
	                   -expires => '+0s',
	                   -charset => 'ISO-8859-1',
	                   );

	# RSS-Ausgabe
	print $rss_out;

print "\n==> Script $0 wurde beendet\n" if $debug;