Personal Video Database

Thank you Ivek for yr quick reply. I will wait for your information, when you have the time to correct the psf files for the IMDB.

How can I upload all Imdb scripts used in my version 1.0.2.7 of PVD, since only 4 are permitted ?

Kind regards, George

Quote from: Ivek23 on August 12, 2021, 07:03:47 am

Quote from: Pacifist on August 08, 2021, 02:37:56 pm

"The IMDbMoviesUrl custom field now also has a link to the OMDb API website."
Where is this "custom field" located? Can I have a screen, please!   

See screenshot for memo IMDb Movies Url custom box.

Screenshots are attached.

What is it? 
P.S. What are the other Amadeus subclauses? Wildly curious! How much time do you spend adding information to one movie? (If anything, then this is a rhetorical question.)

P.P.S. THANK YOU!!!

Here is the new final IMDB_ [EN] [HTTPS] V 1.4.2.0 script version at the link below.

http://www.videodb.info/forum_en/index.php/topic,4134.msg21435.html#msg21435

//OBLIGATORY CALLBACK PRINCIPAL FUNCTION=========================================================================BlockOpen
Function ParsePage(HTML:String;URL:AnsiString):Cardinal; //BlockOpen
  Var
    MovieID,titleValue,yearValue:String;
    ResultTmp:Cardinal;
    Date:String;
    Fullinfo,Movie_URL,IMDB_URL: String;
    DateParts: TWideArray;
  Begin
    LogMessage('Function ParsePage BEGIN======================|');
    LogMessage('Global Var-Mode|'+IntToStr(Mode)+'|');
    LogMessage('Global Var-DownloadURL|'+DownloadURL+'|');
    LogMessage('      Local Var-URL|'+URL+'|');
//Parse return in mode 'Search Movie URL'--------------------------------------------------------------------------------
    If (Mode=smSearch) Then Begin
        titleValue:=GetFieldValueXML('origtitle');
        If (Length(titleValue)=0) Then titleValue:=GetFieldValueXML('title');
        yearValue:=GetFieldValueXML('year');       
        If yearValue='0' Then yearValue:=''; // Better no Year (blank) for the searches.
        LogMessage('  ParsePage smSearch|'+IntToStr(Mode)+'|. Searching DownloadURL for MovieTitle |'+ titleValue+'|'+' MovieYear |'+ yearValue+'|');
        //Download Provider search page.
        DownloadURL:=StringReplace(BASE_URL_SEARCH_PROV,'%s',titleValue,True,True,False);
        DownloadURL:=StringReplace(DownloadURL,' ','+',True,True,False);            //Better list of results without spaces.
        DownloadURL:=StringReplace(DownloadURL,'%y',yearValue,True,True,False);
        LogMessage('      Searching in Provider:|' + DownloadURL + '||');
        HTML:=DownloadPage(DownloadURL);  //True page for parsing the search
        //HTML:=FileToString( GetAppPath + '\Scripts\IMDB_[EN][HTTPS].v.1.0.0.0\' + 'V.1.0.0.0-IMDb-[Advanced.Search]-Padrino.htm'); //Debug
        HTML:=HTMLToText(HTML);
        Result:=ParsePage_IMDBSearchTitle(HTML);
        If ((Result=prError) and SEARCH_ENGINE) Then Begin  //No results or Redirection -> Search Engine needed
            LogMessage('        Not results or Redirection in Provider search, try with Bing');
            //Download Bing search page.
            DownloadURL:=StringReplace(BASE_URL_SEARCH_ENGI,'%p',BASE_URL_PRE_TRUE,True,True,False);   //WEB_SPECIFIC
            DownloadURL:=StringReplace(DownloadURL,'%s',titleValue,True,True,False);                 //WEB_SPECIFIC
            DownloadURL:=StringReplace(DownloadURL,' ','+',True,True,False);                         //Better list of results without spaces. WEB_SPECIFIC
            DownloadURL:=StringReplace(DownloadURL,'%y',yearValue,True,True,False);                  //WEB_SPECIFIC
            LogMessage('      Searching in Bing:|' + DownloadURL + '||');
            HTML:=DownloadPage(DownloadURL);  //True page for parsing the search
            HTML:=HTMLToText(HTML);
            Result:=ParsePage_BingSearch(HTML);
        End;
        //Parse the returned result of the search list.
        If Result=prError Then Begin //Not movie found, script finish in error.
            Mode:=smFinished;
            LogMessage('Function ParsePage smSearch-prError END======================|');
        End;
        If Result=prList Then Begin //One list of results loaded, needed user choice exit in the script mode (because HTTPS PVD NOT directly will download the user choice).
            Mode:=smSearchList;
            LogMessage('Function ParsePage smSearch-prList END======================|');
        End;
        If Result=prDownload Then Begin   //One results, exit needed only continue the script.
            Mode:=smNormal;
            LogMessage('Function ParsePage smSearch-prDownload END======================|');
        End;
        Exit;       
    End;     
