Added lot of junk laying around on harvie.cz

[mirrors/Programs.git] / php / skripty / wmvbot.php

<?php\r
//Jyxo seek\r
//<-Harvie (2oo7)\r
\r
function url_bot($url) {\r
  $file = file($url);\r
  $file = implode("\n", $file);\r
  $file = spliti("http://", $file);\r
  //print_r($file);\r
  $urls[-1] = "";\r
  $i = 0;\r
  foreach($file as $url) {\r
    $url = split(">| ", $url);\r
    //print_r($url);\r
    $url = $url[0];\r
    if(eregi(".com", $url)) {\r
      $urls[$i] = "http://".$url;\r
      $i++;\r
    }\r
  }\r
  //print_r($urls);\r
  return($urls);\r
}\r
\r
function wmv_bot($url, $ext) {\r
  foreach(url_bot($url) as $url) {\r
    $file = file($url);\r
    $file[-1] = "";\r
  $file = implode("\n", $file);\r
  $file = spliti("http://", $file);\r
  //print_r($file);\r
  $urlz[-1] = "";\r
  $i = 0;\r
  foreach($file as $url) {\r
    $url = explode(">", $url);\r
    $url = $url[0];\r
    if(eregi(".com", $url) && eregi($ext, $url) && !eregi(" |\"", $url)) {\r
      $urlz[$i] = "http://".$url;\r
      $i++;\r
    }\r
  }\r
  print_r($urlz);\r
  }\r
  return($urlz);\r
}\r
\r
//\r
function download_url_array($results, $download_dir) {\r
  //$download_dir = $GLOBALS["download_dir"];\r
  $fails = 0; $done = 0;\r
  echo("\nDownloading to $download_dir ...\n");\r
  if(!is_dir($download_dir)) {\r
    echo("Creating directory: $download_dir\n\n");\r
    mkdir($download_dir);\r
  } else { echo("\n"); }\r
  foreach($results as $id => $url) {\r
    $file = url2filename($url);\r
    echo("Downloading $file (#$id)... ");\r
    $file = "$download_dir\\$file";\r
    if(!is_file($file) && @copy($url, $file)) {\r
      echo("Done.\n");\r
      $done++;\r
    } else {\r
      if(is_file($file)) { echo("File already exists "); }\r
      echo("Failed!\n");\r
      $fails++;\r
    }\r
  }\r
  $totaldls = ($fails+$done);\r
  echo("\n$done/$totaldls files successfully downloaded to $download_dir ($fails failed)\n");\r
}\r
\r
///CODE//////////////////////////////////////////////////////////////////////////////////////\r
$results = wmv_bot("http://www.loliti.com/cz/m/bonde19e_s_vodou_0.php", ".wmv");\r
print_r($results);\r
//download_url_array($results, "X:\\wmvBot"); //Automatic Download\r
\r
?>\r