8 use vars qw/$db_driver $db_host $db_user $db_pwd $DB_PWD $db_name $db/;
9 use vars qw/$tb_obsah/;
14 $DB_PWD=$ENV{"HOME"}."/priv/mysql.${db_user}.pwd";
16 $tb_obsah="energie_obsah";
18 open DB_PWD or die "Failed open \"$DB_PWD\": $!";
23 $db=DBI->connect("DBI:$db_driver:database=$db_name;host=$db_host",$db_user,$db_pwd) or die "Database open fail: $!";
29 $db->do($cmd) or die("SQL command \"$cmd\" failed: $!");
32 eval { &db_do("drop table $tb_obsah") };
34 &db_do("create table $tb_obsah ("
35 ."year year(4) not null,"
36 ."month tinyint not null,"
37 ."month_last tinyint not null,"
38 ."contents text not null"
41 &db_do("alter table $tb_obsah add unique (year,month)");
44 use vars qw/$insert_tb_obsah $year $month $month_last $contents/;
48 return " in file $ARGV on line $.";
54 return if !defined $_;
56 print("Empty contents".&where()."!\n");
60 s/([\001\n]) | ([\002\n])/$1$2/g;
61 s/\nstrana \.\.\. ([\d ,]+\002)/\003$1/g;
62 die "Page marker not found somewhere in this month".&where() if (/\001[^\003]*\002/);
66 $insert_tb_obsah->execute($year,$month,$month_last,$_) or die "SQL insert failure: $!";
71 $insert_tb_obsah=$db->prepare("insert into $tb_obsah (year,month,month_last,contents) values (?,?,?,?)")
72 or die "Prepare fail: $!";
76 if (m#^EaP (\d+)(-(\d+))?/(\d+)$#) {
79 $month_last=($3 ? $3 : $1);
85 $contents.="\001$1\002";
89 $contents=substr($contents,0,-1)."\n$1\002";
92 die "Unexpected text".&where().": $_" if (/\S/);