iMDB by perpleXA

[holycrap]

Any one kind enough to fix this? The title and year are not showing, other than that it works fine.

Thanks!

Code: Select all

# IMDb query v1.15 
# Copyright (C) 2007-2009 perpleXa 
# http://perplexa.ugug.org / #perpleXa on QuakeNet 
# 
# Redistribution, with or without modification, are permitted provided 
# that redistributions retain the above copyright notice, this condition 
# and the following disclaimer. 
# 
# This program is distributed in the hope that it will be useful, 
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without 
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
# PARTICULAR PURPOSE. 
# 
# Usage: 
#  !movie <title> 

package require http 2.7; # TCL 8.5 

namespace eval imdb { 
  variable version 1.15; 

  # flood protection (seconds) 
  variable antiflood "10"; 
  # character encoding 
  variable encoding "utf-8"; 
  # user agent 
  variable agent "Mozilla/5.0 (X11; U; Linux i686; en-GB; rv:1.8.1) Gecko/2006101023 Firefox/2.0"; 

  # internal 
  bind pub -|- "!movie" [namespace current]::public; 
  bind msg -|- "!movie" [namespace current]::private; 
  variable flood; 
  namespace export *; 
} 

proc imdb::public {nick host hand chan argv} { 
  variable flood; variable antiflood; 
  if {![info exists flood($chan)]} { set flood($chan) 0; } 
  if {[unixtime] - $flood($chan) <= $antiflood} { return 0; } 
  set flood($chan) [unixtime]; 

  set argv [string trim $argv]; 
  if {$argv == ""} { 
    puthelp "NOTICE $nick :\037Syntax\037: \002$::lastbind\002 <title>"; 
    return 0; 
  } 

  set id [id $argv]; 
  if {$id == ""} { 
    chanmsg $chan "Movie not found: $argv"; 
    return 0; 
  } 

  set info [getinfo $id]; 
  if {![llength $info]} { 
    chanmsg $chan "Couldn't get information for movie id $id."; 
    return 0; 
  } 

  for {set i 0} {$i < [llength $info]} {incr i} { 
    set info [lreplace $info $i $i [decode [lindex $info $i]]]; 
  } 

  set name     [lindex $info 0];  set year    [lindex $info 1]; 
  set genre    [lindex $info 2];  set tagline [lindex $info 3]; 
  set plot     [lindex $info 4];  set rating  [lindex $info 5]; 
  set votes    [lindex $info 6];  set runtime [lindex $info 7]; 
  set language [lindex $info 8]; 

  if {$name == ""} { 
    chanmsg $chan "Couldn't get information for movie id $id."; 
    return 0; 
  } 

  chanmsg $chan "\002$name\002 ($year) \002Rating:\002 [bar $rating] $rating/10"; 
  chanmsg $chan "\002Tagline:\002 $tagline \002Plot:\002 $plot \00314http://imdb.com/title/$id\003"; 
} 

proc imdb::private {nick host hand argv} { 
  variable flood; variable antiflood; 
  if {![info exists flood($nick)]} { set flood($nick) 0; } 
  if {[unixtime] - $flood($nick) <= $antiflood} { return 0; } 
  set flood($nick) [unixtime]; 

  set argv [string trim $argv]; 
  if {$argv == ""} { 
    chanmsg $nick :\037Syntax\037: \002$::lastbind\002 <title>"; 
    return 0; 
  } 

  set id [id $argv]; 
  if {$id == ""} { 
    chanmsg $nick "Movie not found: $argv"; 
    return 0; 
  } 

  set info [getinfo $id]; 
  if {![llength $info]} { 
    chanmsg $nick "Couldn't get information for movie id $id."; 
    return 0; 
  } 

  for {set i 0} {$i < [llength $info]} {incr i} { 
    set info [lreplace $info $i $i [decode [lindex $info $i]]]; 
  } 

  set name     [lindex $info 0];  set year    [lindex $info 1]; 
  set genre    [lindex $info 2];  set tagline [lindex $info 3]; 
  set plot     [lindex $info 4];  set rating  [lindex $info 5]; 
  set votes    [lindex $info 6];  set runtime [lindex $info 7]; 
  set language [lindex $info 8]; 

  if {$name == ""} { 
    chanmsg $nick "Couldn't get information for movie id $id."; 
    return 0; 
  } 

  chanmsg $nick "\002$name\002 ($year) \002Rating:\002 [bar $rating] $rating/10"; 
  chanmsg $nick "\002Tagline:\002 $tagline \002Plot:\002 $plot \00314http://imdb.com/title/$id\003"; 
} 

