Помогите нужен скрипт и не один...отблагодарю!

Профиль · Отправлено: **00:48, 13-02-2004** | #2

насчёт п2 - могу написать на Perl-e, но нужно подробнее...
если интересно, то мыльте на ...

PS а насчёт пункта 1 ничего не понял

[s]Исправлено: Prisoner, 4:09 13-02-2004[/s]

Vlad Drakula · Конфигурация компьютера

видимо ты хчешь вот это:

Код:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
  <title>VGet</title>
  <link rel="stylesheet" href="./style.css" type="text/css">
  <meta name="Document-state" content="Dinamic">
  <meta http-equiv=Content-Type content="text/html; charset=Windows-1251">
  <meta http-equiv="Pragma" content="no-cache">
</head>
<body>
<table>
 <tr>
  <td>
   <table>
    <tr><td align=center><b>правила использования сервиса</b></td></tr>
   </table>
  </td>
 </tr>
 <tr>
  <td>
   запрещается использовать этот сервис для спама и других целей вредящих пользотелям всеминой сети и другим людям.
  </td>
 </tr>
</table>

<p>
<?php
include "properties.php";

function send_mail( $to, $file, $url, $name )
{
  global $from;
  global $version;

  $h="MIME-Version: 1.0\n"
    ."From: $from\r\n"
    ."Content-Type: multipart/mixed;\r\n"
    ." boundary=\"----------8C14D16316564E00\"\r\n"
    ."\r\n"
    ."------------8C14D16316564E00\r\n"
    ."Content-Language: ru\r\n"
    ."Content-Type: text/plain; charset=\"windows-1251\"\r\n"
    ."Content-Transfer-Encoding: 8bit\r\n";

  $body="это письмо сгенерено автоматически, на него ненадо отвечать\r\n"
       ."на ваш e-mail был сделан запрос на файл на нашем сервисе\r\n"
       ."http://vget.net.ru/\r\n"
       ."администрация не несет ответственности за содержимое этого файла!\r\n"
       ."\r\n"
       ."\r\n"
       ."------------8C14D16316564E00\r\n"
       ."Content-Type: application/octet-stream; name=\"$name\"\r\n"
       ."Content-Disposition: attachment; filename=\"$name\"\r\n"
       ."Content-Transfer-Encoding: base64\r\n\r\n"
       .chunk_split($file)
       ."\r\n\r\n------------8C14D16316564E00--\r\n\r\n";

  mail($to, "v $version get $url", $body, $h);
}

function www4mail($mail, $url)
{
  global $from;
  global $version;
  global $pathsize;
  global $psize;
  global $allupload;
  global $minsize;

  if($url=="")
    return;

  print" <tr>   <td>    <b>результат работы:</b>   </td>  </tr>  <tr>   <td>";

  if( ereg("^(http|ftp)", $data))
  {
    print "hak attemp!";
    return;
  }


  $name=preg_replace("|http.*/|", "", $url);
  $name=preg_replace("|ftp.*/|", "", $name);
  $name=str_replace("/", "_", $name);
  $name=str_replace("?", "_", $name);
  $name=str_replace("&", "_", $name);
  $name=str_replace("@", "_", $name);

  print "<p>url: $url<br />";
  print "file: $name<br />";
  print "upload: ";

  $ch = curl_init ($url);
  $fp = fopen ($name, "wb");

  curl_setopt ($ch, CURLOPT_FILE, $fp);
  curl_setopt ($ch, CURLOPT_HEADER, 0);

  curl_exec ($ch);
  curl_close ($ch);

  fclose ($fp);

  $size = 0;
  $size = filesize ($name);

  if( $size < 1 )
  {
    unlink($name);
    print "<b> размер файла < $minsize байт </b><br /> </td> </tr>";
    return;
  }

  if( $size < $minsize )
  {
    print "<b> размер файла < $minsize байт </b><br /> ";

    $fp = fopen( $name, 'rb' );
//    print fread($fp, $psize)."</b><br /> </td> </tr>";
    fclose($fp);

    unlink($name);
    return;
  }
  $fp = fopen( $name, 'rb' );

  if( !$fp )
  {
    print "<b> не удалось открыть файл </b> <br /> </td> </tr>";
    return;
  }

  mail("info@vget.net.ru",
       "v $version get $url",
       "email = $mail\r\nt = ".date ("l dS of F Y h:i:s A")."\r\n",
       "From: $from");

  $ps=0;
  $n=1;
  $read="";
  $ssize=0;

  print "<b> sending... </b> <br />";
  while(!feof($fp))
  {
    $read.=base64_encode(fread($fp, $psize));
    $ssize+=$psize;
    $ps+=$psize;

    print $ssize." из ".$size."<br />";

    if($ps > $pathsize)
    {
      send_mail($mail, $read, $url, $name.".".$n);

      $ps = 0;
      $n ++;
      $read = "";
    }
  }
  fclose($fp);
  unlink($name);
  $allupload+=$size;

  if($n == 1)
    send_mail($mail, $read, $url, $name);
  else
    send_mail($mail, $read, $url, $name.".".$n);

  mail("info@vget.net.ru",
       "RE: v $version get $url",
       "email = $mail\r\nt = ".date ("l dS of F Y h:i:s A")."\r\nsize = $size\r\n",
       "From: $from");

  print "<br>послано $size байт<br /> </td> </tr>";
}

