Personal Video Database

Hello dear Ivek and Easy.

This (probably, hahaha) would be my final humble request to include "IMDb.com" and "IMDbID" hidden custom fields into IMDb script for future releases, so I could get this into my custom skin:

//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 := StringReplace(MovieURL, 'http://www.imdb.com/title/', '', false, false, false );
   TmpStr := StringReplace(TmpStr, '?ref_=fn_tt_tt_', '', true, false, true);
   TmpStr := StringReplace(TmpStr, '/', '', true, false, true);
AddCustomFieldValueByName('IMDbID:', TmpStr);

end;

To get those, so far I use some ancient Ivek's script from 2013, which you can find enclosed but it works only with Proxomitron, and after IMDb url is provided by IMDB_[EN][HTTPS].psf

While waiting for rottentomatoes renewed script too,

Thank you in advance!

P.S. At the screenshot you can check how it looks in my custom skin

Thank you so much Easy! God bless you! 

It just looks that custom field piece of code has to come at the beginning of ~url section:

//Get ~url~
AddCustomFieldValueByName('FilmAffinity.com', '<link url="'+ StringReplace(DownloadURL,BASE_URL_PRE_TRUE,BASE_URL_PRE,True,False,False)+ '">FilmAffinity.com</link>');
        if (0=Pos(BASE_URL,StoredURL)) then begin   //Write the url if not exists (Spanish or english)
            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;


This is how it works flawlessly.  Thanks again!

Thank you so much! It works like a charm.

Now, I don't want to sound ungratefully, but is there any chance you could include these custom fields in future release, I just sometimes tend to forget to manually update each time the script according to my needs:

//// 'Synopsis' saved to ~mfDescription~

 If Pos('<section class="review read-more synopsis">', HTML) > 0 then begin

  curPos := PosFrom('<h4 class="review-author headline" itemprop="author" itemscope itemtype="https://schema.org/Person">', HTML, curPos);
  endPos := PosFrom('<span itemprop="name">', HTML, curPos);
   TmpStr5 := TextBetween(HTML, '<h4 class="review-author headline" itemprop="author" itemscope itemtype="https://schema.org/Person">', '<span itemprop="name">', True, curPos);
   TmpStr5 := StringReplace(TmpStr5, '                            by', '', True, True, False);

  curPos := PosFrom('<h4 class="review-author headline" itemprop="author" itemscope itemtype="https://schema.org/Person">', HTML, curPos);
  endPos := PosFrom('<span itemprop="name">', HTML, curPos);
   TmpStr4 := TextBetween(HTML, '<h4 class="review-author headline" itemprop="author" itemscope itemtype="https://schema.org/Person">', '<span itemprop="name">', True, curPos);
   TmpStr4 := StringReplace(TmpStr4, 'Synopsis                            ', ' - ', True, True, False);

  curPos := PosFrom('<span itemprop="name">', HTML, curPos);
  endPos := PosFrom('</span>', HTML, curPos);
   TmpStr3 := TextBetween(HTML, '<span itemprop="name">', '</span>', True, curPos)

  curPos := PosFrom('<div class="text" itemprop="description">', HTML, curPos);
  endPos := PosFrom('        </div>', HTML, curPos);
  //TmpStr := Copy(HTML, curPos, endPos - curPos);
   TmpStr := TextBetween(HTML, '<div class="text" itemprop="description">', '        </div>', True, curPos);
   TmpStr1 := StringReplace(TmpStr, ' -- ', '—', True, True, False);
   TmpStr2 := StringReplace(TmpStr1, ' --- ', '—', True, True, False);
   TmpStr := StringReplace(TmpStr2, '--', '—', True, True, False);
   TmpStr1 := StringReplace(TmpStr, #13#13#13#13, #13#10#13#10, True, True, False);
   TmpStr2 := RemoveTagsEx(TmpStr1);

 if (TmpStr5 = 'Synopsis') AND (Pos('©', TmpStr2) = 0) then
AddFieldValue(mfDescription, TmpStr2 + #13 + TmpStr4 + ' ' + TmpStr3)
 else
if (TmpStr5 <> 'Synopsis') OR (Pos('©', TmpStr2) = 1) then
LogMessage(' Synopsis: Not available');
AddCustomFieldValueByName('AllMovie Synopsis:', TmpStr);
 end;
 
end;
which is AddCustomFieldValueByName('AllMovie Synopsis:', TmpStr);
and

// Get ~mfURL~ or ~URL~
 AddFieldValue(mfURL, MovieURL);
 AddCustomFieldValueByName('AllMovie.com', '<link url="' + MovieURL + '">AllMovie.com</link>');
 LogMessage('      Parse Results MovieURL: '+MovieURL+' ||');
which is

AddCustomFieldValueByName('AllMovie.com', '<link url="' + MovieURL + '">AllMovie.com</link>');


I totally understand this is rather peculiar request, but whatever your response would be, thank you for everything, ie for you and Easy keeping alive PVD, best piece of software ever.

Anyone could do that, no big deal.
Best regards

Thanks Ivek, it works great again. May I ask you how to import only title of the movie into the title field? Right now this script imports "Title (Year)" into title field? I'm importing year in separate field and I don't know why Allmovie script imports both Title and Year into Title field...

Thank you. Can't wait to get it work again. All Critics, Top Critics and All Audiences ratings would be great to have again. Cheers.

Just my 2 cents. If for someone is more convenient, I made PVDportable.exe of portable.bat with simple bat2exe converter. Just unpack it and run it instead portable.bat.

Quote from: afrocuban on March 07, 2019, 09:55:45 pm

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:

//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

Hello Ivek. I'm using PVD_1.0.2.7_MOD-V20180922. You were right, it's not about .dll files, it was something with .batch files that I don't understand:

This batch file works:

NAME=AllMovie.com+RottenTomatoes HTTPS
DESC= AllMovie.com+RottenTomatoes HTTPS
TYPE=2
EXECUTE=FilmAffinity_[EN][HTTPS].psf|IMDB_[EN][HTTPS].psf|


and this one doesn't:

NAME=AllMovieHTTPS+RottenTomatoesHTTPS+IMDBFull
DESC= AllMovieHTTPS+RottenTomatoesHTTPS+IMDBFull
TYPE=2
EXECUTE=AllMovie.com HTTPS.psf|Rottentomatoes_[HTTPS].psf|Imdb Title, Original Tile and Year.psf|FilmAffinity_[EN][HTTPS].psf|Imdb Url on the first page and IMDbID.psf|IMDB_[EN][HTTPS].psf|


... while basically there is no differences between them except about the scripts that are used. Weird.

But, since it's not possible at the moment to make AllMovie script without Proxomitron, and Rottentmatoes script doen't get ratings any more, I will not use batch files, because it's useless. Thank you...

Hello guys and please receive our bow to your great work!

I wanted to ask you if there is possibility to use AllMovie.com HTTPS.psf script without Proxomitron in PVD MOD? If there is possibility, but it is too much work for you, how we, without programming knowledge, could achieve it?

Any feedback is greatly appreciated.

Thank you in advance.