4 use POSIX qw(strftime);
8 $dbi_string="DBI:mysql:hostname=192.168.4.8;database=indy";
10 die unless ($dbh=DBI->connect($dbi_string,$db_user,$db_password));
14 $mo_insert_q="insert into content_objekt (titel, urheber, freigeschaltet, datum, ishtml, storage_path, thema_id, contentdata, created, lastchange, mail_sent) values (?,?,0,?,0,?,0,?,NOW(),NOW(),0)";
15 $mo_insert_sth=$dbh->prepare($mo_insert_q);
19 $datum = &POSIX::strftime( '%Y%m%d', localtime time );
20 $storage_path=&POSIX::strftime( '%Y/%m/%d', localtime time );
24 $titel="";$from="";$contentdata="";
27 if (/^Subject: (.*)/) {
29 if (/^Subject: <nadir-aktuell> (.*)/) {
37 print "Switched to Body\n";
42 $contentdata = $contentdata . $_;
45 print "$datum $storage_path $from $titel \n";
46 $mo_insert_sth->execute($titel, $from, $datum, $storage_path, $contentdata);