[UPD ITA] Comingsoon.it

If you made a script you can offer it to the others here, or ask help to improve it. You can also report here bugs & problems with existing scripts.
Post Reply
otreux
Posts: 194
Joined: 2008-10-22 16:55:46

Post by otreux »

sometime your script don't work and show a message:

indirizzo di estrazione non appropriato

for example with the movie "Non si ruba a casa dei ladri"

:(
Top
fulvio53s03
Posts: 764
Joined: 2007-04-28 05:46:43
Location: Italy

Post by fulvio53s03 »

otreux wrote:sometime your script don't work and show a message:
indirizzo di estrazione non appropriato
for example with the movie "Non si ruba a casa dei ladri"
:(
E' un problema della ricerca Google: non tutte le nuove pagine di Comingsoon con indirizzo https sono già state indirizzate; per alcune rimane ancora il puntamento a indirizzi htttp non più esistenti.
Grazie a mrobama per il suggerimento sull'estrazione dati usando in alternativa il titolo originale.

It's a Google search's problem: not all new pages of Comingsoon with address https have already been addressed; for some still remains a link to address htttp that no longer exists.
Thanks to mrobama's suggestions about extracting data using original title in alternative to translated title.

Aggiornate lo script:

Code: Select all

(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=Fulvio53s03
Title=comingsoon
Description=import film e serie TV
Site=http://www.comingsoon.it
Language=IT
Version=1.2.2
Requires=4.2.1
Comments=puo' essere usato per ricerca informazioni tramite google (mode=0) oppure per estrarle direttamente da comingsoon.it (mode=1) inserendo l'URL direttamente.
License=*  The source code of the script can be used in   |*  another program only if full credits to Fulvio53s03*
GetInfo=1
RequiresMovies=1

[Options]
Mode=0|0|0=normal mode|1=batch mode (url)

[Parameters]

***************************************************)

// TypeSearch=1|1|1=search for exact expression|2=search for any word
// TypeOrder=3|3|1=order by Artist|2=order by film_o_serie Title|3=order by relevance

// needs the following units
// StringUtils7552.pas
//
program comingsoon;
uses
   StringUtils7552;
   
const
   comingsoonUrl = 'https://www.comingsoon.it';                // base url

   UrlBase = 'https://www.comingsoon.it';                // base url
   batchlogfic = 'c:\comingsoon_batch.txt';                  // log for batch mode
   debug_search = false;                                   // debuga mode on/off su ricerca dischi
   debug_film_o_serie = false;                                   // debug mode on/off su estrazione dati film_o_serie
   folder = 'f:\prova\';                                       // directory where to save files
   CRLFspace = CRLF + ' ';
//2016-02-10   tappo_fine_ricerca = '<li class="g">Tappodifinericercadaticongoogle</li><li class="g">';
   tappo_fine_ricerca = '<div class="g">Tappodifinericercadaticongoogle</div><div class="g">';    //2016-02-10
var
   nuovo_anno, mese_anno, solo_anno, data_rilascio, label, stagione: String;
   Credit_address, Readdress, Page: String;
   film_o_serieName, ArtistName, firstcall, name, autori: String;
   Formato, Releases, artista: String;
   tipo_ricerca, pag_ricerca, save_value, ordine_lista, Salva_autore: String;
   value, episodi, lista_episodi: string;
   CharNormal, CharAbNormal: string;
   film_o_serie_ok: boolean;
   BatchMode, giri: Integer;
   titolo_e_autore, titolo, autore, durata, cover: String;
   save_comments, commento_episodi, commento_skeda: String;
   save_description, save_desc_skeda, save_desc_episodi: String;
   batchlog, confbatch: TstringList;
   save_pag, artist, initchar, endchar: string;
   film_o_serieok: boolean;

//------------------------------------------------------------------------------
// list of film_o_series
//------------------------------------------------------------------------------
procedure GetList;   
var
   Address, urlmusic, album, albumtest, genre: String;
   Save_address, Title_album, indir_album, indir_title_album: String;
   dati_album, init_control, end_control, init_ol, end_ol: String;
   Desc_ricerca: String;
   ctr_loop: integer;
   found: boolean;
   i, lgth_dati_album: integer;
begin
   PickTreeClear;                                                    // clear list
   desc_ricerca := film_o_serieName;
   Address := 'https://www.google.it/search?as_q=' + film_o_serieName;
   Address := Address + '&as_epq=&as_oq=&as_eq=&as_nlo=&as_nhi=&lr=&cr=&as_qdr=all';
   Address := Address + '&as_sitesearch=www.comingsoon.it&as_occt=any&safe=images&as_filetype=&as_rights=';
//   Address := comingsoonUrl + '/cerca/?q=' + film_o_serieName + '&gsc.page=1';
//   Address := Address + '#gsc.tab=0&gsc.q=' + film_o_serieName + '&gsc.page=1';
// https://www.google.it/search?as_q=Teen%20Wolf&as_epq=&as_oq=&as_eq=&as_nlo=&as_nhi=&lr=&cr=&as_qdr=all&as_site
// search=www.comingsoon.it&as_occt=any&safe=images&as_filetype=&as_rights=
   Address := UrlEncode(Address);
   Page := GetPage(Address);
   Save_address := Address;
   SetField(fieldURL, Address);
   HTMLdecode(Page);
   if debug_search then
      DumpPage(folder+'googleListPage.html', Page);                // debug

   found := True;
//   PickTreeAdd('List of albums found for' + '"' + AlbumName + '"', '');
   PickTreeAdd('Lista articoli trovati per "' + Desc_ricerca, '"');
   if debug_search then
      DumpPage(folder+'discogsList.txt', Page);                // debug
   if Pos('find anything', Page) <> 0 then
   begin
      LogMessage('Error while reading selection page - no results found for ' + Desc_ricerca);
      Found := False;
      exit;
   end;

   init_ol := '<ol>';                        //2015-11-25
   end_ol  := '</ol>';
   pag_ricerca := TextBetween(Page, init_ol, end_ol) + tappo_fine_ricerca + end_ol;  //elenco titoli richiesti e tappo ricerca
   if debug_search then
      DumpPage(folder+'googlericerca.html', pag_ricerca);                // debug

//   Normalizza_Page(pag_ricerca);
//   if debug_search then
//      DumpPage(folder+'googlericercanorm.html', pag_ricerca);                // debug

   save_pag := pag_ricerca;
//2016-02-10   init_control := '<li class="g">';
//2016-02-10   end_control := '<li class="g">';
   init_control := '<div class="g">';     //2016-02-10
   end_control := '<div class="g">';      //2016-02-10
   dati_album := init_control + TextBetween (pag_ricerca, init_control, end_control) + end_control;
   //dati_album contiene recursivamente i dati delle pagine referenziate da google
   lgth_dati_album := length(dati_album);
   if debug_search then
      DumpPage(folder+'google_dati_album.html', dati_album);                // debug
   delete(Pag_ricerca, 1, (lgth_dati_album - length(end_control)));
   if debug_search then
      DumpPage(folder+'googlericerca-1.html', Pag_ricerca);                // debug

   while (dati_album <> tappo_fine_ricerca) do                 //estraggo fino al tappo di fine ricerca
      begin
//2017-01-02      initchar := ':https://';                   //fs *****************+ può essere sia http://  che https://
      initchar := ':https://';       //2017-01-04
      endchar  := '/%252';
      Address  := textBetween(dati_album, initchar, endchar);
      if length(address) < 1 then
          begin
          initchar := ':http://';       //2017-01-04
          Address  := textBetween(dati_album, initchar, endchar);
          end;
      Address  := 'https://' + Address;

      initchar := '<h3 class="r">';
      endchar  := '</h3>';
      Title_album  := textBetween(dati_album,initchar, endchar);              //descrizione del link
      HTMLRemoveTags(Title_album);
//      Title_album := copy(Title_album, 1, 42);
      PickTreeAdd(Title_Album, Address);
      found := True;

//2016-02-10   init_control := '<li class="g">';
//2016-02-10   end_control := '<li class="g">';
      init_control := '<div class="g">';    //2016-02-10
      end_control := '<div class="g">';     //2016-02-10
      dati_album := init_control + TextBetween (pag_ricerca, init_control, end_control) + end_control;
      lgth_dati_album := length(dati_album);
      delete(Pag_ricerca, 1, (lgth_dati_album - length(end_control)));
      lgth_dati_album := length(Dati_album) - (length(init_control) + length(end_control));
      end;
//   end;

   if not found then
   begin
      LogMessage('No album found for ' + Desc_ricerca);
      exit;
   end;
   if PickTreeExec(Address) then
      begin
      AnalyzeMoviePage(Address);                                    // Album page
      end
   else
      LogMessage('No serie/film selected');
// ---------------------------------------
end;

//------------------------------------------------------------------------------
// ANALYZE Movie PAGE
//------------------------------------------------------------------------------
procedure AnalyzeMoviePage(Address: string);
var
   urlmusic, Lenght, Pays: String;
   Autore, style, Commenti, str_min, campo_note: String;
   minu, minuti, ore, lgth_comm, save_lgth_comm, i: integer;
   j: Real;
begin
   if pos('/scheda', Address) > 1
      then begin
           stagione := '';
           tipo_ricerca := 'sk ep';
      end
      else if pos('/episodi', Address) > 1
              then begin
                   tipo_ricerca := 'ep sk';
//                   stagione := ' (' + (textbetween(Address,'/episodi/',   '/') + ')';
                   stagione := ' (' + (textafter(Address, '/episodi/') + ')';
              end
              else begin
                  ShowMessage('indirizzo di estrazione non appropriato. Né scheda né episodi!');
                  exit;
              end;
    save_comments    := '';
    commento_episodi := '';
    commento_skeda   := '';
   if tipo_ricerca = 'sk ep' then
      begin
      estrazione_scheda(Address);
      save_comments := commento_skeda + CRLF + commento_episodi;
      SetField(fieldcomments, save_comments);     // commenti + elenco episodi           end
      save_description := save_desc_skeda;
      SetField(fieldDescription, save_description);

      end
   if tipo_ricerca = 'ep sk' then           // inizio variazioni fs2016-11-17
      begin
      estrazione_episodi(Address);
      save_comments := commento_skeda;                        // + commento_episodi;
//      SetField(fieldcomments, save_comments);     // commenti + elenco episodi           end
      SetField(fieldDescription, commento_episodi);
      save_description := save_desc_skeda + CRLF + commento_episodi;
//      SetField(fieldDescription, save_description);
      SetField(fieldComments, save_desc_skeda);
   end
end;

//------------------------------------------------------------------------------
// ESTRAE INFORMAZIONI DA SCHEDA + EPISODI SE E' UNA SERIE
//------------------------------------------------------------------------------
procedure estrazione_scheda(Address: string);
begin
   Page := GetPage(Address);
   Page := UTF8decode(Page);
   if debug_film_o_serie  then
      DumpPage(folder+'comingsoonPageDetail.txt', Page);                         // debug_film_o_serie
   HTMLdecode(Page);

   if (BatchMode = 0)  and (tipo_ricerca = 'sk ep') then
      SetField(fieldURL, Address);
   SetField(fieldDate, DateToStr(Date));
   Normalizza_Page(Page);
//   Page := UTF8Decode(Page);                                              //fs2015-01-15
   film_o_serieok := True;

   if debug_film_o_serie  then
      DumpPage(folder+'comingsoonPageDetailHTMLdecode.html', Page);               // debug_film_o_serie
   Value := Page;

//*** cover       locandina jpg
   cover := TextBetween(value, '<link rel="image_src" href="', '">');
//   setfield(fieldborrower, cover);
   if tipo_ricerca = 'sk ep' then
      GetPicture(cover);

//   if length(Getfield(fieldtranslatedTitle)) < 1 then
//      begin
//fs2016-06-26       initchar := '<h1 itemprop="name" class="titolo scheda col-sm-10">';
       initchar := '<h1 class="titolo scheda col-sm-10">';        //fs2016-06-26
       endchar :=  '</h1>';
       label := textbetween(Value, initchar, endchar);
       label := label + stagione;
       if length(label) > 0
          then begin
          label := stringReplace(label, '/', '');
          SetField(fieldtranslatedTitle, label);
       end;                                       //artista in original title

   label := textbetween(Value, 'Titolo originale: ', '</p>');
   SetField(fieldoriginalTitle, label);                                       //artista in original title

   initchar := '<div class="contenuto-scheda-destra col-xs-8">';
   endchar :=  '<div class="box-descrizione">';
   label := TextBetween(Value, initchar, endchar) + endchar;
   initchar := '<!-- Paragrafo -->';
//   label := TextBetween(label, initchar, endchar);     // era per solo serie
   label := TextAfter(label, initchar);                  //sia serie che film
   initchar := '<p>';
   endchar :=  '</p>';
   label := TextBetween(label, initchar, endchar);
   label := stringReplace(label, '<strong>', ' $%&$%&$%&');

   HTMLRemoveTags(label);
   label := FormatText(label);
   label := stringReplace(label, CRLF, '');
   label := stringReplace(label, ' $%&$%&$%&', CRLF);      //se presenti descrizioni di serie multiple
   label := stringReplace(label, '$%&$%&$%&', '');         //eventuale prima riga della descrizione
   save_desc_skeda := label;

   initchar := '<span>GENERE</span>:';
   endchar :=  '</li>';
   label := TextBetween(value, initchar, endchar);
   HTMLRemoveTags(label);
   label := FormatText(label);
   label := stringReplace(label, CRLF, '');
//   label := fulltrim(label);
   SetField(fieldcategory, label);

   initchar := '<li><span>REGIA</span>: ';
   endchar :=  '</li>';
   label := TextBetween(value, initchar, endchar);
   HTMLRemoveTags(label);
   label := FormatText(label);
   SetField(fieldDirector, label);

   initchar := '<li><span>ATTORI</span>:';
   endchar :=  '</li>';
   label := initchar + TextBetween(Value, initchar, endchar) + endchar;
   HTMLRemoveTags(label);
   label := stringReplace(label, 'ATTORI: ', '');
   SetField(fieldactors, label);

   initchar := '<li><span>ANNO</span>: ';
   endchar :=  '</li>';
   label := TextBetween(Value, initchar, endchar);
   HTMLRemoveTags(label);
   label := FormatText(label);
   label := stringReplace(label, CRLF, '');
   SetField(fieldyear, label);

   initchar := '<li><span>PAESE</span>: ';
   endchar :=  '</li>';
   label := TextBetween(Value, initchar, endchar);
   HTMLRemoveTags(label);
   label := FormatText(label);
   label := stringReplace(label, CRLF, '');
   SetField(fieldcountry, label);

   initchar := '<li><span>PRODUZIONE</span>: ';
   endchar :=  '</li>';
   label := TextBetween(Value, initchar, endchar);
   HTMLRemoveTags(label);
   label := FormatText(label);
   label := stringReplace(label, CRLF, '');
   SetField(fieldproducer, label);

   initchar := '<li><span>IDEATORE</span>: ';
   endchar :=  '</li>';
   label := TextBetween(Value, initchar, endchar);
   HTMLRemoveTags(label);
   label := FormatText(label);
   label := stringReplace(label, CRLF, '');
   SetField(fieldwriter, label);

   initchar := '<li><span>DURATA</span>: ';
   endchar :=  ' Min</meta></li>';
   label := TextBetween(Value, initchar, endchar);
   HTMLRemoveTags(label);
   label := FormatText(label);
   SetField(fieldlength, label);

// commenti_ le serie contengono anche l'elenco episodi //
   Value := stringReplace(Value, '>CURIOSITÀ:<', '>Curiosità:<');
   initchar := '<div class="h5 pad-tlr-18">Curiosità:</div>';
   endchar :=  '</div>';
   label := TextBetween(Value, initchar, endchar);
   HTMLRemoveTags(label);
   label := FormatText(label);
   label := stringReplace(label, CRLF, '');
   commento_skeda := label;
//   save_comments := label;
   
   if tipo_ricerca = 'sk ep' then
      begin
//    per le serie, aggiungo l'elenco episodi
      initchar := '<nav class="col-xs-12 tab-menu tab-12 serietv">';
      endchar  := '</nav>';
      label := Textbetween(Value, initchar, endchar);
      initchar := '<li class="item1"><a href="';
      endchar  := '">';
      label    := Textbetween(label, initchar, endchar);
      if length(label) > 0 then
         begin
         label := 'https://www.comingsoon.it' + label;
         Address := label;
         estrazione_episodi(Address);
         save_comments := commento_skeda + CRLF + commento_episodi;
//         SetField(fieldcomments, save_comments);     // commenti + elenco episodi
         end;
      end
end;

//------------------------------------------------------------------------------
// ESTRAE INFORMAZIONI DA EPISODI DI UNA SERIE + SCHEDA DELLA SERIE
//------------------------------------------------------------------------------
Procedure estrazione_episodi(Address: string);
Begin
//    normalizza_page(Value);                       //fs2015.01.15

   Page := GetPage(Address);
   Page := UTF8decode(Page);
   if debug_film_o_serie  then
      DumpPage(folder+'comingsoonepisodes.txt', Page);            // debug_film_o_serie
   HTMLdecode(Page);
//*** cover   locandina jpg
   cover := TextBetween(Page, '<link rel="image_src" href="', '">');
   if tipo_ricerca = 'ep sk' then
      GetPicture(cover);

   if (BatchMode = 0)  and (tipo_ricerca = 'ep sk') then
      SetField(fieldURL, Address);
   initchar := '<div class="articoli-piu-recenti-xl box-main" id="box-lista-episodi-serietv" role="tablist">';
   endchar  := '<div class="box-share-tasti-sociali">';
   Value  := initchar + TextBetween(Page, initchar, endchar) + endchar;
   if debug_film_o_serie  then
      DumpPage(folder+'comingsoonepisodesExtr.txt', Value);            // debug_film_o_serie
   Value := StringReplace(Value, '<div class="col-sm-6 titolo">', '$%&$%&$%&');

// formatta episodi //
//1. Sotto assedio        (A'ohe Kahi e Pe'e Ai) - REGIA: Bryan Spicer       - SCENEGG.: Peter M. Lenkov, Ken Solarz.......
   Value := stringReplace(Value, '<div class="col-sm-6 descrizione">',           '<div class="col-sm-6 descrizione">seispazi (');
//   Value := stringReplace(Value, '<li class="h6 anno"><strong>REGIA',            '<li class="h6 anno"><strong>)seispazi   - REGIA');
   Value := stringReplace(Value, '<li class="h6 anno"><strong>REGIA',            '<li class="h6 anno"><strong>)   - REGIA');
   Value := stringReplace(Value, '<li class="h6 anno"><strong>SCENEGGIATURA',    '<li class="h6 anno"><strong>      - SCENEGG.');
   Value := stringReplace(Value, '<li class="h6 anno"><strong>TRAMA</strong>: ', '<li class="h6 anno"><strong>$%&$%&$%&TRAMA</strong>: ');
//   Value := stringReplace(Value, '       )', ')');

   initchar := '<li class="h6 anno"><strong>DURATA';
   endchar  := '</li>';
   durata:= initchar + TextBetween(Value, initchar, endchar) + endchar;
   while length(durata) > (length(initchar) + length(endchar))    do
     begin
        durata:= initchar + TextBetween(Value, initchar, endchar) + endchar;
        Value := stringReplace(Value, durata, '');    // elimino durata dei singoli episodi
     end;
// fine formatta episodi //

   HTMLRemoveTags(Value);
   if debug_film_o_serie  then
      DumpPage(folder+'comingsoonepisodesExtr.txt', Value);            // debug_film_o_serie
   value := FormatText(value);
   Value := StringReplace(Value, CRLF, '');
   Value := stringReplace(Value, '$%&$%&$%&', CRLF);
   Value := stringReplace(Value, 'seispazi', '      ');         //eventuale prima riga della descrizione
   Value := stringReplace(Value, '        )', ')');
   Value := stringReplace(Value, '        ', '   ');
   Value := stringReplace(Value, '          ', '');
   commento_episodi := Value;                                   //fs2016-11-17

//fs 2016-06-02 -------------- aggiungo commenti per la serie ----------------------------------
// commenti_ le serie contengono anche l'elenco episodi //
   Page := stringReplace(Page, '>CURIOSITÀ:<', '>Curiosità:<');
   initchar := '<div class="h5 pad-tlr-18">Curiosità:</div>';
   endchar :=  '</div>';
   label := TextBetween(Page, initchar, endchar);
   HTMLRemoveTags(label);
   label := FormatText(label);
   label := stringReplace(label, CRLF, '');
   commento_episodi := commento_episodi + CRLF + label;
//   save_comments := label;
//fine fs 2016-06-02 ------------------------------------------------

   if tipo_ricerca = 'ep sk' then
      begin
//    per le serie, aggiungo l'elenco episodi
      initchar := '<nav class="col-xs-12 tab-menu tab-12 serietv">';
      endchar  := '</nav>';
      label := Textbetween(Page, initchar, endchar);
      initchar := '<li class="item1"><a href="';
      endchar  := '">';
      label    := Textbetween(label, initchar, endchar);
      if length(label) > 0 then
         begin
         label := 'https://www.comingsoon.it' + label;
         Address := label;
         estrazione_scheda(Address);
         end;
      end


end;
// ********************* fine estrazione episodi *****************************************

Procedure Normalizza_page(Pagina: string);    // elimina i crlf, trasforma delimiters maiuscoli in minuscoli
begin
  pagina := RegExprSetReplace('<([^>]+)>', pagina, '<\L\1>', true);
  CharAbNormal := crlf;
  CharNormal := ' ';
  pagina := StringReplace(pagina, CharAbNormal, CharNormal);
  CharAbNormal := '<B';
  CharNormal := '<b';
  pagina := StringReplace(pagina, CharAbNormal, CharNormal);
  CharAbNormal := '</B';
  CharNormal := '</b';
  pagina := StringReplace(Value, CharAbNormal, CharNormal);
  CharAbNormal := '<FONT';
  CharNormal := '<font';
  pagina := StringReplace(pagina, CharAbNormal, CharNormal);
  CharAbNormal := '</FONT';
  CharNormal := '</font';
  pagina := StringReplace(pagina, CharAbNormal, CharNormal);
  CharAbNormal := '<TR';
  CharNormal := '<tr';
  pagina := StringReplace(pagina, CharAbNormal, CharNormal);
  CharAbNormal := '</TR';
  CharNormal := '</tr';
  pagina := StringReplace(pagina, CharAbNormal, CharNormal);
  CharAbNormal := '<TD';
  CharNormal := '<td';
  pagina := StringReplace(pagina, CharAbNormal, CharNormal);
  CharAbNormal := '</TD';
  CharNormal := '</td';
  pagina := StringReplace(pagina, CharAbNormal, CharNormal);
  CharAbNormal := '<DIV';
  CharNormal := '<div';
  pagina := StringReplace(pagina, CharAbNormal, CharNormal);
  CharAbNormal := '</DIV';
  CharNormal := '</div';
  pagina := StringReplace(pagina, CharAbNormal, CharNormal);
  CharAbNormal := '<Ol';
  CharNormal := '<ol';
  pagina := StringReplace(pagina, CharAbNormal, CharNormal);
  CharAbNormal := '</Ol';
  CharNormal := '</ol';
  pagina := StringReplace(pagina, CharAbNormal, CharNormal);
end;

//------------------------------------------------------------------------------
// set show warning (normal mode) or add to log (batch mode)
//------------------------------------------------------------------------------
procedure LogMessage(m: string);
begin
   if BatchMode > 0 then
      AddToLog('item '+GetField(fieldNumber)+': '+m)
   else
      ShowWarning(m);
end;

//------------------------------------------------------------------------------
// add a message in the batch log and save to disk
// (because I don't know when it's finished...)
//------------------------------------------------------------------------------
procedure AddToLog(m: string);
begin
//fs2016-12-31    batchlog.Add(m);
//fs2016-12-31    batchlog.SaveToFile(batchlogfic);
end;

//------------------------------------------------------------------------------
// process batch mode
//------------------------------------------------------------------------------
procedure comingsoonBatch;
begin
   film_o_serieName := GetField(fieldUrl);                      // if no url or another site then ignore
   if (film_o_serieName <> '') and (Pos(UrlBase, film_o_serieName) > 0) then
      AnalyzeMoviePage(film_o_serieName)
   else
      LogMessage('ignored url="'+film_o_serieName+'"');
end;   

//------------------------------------------------------------------------------
// process normal mode
//------------------------------------------------------------------------------
procedure comingsoonNorm;
begin
   film_o_serieok := False;
   if (GetField(fieldTranslatedTitle) <> '') then							//mrobama
      film_o_serieName := GetField(fieldTranslatedTitle)          // get film_o_serie name
   else													//mrobama
      film_o_serieName := GetField(fieldOriginalTitle);							//mrobama           
// get film_o_serie name//fs20160205   ArtistName := getField(fieldOriginalTitle);                   // get artist

   repeat
    if not Input('comingsoon = ' + ArtistName + ' - ' + film_o_serieName, 'Scrivi il nome del film o della serie:'
        + crlf, film_o_serieName) or (film_o_serieName = '') then exit;
    formato := getfield(FieldOriginalTitle);
    if pos(formato, 'serie') > 0 then
       formato:= 'serie';
    GetList;
       until film_o_serieok;
end;
//------------------------------------------------------------------------------
//  start here
//------------------------------------------------------------------------------                                             
begin
      if not CheckVersion(4,2,1) then
      begin
         ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 4.2.1)');
         exit;
      end;   
// get user's parms (used more than once)
      BatchMode := GetOption('Mode');
// *********************************************************************
      if BatchMode = 1 then                                
          comingsoonBatch;
      if BatchMode = 0 then
          comingsoonNorm;

end.
;)
Last edited by fulvio53s03 on 2017-01-05 20:47:28, edited 1 time in total.
Top
antp
Site Admin
Posts: 9651
Joined: 2002-05-30 10:13:07
Location: Brussels
Contact:
Contact antp

Post by antp »

Thanks, but I notice the version is wrong again in the message at the bottom of the script; I'm fixit that already in the version that I put on the server.
Top
fulvio53s03
Posts: 764
Joined: 2007-04-28 05:46:43
Location: Italy

Post by fulvio53s03 »

antp wrote:Thanks, but I notice the version is wrong again in the message at the bottom of the script; I'm fixit that already in the version that I put on the server.
OK..... sorry!
:(
Top
otreux
Posts: 194
Joined: 2008-10-22 16:55:46

Post by otreux »

Thanks Fulvio and Antp :)
Top
virginialuther12
Posts: 1
Joined: 2017-02-10 09:58:38

Post by virginialuther12 »

Thank you!
Top
Post Reply

Return to “Ant Movie Catalog > Scripts”