antp.be forum

Official Forum
https://forum.antp.be/phpbb3/

MOVIEMETER.NL SCRIPT DOES NOT WORK ANYMORE

https://forum.antp.be/phpbb3/viewtopic.php?t=2800

Page 1 of 1

MOVIEMETER.NL SCRIPT DOES NOT WORK ANYMORE

Posted: 2005-12-17 13:30:05
by digiworld
Help i'm going crazy.... all moviemeter.nl scripts seems to be out of order.

I tryed all of them, it seems to be that none of them works anymore.

Can someone create a new one?

thnx in advance.

Posted: 2005-12-17 16:24:57
by antp
- no need to write a title all in uppercase
- no need to post in wrong section (should be in scripts rather than mods)
And for me the latest version of the scripts works.
If problems occur for some movie, please post this info there to keep discussions related to moviemeter in the same topic:
viewtopic.php?t=2082

Posted: 2005-12-17 17:43:48
by Teebee

Code: Select all

program MovieMeter;

uses
  StringUtils1;

var
  MovieName: string;

procedure AnalyzeMoviePage(Address: string);
var
  PageText, Line, Value: string;
begin
  PageText := GetPage(Address);

  // URL
  SetField(fieldURL, Address);

  // title & year
  Line := TextBetween(PageText, '<h1>', '</h1>');
  Value := TextBetween(Line, '(', ')');
  SetField(fieldYear, Value);
  Value := Trim(TextBefore(Line, '(', ''));
  HTMLDecode(Value);
  SetField(fieldOriginalTitle, Value);
  
  // translated title
  Line := TextBetween(PageText, '<p>Alternatieve titel: ', '<br />');
  if Line <> '' then
  begin
    HTMLDecode(Line);
    SetField(fieldTranslatedTitle, Line);
  end;
  
//  Value := TextBetween(PageText, '<div id="film_info" style="height: 465px">', '<br />');
//  if Value = '' then
//    Value := TextBetween(PageText, '<div id="film_info" style="height: 490px">', '<br />');
//  Line := RemainingText;

    Value := TextBetween(PageText, '<div id="film_info" style="height: ', '<br />');
  Line := RemainingText;
  Value := TextAfter(Value, '>');

  // Country
  if (GetOption('AllCountries') = 0) and (Pos(' / ', Value) > 0)  then
    Value := TextBefore(Value, ' / ', '');
  HTMLDecode(Value);
  SetField(fieldCountry, Value);

  // Category
  Value := TextBefore(Line, '<br />', '');
  Line := RemainingText;
  HTMLDecode(Value);
  SetField(fieldCategory, Value);
  
  // Length
  Value := TextBefore(Line, ' minuten<br />', '');
  Line := RemainingText;
  HTMLDecode(Value);
  SetField(fieldLength, Value);
  
  // Director
  Value := TextBetween(Line, 'geregisseerd door ', '<br />');
  Line := RemainingText;
  HTMLRemoveTags(Value);
  HTMLDecode(Value);
  SetField(fieldDirector, Value);
  
  // Actors
  Value := TextBetween(Line, 'met ', '<br />');
  Line := RemainingText;
  HTMLDecode(Value);
  SetField(fieldActors, Value);
  
  // Description
  Value := TextBetween(Line, '<br />', '</div>');
  HTMLRemoveTags(Value);
  HTMLDecode(Value);
  SetField(fieldDescription, Value);
  
  // Picture
  Value := TextBetween(Line, '<img class="poster" src="', '" ');
  if Value <> '' then
  begin
    GetPicture(Value);
  end;
  
  // Rating
  Value := TextBetween(Line, '<br />gemiddelde: ', '</div>');
  Value := StringReplace(FloatToStr(StrToFloat(StringReplace(Value, ',', '.')) * 2), ',', '.');
  SetField(fieldRating, Value);
  
end;


