[Cz] CSFD.CZ - Working script

[mufak]

Nevim cim to je, ale ted mi to cpe vsechny udaje do polozky "Puvodni nazev". :-( Zkousel jsme i posledni skript a nepomohl.

[mufak]

Tak uz to na www.csfd.cz opravili a script funguje zase jak ma:-)

[pd]

Cau, diky za super skript.
Prispeju taky svoji troskou do mlyna:
Mam radsi originalni cover k filmu, nez ten cesky, ktery se ukazuje defaultne u filmu, proto jsem pridal moznost si zvolit natahovani alternativniho plakatu filmu, pokud je k dispozici. (je to odkaz "všechny plakáty" pod obrazkem filmu na csfd).

Code: Select all

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

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

[Infos]
Authors=IkE Blaster,MadMaxx,Dmitry501,Inteline,Kalten,kecinzer,MI'RA,pd
Title=csfd.cz
Description=Import dat ze serveru csfd.cz
Site=http://amc.thez.info
Language=CZ
Version=2.7
Requires=3.5.0
Comments=-Update 31.1.2008 - možnost načtení alternativního obrázku - Update 10.8.2007 - Jiné řazení výsledků (jako na webu), opraveno stahování popisu (více řádků), přesunutí La před film|- Info 5.3.2007 - Proběhlo hodně úprav, chyba u odkazu na film (z csfd) u filmů s jedním výsledkem ve vyhledávání|- Update 3.1.2007 - opraveno zobrazování filmů s jedním výsledkem ve vyhledávání|- Update 31.12.2006 - opraveny vsechny pole :P |    - jeden bug - v www adrese jsou pred film dve lomitka (//), nema vliv na funkci|- Update 4.12.2006 - zmena podle noveho csfd, vcetne importu hodnoceni
License=This file is part of Ant Movie Catalog (AMC).||   AMC is free software; you can redistribute it and/or modify|    it under the terms of the GNU General Public License as published by|    the Free Software Foundation; either version 3 of the License, or|    (at your option) any later version.||    AMC is distributed in the hope that it will be useful,|    but WITHOUT ANY WARRANTY; without even the implied warranty of|    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the|    GNU General Public License for more details.||    You should have received a copy of the GNU General Public License|    along with this program.  If not, see http://www.gnu.org/licenses/
GetInfo=1

[Options]
getSlovakNames=0|0|0=Nepřidávat za český název ještě nazev slovenský|1=Přidávat za český název ještě nazev slovenský
hodnoceni=1|1|0=Nedotahovat hodnoceni|1=Dotahovat hodnoceni
addCZdescr=1|1|0=Nepridavat cesky popis filmu pred stavajici.|1=Pridavat cesky popis filmu pred stavajici
addCZname=0|0|0=Nepridavat cesky nazev filmu pred stavajici|1=Pridavat cesky nazev filmu pred stavajici
allowDuplicateNames=0|0|0=Pokud je originalni nazev stejny jako prelozeny - prelozeny se nedoplni|1=Prelozeny nazev se doplni i v pripade, ze je stejny jako originalni nazev
theEnd=1|1|0=Zachovat "The" na konci nazvu filmu|1=Presunout "The" z konce nazvu filmu na zacatek
getAlternativeCover=1|1|0=Primárně načítat obrázek filmu z hlavní stránky|1=Primárně načítat alternativní obrázek filmu

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

program Csfd_cz;
const
  BaseAddress = 'http://www.csfd.cz/';
    /////////////////////////////////////////////
   // upraveno mnohokrát po aktualizaci CSFD  //
  //  by IkE Blaster ikeblaster@centrum.cz   //
 //          http://amc.thez.info           //
/////////////////////////////////////////////

   ////////////////////////////////////////////
  // upraveno 4.12.2006 po aktualizaci CSFD //
 //      by MadMaxx madmaxx.cz@gmail.com   //
////////////////////////////////////////////

var
  MovieName: string;

// vraci cislo radku s prvnim nalezem hledaneho textu
function FindLine(Pattern: String; List: TStringList; StartAt: Integer): Integer;
var
  i: Integer;
begin
  result := -1;

  // vzdy se zacne hledat od nuly
  if (StartAt < 0) then
    StartAt := 0;

  // cyklus od prvniho do posledniho radku stranky
  for i := StartAt to List.Count - 1 do
    begin
      // pokud byl nalezen vyskyt,
      if (Pos(Pattern, List.GetString(i)) <> 0) then
        begin
          // vrati se cislo radku na kterem byl text nalezen
          result := i;
          // a ukonci se cyklus hledani
          Break;
        end;
    end;
end;

//rozdeleni statu, roku a delky zavisle na carkou oddelenych hodnotach
procedure RozdelStat(Line: String);
var
  CarkaPos1,
  CarkaPos2,
  minPos: Integer;
begin
  // najde si prvni carku na textu radky
  CarkaPos1 := Pos(',', Line);
  // pokud ji nasel
  if (CarkaPos1 > 0) then
    begin
      // pokusi se najit druhou carku
      CarkaPos2 := Pos(',', copy(Line, CarkaPos1+1, length(Line)));
      // pokud nasel druhou carku
      if (CarkaPos2 > 0) then
      begin
        // urci si
        minPos := Pos('min', copy(Line, CarkaPos1+CarkaPos2+1, length(Line)));
        // kdyz pozici zna
        if (minPos > 0) then
          // nastavi zemi, rok a stat do prislusnych poli
          begin
            SetField(fieldCountry, trim(copy(Line, 0, CarkaPos1-1)));
            SetField(fieldYear, trim(copy(Line, CarkaPos1+1, CarkaPos2-1)));
            SetField(fieldLength, trim(copy(Line, CarkaPos1+CarkaPos2+1, minPos-1)));
          end
      end
    end
end;

// vraci rejzu
//TODO tahle fce by chtela doresit, pac se muze stavat, ze rezie je na stejnem
//     radku stejne jako seznam hercu
function GetDirector(Line: String): String;
var
  BeginPos: Integer;
begin
  result := '';
  // zjisti si na kolikatem znaku od zacatku radku se vyskytuje text "Režie:"
  //TODO: doresil bych hledani diakritiky v textu - mozna by to v nekterych pripadech mohlo delat potize
  BeginPos := Pos('Režie:', Line);

  // jestli pozici nasel
  if (BeginPos > 0) then
    begin
      // smaze vse pred nalezem
      Delete(Line, 1, BeginPos + 5);
      // najde si konec radku
      BeginPos := Pos('<br>', Line);

      if (BeginPos = 0) then
        BeginPos := Length(Line);

      // vrati z obsahu radku rezisera
      result := copy(Line, 1, BeginPos);
      // odstrani diakritiku a specialni znaky
      HTMLDecode(result);
      // odstrani HTML tagy
      HTMLRemoveTags(result);
    end;

  // pokud pozici nenasel - vrati prazdny retezec
  result := Trim(result);
end;

// vraci seznam hercu
function GetActor(Line: String): String;
var
  BeginPos: Integer;
begin
// komentare jsou stejne jako v predchozi fci
  result := '';
  BeginPos := Pos('Hrají:', Line);

  if (BeginPos > 0) then
    begin
      Delete(Line,1,BeginPos + 5);
      BeginPos := Pos('<br>', Line);

      if (BeginPos = 0) then
        BeginPos := Length(Line);

      result := copy(Line, 1, BeginPos);
      HTMLDecode(result);
      HTMLRemoveTags(result);
    end;

  result := Trim(result);
end;

// analyzuje stranku s vysledky hledani
procedure AnalyzePage(Address: String);
var
  Page: TStringList;
  LineNr : Integer;
  LineMr : Integer;
  Line, Value : String;
  BeginPos, EndPos, i : Integer;
  FilmName, FilmAd, FilmAddr, dalsi, oNazvy, aNazvy, cNazvy, sNazvy : String;
begin
  Page := TStringList.Create;
  // nacte si stranku s vysledkem hledani - kazda radka je poloza StringListu
  Page.Text := GetPage(Address);
  // zjisti cislo radky na ktere se nachazi retezec: Hledaný výraz: <b>
  LineNr := FindLine('Hledaný výraz: <b>', Page, 0);
  // pokud takovy radek neexistuje - jedna se pravdepodobne primo o stranku s
  // filmem a ne o stranku s vysledkem hledani a zanalyzuje se rovnou ta.
  // pokud vsak takovy radek existuje, ale neexistuje zadne slovo "nazvech" -
  // - cili zadna sekce s odkazy => jedna se pravdepodobne o stranku, ktera
  // automaticky forwarduje na stranku s filmem
  if (LineNr = -1) or (FindLine('názvech</td>', Page, 0) = -1) then
    begin
      // hledani forwardu na stranku s filmem
      LineNr := FindLine('<script language=''javascript''>window.location.href=''/film/', Page, 0);
      // pokud existuje forward na stranku s detailem filmu - vytahnu adresu stranky detailu
      if (LineNr <> -1) then
        begin
          Line := Page.GetString(LineNr);
          BeginPos := Pos('/film/', Line);
          if (BeginPos > 0) then
            begin
              EndPos := Pos('/'';</script>', Line);

              if (EndPos = 0) then
                EndPos := Length(Line);

              // vykopiruje si adresu aktualniho filmu z radku
              FilmAddr := Copy(Line, BeginPos +1, EndPos - BeginPos -1);
              AnalyzeMoviePage(BaseAddress + FilmAddr + '&text=1rec=&top=&kom=1');
            end;
        end
      else
        // jinak (pokud forward neexistuje) se asi vazne jedna primo o stranku s filmem
        begin
          AnalyzeMoviePage(Address);
        end;
    end
  else
    begin
      // zjisteni cisla radku, na kterem se naleza informace v ktere sekci nazvu hledat
      oNazvy := 'v originálních názvech</td>';
      aNazvy := 'v anglických názvech</td>';
      cNazvy := 'v českých názvech</td>';
      sNazvy := 've slovenských názvech</td>';

      // tento algoritmus funguje tak, ze postupne hleda ve vsech jazykach, dokud neco nenajde
      LineNr := FindLine(cNazvy, Page, 0);
      i := 0;
      if (LineNr = -1) then
        begin
          LineNr := FindLine(sNazvy, Page, 0);
          i := 1;
        end;
      if (LineNr = -1) then
        begin
          LineNr := FindLine(oNazvy, Page, 0);
          i := 2;
        end;
      if (LineNr = -1) then
          LineNr := FindLine(aNazvy, Page, 0);
      // pokud zadna takova sekce neexistuje - nenaslo se nic
      if (LineNr = -1) then
        ShowMessage('No movie found for this search.'+chr(13)+chr(13)+'Nebyly nalezeny zadne zaznamy.')
      else
        begin
          // jinak si najdeme radku na ktere je v dane sekci odkaz na nalezeny film
          LineNr := FindLine('<a href="/film/', Page, LineNr);
          // pokud takovou radku najdeme
          if (LineNr > -1) then
            begin
              // vycisti strom okna se seznamem filmu
              PickTreeClear;
              // prida vetev se seznamem nalezenych filmu
              PickTreeAdd('Nalezene filmy: ' + MovieName, '');
              // vezme si obsah radku na kterem se vyskytuje prvni tag "a href" na film
              Line := Page.GetString(LineNr);

              // projde vsechny tagy s nalezem filmu a nacpe je do stromu filmu,
              // ktery se pak formou dialogoveho okna pro vyber filmu zobrazi
              repeat
                // najde zacatek a konec tagu s odkazem na aktualne nalezeny film
                BeginPos := Pos('<a href="/film/', Line);
                if (BeginPos > 0) then
                  begin
                    EndPos := Pos('" style="font-size:12px">', Line); // tady to bylo spatne, proto se nacitala ta adresa blbe
                    if(EndPos = 0) then
                      EndPos := Pos('">', Line);
                      
                    if (EndPos = 0) then
                      EndPos := Length(Line);

                    // vykopiruje si adresu aktualniho filmu z tagu odkazu
                    FilmAddr := Copy(Line, BeginPos + 10, EndPos - BeginPos - 11);
                    // dekoduje specialni ceske znaky z adresy odkazu na film
                    HTMLDecode(FilmAddr);
                    // odstrani vsechny HTML TAGY
                    HTMLRemoveTags(FilmAddr);
                    // vezme konec radku identifikovany <br> tagem
                    EndPos := Pos('<br>', Line);
                    FilmAddr := FilmAddr + '&text=1';

                    if (EndPos = 0) then
                      EndPos := Length(Line);

                    // vykopiruje se z tagu odkazu jmeno filmu
                    FilmName := Copy(Line, BeginPos, EndPos - BeginPos);
                    HTMLDecode(FilmName);
                    HTMLRemoveTags(FilmName);
                    // hledani znacky urcujici, ze na strance je odkaz na dalsi hledani
                    dalsi := Copy(FilmName, 0, 25);

                    // jestli se na strance vyskytuje odkaz na dalsi seznam filmu
                    if (dalsi = '...další nalezené záznamy') then
                      FilmName := Copy(FilmName, 26, Length(FilmName) - 25);

                    if (FilmName <> '') then
                      PickTreeAdd(FilmName, BaseAddress + FilmAddr);
                      Delete(Line,1,EndPos+3);
                    end
                else
                  // tohle to upravil hard-corove kecinzer, doma jen na koleni, pac delphi vubec neumi, je to humus, ja vim :)
                  begin
                    case i of
                    0: begin // hledam anglicky nazev, pokud nenajdu, tak hledam postupne dalsi nazvy
                      LineNr := FindLine(sNazvy, Page, 0);
                      i := 1;
                      if (LineNr = -1) then
                            begin
                              LineNr := FindLine(oNazvy, Page, 0);
                              if (LineNr = -1) then
                                begin
                                  BeginPos := 0;
                                  i := 2;
                                end;
                            end;
                      if (i = 1) or (i = 2) then
                      begin
                        LineNr := FindLine('<a href="/film/', Page, LineNr);
                        Line := Page.GetString(LineNr);
                        BeginPos := 1;
                      end;
                    end;
                    1: begin // hledam cesky nazev, pokud nenajdu postupne dalsi nazvy
                      LineNr := FindLine(oNazvy, Page, 0);
                      i := 2;
                      if (LineNr = -1) then
                        begin
                          LineNr := FindLine(oNazvy, Page, 0);
                          i := 3;
                          if (LineNr = -1) then
                            begin
                              BeginPos := 0;
                              i := 4;
                            end;
                        end;
                      if (i = 2) or (i = 3) then
                        begin
                          LineNr := FindLine('<a href="/film/', Page, LineNr);
                          Line := Page.GetString(LineNr);
                          BeginPos := 1;
                        end;
                    end;
                    2: begin // hledam posledni slovensky nazev, pokudn nenajdu, nehledam nic
                      LineNr := FindLine(aNazvy, Page, 0);
                      if (LineNr = -1) then
                        begin
                          BeginPos := 0;
                        end
                      else
                        begin
                          LineNr := FindLine('<a href="/film/', Page, LineNr);
                          Line := Page.GetString(LineNr);
                          BeginPos := 1;
                          i := 3;
                        end;
                    end;
                    end;
                  end;
              until (BeginPos < 1);
              // zobrazi okno se stromem nalezenych filmu a pokud uzivatel kliknul
              // na OK -> rozparseruje se adresa s detailem filmu ktery byl vybran
              if PickTreeExec(Address) then
                AnalyzeMoviePage(Address);
            end;
        end;
    end;
end;

// analyzuje stranku s detaily filmu
procedure AnalyzeMoviePage(Address: string);
var
  Page: TStringList;
  LineNr : Integer;
  Line, Value, Value2 : String;
  LinePos, BeginPos, EndPos, MidPos, PomPos : Integer;
begin
  Page := TStringList.Create;
  // pridani parametru stranky, ktere dovoli zobrazit kompletni popisek filmu
  //film.php?text=1&id=88025&rec=&top=&kom=1
  Page.Text := GetPage(Address + '&text=1rec=&top=&kom=1');
  // hleda radek na kterem se nachazi zacatek informaci o filmu
  LineNr := FindLine('font-size: 18px;font-weight:bold;color: #000000;font-family: Tahoma;', Page, 0);

  // pokud ho nasel
  if (LineNr > -1) then
    begin
      LinePos := 1;
      // vezme si aktualni radek
      Line := Page.GetString(LineNr + LinePos);
      // odstrani specialni znaky z prelozeneho nazvu
      HTMLDecode(Line);
      // odstrani HTML tagy
      HTMLRemoveTags(Line);
      // ziska si jmeno filmu
      Value := Copy(Trim(Line), 1, Length(Trim(Line)));

      LinePos := LinePos + 1;
      Line := Page.GetString(LineNr + LinePos);
      Value2 := '';

      repeat
        // najde si zacatek tabulky ve ktere se nachazi nazev filmu
        BeginPos := Pos('<table cellpadding=', Line);

        // pokud jej nasel
        if (BeginPos > 0) then
          begin
            // vezme si prvni sloupecek (bunku) z tabulky
            BeginPos := Pos('<td>', Line);
            // najde si pozici obrazku ceske vlajky
            MidPos := Pos('flag_52.gif', Line);
            // vykopiruje si cely radek bez prnich 4 znaku
            Line := Copy(Line, BeginPos + 4, Length(Line) - (BeginPos + 3));
            // urci si konec sloupecku (bunky) tabulky
            EndPos := Pos('</td>', Line);

            // pokud neni nastavena pozice posledniho znaku - nastavi se
            if (EndPos = 0) then
              EndPos := Length(Line);

            // vykopirovani nazvu (a to jak ceskeho, tak slovenskeho)
            // v zavislosti na tom co uzivatel vybral
            if (getOption('getSlovakNames') = 1) then
              begin
                // pokud ma film v popisu nejen cesky nazev - prda jej za cesky
                if ((MidPos < BeginPos) and (MidPos > 0)) then
                  Value := Value + '; ' + Copy(Line, 1, EndPos - 1)
                else
                  Value2 := Value2 + Copy(Line, 1, EndPos - 1) + '; ';
              end;

            if (getOption('getSlovakNames') = 0) then
              begin
                // pokud ma film v popisu nejen cesky nazev - prda jej za cesky
                if ((MidPos < BeginPos) and (MidPos > 0)) then
                else
                  Value2 := Value2 + Copy(Line, 1, EndPos - 1) + '; ';
              end;
          end;
      until (BeginPos < 1);

      if (getOption('theEnd') = 1) then
        // jestli na konci nazvu filmu je clen The -> presune se na zacatek nazvu filmu
        if (Pos(', The', Value2) > 0) then
          begin
            Value2 := 'The ' + Copy(Value2, 1, Pos(', The', Value2) + 1);
          end;
        
      if (getOption('addCZname') = 1) then
        begin
          // jestli neni prelozeny nazev, tak jej bez stredniku dpln
          // jinak jej dopln se strednikem
          if (GetField(fieldTranslatedTitle) = '') then
            SetField(fieldTranslatedTitle,  Value)
          else
            SetField(fieldTranslatedTitle,  Value + '; ' + GetField(fieldTranslatedTitle));
        end
      else
        SetField(fieldTranslatedTitle, Value);

      if (Value2 = '') then
        Value2 := Value
      else
        Value2 := Copy(Value2, 1, length(Value2) - 2);

      SetField(fieldOriginalTitle, Value2);

      // primitivni kontrola zda je originalni nazev stejny jako prelozeny
      // pokud jsou stejne - prelozeny nazev se v zavislosti na nastaveni smaze
      if (getOption('allowDuplicateNames') = 0) then
        begin
          if (getField(fieldOriginalTitle) = getField(fieldTranslatedTitle)) then
            begin
              SetField(fieldTranslatedTitle, '');
          end;
        end;

      //kategorie
      BeginPos := Pos('<b>', Line);
      Line := Copy(Line, BeginPos + 3, Length(Line) - (BeginPos - 2));
      MidPos := Pos('<br>', Line);
      EndPos := Pos('</b>', Line);
      PomPos := Pos('min</b>', Line);

      //existuji oba radky - kategorie i stat,rok,delka
      if ((MidPos < EndPos) and (MidPos > 0)) then
        begin
          Value := Trim(Copy(Line, 1, MidPos - 7));
          SetField(fieldCategory, Value);
          Value := Trim(Copy(Line, MidPos + 4, EndPos - MidPos - 4));
          RozdelStat(Value);
        end
      else
        //existuje jen jeden radek
        if ((PomPos < EndPos) and (PomPos > 0)) then
          begin
            Value := Trim(Copy(Line, 1, EndPos - 1));
            RozdelStat(Value);
          end
        else
          begin
            Value := Trim(Copy(Line, 1, EndPos - 7));
            SetField(fieldCategory, Value);
          end;

      Value := GetDirector(Line);
      SetField(fieldDirector, Value);
      Value := GetActor(Line);
      SetField(fieldActors, Value);
    end;

    if (getOption('hodnoceni') = 1) then
      begin
        // hodnoceni by MadMaxx
        LineNr := FindLine('padding:10px;text-align:center;font-weight:bold;font-size:36px;color:white;', Page, 0);
        Line := Page.GetString(LineNr + 1);
        BeginPos := 14;
        EndPos := Pos('%', Line);
        Value := copy(Line, BeginPos, EndPos);
        
        if ( EndPos <> BeginPos + 1 ) then //(Length(Value) > 1) then
          begin
            Value2 := copy(Value, 1, 1) + ',' + copy(Value, 2, 1);
          end
        else
          begin
            Value2 := '0,' + copy(Value, 1, 1);
          end;
        SetField(fieldRating, Value2);
      end;
      
    // picture
    //alternativni cover
    LineNr := FindLine('/plakaty.php?id=', Page, 0);
    if (getOption('getAlternativeCover') = 1) and (LineNr > -1) then
      begin
        Line := Page.GetString(LineNr);
        BeginPos := Pos('/plakaty.php?id=', Line) + 1;
        EndPos := Pos('","', Line);
        Value := copy(Line, BeginPos, EndPos-BeginPos);
        Line := GetPage(BaseAddress + Value);
        Value := copy(Line,pos('background="',Line)+12, 200);
        Value := copy(Value,0,pos('border=',Value)-3);
        GetPicture(Value);
      end
    else
      begin
        LineNr := FindLine('table background="http://img.csfd.cz/posters/', Page, 0);
        if (LineNr > -1) then
          begin
            Line := Page.GetString(LineNr);
            BeginPos := pos('table background="http://img.csfd.cz/posters', Line) + 18;

            if (BeginPos > 10) then
              begin
                EndPos := pos('" border="', Line);
                Value := copy(Line, BeginPos, EndPos - BeginPos);
                GetPicture(Value);
              end;
          end;
       end;
    // Info
//    LineNr := FindLine('		  </div></div>', Page, 0);
//    if (LineNr > -1) then
//      begin
//      Line := Page.GetString(LineNr+1);
//      BeginPos := pos('float:left', Line);
//      EndPos := pos('</i></b></div></span></span></td>', Page.GetString(LineNr));
//      Value := copy(Line, BeginPos, EndPos - BeginPos);
//        HTMLDecode(Value);
//        HTMLRemoveTags(Value);
//        if (getOption('addCZdescr') = 1) then
//          SetField(fieldDescription, Trim(Value) + #13#10 + #13#10 + GetField(fieldDescription))
//        else
//          SetField(fieldDescription, Trim(Value));
//      end


//Info

Line := GetPage(address);
  Value:=copy(Line,pos('<div style=''float:left;width:425px;padding-top:10px;font-weight:normal''>',Line),
  pos('</i></b></div></span></span></td>',Line) -
  pos('<div style=''float:left;width:425px;padding-top:10px;font-weight:normal''>',Line));
  HTMLRemoveTags(Value);
   HTMLDecode(Value);
    SetField(fieldDescription, Value);


   // URL
   SetField(fieldURL, Address);
  //DisplayResults;
end;

begin
  // kontrola verze movie catalogu
  if CheckVersion(3,5,0) then
    begin
      MovieName := GetField(fieldOriginalTitle);

      // pokud je originalni jmeno filmu prazdne, vem jmeno prelozene
      if (MovieName = '') then
        MovieName := GetField(fieldTranslatedTitle);

      // zadani z inputu
      if Input('Import movie from www.csfd.cz', 'Enter the title of the movie:', MovieName) then
        begin
          // analyzuj stranku http://www.csfd.cz/search_pg.php?search=jmeno_filmu
          AnalyzePage(BaseAddress + 'search_pg.php?search=' + UrlEncode(MovieName));
        end;
    end
  else
    ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.5.0)');
