#!/usr/bin/perl -w

# Coded by PoizOn poizon.net.ru

# MT-Subscriber

use strict;

use DBI;

############################################

#### Ïàðàìåòðû ïîäêëþ÷åíèÿ ê ÁÄ ############

my $user="root";

my $passwd="";

my $database="test";

############################################

#### Ïîäêëþ÷àåìñÿ ê ÁÄ #####################

my $dbh=DBI->connect("DBI:mysql:host=localhost;database=$database",$user,$passwd,

								{ RaiseError =>1});

############################################

#### Îïðåäåëÿåì òåêóùóþ äàòó ###############

my $time=time()-86400;

  #  0    1    2     3     4    5     6     7     8

my (undef,undef,undef,$mday,$mon,$year,undef) =

                                              localtime($time);

 $year+=1900;

 $mon+=1;

 $mon=length($mon)>1 ? $mon : "0$mon";

 $mday=length($mday)>1 ? $mday : "0$mday";

############################################

#### Ôîðìèðóåì è îòïðàâëÿåì çàïðîñ #########

my $sql=qq(SELECT entry_id,entry_title,entry_text,entry_created_on

           FROM mt_entry WHERE entry_created_on LIKE '$year-$mon-$mday%');

my $sth=$dbh->prepare($sql);

   $sth->execute();

while($data=$sth->fetchrow_hashref()) {

	$id=$data->{'entry_id'};

	$entry{$id}=$data;

}

   $sth->finish();  

###########################################

#### Ôîðìèðóåì âòîðîé çàïðîñ äëÿ $url ######

  $sql=qq(SELECT fileinfo_url

          FROM mt_fileinfo

          WHERE fileinfo_entry_id= ?);

  $sth=$dbh->prepare($sql);

  foreach $id(keys %entry) {

    $sth->execute($id);

    $data=$sth->fetchrow_hashref;

    $entry{$id}->{'url'}=$myurl . $data->{'fileinfo_url'};

  }

$sth->finish();

############################################

#### Ôîðìèðóåì ôàéë ñ ðàññûëêîé ############

  $sql=qq(SELECT email,id FROM mt_subscriberz);

  $sth=$dbh->prepare($sql);

  $sth->execute();

  while($data=$sth->fetchrow_hashref()) {

        $maillist{$data->{'email'}}=$data->{'id'};

  }

  $sth->finish();