#!/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);
}