Imported httrack 3.20.2

1 files changed, 880 insertions, 0 deletions

diff --git a/src/htswizard.c b/src/htswizard.c
new file mode 100644
index 0000000..b23f5fb
--- /dev/null
+++ b/src/htswizard.c
@@ -0,0 +1,880 @@
+/* ------------------------------------------------------------ */
+/*
+HTTrack Website Copier, Offline Browser for Windows and Unix
+Copyright (C) Xavier Roche and other contributors
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License
+as published by the Free Software Foundation; either version 2
+of the License, or any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+
+
+Important notes:
+
+- We hereby ask people using this source NOT to use it in purpose of grabbing
+emails addresses, or collecting any other private information on persons.
+This would disgrace our work, and spoil the many hours we spent on it.
+
+
+Please visit our Website: http://www.httrack.com
+*/
+
+
+/* ------------------------------------------------------------ */
+/* File: httrack.c subroutines:                                 */
+/*       wizard system (accept/refuse links)                    */
+/* Author: Xavier Roche                                         */
+/* ------------------------------------------------------------ */
+
+#include "htswizard.h"
+#include "htsdefines.h"
+
+/* specific definitions */
+#include "htsbase.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+/* END specific definitions */
+
+// version 1 pour httpmirror
+// flusher si on doit lire peu à peu le fichier
+#define test_flush if (opt->flush) { fflush(opt->log); fflush(opt->errlog); }
+
+// pour alléger la syntaxe, des raccourcis sont créés
+#define urladr   (liens[ptr]->adr)
+#define urlfil   (liens[ptr]->fil)
+
+// libérer filters[0] pour insérer un élément dans filters[0]
+#define HT_INSERT_FILTERS0 {\
+  int i;\
+  if (*filptr > 0) {\
+    for(i = (*filptr)-1 ; i>=0 ; i--) {\
+      strcpy(filters[i+1],filters[i]);\
+    }\
+  }\
+  strcpy(filters[0],"");\
+  (*filptr)++;\
+  (*filptr)=minimum((*filptr),filter_max);\
+}
+
+
+
+/*
+httrackp opt	 bloc d'options
+int ptr,int lien_tot,lien_url** liens
+							 relatif aux liens
+char* adr,char* fil
+							 adresse/fichier à tester
+char** filters,int filptr,int filter_max
+							 relatif aux filtres
+robots_wizard* robots
+							 relatif aux robots
+int* set_prio_to
+							 callback obligatoire "capturer ce lien avec prio=N-1"
+int* just_test_it
+							 callback optionnel "ne faire que tester ce lien éventuellement"
+retour:
+               0 accepté
+               1 refusé
+               -1 pas d'avis
+*/
+int hts_acceptlink(httrackp* opt,
+                   int ptr,int lien_tot,lien_url** liens,
+                   char* adr,char* fil,
+                   char*** ptrfilters,int* filptr,int filter_max,
+                   robots_wizard* robots,
+                   int* set_prio_to,
+                   int* just_test_it) {
+  
+  int forbidden_url=-1;
+  int meme_adresse;
+  char** filters = *ptrfilters;
+
+  // -------------------- PHASE 1 --------------------
+
+  /* Infos */
+  if ((opt->debug>1) && (opt->log!=NULL)) {
+    fspc(opt->log,"debug"); fprintf(opt->log,"wizard test begins: %s%s"LF,adr,fil);
+    test_flush;
+  }
+
+  /* Doit-on traiter les non html? */
+  if ((opt->getmode & 2)==0) {    // non on ne doit pas
+    if (!ishtml(fil)) {  // non il ne faut pas
+      //adr[0]='\0';    // ne pas traiter ce lien, pas traiter
+      forbidden_url=1;    // interdire récupération du lien
+      if ((opt->debug>1) && (opt->log!=NULL)) {
+        fspc(opt->log,"debug"); fprintf(opt->log,"non-html file ignored at %s : %s"LF,adr,fil);
+        test_flush;
+      }
+      
+    }
+  }
+  
+  /* Niveau 1: ne pas parser suivant! */
+  if (ptr>0) {
+    if (liens[ptr]->depth <= 1) {
+      forbidden_url=1;    // interdire récupération du lien
+      if ((opt->debug>1) && (opt->log!=NULL)) {
+        fspc(opt->log,"debug"); fprintf(opt->log,"file from too far level ignored at %s : %s"LF,adr,fil);
+        test_flush;
+      }
+    }
+  }
+
+  /* en cas d'échec en phase 1, retour immédiat! */
+  if (forbidden_url==1) {
+    return forbidden_url;
+  }
+  
+  // -------------------- PHASE 2 --------------------
+
+  // ------------------------------------------------------
+  // doit-on traiter ce lien?.. vérifier droits de déplacement
+  meme_adresse=strfield2(adr,urladr);
+  if ((opt->debug>1) && (opt->log!=NULL)) {
+    fspc(opt->log,"debug"); 
+    if (meme_adresse) 
+      fprintf(opt->log,"Compare addresses: %s=%s"LF,adr,urladr);
+    else
+      fprintf(opt->log,"Compare addresses: %s!=%s"LF,adr,urladr);
+    test_flush;
+  }
+  if (meme_adresse) {  // même adresse 
+    {  // tester interdiction de descendre
+      // MODIFIE : en cas de remontée puis de redescente, il se pouvait qu'on ne puisse pas atteindre certains fichiers
+      // problème: si un fichier est virtuellement accessible via une page mais dont le lien est sur une autre *uniquement*..
+      char tempo[HTS_URLMAXSIZE*2];
+      char tempo2[HTS_URLMAXSIZE*2];
+      
+      // note (up/down): on calcule à partir du lien primaire, ET du lien précédent.
+      // ex: si on descend 2 fois on peut remonter 1 fois
+      
+      if (lienrelatif(tempo,fil,liens[liens[ptr]->premier]->fil)==0) {
+        if (lienrelatif(tempo2,fil,liens[ptr]->fil)==0) {
+          if ((opt->debug>1) && (opt->log!=NULL)) {
+            fspc(opt->log,"debug"); fprintf(opt->log,"build relative links to test: %s %s (with %s and %s)"LF,tempo,tempo2,liens[liens[ptr]->premier]->fil,liens[ptr]->fil);
+            test_flush;
+          }
+          
+          // si vient de primary, ne pas tester lienrelatif avec (car host "différent")
+          /*if (liens[liens[ptr]->premier] == 0) {   // vient de primary
+          }
+          */
+          
+          // NEW: finalement OK, sauf pour les moved repérés par link_import
+          // PROBLEME : annulé a cause d'un lien éventuel isolé accepté..qui entrainerait un miroir
+          
+          // (test même niveau (NOUVEAU à cause de certains problèmes de filtres non intégrés))
+          // NEW
+          if ( (!strchr(tempo+1,'/')) || (!strchr(tempo2+1,'/')) ) {
+            if (!liens[ptr]->link_import) {   // ne résulte pas d'un 'moved'
+              forbidden_url=0;
+              if ((opt->debug>1) && (opt->log!=NULL)) {
+                fspc(opt->log,"debug"); fprintf(opt->log,"same level link authorized: %s%s"LF,adr,fil);
+                test_flush;
+              }
+            }
+          }
+          
+          // down
+          if ( (strncmp(tempo,"../",3)) || (strncmp(tempo2,"../",3)))  {   // pas montée sinon ne nbous concerne pas
+            int test1,test2;
+            if (!strncmp(tempo,"../",3))
+              test1=0;
+            else
+              test1 = (strchr(tempo +((*tempo =='/')?1:0),'/')!=NULL);
+            if (!strncmp(tempo2,"../",3))
+              test2=0;
+            else
+              test2 = (strchr(tempo2+((*tempo2=='/')?1:0),'/')!=NULL);
+            if ( (test1) && (test2) ) {   // on ne peut que descendre
+              if ((opt->seeker & 1)==0) {  // interdiction de descendre
+                forbidden_url=1;
+                if ((opt->debug>1) && (opt->log!=NULL)) {
+                  fspc(opt->log,"debug"); fprintf(opt->log,"lower link canceled: %s%s"LF,adr,fil);
+                  test_flush;
+                }
+              } else {    // autorisé à priori - NEW
+                if (!liens[ptr]->link_import) {   // ne résulte pas d'un 'moved'
+                  forbidden_url=0;
+                  if ((opt->debug>1) && (opt->log!=NULL)) {
+                    fspc(opt->log,"debug"); fprintf(opt->log,"lower link authorized: %s%s"LF,adr,fil);
+                    test_flush;
+                  }
+                }
+              }
+            } else if ( (test1) || (test2) ) {   // on peut descendre pour accéder au lien
+              if ((opt->seeker & 1)!=0) {  // on peut descendre - NEW
+                if (!liens[ptr]->link_import) {   // ne résulte pas d'un 'moved'
+                  forbidden_url=0;
+                  if ((opt->debug>1) && (opt->log!=NULL)) {
+                    fspc(opt->log,"debug"); fprintf(opt->log,"lower link authorized: %s%s"LF,adr,fil);
+                    test_flush;
+                  }
+                }
+              }
+            }
+          }
+          
+          
+          // up
+          if ( (!strncmp(tempo,"../",3)) && (!strncmp(tempo2,"../",3)) ) {    // impossible sans monter
+            if ((opt->seeker & 2)==0) {  // interdiction de monter
+              forbidden_url=1;
+              if ((opt->debug>1) && (opt->log!=NULL)) {
+                fspc(opt->log,"debug"); fprintf(opt->log,"upper link canceled: %s%s"LF,adr,fil);
+                test_flush;
+              }
+            } else {       // autorisé à monter - NEW
+              if (!liens[ptr]->link_import) {   // ne résulte pas d'un 'moved'
+                forbidden_url=0;
+                if ((opt->debug>1) && (opt->log!=NULL)) {
+                  fspc(opt->log,"debug"); fprintf(opt->log,"upper link authorized: %s%s"LF,adr,fil);
+                  test_flush;
+                }
+              }
+            }
+          } else if ( (!strncmp(tempo,"../",3)) || (!strncmp(tempo2,"../",3)) ) {    // Possible en montant
+            if ((opt->seeker & 2)!=0) {  // autorisé à monter - NEW
+              if (!liens[ptr]->link_import) {   // ne résulte pas d'un 'moved'
+                forbidden_url=0;
+                if ((opt->debug>1) && (opt->log!=NULL)) {
+                  fspc(opt->log,"debug"); fprintf(opt->log,"upper link authorized: %s%s"LF,adr,fil);
+                  test_flush;
+                }
+              }
+            }  // sinon autorisé en descente
+          }
+          
+          
+        } else {
+          if (opt->errlog) {
+            fprintf(opt->errlog,"Error building relative link %s and %s"LF,fil,liens[ptr]->fil);
+            test_flush;
+          }
+        }
+      } else {
+        if (opt->errlog) {
+          fprintf(opt->errlog,"Error building relative link %s and %s"LF,fil,liens[liens[ptr]->premier]->fil);
+          test_flush;
+        }
+      }
+      
+    }  // tester interdiction de descendre?
+    
+    {  // tester interdiction de monter
+      char tempo[HTS_URLMAXSIZE*2];
+      char tempo2[HTS_URLMAXSIZE*2];
+      if (lienrelatif(tempo,fil,liens[liens[ptr]->premier]->fil)==0) {
+        if (lienrelatif(tempo2,fil,liens[ptr]->fil)==0) {
+        } else {
+          if (opt->errlog) { 
+            fprintf(opt->errlog,"Error building relative link %s and %s"LF,fil,liens[ptr]->fil);
+            test_flush;
+          }
+          
+        }
+      } else {
+        if (opt->errlog) { 
+          fprintf(opt->errlog,"Error building relative link %s and %s"LF,fil,liens[liens[ptr]->premier]->fil);
+          test_flush;
+        }
+        
+      }
+    }   // fin tester interdiction de monter
+    
+  } else {    // adresse différente, sortir?
+    
+    //if (!opt->wizard) {    // mode non wizard
+    // doit-on traiter ce lien?.. vérifier droits de sortie
+    switch((opt->travel & 255)) {
+    case 0: 
+      if (!opt->wizard)    // mode non wizard
+        forbidden_url=1; break;    // interdicton de sortir au dela de l'adresse
+    case 1: {              // sortie sur le même dom.xxx
+      int i=strlen(adr)-1;
+      int j=strlen(urladr)-1;
+      while( (i>0) && (adr[i]!='.')) i--;
+      while( (j>0) && (urladr[j]!='.')) j--;
+      i--; j--;
+      while( (i>0) && (adr[i]!='.')) i--;
+      while( (j>0) && (urladr[j]!='.')) j--;
+      if ((i>0) && (j>0)) {
+        if (!strfield2(adr+i,urladr+j)) {   // !=
+          if (!opt->wizard) {   // mode non wizard
+            //printf("refused: %s\n",adr);
+            forbidden_url=1;  // pas même domaine  
+            if ((opt->debug>1) && (opt->log!=NULL)) {
+              fspc(opt->log,"debug"); fprintf(opt->log,"foreign domain link canceled: %s%s"LF,adr,fil);
+              test_flush;
+            }
+          }
+          
+        } else {
+          if (opt->wizard) {   // mode wizard
+            forbidden_url=0;  // même domaine  
+            if ((opt->debug>1) && (opt->log!=NULL)) {
+              fspc(opt->log,"debug"); fprintf(opt->log,"same domain link authorized: %s%s"LF,adr,fil);
+              test_flush;
+            }
+          }
+        }
+        
+      } else
+        forbidden_url=1;
+            } 
+      break;  
+    case 2: {                      // sortie sur le même .xxx
+      int i=strlen(adr)-1;
+      int j=strlen(urladr)-1;
+      while( (i>0) && (adr[i]!='.')) i--;
+      while( (j>0) && (urladr[j]!='.')) j--;
+      if ((i>0) && (j>0)) {
+        if (!strfield2(adr+i,urladr+j)) {   // !-
+          if (!opt->wizard) {   // mode non wizard
+            //printf("refused: %s\n",adr);
+            forbidden_url=1;  // pas même .xx  
+            if ((opt->debug>1) && (opt->log!=NULL)) {
+              fspc(opt->log,"debug"); fprintf(opt->log,"foreign location link canceled: %s%s"LF,adr,fil);
+              test_flush;
+            }
+          }
+        } else {
+          if (opt->wizard) {   // mode wizard
+            forbidden_url=0;  // même domaine  
+            if ((opt->debug>1) && (opt->log!=NULL)) {
+              fspc(opt->log,"debug"); fprintf(opt->log,"same location link authorized: %s%s"LF,adr,fil);
+              test_flush;
+            }
+          }
+        }
+      } else forbidden_url=1;     
+            } 
+      break;
+    case 7:                 // everywhere!!
+      if (opt->wizard) {   // mode wizard
+        forbidden_url=0;
+        break;
+      }
+    }  // switch
+    
+    // ANCIENNE POS -- récupérer les liens à côtés d'un lien (nearlink)
+    
+  }  // fin test adresse identique/différente
+
+  // -------------------- PHASE 3 --------------------
+
+  // récupérer les liens à côtés d'un lien (nearlink) (nvelle pos)
+  if (opt->nearlink) {
+    if (!ishtml(fil)) {  // non html
+      //printf("ok %s%s\n",ad,fil);
+      forbidden_url=0;    // autoriser
+      if ((opt->debug>1) && (opt->log!=NULL)) {
+        fspc(opt->log,"debug"); fprintf(opt->log,"near link authorized: %s%s"LF,adr,fil);
+        test_flush;
+      }
+    }
+  }
+  
+  // -------------------- PHASE 4 --------------------
+  
+  // ------------------------------------------------------
+  // Si wizard, il se peut qu'on autorise ou qu'on interdise 
+  // un lien spécial avant même de tester sa position, sa hiérarchie etc.
+  // peut court-circuiter le forbidden_url précédent
+  if (opt->wizard) { // le wizard entre en action..
+    //
+    int question=1;         // poser une question                            
+    int force_mirror=0;     // pour mirror links
+    int filters_answer=0;   // décision prise par les filtres
+    char l[HTS_URLMAXSIZE*2];
+    char lfull[HTS_URLMAXSIZE*2];
+    
+    if (forbidden_url!=-1) question=0;  // pas de question, résolu
+    
+    // former URL complète du lien actuel
+    strcpy(l,jump_identification(adr));
+    if (*fil!='/') strcat(l,"/");
+    strcat(l,fil);
+    // full version (http://foo:bar@www.foo.com/bar.html)
+    if (!link_has_authority(adr))
+      strcpy(lfull,"http://");
+    else
+      lfull[0]='\0';
+    strcat(lfull,adr);
+    if (*fil!='/') strcat(lfull,"/");
+    strcat(lfull,fil);
+    
+    // tester filters (URLs autorisées ou interdites explicitement)
+    
+    // si lien primaire on saute le joker, on est pas lémur
+    if (ptr==0) {  // lien primaire, autoriser
+      question=1;    // la question sera résolue automatiquement
+      forbidden_url=0;
+    } else {
+      int jok;
+      // filters, 0=sait pas 1=ok -1=interdit
+      {
+        int jokDepth1=0,jokDepth2=0;
+        int jok1=0,jok2=0;
+        jok1  = fa_strjoker(filters,*filptr,lfull,NULL,NULL,&jokDepth1);
+        jok2 =  fa_strjoker(filters,*filptr,l,    NULL,NULL,&jokDepth2);
+        if (jok2 == 0)       // #2 doesn't know
+          jok = jok1;        // then, use #1
+        else if (jok1 == 0)  // #1 doesn't know
+          jok = jok2;        // then, use #2
+        else if (jokDepth1 >= jokDepth2)  // #1 matching rule is "after" #2, then it is prioritary
+          jok = jok1;
+        else                              // #2 matching rule is "after" #1, then it is prioritary
+          jok = jok2;
+      }
+
+      if (jok == 1) {   // autorisé
+        filters_answer=1;  // décision prise par les filtres
+        question=0;    // ne pas poser de question, autorisé
+        forbidden_url=0;  // URL autorisée
+        if ((opt->debug>1) && (opt->log!=NULL)) {
+          fspc(opt->log,"debug"); fprintf(opt->log,"(wizard) explicit authorized link: link %s at %s%s"LF,l,urladr,urlfil);
+          test_flush;
+        }
+      } else if (jok == -1) {
+        filters_answer=1;  // décision prise par les filtres
+        question=0;    // ne pas poser de question:
+        forbidden_url=1;   // URL interdite
+        if ((opt->debug>1) && (opt->log!=NULL)) {
+          fspc(opt->log,"debug"); fprintf(opt->log,"(wizard) explicit forbidden link: link %s at %s%s"LF,l,urladr,urlfil);
+          test_flush;
+        }
+      }  // sinon on touche à rien
+    }
+    
+    // vérifier mode mirror links
+    if (question) {
+      if (opt->mirror_first_page) {    // mode mirror links
+        if (liens[ptr]->precedent==0) {  // parent=primary!
+          forbidden_url=0;    // autorisé
+          question=1;         // résolution auto
+          force_mirror=5;     // mirror (5)
+          if ((opt->debug>1) && (opt->log!=NULL)) {
+            fspc(opt->log,"debug"); fprintf(opt->log,"(wizard) explicit mirror link: link %s at %s%s"LF,l,urladr,urlfil);
+            test_flush;
+          }
+        }
+      }
+    }
+
+    // vérifier récursivité extérieure
+    if ((question) && (ptr>0) && (!force_mirror)) {
+      if (opt->extdepth>0) {
+        // *set_prio_to = opt->extdepth + 1;
+        *set_prio_to = opt->extdepth + 1;
+        forbidden_url=0;    // autorisé
+        question=0;         // résolution auto
+        if ((opt->debug>1) && (opt->log!=NULL)) {
+          fspc(opt->log,"debug"); fprintf(opt->log,"(wizard) ambiguous link accepted (external depth): link %s at %s%s"LF,l,urladr,urlfil);
+          test_flush;
+        }
+      }
+    }  
+    
+    // on doit poser la question.. peut on la poser?
+    // (oui je sais quel preuve de délicatesse, merci merci)      
+    if ((question) && (ptr>0) && (!force_mirror)) {
+      if (opt->wizard==2) {    // éliminer tous les liens non répertoriés comme autorisés (ou inconnus)
+        question=0;
+        forbidden_url=1;
+        if ((opt->debug>1) && (opt->log!=NULL)) {
+          fspc(opt->log,"debug"); fprintf(opt->log,"(wizard) ambiguous forbidden link: link %s at %s%s"LF,l,urladr,urlfil);
+          test_flush;
+        }
+      }
+    }
+    
+    // vérifier robots.txt
+    if (opt->robots) {
+      int r = checkrobots(robots,adr,fil);
+      if (r == -1) {    // interdiction
+#if DEBUG_ROBOTS
+        printf("robots.txt forbidden: %s%s\n",adr,fil);
+#endif
+        // question résolue, par les filtres, et mode robot non strict
+        if ((!question) && (filters_answer) && (opt->robots == 1) && (forbidden_url!=1)) {
+          r=0;    // annuler interdiction des robots
+          if (!forbidden_url) {
+            if ((opt->debug>1) && (opt->log!=NULL)) {
+              fspc(opt->log,"debug"); fprintf(opt->log,"Warning link followed against robots.txt: link %s at %s%s"LF,l,adr,fil);
+              test_flush;
+            }
+          }
+        }
+        if (r == -1) {    // interdire
+          forbidden_url=1;
+          question=0;
+          if ((opt->debug>1) && (opt->log!=NULL)) {
+            fspc(opt->log,"debug"); fprintf(opt->log,"(robots.txt) forbidden link: link %s at %s%s"LF,l,adr,fil);
+            test_flush;
+          }
+        }
+      }
+    }
+    
+    if (!question) {
+      if ((opt->debug>1) && (opt->log!=NULL)) {
+        if (!forbidden_url) {
+          fspc(opt->log,"debug"); fprintf(opt->log,"(wizard) shared foreign domain link: link %s at %s%s"LF,l,urladr,urlfil);
+        } else {
+          fspc(opt->log,"debug"); fprintf(opt->log,"(wizard) cancelled foreign domain link: link %s at %s%s"LF,l,urladr,urlfil);
+        }
+        test_flush;
+      }
+#if BDEBUG==3
+      printf("at %s in %s, wizard says: url %s ",urladr,urlfil,l);
+      if (forbidden_url) printf("cancelled"); else printf(">SHARED<");
+      printf("\n");
+#endif 
+    }
+
+    /* en cas de question, ou lien primaire (enregistrer autorisations) */
+    if (question || (ptr==0)) {
+#if HTS_ANALYSTE
+      char* s;
+#else
+      char s[4];
+#endif
+      int n=0;
+      
+      // si primaire (plus bas) alors ...
+      if ((ptr!=0) && (force_mirror==0)) {
+        HTS_REQUEST_START;
+        HT_PRINT("\n");
+        HT_PRINT("At "); HT_PRINT(urladr); HT_PRINT(", there is a link ("); HT_PRINT(adr); HT_PRINT("/"); HT_PRINT(fil); HT_PRINT(") which goes outside the address."LF);
+        HT_PRINT("What should I do? (press a key + enter)"LF LF);
+        HT_PRINT("* Ignore all further links" LF);
+        HT_PRINT("0 Ignore this link (default if empty entry)"LF);
+        HT_PRINT("1 Ignore directory and lower structures"LF);
+        HT_PRINT("2 Ignore all domain"LF);
+        //HT_PRINT("3 (Ignore location, not implemented)\n");
+        HT_PRINT(LF);
+        HT_PRINT("4 Get only this page/link"LF);
+        HT_PRINT("5 Mirror this link (useful)"LF);
+        HT_PRINT("6 Mirror links located in the same domain"LF);
+        HT_PRINT(LF);
+//#if HTS_ANALYSTE!=2
+//HT_PRINT("! View extract of html code where the link is located"LF);
+//#endif
+        HTS_REQUEST_END;
+#if HTS_ANALYSTE
+          {
+            char tempo[HTS_URLMAXSIZE*2];
+            tempo[0]='\0';
+            strcat(tempo,adr);
+            strcat(tempo,"/");
+            strcat(tempo,fil);
+            s=hts_htmlcheck_query3(tempo);
+          }
+#else
+        do {
+          io_flush; linput(stdin,s,2);
+#endif
+          if (strnotempty(s)==0)  // entrée
+            n=0;
+          else if (isdigit((unsigned char)*s))
+            sscanf(s,"%d",&n);
+          else {
+            switch(*s) {
+            case '*': n=-1; break;
+            case '!': n=-999; {
+              /*char *a;
+              int i;                                    
+              a=copie_de_adr-128;
+              if (a<r.adr) a=r.adr;
+              for(i=0;i<256;i++) {
+                if (a==copie_de_adr) printf("\nHERE:\n");
+                printf("%c",*a++);
+              }
+              printf("\n\n");
+              */
+                      }
+              break;
+            default: n=-999; printf("What did you say?\n"); break;
+              
+            } 
+          }
+#if HTS_ANALYSTE
+#else
+        } while(n==-999);
+#endif
+        io_flush;
+      } else {   // lien primaire: autoriser répertoire entier
+        
+        /* sanity check */
+        if ((*filptr) + 1 >= opt->maxfilter) {
+          opt->maxfilter += HTS_FILTERSINC;
+          if (filters_init(&filters, opt->maxfilter, HTS_FILTERSINC) == 0) {
+            printf("PANIC! : Too many filters : >%d [%d]\n", (*filptr),__LINE__);
+            fflush(stdout);
+            if (opt->errlog) {
+              fprintf(opt->errlog,LF"Too many filters, giving up..(>%d)"LF, (*filptr) );
+              fprintf(opt->errlog,"To avoid that: use #F option for more filters (example: -#F5000)"LF);
+              test_flush;
+            }
+            abort();         // wild..
+          }
+          //opt->filters.filters=filters;
+          //*ptrfilters = filters;
+        }
+        
+        if (!force_mirror) {
+          if ((opt->seeker & 1)==0) {  // interdiction de descendre
+            n=7;
+          } else {
+            n=5;   // autoriser miroir répertoires descendants (lien primaire)
+          }
+        } else   // forcer valeur (sub-wizard)
+          n=force_mirror;
+      }
+      
+      switch(n) {
+      case -1: // sauter tout le reste
+        forbidden_url=1;
+        opt->wizard=2;    // sauter tout le reste
+        break;
+      case 0:    // interdire les mêmes liens: adr/fil
+        forbidden_url=1; 
+        HT_INSERT_FILTERS0;    // insérer en 0
+        strcpy(filters[0],"-");
+        strcat(filters[0],jump_identification(adr));
+        if (*fil!='/') strcat(filters[0],"/");
+        strcat(filters[0],fil);
+        break;
+        
+      case 1: // éliminer répertoire entier et sous rép: adr/path/ *
+        forbidden_url=1;
+        {
+          int i=strlen(fil)-1;
+          while((fil[i]!='/') && (i>0)) i--;
+          if (fil[i]=='/') {
+            HT_INSERT_FILTERS0;    // insérer en 0
+            strcpy(filters[0],"-");
+            strcat(filters[0],jump_identification(adr));
+            if (*fil!='/') strcat(filters[0],"/");
+            strncat(filters[0],fil,i);
+            if (filters[0][strlen(filters[0])-1]!='/') strcat(filters[0],"/");
+            strcat(filters[0],"*");
+          }
+        }            
+        
+        // ** ...
+        break;
+        
+      case 2:    // adresse adr*
+        forbidden_url=1;
+        HT_INSERT_FILTERS0;    // insérer en 0                                
+        strcpy(filters[0],"-");
+        strcat(filters[0],jump_identification(adr));
+        strcat(filters[0],"*");
+        break;
+        
+      case 3: // ** A FAIRE
+        forbidden_url=1;
+        /*
+        {
+        int i=strlen(adr)-1;
+        while((adr[i]!='/') && (i>0)) i--;
+        if (i>0) {
+        
+          }
+          
+      }*/
+        
+        break;
+        //
+      case 4:    // same link
+        // PAS BESOIN!!
+        /*HT_INSERT_FILTERS0;    // insérer en 0                                
+        strcpy(filters[0],"+");
+        strcat(filters[0],adr);
+        if (*fil!='/') strcat(filters[0],"/");
+        strcat(filters[0],fil);*/
+        
+        
+        // étant donné le renversement wizard/primary filter (les primary autorisent up/down ET interdisent)
+        // il faut éviter d'un lien isolé effectue un miroir total..
+        
+        *set_prio_to = 0+1;    // niveau de récursion=0 (pas de miroir)
+        
+        break;
+        
+      case 5:    // autoriser répertoire entier et fils
+        if ((opt->seeker & 2)==0) {  // interdiction de monter
+          int i=strlen(fil)-1;
+          while((fil[i]!='/') && (i>0)) i--;
+          if (fil[i]=='/') {
+            HT_INSERT_FILTERS0;    // insérer en 0                                
+            strcpy(filters[0],"+");
+            strcat(filters[0],jump_identification(adr));
+            if (*fil!='/') strcat(filters[0],"/");
+            strncat(filters[0],fil,i+1);
+            strcat(filters[0],"*");
+          }
+        } else {    // autoriser domaine alors!!
+          HT_INSERT_FILTERS0;    // insérer en 0                                strcpy(filters[filptr],"+");
+          strcpy(filters[0],"+");
+          strcat(filters[0],jump_identification(adr));
+          strcat(filters[0],"*");
+        }
+        break;
+        
+      case 6:    // same domain
+        HT_INSERT_FILTERS0;    // insérer en 0                                strcpy(filters[filptr],"+");
+        strcpy(filters[0],"+");
+        strcat(filters[0],jump_identification(adr));
+        strcat(filters[0],"*");
+        break;
+        //
+      case 7:    // autoriser ce répertoire
+        {
+          int i=strlen(fil)-1;
+          while((fil[i]!='/') && (i>0)) i--;
+          if (fil[i]=='/') {
+            HT_INSERT_FILTERS0;    // insérer en 0                                
+            strcpy(filters[0],"+");
+            strcat(filters[0],jump_identification(adr));
+            if (*fil!='/') strcat(filters[0],"/");
+            strncat(filters[0],fil,i+1);
+            strcat(filters[0],"*[file]");
+          }
+        }
+        
+        break;
+        
+      case 50:    // on fait rien
+        break;
+      }  // switch 
+                              
+    }  // test du wizard sur l'url
+  }  // fin du test wizard..
+
+  // -------------------- PHASE 5 --------------------
+
+  // lien non autorisé, peut-on juste le tester?
+  if (just_test_it) {
+    if (forbidden_url==1) {
+      if (opt->travel&256) {    // tester tout de même
+        if (strfield(adr,"ftp://")==0) {    // PAS ftp!
+          forbidden_url=1;    // oui oui toujours interdit (note: sert à rien car ==1 mais c pour comprendre)
+          *just_test_it=1;     // mais on teste
+          if ((opt->debug>1) && (opt->log!=NULL)) {
+            fspc(opt->log,"debug"); fprintf(opt->log,"Testing link %s%s"LF,adr,fil);
+          }
+        }
+      }
+    }
+    //adr[0]='\0';  // cancel
+  }
+
+  // -------------------- PHASE 6 --------------------
+#if HTS_ANALYSTE
+  {
+    int test_url=hts_htmlcheck_check(adr,fil,forbidden_url);
+    if (test_url!=-1)
+      forbidden_url=test_url;
+  }
+#endif  
+  return forbidden_url;
+}
+
+// tester taille
+int hts_testlinksize(httrackp* opt,
+                     char* adr,char* fil,
+                     LLint size) {
+  int jok=0;
+  if (size>=0) {
+    char l[HTS_URLMAXSIZE*2];
+    char lfull[HTS_URLMAXSIZE*2];
+    if (size>=0) {
+      LLint sz=size;
+      int size_flag=0;
+      
+      // former URL complète du lien actuel
+      strcpy(l,jump_identification(adr));
+      if (*fil!='/') strcat(l,"/");
+      strcat(l,fil);
+      //
+      if (!link_has_authority(adr))
+        strcpy(lfull,"http://");
+      else
+        lfull[0]='\0';
+      strcat(lfull,adr);
+      if (*fil!='/') strcat(l,"/");
+      strcat(lfull,fil);
+      
+      // tester filtres (taille)
+      // jok = fa_strjoker(opt->filters.filters,*opt->filters.filptr,l,&sz,&size_flag,NULL);
+
+      // filters, 0=sait pas 1=ok -1=interdit
+      {
+        int jokDepth1=0,jokDepth2=0;
+        int jok1=0,jok2=0;
+        LLint sz1=size,sz2=size;
+        int size_flag1=0,size_flag2=0;
+        jok1  = fa_strjoker(*opt->filters.filters,*opt->filters.filptr,lfull,&sz1,&size_flag1,&jokDepth1);
+        jok2 =  fa_strjoker(*opt->filters.filters,*opt->filters.filptr,l,    &sz2,&size_flag2,&jokDepth2);
+        if (jok2 == 0) {      // #2 doesn't know
+          jok = jok1;        // then, use #1
+          sz = sz1;
+          size_flag = size_flag1;
+        } else if (jok1 == 0) {  // #1 doesn't know
+          jok = jok2;        // then, use #2
+          sz = sz2;
+          size_flag = size_flag2;
+        } else if (jokDepth1 >= jokDepth2) { // #1 matching rule is "after" #2, then it is prioritary
+          jok = jok1;
+          sz = sz1;
+          size_flag = size_flag1;
+        } else {                              // #2 matching rule is "after" #1, then it is prioritary
+          jok = jok2;
+          sz = sz2;
+          size_flag = size_flag2;
+        } 
+      }
+      
+
+      // log
+      if (jok==1) {
+        if ((opt->debug>1) && (opt->log!=NULL)) {
+          fspc(opt->log,"debug"); fprintf(opt->log,"File confirmed (size test): %s%s ("LLintP")"LF,adr,fil,(LLint)(size));
+        }
+      } else if (jok==-1) {
+        if (size_flag) {        /* interdit à cause de la taille */
+          if ((opt->debug>1) && (opt->log!=NULL)) {
+            fspc(opt->log,"debug"); fprintf(opt->log,"File cancelled due to its size: %s%s ("LLintP", limit: "LLintP")"LF,adr,fil,(LLint)(size),(LLint)(sz));
+          }
+        } else {
+          jok=1;
+        }
+      }
+    }
+  }
+  return jok;
+}
+
+
+
+#undef test_flush
+#undef urladr
+#undef urlfil
+
+#undef HT_INSERT_FILTERS0
+