summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
58a2c68)
git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@349
959494ce-11ee-0310-bf91-
de5d638817bd
- my($id, $buf, $html, %ret);
+ my($id, $buf, $html, %ret, @cp);
($id) = @_;
if(!($html = _get geturl $id)) {
($id) = @_;
if(!($html = _get geturl $id)) {
if(($buf) = ($html =~ /number of episodes:<\/b>\n([^<]+)</is)) {
$ret{"eps"} = $buf;
}
if(($buf) = ($html =~ /number of episodes:<\/b>\n([^<]+)</is)) {
$ret{"eps"} = $buf;
}
+ if(($buf) = ($html =~ /genres:<\/b>\n([^<]+)</is)) {
+ @cp = split /,\s*/, $buf;
+ $ret{"gnr"} = \@cp;
+ }
$buf = getthemes $html, "opening";
$ret{"op"} = $buf if(@{$buf});
$buf = getthemes $html, "ending";
$buf = getthemes $html, "opening";
$ret{"op"} = $buf if(@{$buf});
$buf = getthemes $html, "ending";