#!/usr/bin/perl
use strict;
use DBI;
################################################################################
## configuration space
my $cfg =
{
# Database configuration
database => 'Cest',
driver => 'mysql',
host => '127.0.0.1',
port => '3306',
user => '%user%',
password => '%password%',
charset => 'utf8',
# Selection configuration
query =>
q[
SELECT
`id` AS '%ID%',
`created` AS '%CREATED%',
`ip` AS '%IP%',
`persone` AS '%PERSON%',
`email` AS '%MAIL%',
`contacts` AS '%CONTACTS%',
`producer` AS '%PRODUCER%',
`seller` AS '%SELLER%',
`hardware` AS '%HARD%',
`software` AS '%SOFT%',
IF(`organization`>0, 'организация', 'физ. лицо') AS '%TYPE%',
`details` AS '%DETAILS%'
FROM
oem_appeal
],
text =>
q[
| №: | %ID% |
Создано: | %CREATED% |
IP-адрес: | %IP% |
| Контактное лицо: | %PERSON% (%TYPE%) |
| e-mail: | %MAIL% |
| Оборудование: | %HARD% |
| ПО: | %SOFT% |
|
]
};
################################################################################
## Script space, do not touch!
if (scalar(@ARGV)>0)
{
(open FD, '>', $ARGV[0]) or
die "Could not open file $ARGV[0]\n";
*STDOUT = *FD;
}
my $limit = $ARGV[0];
my $url = "dbi:$cfg->{driver}:database=$cfg->{database};host=$cfg->{host};port=$cfg->{port}";
my $dbh = DBI->connect($url, $cfg->{user}, $cfg->{password});
if ($dbh)
{
if ($dbh->do("SET NAMES $cfg->{charset}"))
{
my $sth = $dbh->prepare($cfg->{query});
if ($sth->execute())
{
# write header
produce_header();
# fetch all data
while (my $row = $sth->fetchrow_hashref())
{
produce_entry($row);
}
# write footer
produce_footer();
}
}
else
{
print "Charset configuration failed\n";
}
$dbh->disconnect();
}
else
{
print "Connection failed\n";
}
sub produce_header
{
print <
База обращений в ЦеСТ