end.

[kresomysl]

Nejak me prestal fungovat import z CSFD, zase nejaka zmena struktury na strankach? Proste to ted nikdy nic nenajde :-(
Jsem v tom sam, nebo je to u vsech? :-)

[SwordMaster]

mne to nejde tiez

[playman22]

NEFUNGUJEEE nenajde casto film a aj ked najde, tak je chyba v diakritike... asi zmenili kodovanie... trebalo by kontaktovat tvorcu toho sriptu alebo niekoho, kto sa tomu rozumie, lebo ja sa zneho neviem vysomarit aj ked v nom su tie poznamky...

/edit: stiahol som si tu najnovsiu verziu scriptu (2.9) a ta funguje bez problemov

//edit2: az nato, ze nevypisuje najdene v ceskych nazvoch

[krewnaganku]

Prosím poraďte mi někdo jakou mám vložit do amc adresu , aby mi to načítalo z sosatko , stáhl jsem si u vás na to script , ale v katalogu na tuto databázi není odkaz.Zkoušel jsem to nastavit v nastavení , ale zadal jsem pouze adresu na sosátko a vono mi to nic neudělalo.
Dále bych se chtěl zeptat kde bych našel funkční script na fdb.cz.
Díky moc za odpověď.
Zdravím všechny.
ps:AMC je výbornej program , jsem s nim naprosto spokojenej , doufám že bude i nadále fungovat jak funguje.