proc imdb::bar {float} { 
  set stars [format "%1.0f" $float]; 
  return "\00312\[\00307[string repeat "*" $stars]\00314[string repeat "-" [expr 10-$stars]]\00312\]\003"; 
} 

proc imdb::chanmsg {chan text} { 
  if {[validchan $chan]} { 
    if {[string first "c" [lindex [split [getchanmode $chan]] 0]] >= 0} { 
      regsub -all {(?:\002|\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\026|\037)} $text "" text; 
    } 
  } 
  putquick "PRIVMSG $chan :$text"; 
} 

proc imdb::id {movie} { 
  variable agent; 
  http::config -useragent $agent; 
  if {[catch {http::geturl "http://www.imdb.com/find?q=[urlencode $movie];s=tt;site=aka" -timeout 20000} token]} { 
    return; 
  } 
  set data [http::data $token]; 
  set code [http::ncode $token]; 
  set meta [http::meta $token]; 
  http::cleanup $token; 
  if {$code == 200} { 
    set id ""; 
    #regsub -nocase -- {^.*<b>Titles \(Exact Matches\)</b>} $data "" data; 
    regexp -nocase -- {<a href="/title/(tt[0-9]+)/"} $data -> id; 
    return $id; 
  } else { 
    foreach {var val} $meta { 
      if {![string compare -nocase "Location" $var]} { 
        regexp -nocase {tt\d+} $val val; 
        return $val; 
      } 
    } 
  } 
} 

