|
 |
 |
|
|
 |
#!/usr/bin/perl
BEGIN {
open(STDERR, '>> error.log');
}
print "Content-type: text/html\n\n";
use DBI;
$dbh = DBI->connect("DBI:mysql:database=alvigo:host=localhost", "alvigo", "8432ujre");
my $sth = $dbh->table_info;
$sth->execute();
while (my @row = $sth->fetchrow_array ) {
if ($row[2] eq "News") {$table_ok = 1}
}
if (!$table_ok) {
print "creating db\n";
$dbh->do(<
 |
|;
$allservs = $dbh->prepare("SELECT News_ID, Time, IP, Administrator, Message FROM News WHERE Lang=1 ORDER BY Time DESC LIMIT 5");
$allservs->execute;
while(@st = $allservs->fetchrow_array) {
$row_date=&fdate($st[1]);
#if (length($st[4]) > 5) { $short_msg = substr($st[4], 5, length($st[4])-5) . " ..."; }
if (length($st[4]) > 64) { $short_msg = substr($st[4], 0, 64) . " ..."; }
else { $short_msg = $st[4]; }
@b=split(//, $short_msg);
foreach $a (@b) {
#print $_;
if ($a eq '*' && $wasb == 1) { $wasb=0; $a=''; }
elsif ($a eq '*' && $wasb == 0) { $wasb=1; $a=''; }
}
# print @b;
$short_msg=join('', @b);
print qq|[$row_date]
$short_msg
|;
}
print qq|
| |;
$dbh->disconnect;
sub fdate {
my ($ftime) = shift;
my (undef, undef, undef, $wday, $wmonth, $wyear) = localtime($ftime);
return sprintf "%02i.%02i.%04i", $wday, $wmonth+1, $wyear+1900;
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
You can find and book hotels and tickets to Tallinn, Estonia, Moscow, Russia, Kiev and Ukraine.
ALVIGO AS
4D Paneeli Str., 11415 Tallinn, Estonia
Phone: +372 6055901; +372 6055902
Fax: +372 6055900
E-mail: info@alvigo.ee
Web: http://www.alvigo.ee
ALVIGO-M
38 Shosse Entuziastov, Moscow 111123, Russia
Phone: +7 095 2321465
Phone/Fax: +7 095 2329906
E-mail: alvigom@rol.ru / alvigom@alvigo.ee
NIAP
NOVOMOSKOVSKIY INSTITUTE OF NITRIC INDUSTRY
11 Kirov Str., 301650 Novomoskovsk, Russia
Phone: +7 08762 58822
Fax: +7 08762 34060
E-mail: niap_sm@novomoskovsk.ru / boss@niap.novomoskovsk.ru
ALVIGO-KS
SCIENTIFIC AND PRODUCTION COMPANY
5 Pyvovarov Str., 93403 Severodonetsk, Ukraine
Phone: + 38 06452 92513; 92033
Phone/Fax: + 38 06452 93628
E-mail: director@alvigo.lg.ua
ADAMAS
PRODUCTION ASSOCIATION
42A Vyborgska Str.,
03067 Kiev, Ukraine
Phone: +38 044 4530187
Fax: +38 044 4530186
E-mail: sekretar@adamas.org.ua
ALVIGO REPRESENTATIVE OFFICE IN UKRAINE
42A Vyborgska Str., 03067 Kiev, Ukraine
Phone: +38 044 4530187
Fax: +38 044 4530186
E-mail: ivash@alvigo.kiev.ua /
sekretar@alvigo.kiev.ua
ALVIGO REPRESENTATIVE OFFICE IN UZBEKISTAN
8 Druzhby Narodov Str., 700043 Tashkent, Uzbekistan
Phone/Fax: +99 871 144 3934
E-mail: alvigo_tashkent@mail.ru
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
