Go to the source code of this file.
Functions | |
| use URI::Escape | qw (uri_unescape uri_escape uri_escape_utf8) |
| use vars | qw ($opt_h $opt_r $opt_d $opt_i $opt_v $opt_D $opt_M $opt_P $opt_originaltitle $opt_casting $opt_u_dummy) |
| by (instead of decode_entities) sub removenbsp | |
| if (rindex($query, '.')!=-1) | |
| if (rindex($query, '(')!=-1) | |
| if (rindex($query, '[')!=-1) | |
| if (index($query, '-')!=-1) | |
| if ($1) | |
| if (!$options) | |
| if (defined $opt_d) | |
| while (($typerecherche<=5)&&($count==0)) | |
| GetOptions ("utf8"=>\$opt_u_dummy,"version"=>\$opt_v,"info"=>\$opt_i,"originaltitle"=>\$opt_originaltitle,"casting"=>\$opt_casting,"Data"=>\$opt_D,"Movie"=>\$opt_M,"Poster"=>\$opt_P) | |
| elsif (defined $opt_M) | |
Variables | |
| no | encoding |
| use | Encode |
| $title = "KinoX Query" | |
| $version = "v0.03" | |
| $author = "Denys Dmytriyenko" | |
| $outcp = "utf8" | |
| each line as | movieid |
| each line as | $options = @_ |
| my | $query = $filename |
| The | i |
| my | $count = 0 |
| my | $typerecherche = 3 |
| use URI::Escape qw | ( | uri_unescape uri_escape | uri_escape_utf8 | ) |
| use vars qw | ( | $opt_h $opt_r $opt_d $opt_i $opt_v $opt_D $opt_M $opt_P $opt_originaltitle $opt_casting $ | opt_u_dummy | ) |
| GetOptions | ( | "utf8" | , | |
| \$ | opt_u_dummy, | |||
| "version" | , | |||
| \$ | opt_v, | |||
| "info" | , | |||
| \$ | opt_i, | |||
| "originaltitle" | , | |||
| \$ | opt_originaltitle, | |||
| "casting" | , | |||
| \$ | opt_casting, | |||
| "Data" | , | |||
| \$ | opt_D, | |||
| "Movie" | , | |||
| \$ | opt_M, | |||
| "Poster" | , | |||
| \$ | opt_P | |||
| ) |
| use Encode |
1.5.5