parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

Ответ

Вадим 30.07.2002 14:24

Домен есть на masterhost и естественно доступ тоже есть.
Мне нужно создавать автоматически поддомены для клиентов.

Есть такой скрипт на перле интересный, вод код от него:

$domain = $ENV{'HTTP_HOST'};

if (($domain eq 'name.darkzone.ru') || ($domain eq 'www.name.darkzone.ru')) {
&Redirect("http://your link",
"darkzone.ru .:Protected by Darkzone.ru:.")
}


&Redirect("http://www.darkzone.ru",
"Darkzone",
"Darkzone",
".:Protected by Darkzone.ru:.",
"Darkzone",
"Darkzone",
"Darkzone protect");

#################################################################
# Redirect to real location. Real URL will hidden
# Function parameters:
# 0. Real URL location - required
# 1. Site Title - required
# 2. Site Description
# 3. Site Keywords
# 4. Site Author
# 5. Site Owner
# 6. Site Copyright

sub Redirect { #
print "Content-type: text/html\n\n";
print "<html><head>\n";
print "<title>$_[1]</title>\n";
print "</head>\n";
print "<frameset frameborder=0 framespacing=0 border=0 rows=\"100%,*\" noresize>\n";
print "<frame name=\"frame\" src=\"$_[0]\" noresize>\n";
print "</frameset>\n";
print "<meta http-equiv=refresh content=\"0; url=$_[0]\">\n";
print "<a href=\"$_[0]\">$_[0]</a></html>\n";
exit;
}


Вот я и хотел узнать, средствами Парсера возможно это же сделать?