Personal Video Database 1.0.2.7 MOD

[Ivek23]

Hallo
first of all, thanks for this grat job
i discovered it only now

Thanks for the name of the program's author and others, who help the program continue to work in some way.

1) is there a localized version of PVD in Italian ? if not, is there a way to contribute to create it ?

If you use 0.9.9.21 version, it already has an Italian translation. V1.0.2.7 does not have an Italian translation. However, there is a possibility to translate the english.rc file into the Italian language and rename it to custom.lng and copy it to the program folder. Now PVD will be in your language.

More info:
http://www.videodb.info/forum_en/index.php/topic,3186.msg15802.html#msg15802

The english.rc file is attached.

2) i would like to have the search script work for italian movie (so to add also [IT] language to script, but i don't know what to do.

In the script, add the following as shown below

  SCRIPT_LANG  = $09; //English //$0a es-Spanish   $0c fr-French   $09 en-English   $10 it-Italian

of course, if the website supports or is in the Italian language. A good example of this is TMDB web page.

There is currently no operating script for the PVD MOD version in the Italian language.

Perhaps what works in v0.9.9.2.1 and v1.0.2.7 with the help of Proxomitron program, where it is necessary to add certain web pages in default.cfg, so that everything works together.

Write the addresses and links for which web pages you need, then we will then see what can be edited and helped.

[webmasterone]

Ok
i'm translating language file
as soon as i will end it, i will give it to you, so that you can include it also in the installation files

I copied the [EN] file and renamed it TheMovieDB_[IT][API].psf
Than I modified the file as you told me (  SCRIPT_LANG  = $10; //$07=DE-German, $09=EN-English, $0a=ES-Spanish, $0c=FR-French, $10 it-Italian )
but i noted that the description still remained in english
i found that after modifying (in the same file) also the 128 line
  LANG_API_STR    = '&language=it'; //'&language=en', '&language=de', '&language=en', '&language=es', '&language=fr' //WEB_SPECIFIC
the description of the movie is now written in italian

just another thing
i read in the script that:
"TheMovieDB "keywords" info goes to ~tags~ PVD field"
but i can see that all the tags (TheMovieDB Keywords) are still in english (see image attached)

can you suggest to me how to solve it ?

thanks

[Ivek23]

Nice work and congratulations that something has just succeeded.

Ok
i'm translating language file
as soon as i will end it, i will give it to you, so that you can include it also in the installation files.

You do not send it to me, because I can not add it to the installation files. Attach it (in 7z or zip formats) to a forum in this topic for other users, which is then added as custom.lng to its PVD program folder.

just another thing
i read in the script that:
"TheMovieDB "keywords" info goes to ~tags~ PVD field"
but i can see that all the tags (TheMovieDB Keywords) are still in english (see image attached)

can you suggest to me how to solve it ?

It will probably be everywhere because it is not translated into the Italian language. Unfortunately, this can not be corrected. There is, however, the possibility that it will be OK when the website is also translated into the Italian language.

[afrocuban]

Hello, and thank you, thank you, thank you for your great work, guys!

I wanted to ask you if it's possible to include custom fields "IMDb.com", "AllMovie.com", "Rottentomatoes.com" and "FilmAffinity.com" in the scripts?

Thank you in advance!

[Ivek23]

Hello, and thank you, thank you, thank you for your great work, guys!

I wanted to ask you if it's possible to include custom fields "IMDb.com", "AllMovie.com", "Rottentomatoes.com" and "FilmAffinity.com" in the scripts?

Thank you in advance!

Of course, it depends on why you will need them, or for what purpose is the transfer of information that you need (what you will download to these custom fields).

[VVV_Easy_Programing]

Attach it (in 7z or zip formats) to a forum in this topic for other users, which is then added as custom.lng to its PVD program folder.

This is a good idea: If people attach here his Custom.lng files I'll include its in the MOD version (even perhaps I can do a little batch program in order to ask to user and tralate PVD auto).

I copied the [EN] file and renamed it TheMovieDB_[IT][API].psf
Than I modified the file as you told me (  SCRIPT_LANG  = $10; //$07=DE-German, $09=EN-English, $0a=ES-Spanish, $0c=FR-French, $10 it-Italian )
but i noted that the description still remained in english
i found that after modifying (in the same file) also the 128 line
  LANG_API_STR    = '&language=it'; //'&language=en', '&language=de', '&language=en', '&language=es', '&language=fr' //WEB_SPECIFIC
the description of the movie is now written in italian

Well done! You have found the good solution.
And perhpas more ... the diferent language versions of the TheMovieDB scripts are automatic translations using the attached files. If you give me the italian file I'll traslate it and include in the version MOD

i read in the script that:
"TheMovieDB "keywords" info goes to ~tags~ PVD field"
but i can see that all the tags (TheMovieDB Keywords) are still in english (see image attached)

Ivek23 has reason: This information is in english in the TheMovieDB website for the films in all languages. In the other hand the Genre are normaly translated.

[VVV_Easy_Programing]

Changelog:

• MOD V.2019.03.08; Ivek23, VVV: A lot of corrections and improvements (read PVD forum). Update "mandatory" 
  

Last version always in the first post

[Ivek23]

Attach it (in 7z or zip formats) to a forum in this topic for other users, which is then added as custom.lng to its PVD program folder.

This is a good idea: If people attach here his Custom.lng files I'll include its in the MOD version (even perhaps I can do a little batch program in order to ask to user and tralate PVD auto).

Slovenian.lng file for PVD and PVD MOD 1.0.2.7 version you will find on this link:

http://www.videodb.info/forum_en/index.php/topic,1752.msg20918.html#msg20918

[afrocuban]

Hello, and thank you, thank you, thank you for your great work, guys!

I wanted to ask you if it's possible to include custom fields "IMDb.com", "AllMovie.com", "Rottentomatoes.com" and "FilmAffinity.com" in the scripts?

Thank you in advance!

Of course, it depends on why you will need them, or for what purpose is the transfer of information that you need (what you will download to these custom fields).

Thank you in advance.

I use them, for example:

Code: [Select]

//Get ~mfURL~ or ~IMDb Url~
endPos := Pos('/ "><meta property="og:url"', HTML);
if endPos > 0 then begin
curPos := PrevPos('"canonical" href="', HTML, endPos);
AddFieldValue(mfURL, Copy(HTML, curPos + 18, endPos - curPos - 18));
end else
AddFieldValue(mfURL, MovieURL);
AddCustomFieldValueByName('IMDb.com', '<link url="' + MovieURL + '">IMDb.com</link>');
TmpStr := StringRepl

Just to get URL in a form:

<link url="http://www.allmovie.com/movie/upgrade-v699248">AllMovie.com</link>

But, this code above only works in some old IMDb script and Allmovie_new_HTTPS.psf with Proxomitron, and Rottentomatoes HTTPS script without Proxomitron, but I always have to edit them after their update/upgrade to insert those custom fields...

Thank you in advance

[Ivek23]

We will add and edit this in the following updates.

[Ivek23]

We will add and edit this in the following updates.

Will this be arranged with the next update, but it will be necessary to make for each script its own custom field to save the url of the address. Each update in this field changes the record and needs to be corrected. Also, in the scripts, it will be necessary to add this part of the code to the custom field.

[jippo]

I'm having this since two weeks ago.

I'm scanning with IMDB.

[Ivek23]

I'm having this since two weeks ago.

I'm scanning with IMDB.

Which IMDB version of the script, or which IMDB script you are using. Which film title is problematic for this error. We need the name and url of the movie title to help solve the problem.

[jondak]

I'm having this since two weeks ago.

I'm scanning with IMDB.

Same error:
IMDB_[EN][HTTPS].psf V 1.4.1.0 (10/02/2019)

For now 2 movies triggered the error:
https://www.imdb.com/title/tt1210059/ Flying Lessons (2010)

https://www.imdb.com/title/tt1877647/ Ghoul (2012)

Seems the movies with this error have no Plot Keywords

[Ivek23]

I'm having this since two weeks ago.

I'm scanning with IMDB.

Same error:
IMDB_[EN][HTTPS].psf V 1.4.1.0 (10/02/2019)

For now 2 movies triggered the error:
https://www.imdb.com/title/tt1210059/ Flying Lessons (2010)

https://www.imdb.com/title/tt1877647/ Ghoul (2012)

Seems the movies with this error have no Plot Keywords

Thanks for the error message. It's true, what you have already mentioned, that your movie titles have no Plot Keywords. I corrected this error.

CHANGE LOG :
            V 1.4.1.1 (20/06/2019) Ivek23: ParsePage_PLOTKEYWORDS small corrections and fix in the parts of the code 18-19/6/2019 forum alerts.
.
.
.
Function ParsePage_IMDBMoviePLOTKEYWORDS(HTML:String):Cardinal; //BlockOpen
    //Returns:
    //     Result:=prFinished; Script has finished gathering data
    //     Result:=prError; If ¿any big problem? with exit
    //Retrieve: ~Tags~
  Var
      curPos,endPos,index:Integer;
      //curPos,endPos:Integer;
      //ItemValue:String;
     ItemValue,ItemList:String;
     //Category,URL,Name:String;
     Category,Name:String;
     ItemArray:TWideArray;    
  Begin
    LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS BEGIN======================|');
    Result:=prFinished;  //It will change to prError if any big problem with exit;   
   //Get "Plot Keywords" info
    curPos:=Pos('<h1 class="header">Plot Keywords</h1>',HTML);
    if (curPos=0) then Exit;
    EndPos:=curPos;   
   //Get "Plot Keywords" info
   //If Pos('<h1 class="header">Plot Keywords</h1>',HTML)>0 Then Begin
   curPos:=Pos('<h1 class="header">Plot Keywords</h1>',HTML);
   If 0<curPos Then Begin   
      EndPos:=curPos;   
      Category:=TextBetween(HTML,'<h1 class="header">','</h1>',True,curPos);
      LogMessage('      Get result Category:'+Category+'||');
      Name:=TextBetween(HTML,'<div class="header"><div class="nav"><div class="desc">','</div></div></div>',True,curPos);
      LogMessage('      Get result Name:'+Name+'||');
      AddCustomFieldValueByName('Plot Keywords','<link url="'+GetFieldValueXML('url')+'keywords">'+Category+'</link>'+'     '+Name);
   End;         
   //Get "Plot Keywords" info
If (Pos('It looks like we don'+Chr(39)+'t have any Plot Keywords for this title yet.',HTML)>0) then Exit;
   curPos:=Pos('<h1 class="header">Plot Keywords</h1>',HTML);
   If 0<curPos Then Begin   
      //EndPos:=curPos;
      //Go Tags list
      curPos:=Pos('<table class="dataTable evenWidthTable2Col"><tbody>',HTML);
      curPos:=curPos+Length('<table class="dataTable evenWidthTable2Col"><tbody>');
      endPos:=PosFrom('</table>',HTML,curPos);
      //ItemList:=Copy(HTML,curPos,endPos-curPos);
      ItemList:=Trim(Copy(HTML,curPos,endPos-curPos));
      curPos:=Pos('tp://ogp.me/ns#"',ItemList);
        If 0<curPos then ItemList:=Copy(ItemList,0,curPos-1);
      ItemList:=RemoveTagsEx(ItemList);      
      ItemList:=StringReplace(ItemList,'    </div>','|',True,True,False);               
      ItemList:=RemoveTags(ItemList, False);
      //LogMessage('           Parse results ('+IntToStr(curPos)+','+IntToStr(endPos)+') complex ItemList:'+ItemList+'||'+#13);         
      //LogMessage('           Parse results ItemList:'+#13+ItemList+' ||');
      //LogMessage('           Parse results ItemList: '+ItemList+' ||');
      ExplodeString(ItemList,ItemArray,'|');
      For index:=Low(ItemArray) To High(ItemArray) Do Begin        //Remember index begin in 0
            If (index=PLOTKEYWORDS_LIMIT) Then break;     //Limited depassed. Compares with = (not with >) because index begin in 0
         ItemValue:=ItemValue+ItemArray[index]+', ';
         LogMessage('    Get result Keyword: #'+IntToStr(index+1)+' | '+ItemArray[index]+', '+'||');
      End;
      index:=index+1;      
      If ItemValue <> '' then AddFieldValueXML('tags',ItemValue);
      LogMessage('      Get result Plot Keywords: '+ItemValue+'||');
    End;   
    LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS END=====================||');
  End; //BlockClose

It's attached IMDB_ [EN] [HTTPS] V 1.4.1.1 script.

[jippo]

Thanks.

[jondak]

Thank you.

[Ivek23]

I'm having this since two weeks ago.

I'm scanning with IMDB.

Same error:
IMDB_[EN][HTTPS].psf V 1.4.1.0 (10/02/2019)

For now 2 movies triggered the error:
https://www.imdb.com/title/tt1210059/ Flying Lessons (2010)

https://www.imdb.com/title/tt1877647/ Ghoul (2012)

Seems the movies with this error have no Plot Keywords

Thanks for the error message. It's true, what you have already mentioned, that your movie titles have no Plot Keywords. I corrected this error.

CHANGE LOG :
            V 1.4.1.1 (20/06/2019) Ivek23: ParsePage_PLOTKEYWORDS small corrections and fix in the parts of the code 18-19/6/2019 forum alerts.
.
.
.
Function ParsePage_IMDBMoviePLOTKEYWORDS(HTML:String):Cardinal; //BlockOpen
    //Returns:
    //     Result:=prFinished; Script has finished gathering data
    //     Result:=prError; If ¿any big problem? with exit
    //Retrieve: ~Tags~
  Var
      curPos,endPos,index:Integer;
      //curPos,endPos:Integer;
      //ItemValue:String;
     ItemValue,ItemList:String;
     //Category,URL,Name:String;
     Category,Name:String;
     ItemArray:TWideArray;    
  Begin
    LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS BEGIN======================|');
    Result:=prFinished;  //It will change to prError if any big problem with exit;   
   //Get "Plot Keywords" info
    curPos:=Pos('<h1 class="header">Plot Keywords</h1>',HTML);
    if (curPos=0) then Exit;
    EndPos:=curPos;   
   //Get "Plot Keywords" info
   //If Pos('<h1 class="header">Plot Keywords</h1>',HTML)>0 Then Begin
   curPos:=Pos('<h1 class="header">Plot Keywords</h1>',HTML);
   If 0<curPos Then Begin   
      EndPos:=curPos;   
      Category:=TextBetween(HTML,'<h1 class="header">','</h1>',True,curPos);
      LogMessage('      Get result Category:'+Category+'||');
      Name:=TextBetween(HTML,'<div class="header"><div class="nav"><div class="desc">','</div></div></div>',True,curPos);
      LogMessage('      Get result Name:'+Name+'||');
      AddCustomFieldValueByName('Plot Keywords','<link url="'+GetFieldValueXML('url')+'keywords">'+Category+'</link>'+'     '+Name);
   End;         
   //Get "Plot Keywords" info
If (Pos('It looks like we don'+Chr(39)+'t have any Plot Keywords for this title yet.',HTML)>0) then Exit;
   curPos:=Pos('<h1 class="header">Plot Keywords</h1>',HTML);
   If 0<curPos Then Begin   
      //EndPos:=curPos;
      //Go Tags list
      curPos:=Pos('<table class="dataTable evenWidthTable2Col"><tbody>',HTML);
      curPos:=curPos+Length('<table class="dataTable evenWidthTable2Col"><tbody>');
      endPos:=PosFrom('</table>',HTML,curPos);
      //ItemList:=Copy(HTML,curPos,endPos-curPos);
      ItemList:=Trim(Copy(HTML,curPos,endPos-curPos));
      curPos:=Pos('tp://ogp.me/ns#"',ItemList);
        If 0<curPos then ItemList:=Copy(ItemList,0,curPos-1);
      ItemList:=RemoveTagsEx(ItemList);      
      ItemList:=StringReplace(ItemList,'    </div>','|',True,True,False);               
      ItemList:=RemoveTags(ItemList, False);
      //LogMessage('           Parse results ('+IntToStr(curPos)+','+IntToStr(endPos)+') complex ItemList:'+ItemList+'||'+#13);         
      //LogMessage('           Parse results ItemList:'+#13+ItemList+' ||');
      //LogMessage('           Parse results ItemList: '+ItemList+' ||');
      ExplodeString(ItemList,ItemArray,'|');
      For index:=Low(ItemArray) To High(ItemArray) Do Begin        //Remember index begin in 0
            If (index=PLOTKEYWORDS_LIMIT) Then break;     //Limited depassed. Compares with = (not with >) because index begin in 0
         ItemValue:=ItemValue+ItemArray[index]+', ';
         LogMessage('    Get result Keyword: #'+IntToStr(index+1)+' | '+ItemArray[index]+', '+'||');
      End;
      index:=index+1;      
      If ItemValue <> '' then AddFieldValueXML('tags',ItemValue);
      LogMessage('      Get result Plot Keywords: '+ItemValue+'||');
    End;   
    LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS END=====================||');
  End; //BlockClose

It's attached IMDB_ [EN] [HTTPS] V 1.4.1.1 script.

The IMDB_ [EN] [HTTPS] 1.4.1.1 script is also available via the program's auto-update system.

http://www.videodb.info/forum_en/index.php?action=down

[jippo]

I am having these imports with filmaffinity.

[jippo]

I am having these imports with filmaffinity.

I think it is a problem related with the filmaffinity headers.