Вестник ТЭК - ежемесячный информационно-аналитический бюллетень, освещающий общую картину развития событий в топливно-энергетическом комплексе России и мира.
С 1997 г. бюллетень получают первые руководители ведущих государственных и коммерческих организаций в нефтяных регионах России и стран ближнего зарубежья. Издание распространяется по подписке, а также на парламентских слушаниях в Государственной Думе и Совете Федерации РФ, на основных выставках и конференциях нефтегазовой отрасли.
Содержание бюллетеня охватывает следующие направления:
официальная хроника, куда входит освещение работы Администрации Президента РФ, Правительства, министерств и ведомств, Государственной Думы и Совета Федерации;
новости монополий: ОАО "Газпром", РАО "ЕЭС России";
новости нефтегазовых компаний: "Лукойл", "Сургутнефтегаз", "Сибнефть", "Роснефть", "ТНК-BP", "Славнефть", "Башнефть", "Татнефть", "Юкос", "Итера", "Сибур" и других предприятий отрасли;
новости регионов: Ханты-Мансийского Автономного Округа, Ямало-Ненецкого Автономного Округа, Тюменской области, Республики Коми, Сахалина, Удмуртии и других регионов;
новости стран ближнего зарубежья: Азербайджана, Грузии, Казахстана, Киргизии, Туркменистана, Украины, Узбекистана;
мировые новости: из международных организаций, стран Европы, Америки и Юго-Восточной Азии.
#!/usr/bin/perl
##############################################################################
# Cliff's Banner Rotater Version 2.51 #
# Copyright 1998 Shaven Ferret Productions #
# Created 7/8/98 Last Modified 12/04/98 #
# Available at http://www.shavenferret.com/scripts #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1998 Shaven Ferret Productions All Rights Reserved. #
# #
# This script can be used\modified free of charge as long as you don't #
# change this header thing. By using this script you agree to indemnify #
# me from any liability that might arise from its use. In simple English, #
# if this script somehow makes your computer run amuck and kill the pope, #
# it's not my fault. #
# #
# Redistributing\selling the code for this program without prior written #
# consent is expressly forbidden. #
##############################################################################
# If the ads directory is not in the same directory as this file, enter
# the server path (not the URL) to the ads directory. Do not include a
# trailing slash.
$datadir = "/var/www/u6614017/data/www/vestnik.oilgaslaw.ru/cgi-bin/ban468";
##############################################################################
# Congratulations! You've finished defining the variables. If you want to, #
# you can continue screwing with the script, but it isn't necessary. #
##############################################################################
print "Content-type: text/html\n\n";
srand();
open(FILE,"$datadir/main.txt");
@ads = ;
close(FILE);
for ($i = 0; $i <= $#ads; $i++) {
chomp($ads[$i]);
($file,$weight,$page,$max) = split(/\|/, $ads[$i]);
$page = "/" . $page;
for ($j = 1; $j <= $weight; $j++) {
if (($page ne "/" && $page eq $ENV{'DOCUMENT_URI'}) || ($page eq "/")) { splice(@choose,0,0,$i); }
}
}
$adnum = int(rand($#choose));
($file,$weight,$page,$max) = split(/\|/, $ads[$choose[$adnum]]);
open(FILE,"$datadir/$file-ad.txt");
@adtext = ;
close(FILE);
foreach $line(@adtext) { print "$line"; }
open(FILE,"$datadir/$file-count.txt");
flock(FILE,2);
$count = ;
close(FILE);
$count++;
unless ($max && $count >= $max) {
open(FILE,">$datadir/$file-count.txt");
flock(FILE,2);
print FILE "$count";
close(FILE);
exit;
}
else {
splice(@ads,$choose[$adnum],1);
open(FILE,">$datadir/main.txt");
foreach $ad(@ads) { print FILE "$ad\n"; }
close(FILE);
unlink("$datadir/$file-count.txt");
unlink("$datadir/$file-ad.txt");
exit;
}
#!/usr/bin/perl
##############################################################################
# Cliff's Banner Rotater Version 2.51 #
# Copyright 1998 Shaven Ferret Productions #
# Created 7/8/98 Last Modified 12/04/98 #
# Available at http://www.shavenferret.com/scripts #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1998 Shaven Ferret Productions All Rights Reserved. #
# #
# This script can be used\modified free of charge as long as you don't #
# change this header thing. By using this script you agree to indemnify #
# me from any liability that might arise from its use. In simple English, #
# if this script somehow makes your computer run amuck and kill the pope, #
# it's not my fault. #
# #
# Redistributing\selling the code for this program without prior written #
# consent is expressly forbidden. #
##############################################################################
# If the ads directory is not in the same directory as this file, enter
# the server path (not the URL) to the ads directory. Do not include a
# trailing slash.
$datadir = "/var/www/u6614017/data/www/vestnik.oilgaslaw.ru/cgi-bin/ban234";
##############################################################################
# Congratulations! You've finished defining the variables. If you want to, #
# you can continue screwing with the script, but it isn't necessary. #
##############################################################################
print "Content-type: text/html\n\n";
srand();
open(FILE,"$datadir/main.txt");
@ads = ;
close(FILE);
for ($i = 0; $i <= $#ads; $i++) {
chomp($ads[$i]);
($file,$weight,$page,$max) = split(/\|/, $ads[$i]);
$page = "/" . $page;
for ($j = 1; $j <= $weight; $j++) {
if (($page ne "/" && $page eq $ENV{'DOCUMENT_URI'}) || ($page eq "/")) { splice(@choose,0,0,$i); }
}
}
$adnum = int(rand($#choose));
($file,$weight,$page,$max) = split(/\|/, $ads[$choose[$adnum]]);
open(FILE,"$datadir/$file-ad.txt");
@adtext = ;
close(FILE);
foreach $line(@adtext) { print "$line"; }
open(FILE,"$datadir/$file-count.txt");
flock(FILE,2);
$count = ;
close(FILE);
$count++;
unless ($max && $count >= $max) {
open(FILE,">$datadir/$file-count.txt");
flock(FILE,2);
print FILE "$count";
close(FILE);
exit;
}
else {
splice(@ads,$choose[$adnum],1);
open(FILE,">$datadir/main.txt");
foreach $ad(@ads) { print FILE "$ad\n"; }
close(FILE);
unlink("$datadir/$file-count.txt");
unlink("$datadir/$file-ad.txt");
exit;
}
Адрес редакции: 115054 Москва, ул.Зацепа, 23, офис 11 Тел.: +7 (499) 235-25-49, 235-47-88 | e-mail: info@oilgaslaw.ru
информационные издания
Архив выпусков
