#!/usr/bin/perl $bufer=$ENV{'QUERY_STRING'}; @pairs = split(/&/, $bufer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $name =~ s///g; $name =~ s/<([^>]|\n)*>//g; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $input{$name} = $value; } print "Content-type: text/html\n\n"; $data=qq(../$input{'main'}/head.cgi); open (DATA, "$data"); @list=; close (DATA); print "@list";
Главная страница
ГЛАВНАЯ | О КОМПАНИИ | СТОИМОСТЬ ПРОЕКТА | КОНТАКТЫ | ОБРАТНАЯ СВЯЗЬ
#!/usr/bin/perl require "system/text/read.cgi";
#!/usr/bin/perl require "system/room/read.cgi";
----------------------------------------------------------------------------------------------------------------------------------------------------------
Город Владимир, ООО "Центр Развития", 2007. Создание сайта: Компания " "Маркет Офис" .
Обращаем Ваше внимание на то, что данный интернет-сайт носит исключительно информационный характер и ни при каких условиях не является публичной офертой, определяемой положениями ч. 2 ст. 437 Гражданского кодекса Российской Федерации.
Для получения подробной информации о стоимости и сроках выполнения услуг, пожалуйста, обращайтесь к сотрудникам ООО «Центр Развития».