[playman22]

skus csfd to funguje vpohode

[krewnaganku]

Jo Jo CSFD není problém to mi jde úplně v pohodě , ale chtěl byl využít aj tu fdb tam maj obáhlejší popisky k filmům atd... a nechce se mi to kopírovat ručně.sosátko chci zas využít na obaly.díky

[playman22]

napis chalanovi, co sa stara o tie scripty... aj mne on pomohol
kontakt najdes na: http://amc.thez.info/contact.php

[georgeso]

Opravil jsem skript FDB.cz, ktery je v instalici AMC a poslal jsem ho Ikeovi, ktery by jej mel zverejnit na strankach http://amc.thez.info. Je to první pokus, tak me nebijte jestli to nebude fungovat na 100%.

[krewnaganku]

Díky za info

[georgeso]

Tak protože iKe se nemá k tomu, aby ten skript zveřejnil dal jsem ho na hellshare: http://www.hellshare.com/155943/fdb_cz.ifs/

[krewnaganku]

To je ten na tu fdb???

[krewnaganku]

Sorry už to vidím v tom odkazu , díky moc!!!

[krewnaganku]

No tak skript funguje v pohodě , akorát je problém u animovaných filmů (Happy Feet , Valiant , V tom domě straší atd...).Vždy při stahování informací to vyhodí error a vyskočí skript s označenou chybou "herci" asi tam na fdb nejsou uvedeni.Při načítání těchto animáču z csfd no problem.
Jinak ještě jednou díky , dobrá práce.