//Parse return of 'SearchList Movie URL'-----------------------------------------------------------------------
    If (Mode=smSearchList) Then Begin       //The user have choose the link.
        LogMessage('  ParsePage mode smSearchList. Getting DownloadURL from the return of smSearchList');
      DownloadURL:=StringReplace(URL,CHEAT_PREFIX_URL,'',True,False,False);   //Eliminate the CHEAT_PREFIX_URL for get the true movie link
        DownloadURL:=StringReplace(DownloadURL,'http:','https:',True,True,False); //The direct url needed (no https redirection)
        LogMessage('     Global Var-DownloadURL|'+DownloadURL+'|');
        Mode:=smNormal;
        Result:=prDownload;  //But not exit needed for download the page because is HTTPS
        LogMessage('     With the good movie URL it demand download the movie page');
    End;
//Parse with the Movie URL 'smNormal'------------------------------------------------------------------------------------
    If (Mode=smNormal) Then Begin
        //Get the script Overwrite Options saved in pvdconf.ini (Remember that PVD only save the options on exit)
        //0=Do nothing,1=Set if Empty,2=Overwrite
        PVDConfigOptions:=TextBetWeenFirst(FileToString(GetAppPath+'pvdconf.ini'),'IMDB_[EN][HTTPS].psf=',Chr(13));
            //LogMessage('Stored Script PVDConfigOptions is:'+PVDConfigOptions+'||');
            //LogMessage('The Script option of position '+ IntToStr(opPoster) +' is:'+Copy(PVDConfigOptions,opPoster,1)+'||');
        Result:=prFinished;  //It will change to prError if any big problem with exit; 
        //Information in several page. Needs Provider MovieID
        MovieID:=TextBetWeenFirst(DownloadURL,BASE_URL_PRE_TRUE,BASE_URL_SUF);
        LogMessage('  ParsePage mode smNormal|'+IntToStr(Mode)+'|. Getting provider data for MovieID|'+ MovieID +'|');
        AddCustomFieldValueByName('IMDbID',MovieID);
      AddCustomFieldValueByName('IMDbID:',MovieID);
        LogMessage('      Get result IMDbID (CF~IMDbID~):'+MovieID+'||');
        //Get ~url~
        if (0=Pos(BASE_URL_PRE,StoredURL)) then begin   //Write the url if not exists
            AddFieldValueXML('url',StringReplace(DownloadURL,BASE_URL_PRE_TRUE,BASE_URL_PRE,True,False,False));
            LogMessage('      Get result url:'+StringReplace(DownloadURL,BASE_URL_PRE_TRUE,BASE_URL_PRE,True,False,False)+'||');
        end;
        //Get ~IMDb Movie Url~       
        Movie_URL:=StringReplace(DownloadURL,BASE_URL_PRE_TRUE,BASE_URL_PRE,True,False,False);
      AddCustomFieldValueByName('IMDb.com','<link url="'+Movie_URL+'">IMDb.com</link>');
      AddCustomFieldValueByName('IMDbMoviesUrl','<link url="'+Movie_URL+'">IMDb MovieUrl</link>  <link url="http://www.omdbapi.com/">OMDb API info</link>  <link url="http://www.omdbapi.com/apikey.aspx">OMDb API Key</link>');
      //AddCustomFieldValueByName('OMDbAPIUrl','<link url="'+Movie_URL+'">IMDb MovieUrl</link>  <link url="http://www.omdbapi.com/?i='+MovieID+'&apikey=[yourkey]&plot=short&tomatoes=true">OMDb API info for IMDb</link>  <link url="http://www.omdbapi.com/?i='+MovieID+'&apikey=[yourkey]&plot=full&tomatoes=true">OMDb API full info for IMDb</link>  <link url="http://www.omdbapi.com/?i='+MovieID+'&apikey=[yourkey]&plot=full&r=xml&tomatoes=true">OMDb API full xml info for IMDb</link>  <link url="http://www.omdbapi.com/?s='+GetFieldValueXML('title')+'&apikey=[yourkey]&plot=short&tomatoes=true">OMDb API Search for IMDb</link>');
        LogMessage('      Get result Movie_url: '+Movie_URL+' ||');
      LogMessage('      Get result OMDb API info_URL:'+#13+'<link url="http://www.omdbapi.com/">OMDb API info</link>  <link url="http://www.omdbapi.com/apikey.aspx">OMDb API Key</link>'+'||')
        Fullinfo:='';
        //Fullinfo:=Fullinfo+'<link url="'+Movie_UR+'">Maindetails</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'">MainPage</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'reference">Reference</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'fullcredits">Full Cast&Crew</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'awards">Awards</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'releaseinfo">ReleaseDates</link>  ';
        //Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'technical">TechnicalSpecs</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'technical">TechSpecs</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'parentalguide">ParentsGuide</link>  ';   
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'keywords">PlotKeywords</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'plotsummary">PlotSummary</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'locations">FilmLocations</link>  ';   
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'taglines">Taglines</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'companycredits">CompanyCredits</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'movieconnections">Connections</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'soundtrack">Soundtracks</link>  ';
        //Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'externalsites">Miscellaneous</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'externalsites">MiscSites</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'externalsites#photos">MiscPhoto</link>  ';
        Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'mediaindex">PhotoGallery</link>  ';
        //Fullinfo:=Fullinfo+'<link url="'+Movie_URLL+'externalsites#misc">MiscSites</link>  ';
        //Fullinfo:=Fullinfo+'<link url="'+Movie_URL+'externalsites#photos">MiscPhoto</link>  ';
        If Fullinfo <> '' then IMDB_URL:=Fullinfo;
        If IMDB_URL <> '' then AddCustomFieldValueByName('IMDb Movie Url',IMDB_URL);
        LogMessage('      Get result Fullinfo-IMDB_URL (CF~IMDb Movie Url~ ):'+#13+IMDB_URL+'||')
    //Parse principal provider page = BASE_URL_PRE_TRUE------------------------------------------------------------------

the script "Imdb_Movie (list of episodes).psf" completely stopped importing information about the number of seasons and episodes (!pic1.jpg). Is it possible to fix this and pass this function to some other script, please? For example "IMDB_ [EN] [HTTPS] (episodes) .psf".

Quote from: Pacifist on July 21, 2021, 10:28:09 am

P.S. we are waiting for a new version of the script "IMDB_ [EN] [HTTPS] (episodes) .psf" and "IMDB_ [EN] [HTTPS] (series) .psf" 

As for the new script updates for the series and episodes, it will take a little longer due to the new layout of the Main IMDb websites. Now the source code notation has changed a lot, which causes quite a few headaches so that certain information can be found about where it is written. As a result, it also causes problems for the correct way to write code in a script to download certain information.