source: extensions/Mail_supervisor/include/fonctions.php @ 11807

Last change on this file since 11807 was 11807, checked in by cljosse, 13 years ago

[extensions] mail_supervisor add 'title' and subject in tab test
File size: 23.1 KB
Line 
1<?php
2// +-----------------------------------------------------------------------+
3// | Piwigo - a PHP based picture gallery                                  |
4// +-----------------------------------------------------------------------+
5// | Copyright(C) 2008-2009 Piwigo Team                  http://piwigo.org |
6// | Copyright(C) 2003-2008 PhpWebGallery Team    http://phpwebgallery.net |
7// | Copyright(C) 2002-2003 Pierrick LE GALL   http://le-gall.net/pierrick |
8// +-----------------------------------------------------------------------+
9// | This program is free software; you can redistribute it and/or modify  |
10// | it under the terms of the GNU General Public License as published by  |
11// | the Free Software Foundation                                          |
12// |                                                                       |
13// | This program is distributed in the hope that it will be useful, but   |
14// | WITHOUT ANY WARRANTY; without even the implied warranty of            |
15// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU      |
16// | General Public License for more details.                              |
17// |                                                                       |
18// | You should have received a copy of the GNU General Public License     |
19// | along with this program; if not, write to the Free Software           |
20// | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, |
21// | USA.                                                                  |
22// +-----------------------------------------------------------------------+
23
24if (!defined('PHPWG_ROOT_PATH')) die('Hacking attempt!');
25if (!defined('MAIL_SUPERV_PATH')) define('MAIL_SUPERV_PATH' , PHPWG_PLUGINS_PATH.basename(dirname(__FILE__)).'/');
26
27
28global  $superv_champs , $superv_type ,$superv_bl_champs , $superv_bl_type ;
29// if (!isset($_COOKIE[session_name()])){}
30
31global $lang ;
32global $template ;
33//===============================================
34function corrige_header($Carbonne,$headers,$args,$cl_list_mail,$mailto="")  {
35  global $mails_options,$conf_mail,$infos_message;
36  if (!empty($args[$Carbonne]) && count($args[$Carbonne]) > 0 ){
37    $cl_list_mail  =  str_replace(","," , ",get_strict_email_list(implode(',', $args[$Carbonne])))." \n"  ;
38    $cl_liste_dest = implode(', ', $args[$Carbonne])." \n";
39    if ($mails_options['check_header_carbon'] == 'on') {
40        $headers = preg_replace('/.*'.$Carbonne.':(.*).\n/i', $Carbonne.': '.  $cl_list_mail, $headers);
41    }
42    $ret->list_mail = $cl_list_mail ;
43  } else {
44    // Raz Bcc, Cc dans headers
45    $headers = preg_replace('/.*'.$Carbonne.'(.*).\n/i', "" , $headers);
46    $ret->list_mail = "" ;
47  }
48  $ret->headers = $headers ;
49  return $ret;
50}
51
52function int_to_heure($int){
53  global $lang,$mails_donnees ;
54  $v0=Date_to_numeric(l10n('Day') );
55
56
57
58    $delta=(7*24*60*60) ;
59    $week = (int) ($int/$delta);
60    $int= $int-($week*$delta) ;
61
62    $delta=(24*60*60) ;
63    $day= (int) ($int/$delta);
64    $int=$int-($day*$delta);
65
66    $delta=(60*60) ;
67    $heures=(int) ($int/$delta);
68    $int=$int-($heures*$delta);
69
70    $delta=(60) ;
71    $minutes=(int) ($int/$delta);
72    $int= $int - ($minutes*$delta);
73
74    $secondes=(int) ($int);
75    $day      = substr ('00'.    $day,-2,2);
76    $heures   = substr ('00'. $heures,-2,2);
77    $minutes  = substr ('00'.$minutes,-2,2);
78    $secondes = substr ('00'.$secondes,-2,2);
79
80  $retour="";
81  $Week=explode(" ",l10n('Week %d'));
82  $Week= ($Week[0]);
83
84  if ($week > 0 ) $retour .= "+" . $week ." " . $Week ;
85  if ($day  > 0) $retour .= "+" . $day ." " .l10n('Day');
86  if ($heures > 0) $retour .= "+" . $heures." " .l10n('Hour');
87  if ($minutes > 0) $retour .= "+" . $minutes." " .l10n('Minute');
88  if ($secondes > 0) $retour .= "+" . $secondes." " .l10n('Second');
89  $retour=str_replace("+0","+",$retour);
90  //================================================================================================
91  return $retour;
92}
93
94
95function verif_base(){
96  global $lang,$superv_champs,$superv_type,$superv_bl_champs,$superv_bl_type;
97  load_language('plugin.lang', MAIL_SUPERV_PATH);
98  //==============================================================================
99  create_table(MAIL_BLACK_LISTE_TABLE,$superv_bl_champs,$superv_bl_type) ;
100  ajust_table(MAIL_BLACK_LISTE_TABLE,$superv_bl_champs,$superv_bl_type)  ;
101  //==============================================================================
102  create_table(mail_superv_TABLE,$superv_champs,$superv_type) ;
103  ajust_table(mail_superv_TABLE,$superv_champs,$superv_type)  ;
104  //==============================================================================
105    $valeurs= array (   1,
106                                  0,
107                       time(),
108                     2000,
109              '"604800"' ,
110                        0,
111                   time(),
112                       10,
113               '"172800"',
114                '"false"',
115                   time(),
116               '"172800"',
117                 '"Init"',
118   '"'.l10n('Sv_supervisor').'"',
119    '"'.l10n('hello').'"',
120        '"Test Mail_supervisor"',
121        '"Information"' 
122     );
123    ajout_ligne(mail_superv_TABLE,$superv_champs, $valeurs,false ) ;
124}
125//=========================================
126function Get_colonnes_de($table)
127{
128    $query = 'DESC '.$table.';';
129    $result = mysql_query($query);
130    $columns_of= array();
131    while ($row = mysql_fetch_row($result))
132    {
133      array_push($columns_of, $row[0]);
134    }
135
136  return $columns_of;
137}
138//=========================================
139function get_liste($group_id){
140global $conf ;
141  $query = '
142SELECT DISTINCT u.'.$conf['user_fields']['id'].' AS id,
143                u.'.$conf['user_fields']['username'].' AS username,
144                u.'.$conf['user_fields']['email'].' AS email,
145                ui.status,
146                ui.enabled_high,
147                ui.level
148  FROM '.USERS_TABLE.' AS u
149    INNER JOIN '.USER_INFOS_TABLE.' AS ui
150      ON u.'.$conf['user_fields']['id'].' = ui.user_id
151    LEFT JOIN '.USER_GROUP_TABLE.' AS ug
152      ON u.'.$conf['user_fields']['id'].' = ug.user_id
153  WHERE ug.group_id='.$group_id.' ';
154 $groups=array();
155  $datas = pwg_query($query);
156
157  if (!empty($datas)) {
158    while ($group = mysql_fetch_array($datas,MYSQL_ASSOC)){
159      if (!empty($group['email'])){
160         //array_push($groups, format_email($group['username'], $group['email'] ));
161        array_push($groups,
162                   array( 'username' => $group['username'],
163                'email' => $group['email'],
164                'format_email' => format_email($group['username'], $group['email'] )
165                )
166              );
167      }
168    }
169  }
170  return $groups ;
171
172}
173//=================================================================================
174
175function create_table($nom_table,$champs,$types)  //mail_superv_TABLE
176{
177    $i=0;
178    $valeurs=array();
179  foreach ( $champs as $champ) {
180      $champ = trim($champ);
181      array_push($valeurs , " `".$champ."`" . '  ' . $types[ $i] )  ;
182      $i +=1;
183    }
184
185
186
187    if ( count($valeurs) == 0) return ;
188
189    $valeurs=implode(", ",$valeurs) ;
190    //===============================================================================
191        $query = "CREATE TABLE IF NOT EXISTS  `" . $nom_table . "` (". $valeurs . " , PRIMARY KEY  (`id` ) ) ENGINE=MyISAM  ;";
192             if ( pwg_query($query) ) return ;
193                die("ERREUR CREATION ".$query);
194
195
196}
197//===========================================================
198function ajust_table($nom_table,$champs,$types){  //mail_superv_TABLE
199global $infos_message ;
200$colonnes = Get_colonnes_de($nom_table);
201    $data =     $types ;
202    $i=0;
203    $valeurs=array();
204    foreach ( $champs as $champ) {
205     $champ = trim($champ);
206      if (!in_array( $champ,$colonnes)) {
207         array_push($valeurs , " ADD `".$champ."`" . '  ' . $data[  $i] )  ;
208     }
209     $i +=1;
210
211    }
212//=============================================================================
213    if ( count($valeurs) == 0) return ;
214
215  $infos_message .=  "AJUSTE TABLE : ". $nom_table . "<br />" . "NB (col) : ". count($colonnes) . mail_supervisor::Memo_Var($valeurs) . "<br />" ;
216
217     $valeurs=implode(", ",$valeurs) ;
218    //===============================================================================
219        $query = "ALTER TABLE `" . $nom_table . "` ". $valeurs ;
220            if (   pwg_query($query)) return ;
221        die($query);
222}
223//==============================================================================
224function ajout_ligne($nom_table,$champs,$valeurs,$force)
225{
226  if (!$force) {
227     $query = "
228            SELECT `id` , COUNT(`id`) as total
229            FROM `".$nom_table."` GROUP by  `id`
230        ;";
231      list($count) = mysql_fetch_row(pwg_query($query));
232
233
234}else{
235
236        $count = 0 ;
237}
238$data=array();
239
240  $query = " SELECT *    FROM `".$nom_table."`        ;";   
241      $datas = pwg_query($query);
242    if (!empty($datas)) {
243    while ($row = mysql_fetch_array($datas,MYSQL_ASSOC)){
244    array_push($data,$row);   
245    }
246  }
247$count=  count($data);
248  if ($count == 0) {
249      $n_champs=implode(",",$champs);
250      $n_valeurs=implode(",",$valeurs);
251       $query = "
252        INSERT INTO `".$nom_table."` (". $n_champs.")
253        VALUES ( ". $n_valeurs .")";
254
255        if (pwg_query($query)) return ;
256        die("fonction.php 256".$query);
257
258  }
259 
260}
261//=====================================================================
262function verif_mails_donnees(){
263  global $mails_donnees,$infos_message,$erreur_message,$page;
264
265if (!is_numeric($mails_donnees['nb_mails_periode'])){
266  $periode = Str_To_Time( $mails_donnees['nb_mails_periode'],0);
267  $mails_donnees['nb_mails_periode']= ($periode > 0) ? $periode : '604800' ;
268 }
269if (!is_numeric($mails_donnees['nb_spams_periode'])){
270  $periode=Str_To_Time( $mails_donnees['nb_spams_periode'],0);
271  $mails_donnees['nb_spams_periode']= ($periode > 0) ? $periode : '172800' ; ;
272 }
273if (!is_numeric($mails_donnees['quarantaine_periode'])){
274  $periode=Str_To_Time( $mails_donnees['quarantaine_periode'],0);
275  $mails_donnees['quarantaine_periode']= ($periode > 0) ? $periode : '172800' ;
276 }
277    if  ($infos_message != "")  {
278        array_push($page['infos'],  $infos_message);
279        $infos_message="";
280    }
281    if  ($erreur_message != "")  {
282        array_push($page['errors'], $erreur_message);
283        $erreur_message ="";
284    }
285
286}
287//=======================================================================
288function Date_to_numeric( $Valeurs ){
289global $lang,$erreur_message,$infos_message;
290
291$a_ajouter = $Valeurs ;
292
293
294if (!isset($lang['Sv_second'])) {
295  $Week=explode(" ",l10n('Week %d'));
296  $Week= ($Week[0]);
297
298  $lang['Sv_week'] = $Week;
299  $lang['Sv_day'] =   l10n('Day')  ;
300  $lang['Sv_hour'] =   l10n('Hour')  ;
301  $lang['Sv_minute'] =   l10n('Minute') ;
302  $lang['Sv_second'] =   l10n('Second');
303
304  $lang['Sv_'. $lang['Sv_week']] = 'week';
305  $lang['Sv_'. $lang['Sv_day']] = 'day';
306  $lang['Sv_'. $lang['Sv_hour']] = 'hour';
307  $lang['Sv_'. $lang['Sv_minute']] = 'minute';
308  $lang['Sv_'. $lang['Sv_second']] = 'second';
309
310}
311//--- traduction --> anglais ---
312
313 //========= suppression numeric et symbole ==========
314$new_valeur =( preg_replace("/[0-9+\-.*\/()%]/"," ",$a_ajouter));
315$nv =  trim( sup_double_espace($new_valeur)) ;
316
317
318
319    $conv['week']= (7*24*60*60);
320    $conv['day']= (24*60*60);
321    $conv['hour']=  (60*60) ;
322    $conv['minute']=  60 ;
323    $conv['second']= 1;
324
325  $nv = explode(" ", $nv );
326
327  foreach($nv as $nv1){
328    if (!isset($lang['Sv_'. $nv1]) ) {
329    //==== au cas pluriel ===
330      $nv0 =  substr($nv1, 0,-1) ;
331      $a_ajouter= str_replace( $nv1,$nv0,   $a_ajouter);
332      $nv1 = $nv0 ;
333    }
334    if (!isset($lang['Sv_'. $nv1]) ) {
335      $erreur_message .= $nv1. " ".l10n('not_found')."<br />";
336      //  die($erreur_message);
337    }else {
338      ob_start();
339      $match = $conv[strtolower($lang['Sv_'. $nv1])] ;
340      $a_ajouter = str_replace($nv1," ". $match  ." ",$a_ajouter) ;
341      $erreur_message .= ob_get_contents();
342      ob_end_clean();
343      }
344  }
345
346  $a_ajouter = "+ " .   $a_ajouter ;
347  $a_ajouter=sup_double_espace($a_ajouter);
348  $v1 = array('- ','+ ',' -', ' +', ' ');
349  $v2 = array('-' ,'+' ,'|-', '|+', "*");
350
351  $new_valeur =  str_replace($v1,$v2,$a_ajouter) ;
352  $new_valeur =  str_replace('++','+',$new_valeur ) ;
353
354  return   $new_valeur;
355}
356//=====================================================================
357function Str_To_Time( $ajout,$init_date)
358{
359//========================================================
360  global $erreur_message,$infos_message,$user;
361  global $lang;
362
363  $ajout=ucwords ($ajout);
364
365
366if (is_numeric($ajout))
367 $valeur=   $ajout ;
368else
369{
370 $valeur= Date_to_numeric( $ajout) ;
371
372 }
373
374$new_valeur = explode( "|", $valeur );
375
376$p = $init_date ;
377$n0=0;
378$erreur = false;
379
380    //$new_valeur = $a_ajouter + $init_date ;
381    foreach($new_valeur as $nv)
382    {
383    $return = matheval($nv) ;
384         if (strpos("error",$return)===false) {
385            $p += $return ;
386         }else {
387            $erreur_message .=   "[" . $ajout . "] --> " . l10n('Sv_syntax_error') . " : " .  $nv ."<br />";
388            $erreur = true;
389         }
390
391
392    }
393    if ($erreur) $p = -1000 ;
394return    intval($p) ;
395
396}
397//=====================================================================================
398function matheval($equation)
399  {
400
401  $return="error";
402
403
404    $equation = preg_replace("/[^0-9+\-.*\/()%]/","",$equation);
405    $equation = preg_replace("/([+-])([0-9]{1})(%)/","*(1\$1.0\$2)",$equation);
406    $equation = preg_replace("/([+-])([0-9]+)(%)/","*(1\$1.\$2)",$equation);
407    $equation = preg_replace("/([0-9]+)(%)/",".\$1",$equation);
408
409    if ( $equation == "" )
410    {
411      $return = 0;
412    }     else  {
413       @eval("\$return=" . $equation . ";" );
414    }
415 return $return;
416
417  }
418
419//======================================================================================
420function sup_double_espace($chaine){
421global $erreur_message;
422    $str_temp = $chaine." ";
423    $sep=" ";
424    $chaine = trim($chaine);
425    if ($chaine=="") return ;
426    $existe = (strpos($sep.$sep,$chaine )===false) ;
427     while  ($existe ){
428         $str_temp = str_replace($sep.$sep, $sep, $chaine );
429            if($str_temp == $chaine ) return $chaine ;
430//          $erreur_message .= mail_supervisor::Memo_Var($str_temp) ;
431            $chaine  = $str_temp;
432            $existe =  (strpos($sep.$sep,$chaine )===false) ;
433        }
434    return $chaine;
435}
436//==================== TEST black_liste ============================================
437function kill_list() {
438  global $pays,$region,$ville,$ip ;
439  global $erreur_message,$infos_message,$conf;
440  global $conf, $user, $page;
441  global $mails_options ;
442  global $superv_bl_champs,$superv_bl_type ;
443  global $nb ;
444  if (!isset($ip)) {
445    if (getenv("HTTP_CLIENT_IP"))   {
446      $ip=getenv("HTTP_CLIENT_IP");
447    }else{
448      $ip=getenv("REMOTE_ADDR");
449    }
450  }
451  $champs=implode(',',$superv_bl_champs);
452   $query = "SELECT ".$champs.",COUNT(`ip`) as total
453  FROM `".MAIL_BLACK_LISTE_TABLE."`
454        WHERE '".$ip."' LIKE `ip`
455        GROUP by `ip`
456  ;";
457    $result = @pwg_query($query);
458     if (!$result) {
459            verif_base();
460            $result = @pwg_query($query);
461            }
462      $datas = mysql_fetch_array($result,MYSQL_ASSOC);
463    $nb = $datas['total']|0;
464    //=======================================================================
465    if ($mails_options['set_auto'] == 'on') {
466      global $user_name,$mail_adresse;
467
468       if (isset($nb) && $nb>0) {
469       //if (test_spam($ip,$user['username'] ,$user['email']))  // ne plus tester automatiquement .
470            if ($nb==0) {
471              $valeurs=array( 'NULL',
472                   "'".$ip."'",
473                            "'".$pays."'",
474                            "'".$region."'",
475                            "'".$ville."'",
476                            "'".$user['email']."'",
477                            "'".$user['username']."'",
478                            $nb+1
479                );
480              ajout_ligne(MAIL_BLACK_LISTE_TABLE,$superv_bl_champs, $valeurs,$nb==0) ;
481            }else{
482            mail_supervisor::Get_geo();
483            $nb +=1;
484                 $query ="UPDATE " . MAIL_BLACK_LISTE_TABLE . " SET ";
485                 if (isset($_POST['pays']))
486                 $query .= "`pays` = '". $pays ."',
487                    `region` = '" . $region ."',
488                    `ville` = '" . $ville . "',
489                    ";
490                 $query .= "`adresse` = '".$user['email']."',
491                    `fai` = '".$user['username']."',
492                    `nb` = " . $nb . "
493                 WHERE '".$ip."' like `ip` ";
494                       pwg_query($query );
495            }
496         $erreur_message .= $pays . $ip ." <br />User Name :".$user['username']."<br />User Mail :".$user['email'] . ' -----> ' . l10n('Sv_set_black_liste') ;
497       // die($nb." ".$ip." ".$user['username']." ".$user['email']);
498
499       return true ;
500      }
501    }
502 //==============================================================================
503
504 if ( $mails_options['ip'] == $ip ) return ($nb > 0) ;
505   $ip0= $mails_options['ip'] ;
506   $mails_options['ip'] = $ip ;
507   mail_supervisor::sauve_options();
508    if (  $nb > 0 )
509    {
510           $query = "
511            SELECT ".$champs.",COUNT(`id`) as total
512            FROM `".MAIL_BLACK_LISTE_TABLE."`
513            WHERE '".$ip."' = `ip`
514            GROUP by `ip`
515        ;";
516         $result = @pwg_query($query);
517
518    if (!$result) {
519                    verif_base();
520                    $result = @pwg_query($query);
521                    }
522        $datas = mysql_fetch_array($result,MYSQL_ASSOC);
523         $nb = $datas['total'];
524
525        $row  = mysql_fetch_row(pwg_query($query));
526        $nb =  ($row[7]);
527        $erreur_message .= $ip0 . ' | ' .$ip . ' | ' . $pays . ' | ' . $region . ' | ' . $ville . ' ' . $nb . ' ==> ';
528
529     if ($nb == 0)
530         {
531            $valeurs=array( 'NULL',
532                    "'".$ip."'",
533                    "'".$pays."'",
534                    "'".$region."'",
535                    "'".$ville."'",
536                    "'".$user['email']."'",
537              "'".$user['username']."'",
538                    1
539          );
540          ajout_ligne(MAIL_BLACK_LISTE_TABLE,$superv_bl_champs, $valeurs,true) ;
541
542         } else {
543          $nb += 1;
544     $query ="
545            UPDATE " . MAIL_BLACK_LISTE_TABLE . "
546            SET ";
547        if (isset($_POST['pays']))
548         $query .= "
549            `pays` = '". $pays ."',
550            `region` = '" . $region ."',
551            `ville` = '" . $ville . "',
552            ";
553         $query .= "
554            `adresse` = '".$user['email']."',
555            `fai` = '".$user['username']."',
556            `nb` = " . $nb . "
557            WHERE '".$ip."' = `ip`
558            ";
559
560                pwg_query($query );
561                }
562    }
563 return ($nb > 0) ;
564}
565//=====================================================================================
566function test_spam($ip =0,$user_name ='', $mail_adresse = ""){
567 $buffer="";
568 global $page,$infos_message;
569 $src =  "http://www.stopforumspam.com/api?";
570 $type=array();
571 $result="";
572 $ip= sup_double_espace($ip);
573 if (strlen($ip)>3) {
574   //==================  Verifie si l'IP est correct  ================================
575   if (clj_is_ip($ip)){
576
577   } else {
578   //==================  Verifie si l'adresse mail est correcte  ================================
579         if( clj_is_mail($ip) ){
580             $mail_adresse=$ip ;
581             $ip="";
582        }
583        else
584        {
585   //==================  Login  ================
586          $user_name=$ip;
587          $ip="";
588        }
589   }
590   //=============================================================================
591 }
592
593 $user_name=str_replace(" ","%20",trim($user_name));
594 if ($user_name==l10n('Sv_guest')) $user_name="";
595 $user_name="";  // ne plus tester sur le login.
596 $mail_adresse =str_replace(" ","%20",trim($mail_adresse));
597 if ( strlen($user_name) > 3)     $type[]="username=$user_name" ;
598 if ( strlen($mail_adresse) > 3)   $type[]="email=".$mail_adresse ;
599 if ( strlen($ip) > 3)   $type[]="ip=".$ip ;
600 foreach  ( $type as $fil ) {
601  $resultat="";
602  if (  clj_fetchRemote($src.$fil , $resultat,1))
603   $result .= $resultat.'<br />'  ;
604 }
605
606 return !(strpos(  $result ,'yes' ) === false) ;
607
608}
609//==================================================================
610function lire_fichier_distant($fichier){
611  $buffer="";
612  $handle =  @fopen($fichier,"r");
613  if ($handle) {
614    while (!feof($handle)) {
615        $buffer .= fgets($handle, 4096);
616          }
617              fclose($handle);
618      }
619
620  return  $buffer ;
621
622}
623//================================================
624function clj_is_ip($ip){
625if (preg_match("/^(((25[0-5]|2[0-4][0-9]|1[0-9]{2}|[1-9]{1}[0-9]|[1-9])\.){1}((25[0-5]|2[0-4][0-9]|[1]{1}[0-9]{2}|[1-9]{1}[0-9]|[0-9])\.){2}((25[0-5]|2[0-4][0-9]|[1]{1}[0-9]{2}|[1-9]{1}[0-9]|[0-9]){1}))$/",$ip))    return true ;
626
627}
628
629function clj_is_mail($mail)
630{
631
632 if(preg_match('/^[\w.-]+@[\w.-]+\.[a-zA-Z]{2,5}$/' ,$mail)) return true ;
633  if(preg_match('/#^[\w.-]+@[\w.-]+\.[a-zA-Z]{2,5}$#/' ,$mail)) return true ;
634}
635
636
637function clj_fetchRemote($src, &$dest, $timeout=1, $user_agent='Piwigo', $step=0)
638{
639  // Try to retrieve data from local file?
640 // http://www.stopforumspam.com/api?ip=95.211.1.39
641
642  if ($src=="") return ;
643
644  if (!url_is_remote($src))
645  {
646
647    $content = @file_get_contents($src);
648    if ($content !== false)
649    {
650      is_resource($dest) ? @fwrite($dest, $content) : $dest = $content;
651      return true;
652    }
653    else
654    {
655      return false;
656    }
657  }
658
659  // After 3 redirections, return false
660  if ($step > 3) return false;
661
662  // Initialize $dest
663  is_resource($dest) or $dest = '';
664
665  // Try curl to read remote file
666  if (function_exists('curl_init'))
667  {
668    $ch = @curl_init();
669    @curl_setopt($ch, CURLOPT_TIMEOUT, $timeout);
670    @curl_setopt($ch, CURLOPT_URL, $src);
671    @curl_setopt($ch, CURLOPT_HEADER, 1);
672    @curl_setopt($ch, CURLOPT_USERAGENT, $user_agent);
673    @curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
674    $content = @curl_exec($ch);
675    $header_length = @curl_getinfo($ch, CURLINFO_HEADER_SIZE);
676    $status = @curl_getinfo($ch, CURLINFO_HTTP_CODE);
677    @curl_close($content);
678    if ($content !== false and $status >= 200 and $status < 400)
679    {
680      if (preg_match('/Location:\s+?(.+)/', substr($content, 0, $header_length), $m))
681      {
682        return clj_fetchRemote($m[1], $dest,$timeout, $user_agent, $step+1);
683      }
684      $content = substr($content, $header_length);
685      is_resource($dest) ? @fwrite($dest, $content) : $dest = $content;
686      return true;
687    }
688  }
689
690  // Try file_get_contents to read remote file
691  if (ini_get('allow_url_fopen'))
692  {
693
694    $opts['http'] = array('timeout' => $timeout);
695    $ctx = stream_context_create($opts);
696    $content = @file_get_contents($src, 0, $ctx);
697    if ($content !== false)
698    {
699      is_resource($dest) ? @fwrite($dest, $content) : $dest = $content;
700      return true;
701    }
702  }
703
704  return false;
705}
706
707
708?>
Note: See TracBrowser for help on using the repository browser.