(.*?)<\/define-tag>/ms) {
$date = Encode::encode_utf8(qq/$1/); } # News, news.XX.rdf
if ($content =~ /^(.*?)<\/p>/ms) {
$moreinfo = Encode::encode_utf8(qq/$1/); } # news.XX.rdf Should catch the first paragraph
if ($content =~ /^(.*?)<\/define-tag>/ms) {
$where = Encode::encode_utf8(qq/$1/); } # events
if ($content =~ /^(.*?)<\/define-tag>/ms) {
$date = Encode::encode_utf8(qq/$1/); } # events
if ($content =~ /^(.*?)<\/define-tag>/ms) {
$desc = Encode::encode_utf8(qq/$1/); } # security
if ($content =~ /^\s*(.*?)\s*<\/define-tag>/ms) {
$just = Encode::encode_utf8(qq/$1/); } # licenses
if ($content =~ /^(?:(.*?<\/p>)|(.*?)<\/define-tag>)/ms) {
$moreinfo = Encode::encode_utf8(qq/$1/); } # dsa-long.XX.rdf
if ($content =~ /^(.*?)<\/define-tag>/ms) {
$status = Encode::encode_utf8(qq/$1/); } # vote
if ($content =~ /^(.*?)<\/define-tag>/ms) {
$startdate = Encode::encode_utf8(qq/$1/); } # startdate (events)
if ($content =~ /^(.*?)<\/define-tag>/ms) {
$enddate = Encode::encode_utf8($1); } # enddate (events)
my ($shortfile) = $file =~ /^(?:.*\/)?(.*)\.wml$/;
if ($content =~ //ms) {
$repfile = Encode::encode_utf8($1); } # Report (events)
if ($content =~ //ms) { #"
$repfile = Encode::encode_utf8($1); } # Report (events)
if ($content =~ /^(.*?)<\/define-tag>/ms) {
$release = Encode::encode_utf8(qq/$1/); } # News
if ($content =~ /^(.*?)<\/define-tag>/ms) {
$codename = Encode::encode_utf8(qq/$1/); } # News
if ($content =~ /^(.*?)<\/define-tag>/ms) {
$revision = Encode::encode_utf8(qq/$1/); } # News