proc imdb::getinfo {id} { 
  variable agent; 
  http::config -useragent $agent; 
  if {[catch {http::geturl "http://www.imdb.com/title/$id/" -timeout 20000} token]} { 
    return; 
  } 
  set data [http::data $token]; 
  regsub -all -- {\r\n} $data "\n" data; 
  http::cleanup $token; 

  set name ""; set year ""; set genre ""; set tagline ""; set plot ""; 
  set rating 0; set votes ""; set runtime ""; set language ""; 
  regexp -nocase -- {<div id="tn15title">\n<h1>([^<]+)<span>\(<a href="/Sections/Years/\d+/">(\d+)</a>} $data -> name year; 
  foreach {null gen} [regexp -all -nocase -inline -- {<a href="/Sections/Genres/([a-z]+?)/">} $data] { 
    lappend genre $gen; 
  } 
  foreach {null lang} [regexp -all -nocase -inline -- {<a href="/Sections/Languages/.*?/">(.*?)</a>} $data] { 
    lappend language [string trim $lang]; 
  } 
  regexp -nocase -- {<h5>Tagline:</h5>\n<div[^>]*>(.+?)</div>(.*)} $data -> tagline; 
  regsub -all "<a.*?>.*?</a>" $tagline "" tagline; 
  regexp -nocase -- {<h5>Plot:</h5>\n<div[^>]*>(.+?)</div>(.*)} $data -> plot; 
  regsub -all "<a.*?>.*?</a>" $plot "" plot; 
  regexp -nocase -- {<b>([0-9.]+?)/10</b>[\n\s]+(?:\ ){2}<a href="ratings" class="tn15more">([0-9,]+?) votes</a>} $data -> rating votes; 
  regexp -nocase -- {<h5>Runtime:</h5>\n<div[^>]*>(.+?)</div>(.*)} $data -> runtime; 

  return [list [string trim $name] $year [join $genre "/"] [string trim $tagline] [string trim $plot "\r\n\t| "] $rating $votes [string trim $runtime] [join $language "/"]]; 
} 

proc imdb::urlencode {i} { 
  variable encoding 
  set index 0; 
  set i [encoding convertto $encoding $i] 
  set length [string length $i] 
  set n "" 
  while {$index < $length} { 
    set activechar [string index $i $index] 
    incr index 1 
    if {![regexp {^[a-zA-Z0-9]$} $activechar]} { 
      append n %[format "%02X" [scan $activechar %c]] 
    } else { 
      append n $activechar 
    } 
  } 
  return $n 
} 

proc imdb::decode {content} { 
  if {$content == ""} { 
    return "n/a"; 
  } 
  if {![string match *&* $content]} { 
    return $content; 
  } 
  set escapes { 
      \x20 " \x22 & \x26 &apos; \x27 – \x2D 
    < \x3C > \x3E ˜ \x7E € \x80 ¡ \xA1 
    ¢ \xA2 £ \xA3 ¤ \xA4 ¥ \xA5 ¦ \xA6 
    § \xA7 ¨ \xA8 © \xA9 ª \xAA « \xAB 
    ¬ \xAC ­ \xAD ® \xAE &hibar; \xAF ° \xB0 
    ± \xB1 ² \xB2 ³ \xB3 ´ \xB4 µ \xB5 
    ¶ \xB6 · \xB7 ¸ \xB8 ¹ \xB9 º \xBA 
    » \xBB ¼ \xBC ½ \xBD ¾ \xBE ¿ \xBF 
    À \xC0 Á \xC1 Â \xC2 Ã \xC3 Ä \xC4 
    Å \xC5 Æ \xC6 Ç \xC7 È \xC8 É \xC9 
    Ê \xCA Ë \xCB Ì \xCC Í \xCD Î \xCE 
    Ï \xCF Ð \xD0 Ñ \xD1 Ò \xD2 Ó \xD3 
    Ô \xD4 Õ \xD5 Ö \xD6 × \xD7 Ø \xD8 
    Ù \xD9 Ú \xDA Û \xDB Ü \xDC Ý \xDD 
    Þ \xDE ß \xDF à \xE0 á \xE1 â \xE2 
    ã \xE3 ä \xE4 å \xE5 æ \xE6 ç \xE7 
    è \xE8 é \xE9 ê \xEA ë \xEB ì \xEC 
    í \xED î \xEE ï \xEF ð \xF0 ñ \xF1 
    ò \xF2 ó \xF3 ô \xF4 õ \xF5 ö \xF6 
    ÷ \xF7 ø \xF8 ù \xF9 ú \xFA û \xFB 
    ü \xFC ý \xFD þ \xFE ÿ \xFF 
  }; 
  set content [string map $escapes $content]; 
  set content [string map [list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] $content]; 
  regsub -all -- {&#([[:digit:]]{1,5});} $content {[format %c [string trimleft "\1" "0"]]} content; 
  regsub -all -- {&#x([[:xdigit:]]{1,4});} $content {[format %c [scan "\1" %x]]} content; 
  regsub -all -- {&#?[[:alnum:]]{2,7};} $content "?" content; 
  return [subst $content]; 
} 

putlog "*IMDb v$imdb::version* Loaded"

[MePH]

Too lazy to check what i changed, but it works

Code: Select all

# IMDb query v1.13
# Copyright (C) 2007-2008 perpleXa
# http://perplexa.ugug.org / #perpleXa on QuakeNet
#
# Redistribution, with or without modification, are permitted provided
# that redistributions retain the above copyright notice, this condition
# and the following disclaimer.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Usage:
#  -imdb <movie name>

package require http 2.7; # TCL 8.5

namespace eval imdb {
  variable version 1.14;

  # flood protection (seconds)
  variable antiflood "10";
  # character encoding
  variable encoding "utf-8";
  # user agent
  variable agent "Mozilla/5.0 (X11; U; Linux i686; en-GB; rv:1.8.1) Gecko/2006101023 Firefox/2.0";

  # internal
  bind pub -|- "!imdb" [namespace current]::public;
  variable flood;
  namespace export *;
}

proc imdb::public {nick host hand chan argv} {
  variable flood; variable antiflood;
  if {![info exists flood($chan)]} { set flood($chan) 0; }
  if {[unixtime] - $flood($chan) <= $antiflood} { return 0; }
  set flood($chan) [unixtime];

  set argv [string trim $argv];
  if {$argv == ""} {
    puthelp "NOTICE $nick :Usage: $::lastbind movie";
    return 0;
  }

  set id [id $argv];
  if {$id == ""} {
    chanmsg $chan "Movie not found: $argv";
    return 0;
  }

  set info [getinfo $id];
  if {![llength $info]} {
    chanmsg $chan "Couldn't get information for movie id $id.";
    return 0;
  }

  for {set i 0} {$i < [llength $info]} {incr i} {
    set info [lreplace $info $i $i [decode [lindex $info $i]]];
  }

  set name     [lindex $info 0];  set year    [lindex $info 1];
  set genre    [lindex $info 2];  set tagline [lindex $info 3];
  set plot     [lindex $info 4];  set rating  [lindex $info 5];
  set votes    [lindex $info 6];  set runtime [lindex $info 7];
  set language [lindex $info 8];

  if {$name == ""} {
    chanmsg $chan "Couldn't get information for movie id $id.";
    return 0;
  }

  chanmsg $chan "\[\002IMDb\002\] \002$name\002 ($year) \0037¤\003 Link: \00314http://imdb.com/title/$id/\003";
  chanmsg $chan " - \002Genre\002: $genre \002Runtime\002: $runtime \002Language\002: $language";
  chanmsg $chan " - \002Rating\002: [bar $rating] $rating/10 ($votes votes)";
  chanmsg $chan " - \002Tagline\002: $tagline";
  chanmsg $chan " - \002Plot\002: [string map { » "" | "" } $plot ]";
}

proc imdb::bar {float} {
  set stars [format "%1.0f" $float];
  return "\[\00307[string repeat "¤" $stars]\00314[string repeat "-" [expr 10-$stars]]\003\]";
}

proc imdb::chanmsg {chan text} {
  if {[validchan $chan]} {
    if {[string first "c" [lindex [split [getchanmode $chan]] 0]] >= 0} {
      regsub -all {(?:\002|\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\026|\037)} $text "" text;
    }
  }
  putquick "PRIVMSG $chan :$text";
}

proc imdb::id {movie} {
  variable agent;
  http::config -useragent $agent;
  if {[catch {http::geturl "http://www.imdb.com/find?q=[urlencode $movie];s=tt;site=aka" -timeout 20000} token]} {
    return;
  }
  set data [http::data $token];
  set code [http::ncode $token];
  set meta [http::meta $token];
  http::cleanup $token;
  if {$code == 200} {
    set id "";
    #regsub -nocase -- {^.*<b>Titles \(Exact Matches\)</b>} $data "" data;
    regexp -nocase -- {<a href="/title/(tt[0-9]+)/"} $data -> id;
    return $id;
  } else {
    foreach {var val} $meta {
      if {![string compare -nocase "Location" $var]} {
        regexp -nocase {tt\d+} $val val;
        return $val;
      }
    }
  }
}

proc imdb::getinfo {id} {
  variable agent;
  http::config -useragent $agent;
  if {[catch {http::geturl "http://www.imdb.com/title/$id/" -timeout 20000} token]} {
    return;
  }
  set data [http::data $token];
  regsub -all -- {\r\n} $data "\n" data;
  http::cleanup $token;

  set name ""; set year ""; set genre ""; set tagline ""; set plot "";
  set rating 0; set votes ""; set runtime ""; set language "";
  regexp -nocase -- {<div id="tn15title">\n<h1>([^<]+)<span>\(<a href="/year/\d+/">(\d+)</a>} $data -> name year;
  foreach {null gen} [regexp -all -nocase -inline -- {<a href="/Sections/Genres/([a-z]+?)/">} $data] {
    lappend genre $gen;
  }
  foreach {null lang} [regexp -all -nocase -inline -- {<a href="/Sections/Languages/.*?/">(.*?)</a>} $data] {
    lappend language [string trim $lang];
  }
  regexp -nocase -- {<h5>Tagline:</h5>\n<div[^>]*>(.+?)</div>(.*)} $data -> tagline;
  regsub -all "<a.*?>.*?</a>" $tagline "" tagline;
  regexp -nocase -- {<h5>Plot:</h5>\n<div[^>]*>(.+?)</div>(.*)} $data -> plot;
  regsub -all "<a.*?>.*?</a>" $plot "" plot;
  regexp -nocase -- {<b>([0-9.]+?)/10</b>[\n\s]+(?:\ ){2}<a href="ratings" class="tn15more">([0-9,]+?) votes</a>} $data -> rating votes;
  regexp -nocase -- {<h5>Runtime:</h5>\n<div[^>]*>(.+?)</div>(.*)} $data -> runtime;

  return [list [string trim $name] $year [join $genre "/"] [string trim $tagline] [string trim $plot "\r\n\t| "] $rating $votes [string trim $runtime] [join $language "/"]];
}

proc imdb::urlencode {i} {
  variable encoding
  set index 0;
  set i [encoding convertto $encoding $i]
  set length [string length $i]
  set n ""
  while {$index < $length} {
    set activechar [string index $i $index]
    incr index 1
    if {![regexp {^[a-zA-Z0-9]$} $activechar]} {
      append n %[format "%02X" [scan $activechar %c]]
    } else {
      append n $activechar
    }
  }
  return $n
}

proc imdb::decode {content} {
  if {$content == ""} {
    return "n/a";
  }
  if {![string match *&* $content]} {
    return $content;
  }
  set escapes {
      \x20 " \x22 & \x26 &apos; \x27 – \x2D
    < \x3C > \x3E ˜ \x7E € \x80 ¡ \xA1
    ¢ \xA2 £ \xA3 ¤ \xA4 ¥ \xA5 ¦ \xA6
    § \xA7 ¨ \xA8 © \xA9 ª \xAA « \xAB
    ¬ \xAC ­ \xAD ® \xAE &hibar; \xAF ° \xB0
    ± \xB1 ² \xB2 ³ \xB3 ´ \xB4 µ \xB5
    ¶ \xB6 · \xB7 ¸ \xB8 ¹ \xB9 º \xBA
    » \xBB ¼ \xBC ½ \xBD ¾ \xBE ¿ \xBF
    À \xC0 Á \xC1 Â \xC2 Ã \xC3 Ä \xC4
    Å \xC5 Æ \xC6 Ç \xC7 È \xC8 É \xC9
    Ê \xCA Ë \xCB Ì \xCC Í \xCD Î \xCE
    Ï \xCF Ð \xD0 Ñ \xD1 Ò \xD2 Ó \xD3
    Ô \xD4 Õ \xD5 Ö \xD6 × \xD7 Ø \xD8
    Ù \xD9 Ú \xDA Û \xDB Ü \xDC Ý \xDD
    Þ \xDE ß \xDF à \xE0 á \xE1 â \xE2
    ã \xE3 ä \xE4 å \xE5 æ \xE6 ç \xE7
    è \xE8 é \xE9 ê \xEA ë \xEB ì \xEC
    í \xED î \xEE ï \xEF ð \xF0 ñ \xF1
    ò \xF2 ó \xF3 ô \xF4 õ \xF5 ö \xF6
    ÷ \xF7 ø \xF8 ù \xF9 ú \xFA û \xFB
    ü \xFC ý \xFD þ \xFE ÿ \xFF
  };
  set content [string map $escapes $content];
  set content [string map [list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] $content];
  regsub -all -- {&#([[:digit:]]{1,5});} $content {[format %c [string trimleft "\1" "0"]]} content;
  regsub -all -- {&#x([[:xdigit:]]{1,4});} $content {[format %c [scan "\1" %x]]} content;
  regsub -all -- {&#?[[:alnum:]]{2,7};} $content "?" content;
  return [subst $content];
}

putlog "Script loaded: IMDb query v$imdb::version by perpleXa"

[holycrap]

Thanks! It works great.

[Taken]

Hi!

Any one knows how add director name? I'm trying but nothing

Thanks!

[Taken]

Fix it!

[holycrap]

This script is broken again. Can someone please fix it?

Thanks!

[username]

Try this version.

<tvrsh> !movie batmen
<@bionic> The Dark Knight. Also known as: Batman: The Dark Knight (2008) Rating: [*********-] 8.9/10
<@bionic> Batman, Gordon and Harvey Dent are forced to deal with the chaos unleashed by an anarchist mastermind known only as the Joker, as it drives each of them to their limits.
<@bionic> Director: Christopher Nolan, Release date: 14 August 2008 (Russia)
<@bionic> Storyline: Batman raises the stakes in his bourgeois war on crime. With the help of Lieutenant Jim Gordon and District Attorney Harvey Dent, Batman sets out to dismantle the remaining criminal organizations that plague the city streets. The partnership proves to be effective, but they soon find themselves prey to a reign of chaos unleashed by a rising criminal mastermind known to the terrified citizens of Gotham as The Joker.
<@bionic> Tagline: Why So Serious?, Plot keywords: Batman/Joker/Criminal/Gotham/Chaos, Genre: Action/Crime/Drama/Thriller
<@bionic> Language: English/Mandarin, Runtime: 152 min, Votes: 470,518

[caesar]

@username : holycrap seems to be using the same version as you pointed him to download, yet it works at you and it doesn't at him. It's a case of PEBKAC?

[holycrap]

@username Thanks! It woks great. I have one bit of a problem... when I changed to this how come the name and year is not showing up?

Code: Select all

chanmsg $chan "\002$name\002 ($year) \002Rating:\002 [bar $rating] $rating/10"; 
chanmsg $chan "\002Tagline:\002 $tagline \002Plot:\002 $desc";

[username]

@username : holycrap seems to be using the same version as you pointed him to download, yet it works at you and it doesn't at him. It's a case of PEBKAC?

Heh, no. I done some little modification with code. But this is the secret.
I decide, if author stop working with this I can repair it without changing copyright. Maybe Im wrong.

[username]

@username Thanks! It woks great. I have one bit of a problem... when I changed to this how come the name and year is not showing up?

Code: Select all

chanmsg $chan "\002$name\002 ($year) \002Rating:\002 [bar $rating] $rating/10"; 
chanmsg $chan "\002Tagline:\002 $tagline \002Plot:\002 $desc";

Hmmm, I dont know. Maybe you add colours and proc imdb::chanmsg cut them with usefull information?

[spithash]

I got the same problem and I didn't change anything:

Code: Select all

[12:06:25] <@spithash> !imdb salt
[12:06:28] <@nagger> n/a. Also known as: Agente Salt (n/a) Rating: [******----] 6.5/10
[12:06:28] <@nagger> A CIA agent goes on the run after a defector accuses her of being a Russian spy.
[12:06:28] <@nagger> Director: Phillip Noyce, Release date: 23 July 2010 (Canada)
[12:06:28] <@nagger> Storyline: Evelyn Salt is a CIA agent and highly respected by all, including her boss, Ted Winter. Out of the blue, a Russian spy walks into their offices and offers a 
                     vital piece of information: the President of Russia will be assassinated during his forthcoming visit to New York City to attend the funeral of the recently deceased 
                     U.S. Vice President. The name of the assassin: Evelyn Salt. Concerned about the safety of her husband, who she cannot co
[12:06:30] <@nagger> Tagline: Salt Must Die., Plot keywords: On The Run/Russian/Russian Spy/Spy/CIA, Genre: Action/Mystery/Thriller
[12:06:33] <@nagger> Language: English/Russian, Runtime: 100 min, Votes: 32,342

[spithash]

And in some search strings I tested, even worse:

Code: Select all

[12:16:57] <@spithash> !imdb Welcome to the Rileys 
[12:17:00] <@nagger> n/a. Also known as: n/a (n/a) Rating: [********--] 7.8/10
[12:17:00] <@nagger> On a business trip to New Orleans, a damaged man seeks salvation by caring for a wayward young woman.
[12:17:00] <@nagger> Director: Jake Scott, Release date: 10 November 2010 (France)
[12:17:00] <@nagger> Storyline: n/a
[12:17:02] <@nagger> Tagline: n/a, Plot keywords: n/a, Genre: Drama
[12:17:04] <@nagger> Language: English, Runtime: n/a, Votes: 581

probably some code change on imdb's website I assume.

[tigrato]

username can you add top 250 option?

[username]

<tvrsh> !movie Welcome to the Rileys
<@bionic> Welcome to the Rileys. Also known as: n/a (2010) Rating: [********--] 7.8/10
...

Script updated. Link is the same. There is no other info about this film on site.