[an error occurred while processing this directive]
школа
новости
видео
трофи-рейды
джип-спринты
триалы
экспедиции
ЗАХА
off-road клуб
внедорожники
магазин
автосервис
Продаются внедорожники

Продаются внедорожники
Тебя там ждут!!!

«Уральский внедорожный клуб»
«Тюмень 4х4» 
«Офф-роад клуб» г.Екатеринбург 
Омский клуб 4х4 
«Пермский клуб любителей бездорожья» 
Магнитогорский клуб 4х4 
Ассоциация «Экстрим», г.Екатеринбург 

 

 

 
Отдел магазина
#!/usr/bin/perl # $razadelf = "data/razdel.txt"; $dir_shop = "/shop"; $dir_tov = "/shop/tov"; ($DAY, $MONTH, $YEAR) = (localtime)[3,4,5]; $MONTH = $MONTH+1; $YEAR = $YEAR+1900; $query = $ENV{'QUERY_STRING'}; @pairs = split (/&/, $query); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); } if ($value eq "0") { print "Content-type: text/html\n\n"; print "

 

 

. .

 

 "; exit; } if ($value eq "") { print "Content-type: text/html\n\n"; print "

 

 

. .

 

 "; exit; } open(rasf,"$razadelf"); @list1=; for ($p==0;$p<100;$p++) { ($r_num,$r_name,$r_stop)=split(/;;/,$list1[$p]); if ($r_name ne "") { if ($r_num eq $value){goto M4} } } close (rasf); print "Content-type: text/html\n\n"; print "

 

 

. .

 

 "; exit; M4: close (rasf); print "Content-type: text/html\n\n"; print ""; # print "

, , "; print "

$r_name
$DAY.$MONTH.$YEAR.
"; print " "; print " "; print " "; print " "; print " "; print " "; $table_html=<<"HTML"; HTML print $table_html; $s = 0; open(news,"data/$r_num.txt"); @list=; for ($i==1;$i<1000;$i++) { ($number,$num_raz,$stop,$bold,$name,$opi,$cena1,$ue,$photo,$kod,$opi)=split(/ /,$list[$i]); if ($cena1 ne "") { if ($stop eq "1") { $url_up = " "; $url_end = ""; if ($kod ne "") { $url_up = ""; $url_end = ""; } $zpt=''; if ($bold ne "") { if ($name ne "") { $zpt = ", " } } $photo_mini = ""; $bb = "bb"; if ($photo eq "1") { $photo_mini = ""; } $cena1 = sprintf("%.2f", $cena1); $cena2 = sprintf("%.2f", $cena2); $cena3 = sprintf("%.2f", $cena3); if ($cena1==0) {$cena1=''}; $valuta = "."; if ($ue eq "1") {$valuta = ".."} $s=$s+1; print ""; print ""; print ""; $url=""; } } } print "
/
$s$url_up$photo_mini$url_end $url_up$bold$zpt$name$url_end"; print "$cena1 $valuta"; print "
"; print "

.

- ."; print "

, , , - ."; print "

   

";

Rainforest Challenge 2001

Российская команда вернулася из Малайзии, где учавствовала в международных соревнованиях внедорожников в качестве наблюдателей.
 
 
 
 

программирование
Андрея Попова
© 2001–2011

design by
Анна Данилова © 2001


Наверх
Назад
Написать письмо
На первую страницу