procedure AnalyzeResultsPage(Address: string);
var
  Page: TStringList;
  Line: string;
  MovieAddress: string;
  MovieTitle: string;
begin
  // get results page
  Page := TStringList.Create;
  Page.Text := GetPage(Address);

  // get redirect javascript
  Line := Page.GetString(Page.Count-1);

  // more than 1 movie found
  if Pos('location.href = "http://www.moviemeter.nl/film/searchresults', Line) <> 0 then
  begin
    PickTreeClear;
    PickTreeAdd('Zoekresultaten voor ' + MovieName, '');

    // get results page
    Page.Text := GetPage('http://www.moviemeter.nl/film/searchresults');

    Line := TextBetween(Page.Text, '<div class="filmresults_row1">', '<form action="http://www.moviemeter.nl/film/search/"');
    while Pos('filmresults_row', Line) > 0 do
    begin
      MovieAddress := TextBetween(Line, 'href="', '" >');
      MovieTitle := TextBefore(Line, '</p></div>', '');
      Line := RemainingText;
      HTMLRemoveTags(MovieTitle);
      HTMLDecode(MovieTitle);
      PickTreeAdd(Trim(MovieTitle), MovieAddress);
    end;

    // if user picks a movie from the results list, import movie details
    if PickTreeExec(Address) then
      AnalyzeMoviePage(Address);
  end
  else
  begin
    MovieAddress := TextBetween(Line, '"', '";');
    if MovieAddress <> 'http://www.moviemeter.nl/film/' then
      // if only 1 movie found --> redirect to movie page
      AnalyzeMoviePage(MovieAddress)
    else
      // no movies found
      ShowMessage('Geen zoekresultaat voor "'+MovieName+'".');
  end;
  Page.Free;
end;


begin
  if CheckVersion(3,5,0) then
  begin
    if StringUtils1_Version >= 2 then
    begin
      MovieName := GetField(fieldOriginalTitle);
      if MovieName = '' then
        MovieName := GetField(fieldTranslatedTitle);
      if Input('MovieMeter.nl Import', 'Geef de titel van de film:', MovieName) then
      begin
        AnalyzeResultsPage('http://moviemeter.nl/?search&q='+UrlEncode(MovieName));
      end;
    end
    else
      ShowMessage('The file "StringUtils1.pas" is outdated, please find a new version of it (at least version 2)');
  end
  else
    ShowMessage('Dit script vereist een nieuwere versie van Ant Movie Catalog (minstens versie 3.5.0)');
end.
This one works. Deze werkt.

Posted: 2005-12-17 18:38:08
by antp
Which one is it? The one available from www.antp.be/temp/scripts/ or a newer one? (and it is missing its header info)

Posted: 2005-12-19 09:22:45
by Teebee
The default one, with the changes said in this post:

viewtopic.php?p=17937#17937

Posted: 2005-12-19 19:09:44
by digiworld
I tryed everyone of the script older versions, the newest versions.... nothing works so far.
It used too work perfect... but now it looks like something is wrong.

I get a message (connecting to <ip-adress>)
then i get a message (chunk started)

The only thing i get is some weard very long text in the item "category" something like this:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head><title>MovieMeter.nl - de filmsite voor liefhebbers</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<style type="text/css">
<!--
@import url("http://www.moviemeter.nl/includes/stylesheet_v11.css");
-->
</style>
<link rel="shurtcut icon" href="http://www.moviemeter.nl/images/favicon.ico" />

<script language="JavaScript">
<!--

function SymError()
{
return true;
}

window.onerror = SymError;

var SymRealWinOpen = window.open;

function SymWinOpen(url, name, attributes)
{
return (new Object());
}

window.open = SymWinOpen;

//-->
</script>

