<?php

$step = 20;
if (!$_GET) {
   $start = 1;
   $stop = $step;
   }
else {
   $start = $_GET['start'];
   $stop = $_GET['stop'];
}
$user_email = array();
$emails = array();
$users = array();
$pattern_user = "|Профиль пользователя (.*)<|siU";
$pattern_mail = "|mailto:(.*)\"|siU";
$table = '<table width=50% align=center border=0 cellspacing=2 cellpadding=2>' . "\n";
$table .= '<tr>' . "\n";
$table .= '<td width=20% align=center bgcolor=#f2f2f2><b>ID</b></td>' . "\n";
$table .= '<td width=40% align=center bgcolor=#f2f2f2><b>Имя пользователя</b></td>' . "\n";
$table .= '<td width=40% align=center bgcolor=#f2f2f2><b>e-mail</b></td>' . "\n";
$table .= '</ tr>' . "\n";
for ($i = $start; $i = $stop; $i++) {
   $url = 'http://www.mastersland.com/forum/profile.php?mode=viewprofile&u=' . "$i";
   $content = file_get_contents($url);
   if(preg_match($pattern_user, $content, $out)) {
      $users[$i] = $out[1];
   }
   if(preg_match($pattern_mail, $content, $out)) {
      $emails[$i] = $out[1];
   }
   $user_email[$i][$users[$i]] = $emails[$i];
   if ($emails[$i] != '') {
      $table .= '<tr>' . "\n";
      $table .= '<td width=20% align=center bgcolor=#f9f9f9>' . $i . '</td>' . "\n";
      $table .= '<td width=40% align=center bgcolor=#f9f9f9>' . $users[$i] . '</td>' . "\n";
      $table .= '<td width=40% align=center bgcolor=#f9f9f9>' . $emails[$i] . '</td>' . "\n";
      $table .= '</ tr>' . "\n";
   }
}
$table .= '<tr>' . "\n";
$count = count($emails);
$table .= '<td width=20% align=center bgcolor=#f2f2f2>' . "$count" . '</td>' . "\n";
$msg = '- число пользователей с открытым e-mail';
$table .= '<td colspan=2 width=80% align=center bgcolor=#f9f9f9>' . "$msg" . '</td>' . "\n";
$table .= '</ tr>' . "\n";
$table .= '</table>' . "\n";
echo $table;
$next = '<center>' . "\n";
$next .= '<a href="index.php?start=' . "$start + $step" . '&stop=' . "$stop + $step" . '">Следующие ' . $step . ' пользователей!</a>';
$next .= '</center>' . "\n";
echo $next;

$baza = serialize($user_email);
$fp = fopen("baza.dat", "a+");
fwrite($fp, "$baza" . "\n\n");
fclose($fp);

?>

Sc@M (10:44:14 1/08/2007)
почему сервер ночью не пинговался?

Хостер (10:57:04 1/08/2007)
Ночью была авария, сейчас все восстановили.

Sc@M (10:57:35 1/08/2007)
авария на уровне софта или техническая?

Хостер (10:59:36 1/08/2007)
техническая, полетел жесткий диск на одном из серверов, но благодаря настроенному зеркалированид данных все восстановили