#!/usr/bin/perl

use utf8;

$maks_vortoj = 1;

$celdosierujo = "prova";
if ($#ARGV != 1) {
	print "Unua parametro: dosierujo de la html dosieroj\n";
	exit;
}
$origino = $ARGV[0];

# States
$s_komenco = 0;
$s_nomo = 1;
$s_antauxdifinoj = 1;
$s_difinoj = 1;

sub procezi_dosieron {
	my $nomo = $_[0];
	my $stato = $s_komenco;
	my $linio;

	open $dosiero, $nomo or die "DIED: File not found";

	while(<$dosiero>) {
		$linio = $_;
		if ($stato == $s_komenco) {
			if ($linio eq
			"<table cellpadding=\"2\" cellspacing=\"2\">\n") {
				$stato = $s_nomo;
				print "Statosxangxo!";
			}
		} elsif ($stato == $s_nomo) {
			$stato = $s_antauxdifinoj;
		}
	}
}

sub krei_dosiernomon {
	my $num = $_[0];
	return "$origino/diego$num.html";
}

for $i (1 .. $maks_vortoj) {
	$nomo = krei_dosiernomon($i);
	print $nomo

	procezi_dosieron($nomo);
}