<script type="text/javascript">
text_move = 'verplaatsen';
text_delete = 'verwijderen';
text_no_results = 'Aan deze map zijn momenteel geen films toegevoegd.';
text_added_open_my_films = 'toegevoegd, open Mijn Films';
text_remove_from_my_updates = 'verwijderen uit Mijn Updates';
text_to_my_updates = 'toevoegen aan Mijn Updates';
text_options = 'opties';
text_actions = 'acties';
text_edit_folder = 'bewerk map';
text_delete_folder = 'verwijder map';
text_new_subfolder = 'nieuwe submap';
text_action_csv_export = 'maak CSV-export';
text_action_votingtable = 'genereer stemtabel';
text_delete_folder_sure = 'Weet je zeker dat je deze map en alle eventuele films en submappen wilt verwijderen? Deze actie kan niet ongedaan gemaakt worden.';
site_address = 'http://www.moviemeter.nl/';

</script>
<script type="text/javascript" src="http://www.moviemeter.nl/includes/scrip ... "></script>
</head>
<body onload="checkImages('Bekijk afbeelding in originele grootte', 435);" >

<div id="placeholder">


<div id="header">
<a href="http://www.moviemeter.nl"><img src="http://www.moviemeter.nl/images/logo.gif" alt="MovieMeter.nl"/></a>
<p><b>25449</b> gebruikers / <b>34163</b> films / <b>576430</b> berichten / <b>902436</b> stemmen</p>
</div>

<div id="main_container">
<div id="ads">
<!-- google -->
<script type="text/javascript"><!--
google_ad_client = "pub-7153530375565264";
google_alternate_color = "FFFFFF";
google_ad_width = 120;
google_ad_height = 600;
google_ad_format = "120x600_as";
google_ad_channel ="";
google_ad_type = "text";
/*
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "000000";
google_color_url = "000000";
google_color_text = "000000";
*/
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</div>

<div id="main_top"><p> </p></div>
<div id="main">
<div id="main_header">
<h1>Welkom op MovieMeter!</h1><p>Je bent momenteel niet ingelogd.</p> </div>
<ul id="tabs"><li><a href="http://www.moviemeter.nl/site/home/" class="active">Home</a></li><li><a href="http://www.moviemeter.nl/site/chat/" >Chat</a></li><li><a href="http://www.moviemeter.nl/users/">Gebrui ... /li><li><a href="http://www.moviemeter.nl/forum/">Forum</a></li><li><a href="http://www.moviemeter.nl/updates/">Updates</a></li></ul> <div id="search">


<form id="film_quicksearch" action="http://www.moviemeter.nl/film/search/" method="post">
<input type="image" class="submit" src="http://www.moviemeter.nl/images/ico_search.gif" />
<input type="text" class="form_search" name="search[title]"/>
</form>

