48 |
} |
} |
49 |
$contents =~ s,(<title>)([^<]+)(</title>),$1$2: $title$3,gsi if ($title); |
$contents =~ s,(<title>)([^<]+)(</title>),$1$2: $title$3,gsi if ($title); |
50 |
|
|
51 |
|
} elsif ($contents =~ m,<!--\s+METADATA(.*?)METADATA\s+-->,is) { |
52 |
|
# LJ metadata |
53 |
|
my $metadata = $1; |
54 |
|
my $title = "LJ"; |
55 |
|
|
56 |
|
$title .= "$1: " if ($metadata =~ m,<issue>(.+?)</issue>,is); |
57 |
|
$title .= "$1 - " if ($metadata =~ m,<category>(.+?)</category>,is); |
58 |
|
$title .= $1 if ($metadata =~ m,<title>(.+?)</title>,is); |
59 |
|
$title =~ s/\s+/ /gsi; |
60 |
|
$contents =~ s,<title>[^<]+</title>,<title>$title</title>,is; |
61 |
} |
} |
62 |
|
|
63 |
# is second argument collection? |
# is second argument collection? |