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

use POSIX qw(strftime);
use LWP::Simple;

print "Hello, ScheduledWorld...\n";

while (1) {
	open(DEBUG, ">>debug.log");
	open(FILE, "<tmp_lines.txt");
	my @ar_title_lines = <FILE>;
	close(FILE);

	my $file_scalar = join(';', @ar_title_lines);
	#$file_scalar = "";

	my $site = get("...");
	my @ar_entry_chunks = split(/\<center\>\<B\>/, $site);

	shift(@ar_entry_chunks);
	my $num = $#ar_entry_chunks + 1;
	print DEBUG "num chunks: ".$num."\n";

	open(TEMP_FILE, ">tmp_lines.txt");
	my $offset = 0;
	for (my $i=0; $i<=$#ar_entry_chunks; $i++) {
		my $dummy = $ar_entry_chunks[$i];
		$dummy =~ /(.+?)\<\/B\>\<\/center\>/g;
		if (index($file_scalar, "$1") == -1) {
			$offset++;
			print "$i new: ".$1."\n";
			print TEMP_FILE $1."\n";
			print DEBUG "i:$i offset:$offset new: ".$1."\n";
		} else {
			print "$i old: ".$ar_title_lines[$i-$offset];
			print TEMP_FILE $ar_title_lines[$i-$offset];
			print DEBUG "i:$i offset:$offset old: ".$ar_title_lines[$i-$offset];
		}
	}
	close(TEMP_FILE);

	if ($offset > 0) {
		open(STAT_FILE, ">>posting_stats.txt");
		print STAT_FILE "offset: ".$offset."\n";
		print STAT_FILE strftime('%d-%m-%Y %H:%M',localtime)."\n";
		close(STAT_FILE);
	}

	print DEBUG "offset: ".$offset."\n";
	print DEBUG strftime('%d-%m-%Y %H:%M',localtime)."\n";
	print DEBUG "################################################################debug\n";

	close(DEBUG);
	sleep(60);
}