</div>
<div id="content">
<p>Welkom op MovieMeter, de filmsite voor liefhebbers. Op deze site vind je informatie over films in de bioscoop, de videotheek en op tv. Daarnaast is er een archief van tienduizenden oudere films. Als je je even inschrijft kun je meediscussiëren bij de films, in ons forum, of op het MovieMeter-chatkanaal. Voor meer informatie klik je op de "FAQ" link in het menu. Veel plezier op MovieMeter!</p><p class="home">De volgende 93 gebruikers zijn momenteel aanwezig: <a href="http://www.moviemeter.nl/user/3636">93.9</a>, <a href="http://www.moviemeter.nl/user/21267">azad</a>, <a href="http://www.moviemeter.nl/user/6525">Badalamenti</a>, <a href="http://www.moviemeter.nl/user/1974">baldy33</a>, <a href="http://www.moviemeter.nl/user/19405">Banelion</a>, <a href="http://www.moviemeter.nl/user/23837">BartolSchaik</a>, <a href="http://www.moviemeter.nl/user/12061">BenBen</a>, <a href="http://www.moviemeter.nl/user/9300">Caligula</a>, <a href="http://www.moviemeter.nl/user/2811">chiquita</a>, <a href="http://www.moviemeter.nl/user/6270">Chr.s</a>, <a href="http://www.moviemeter.nl/user/3846">contactmaker</a>, <a href="http://www.moviemeter.nl/user/11106">cynthia86x</a>, <a href="http://www.moviemeter.nl/user/1985">Daantje</a>, <a href="http://www.moviemeter.nl/user/2443">damon</a>, <a href="http://www.moviemeter.nl/user/2537">danuz</a>, <a href="http://www.moviemeter.nl/user/958">De Knip</a>, <a href="http://www.moviemeter.nl/user/22601">dennis36</a>, <a href="http://www.moviemeter.nl/user/22472">die Lange</a>, <a href="http://www.moviemeter.nl/user/2826">Dragon</a>, <a href="http://www.moviemeter.nl/user/8888">Easy Rider</a>, <a href="http://www.moviemeter.nl/user/9006">EEE</a>, <a href="http://www.moviemeter.nl/user/19703">empty_soul</a>, <a href="http://www.moviemeter.nl/user/9272">Epitaph</a>, <a href="http://www.moviemeter.nl/user/22387">eRCee</a>, <a href="http://www.moviemeter.nl/user/14158">Eurionair</a>, <a href="http://www.moviemeter.nl/user/7685">Faxface</a>, <a href="http://www.moviemeter.nl/user/19958">fiction</a>, <a href="http://www.moviemeter.nl/user/988">FisherKing</a>, <a href="http://www.moviemeter.nl/user/1015">GerwinF</a>, <a href="http://www.moviemeter.nl/user/12124">geuz</a>, <a href="http://www.moviemeter.nl/user/2">Goodfella</a>, <a href="http://www.moviemeter.nl/user/14122">Goodfella_90</a>, <a href="http://www.moviemeter.nl/user/15">gotti</a>, <a href="http://www.moviemeter.nl/user/21624">heeren</a>, <a href="http://www.moviemeter.nl/user/1263">ichi</a>, <a href="http://www.moviemeter.nl/user/2498">jacobine_rodijk</a>, <a href="http://www.moviemeter.nl/user/13756">Jonathan Crane</a>, <a href="http://www.moviemeter.nl/user/5902">jordybeukeboom</a>, <a href="http://www.moviemeter.nl/user/5296">Jorick</a>, <a href="http://www.moviemeter.nl/user/17122">jorisvda</a>, <a href="http://www.moviemeter.nl/user/22669">joskeboske</a>, <a href="http://www.moviemeter.nl/user/8080">josselito</a>, <a href="http://www.moviemeter.nl/user/19566">Knakkie</a>, <a href="http://www.moviemeter.nl/user/11776">Koen janssen</a>, <a href="http://www.moviemeter.nl/user/1259">kos</a>, <a href="http://www.moviemeter.nl/user/10346">LaMotta</a>, <a href="http://www.moviemeter.nl/user/23984">Lays</a>, <a href="http://www.moviemeter.nl/user/9162">lazaroni_86</a>, <a href="http://www.moviemeter.nl/user/23549">leo88</a>, <a href="http://www.moviemeter.nl/user/12358">Linn</a>, <a href="http://www.moviemeter.nl/user/857">Macmanus</a>, <a href="http://www.moviemeter.nl/user/10353">Madecineman</a>, <a href="http://www.moviemeter.nl/user/24208">martijni</a>, <a href="http://www.moviemeter.nl/user/19044">Martin Riggs</a>, <a href="http://www.moviemeter.nl/user/21336">Materny</a>, <a href="http://www.moviemeter.nl/user/14248">maxcomthrilla</a>, <a href="http://www.moviemeter.nl/user/19816">mc marcus</a>, <a href="http://www.moviemeter.nl/user/16374">Megan_74</a>, <a href="http://www.moviemeter.nl/user/24376">metaledje</a>, <a href="http://www.moviemeter.nl/user/20169">mikiemike</a>, <a href="http://www.moviemeter.nl/user/13377">movielauxje</a>, <a href="http://www.moviemeter.nl/user/23826">moviepieps</a>, <a href="http://www.moviemeter.nl/user/8845">mr_Amelie</a>, <a href="http://www.moviemeter.nl/user/12467">Mysterie</a>, <a href="http://www.moviemeter.nl/user/7352">Naomi Watts</a>, <a href="http://www.moviemeter.nl/user/19069">NIGHTWOLF_ONE</a>, <a href="http://www.moviemeter.nl/user/22433">oudmanteam</a>, <a href="http://www.moviemeter.nl/user/23062">oukies</a>, <a href="http://www.moviemeter.nl/user/21353">O_Mit</a>, <a href="http://www.moviemeter.nl/user/15181">Pieter Montana</a>, <a href="http://www.moviemeter.nl/user/11270">Poisonthewell</a>, <a href="http://www.moviemeter.nl/user/1161">Psygothic</a>, <a href="http://www.moviemeter.nl/user/4202">Purmerend</a>, <a href="http://www.moviemeter.nl/user/2646">Quido</a>, <a href="http://www.moviemeter.nl/user/1551">Redlop</a>, <a href="http://www.moviemeter.nl/user/3898">Reinbo</a>, <a href="http://www.moviemeter.nl/user/12587">RJL_Hartmans</a>, <a href="http://www.moviemeter.nl/user/25469">ronno</a>, <a href="http://www.moviemeter.nl/user/6518">SaintOfKillers</a>, <a href="http://www.moviemeter.nl/user/4784">Sander D.</a>, <a href="http://www.moviemeter.nl/user/23668">schopenhauer</a>, <a href="http://www.moviemeter.nl/user/7029">senseoaddict</a>, <a href="http://www.moviemeter.nl/user/19838">soom</a>, <a href="http://www.moviemeter.nl/user/6900">spargo</a>, <a href="http://www.moviemeter.nl/user/1040">streeter</a>, <a href="http://www.moviemeter.nl/user/11364">The One Ring</a>, <a href="http://www.moviemeter.nl/user/19565">Tweek</a>, <a href="http://www.moviemeter.nl/user/11680">Werwolf</a>, <a href="http://www.moviemeter.nl/user/8069">WildeSinterklaas</a>, <a href="http://www.moviemeter.nl/user/14063">wims</a>, <a href="http://www.moviemeter.nl/user/3645">zeus</a>, <a href="http://www.moviemeter.nl/user/23216">zwartje</a> en <a href="http://www.moviemeter.nl/user/9799">Zwerver</a>. De nieuwste gebruiker is <a href="http://www.moviemeter.nl/user/25507">dr ... >.</p><div class="film_info_home"><img class="poster_home" src="http://www.moviemeter.nl/images/covers/27000/27916.jpg" style="width: 200px;" alt="Chronicles of Narnia: The Lion, the Witch & the Wardrobe, The (2005)" /><h2>Bioscoop</h2><p>Vanaf woensdag 21 december is <a href="http://www.moviemeter.nl/film/27916" >The Chronicles of Narnia: The Lion, the Witch & the Wardrobe (2005)</a> te zien in de Nederlandse bioscopen. De film, met Georgie Henley, William Moseley en Skandar Keynes, is geregisseerd door <a href="http://www.moviemeter.nl/list/director/ ... on">Andrew Adamson</a>.</p><p>Er is 11 keer gestemd op deze film, met een gemiddelde van 3,91 sterren.</p><p><a href="http://www.moviemeter.nl/film/cinema">Klik hier</a> voor een uitgebreid bioscoopoverzicht.</p></div>

can someone please help me... i really used every script there is for moviemeter.nl.

thnx in advance

Posted: 2005-12-19 20:54:58
by antp
we'll continue there:
viewtopic.php?p=18561#18561
All times are UTC
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited