Постановление Правительства Республики Казахстан от 14 марта 2006 г. № 161 "О внесении изменений и дополнений в постановление Правительства Республики Казахстан от 19 июня 2001 г. № 836"
ОПЕРЕДЕЛЕНИЕ ПРАВОВОГО СТАТУСА КАСПИЙСКОГО МОРЯ
Вступительное слово министра иностранных дел Российской Федерации С.В. Лаврова на XX заседании Специальной рабочей группы по определению правового статуса Каспийского моря (14 марта 2006 г.)
СТРАТЕГИЧЕСКОЕ ПАРТНЕРСТВО РЕСПУБЛИКИ КАЗАХСТАН С РОССИЙСКОЙ ФЕДЕРАЦИЕЙ
Интервью с Чрезвычайным и Полномочным Послом Республики Казахстан в Российской Федерации Ж. Туймебаевым
#!/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/kazakh.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/kazakh.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 (495) 235-25-49, 235-47-88 | e-mail: info@oilgaslaw.ru