ftp-get.php

<?php

// Kutsutaanko CLI:stä
$php_cli = FALSE;

if (php_sapi_name() == 'cli') {
  $php_cli = TRUE;
}

date_default_timezone_set('Europe/Helsinki');

if ($php_cli) {

  ini_set("include_path", ini_get("include_path").PATH_SEPARATOR.dirname(__FILE__).PATH_SEPARATOR."/usr/share/pear");
  error_reporting(E_ALL ^E_WARNING ^E_NOTICE);
  ini_set("display_errors", 0);

  require "inc/salasanat.php";
  require "inc/functions.inc";

  // Logitetaan ajo
  cron_log();

  if (!isset($ftpget_email)) $ftpget_email = "development@devlab.fi";       // kenelle meilataan jos on ongelma
  if (!isset($ftpget_emailfrom)) $ftpget_emailfrom = "development@devlab.fi";   // millä osoitteella meili lähetetään

  // ja operaattori komentoriviltä
  // itella, servinet, yms
  // pitää olla määritettynä salasanat.inc:issä tai sitten tämä menee puihin.
  $operaattori = $argv[1];
}

// Sallitaan vain yksi instanssi tästä skriptistä kerrallaan
pupesoft_flock();

if ($operaattori == "") {
  mail($ftpget_email,  mb_encode_mimeheader("VIRHE: FTP-get!", "ISO-8859-1", "Q"), "FTP-get sisäänluvussa ongelma, ei operaattoria valittuna. Tutki asia!", "From: ".mb_encode_mimeheader("Pupesoft", "ISO-8859-1", "Q")." <$ftpget_emailfrom>\n", "-f $ftpget_emailfrom");
  exit;
}

if ($ftpget_host[$operaattori] != '' and $ftpget_user[$operaattori] != '' and $ftpget_pass[$operaattori] != '' and $ftpget_path[$operaattori] != '' and $ftpget_dest[$operaattori] != '') {

  if (isset($ftpget_port[$operaattori]) and (int) $ftpget_port[$operaattori] > 0) {
    $ftpget_port[$operaattori] = (int) $ftpget_port[$operaattori];

    $conn_id = ftp_connect($ftpget_host[$operaattori], $ftpget_port[$operaattori]);
  }
  else {
    $conn_id = ftp_connect($ftpget_host[$operaattori]);
  }

  // jos connectio ok, kokeillaan loginata
  if ($conn_id) {
    $login_result = ftp_login($conn_id, $ftpget_user[$operaattori], $ftpget_pass[$operaattori]);
  }

  if ($login_result) {
    $changedir = ftp_chdir($conn_id, $ftpget_path[$operaattori]);
  }

  // haetaan filet active modella
  if ($changedir) {

    if (!isset($ftpget_ei_passive) or trim($ftpget_ei_passive) == '') {
      ftp_pasv($conn_id, true);
    }

    $files = ftp_nlist($conn_id, ".");

    if ($files) {
      foreach ($files as $file) {
        if (isset($ftpget_filt[$operaattori]) and $ftpget_filt[$operaattori] != "") {
          // Skipataan ne tiedostot joissa ei ole määriteltyä stringiä nimessä
          if (stripos($file, $ftpget_filt[$operaattori]) === FALSE) {
            continue;
          }
        }

        $temp_filename = tempnam("/tmp", "ftp");

        $fileget = ftp_get($conn_id, $temp_filename, $file, FTP_ASCII);

        if (filesize($temp_filename) == 0) {
          // echo "VIRHE: Ladattava tiedosto on tyhjä!\n";
          unlink($temp_filename);
        }
        elseif ($fileget) {
          rename($temp_filename, $ftpget_dest[$operaattori]."/".$file);
          ftp_delete($conn_id, $file);
        }
        else {
          echo "VIRHE: Tiedoston $file lataus epaonnistui!\n";
          unlink($temp_filename);
        }
      }
    }
  }

  if ($conn_id) {
    ftp_close($conn_id);
  }

  $palautus = 0;

  // mikä feilas?
  if ($conn_id === FALSE) {
    $palautus = 1;
  }
  if ($login_result === FALSE) {
    $palautus = 2;
  }
  if ($changedir === FALSE) {
    $palautus = 3;
  }
  if ($files === FALSE) {
    $palautus = 4;
  }

  // jos siirto epäonnistuu
  if ($palautus != 0) {
    switch ($palautus) {
    case  1:
      $syy = "Could not connect to remote host. ($ftpget_host[$operaattori])";
      break;
    case  2:
      $syy = "Could not login to remote host ($conn_id, $ftpget_user[$operaattori], $ftpget_pass[$operaattori])";
      break;
    case  3:
      $syy = "Changedir failed ($conn_id, $ftpget_path[$operaattori], ".realpath($ftpget_path[$operaattori]).")";
      break;
    case  4:
      $syy = "Getting files failed ($conn_id, $ftpget_path[$operaattori])";
      break;
    default:
      $syy = t("Tuntematon errorkoodi")." ($palautus)!!";
    }
  }
}
else {
  mail($ftpget_email,  mb_encode_mimeheader("VIRHE: FTP-get!", "ISO-8859-1", "Q"), "FTP-get sisäänluvussa saattaa olla ongelma. Jokin tarvittavista tiedoista on väärin (operaattori: $operaattori)", "From: ".mb_encode_mimeheader("Pupesoft", "ISO-8859-1", "Q")." <$ftpget_emailfrom>\n", "-f $ftpget_emailfrom");
}