[georgeso]

No tak skript funguje v pohodě , akorát je problém u animovaných filmů (Happy Feet , Valiant , V tom domě straší atd...).Vždy při stahování informací to vyhodí error a vyskočí skript s označenou chybou "herci" asi tam na fdb nejsou uvedeni.Při načítání těchto animáču z csfd no problem.
Jinak ještě jednou díky , dobrá práce.

Opraveno načítání herců u animovaných filmů verze 1.0 RC2 http://www.hellshare.com/155943/fdb_cz.ifs/

[krewnaganku]

Tak už to jede bez problémů.Fakt díky moc

[hyena]

Opraveno načítání herců u animovaných filmů verze 1.0 RC2 http://www.hellshare.com/155943/fdb_cz.ifs/

Pardon, ale mohol by si to prosim postnut sem do kodu alebo aspon dat na nejaky normalny server? Free download nefunguje a teda s odpustenim, ale platit hostujucemu serveru, ktory v zivote nebudem vyuzivat, za 8kb subor sa mi moc nechce - nevraviac uz o tom, ze ani nemam ako. Vdaka.

[IkE Blaster]

A dal snad nekdo nebohemu IkE Blasterovi vedet?

Jestli to chce hostovat u me, tak mi to poslete nekdo na mail. Muzu kdyztak udelat i podadresar s vlastnim ftp