/usr/share/doc/libxml-opml-perl/examples/opml.pl is in libxml-opml-perl 0.26-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | #!/usr/bin/perl -w
use strict;
use XML::OPML;
# Create the OPML file
my $opml = new XML::OPML(version => '1.1');
$opml->head(
title => 'opml test file',
dateCreated => 'Sat 2004 02 14 09:22:00 GMT',
dateModified => 'Sat 2004 02 14 09:22:00 GMT',
ownerName => 'michael szul',
ownerEmail => 'opml-dev@blogenstein.com',
expansionState => '',
vertScrollState => '',
windowTop => '',
windowLeft => '',
windowBottom => '',
windowRight => '',
);
$opml->add_outline(
text => 'madghoul.com | the dark night of the soul',
description => 'Looking for something Strange?',
title => 'madghoul.com | the dark night of the soul',
type => 'rss',
version => 'RSS',
htmlurl => 'http://www.madghoul.com/ghoul/InsaneRapture/lunacy.mhtml',
xmlurl => 'http://www.madghoul.com/cgi-bin/fearsome/fallout/index.rss10',
);
$opml->add_outline(
text => 'opml news from opml.blogenstein.com',
description => '',
title => 'opml.blogenstein.com',
type => 'rss',
version => 'RSS',
htmlurl => 'http://opml.blogenstein.com',
);
$opml->add_outline(
opmlvalue => 'embed',
text => 'Embedded',
outline_one => {
text => 'Embedded outline for parsing format',
description => 'a long description for this embedded outline so that I can see it when debugging with ptkdb',
},
outline_two => {
text => 'Second Embedded outline for parsing opml content',
description => 'thankfully parsing works without having to many tricky things',
},
);
$opml->save('modules.opml');
# Now update the file
$opml->parse('modules.opml');
$opml->insert_outline(
group => "Embedded",
text => 'new additions to OPML',
description => 'more outlines',
title =>'a blank title',
type => 'rss',
version => 'RSS',
htmlurl => 'no url',
xmlurl => 'definitely no rss feed',
);
;
$opml->save('modules.opml');
|