$i=0;
$j=0;

if( isset( $HTTP_POST_VARS["mail"] ) )
{
	$HTTP_POST_VARS[file]=str_replace("\n", " ", $HTTP_POST_VARS[file]);
	$HTTP_POST_VARS[file]=str_replace("\r", " ", $HTTP_POST_VARS[file]);
	$filelist1=explode(" ", $HTTP_POST_VARS[file]);

	print " <table>";

	foreach($filelist1 as $filename)
		if($filename!="")
			if( ereg("^(http|ftp)", $filename ) )
				$filelist2[$i++] = $filename;

    list($usec, $sec) = explode(" ",microtime());
	$starttime=$usec+$sec;

	if( $usepassword == 1 )
	{
	    if($HTTP_POST_VARS["password"]==$password)
	    {
	        for($j = 0; ($j < $i)&&($j < 50); $j ++)
		        www4mail( $HTTP_POST_VARS[mail], $filelist2[$j] );
	    }
	}
	else
	{
		for($j = 0; ($j < $i)&&($j < 50); $j ++)
			www4mail( $HTTP_POST_VARS[mail], $filelist2[$j] );
	}
	list($usec, $sec)=explode(" ",microtime());

	print " </table><br /><br />\n"
	     ." всего скачано: ".round( $allupload/(1024*1024), 3)."Мб<br /><br />\n"
	     ." затрачено времени: ".round(($usec+$sec-$starttime), 3)."c<br /><br />\n"
         ." средняя скорость скачивания: ".round( ($allupload)/(($usec+$sec-$starttime)*1024), 3)."Кб/с<br /><br />\n";
}
?>
<a name="end"> </a>
<form method="POST" action="index.php#end" onsubmit='this.Submit.disabled=true'>
<table>
<tr><td><b>E-mail</b></td><td><input type="Text" name="mail" value="<?php print isset( $HTTP_POST_VARS[mail] )?$HTTP_POST_VARS[mail]:""; ?>"></td><td>
<?php
if( $usepassword == 1 )
{
	?>
	<tr><td><b>Пароль</b></td><td><input type="Text" name="password" value="<?php print isset( $HTTP_POST_VARS[password] )?$HTTP_POST_VARS[password]:""; ?>"></td><td>
	<?php
}
?>
<tr><td colspan=2><textarea name="file"><?php for(; $j < $i; $j ++)print $filelist2[$j]."\n"; ?></textarea></td><td>
<tr><td colspan=2><input class="button" type="submit" value="получить" name="Submit"></td><td>
</table>
</form>
<!-- кнопки -->
<table>
<tr>
<td width=88>

<a href="http://www.vetton.ru/" target="_blank" border="0">
<img src="http://www.vetton.ru/images/vetton.gif" width=88 height=31 alt="Только лучшие обои" border="0">
</a>

</td>
<td>

<a href="http://mywallpaper.ru/" target="_blank" border="0">
<img src="http://mywallpaper.ru/mwp1.gif" width=88 height=31 alt="Только лучшие обои" border="0">
</a>

</td>
</tr>
</table>
</body>
</html>

Профиль · Отправлено: **11:13, 25-02-2004** | #4

Да именно это я хочу.
Спасибо большое, только файл properties.php где взять???

Vlad Drakula · Конфигурация компьютера

bweb

Код:

<?php
$version="4.1";
$q = 40000000;
$pathsize = 3000000;
$psize = 3000;
$from = "robot@vget.net.ru";
$allupload=0;
$usepassword=1;
$password="*****";
$minsize=3000;
?>

Профиль · Отправлено: **19:29, 25-02-2004** | #6

блин спасибо выручил

dmitryst Сообщения: n/a	Профиль \| Цитировать насчёт п2 - могу написать на Perl-e, но нужно подробнее... если интересно, то мыльте на ... PS а насчёт пункта 1 ничего не понял [s]Исправлено: Prisoner, 4:09 13-02-2004[/s]
	Отправлено: 00:48, 13-02-2004 \| #2

bweb Сообщения: n/a	Профиль \| Цитировать Да именно это я хочу. Спасибо большое, только файл properties.php где взять???
	Отправлено: 11:13, 25-02-2004 \| #4

bweb Сообщения: n/a	Профиль \| Цитировать блин спасибо выручил
	Отправлено: 19:29, 25-02-2004 \| #6