XMLTV::Configure::Writer − Configuration file writer for XMLTV grabbers
Utility class that helps grabbers write configuration descriptions.
use
XMLTV::Configure::Writer;
my $result;
my $writer = new XMLTV::Writer::Configure( OUTPUT =>
\$result,
encoding => 'iso−8859−1' );
$writer−>start( { grabber => 'tv_grab_xxx' } );
$writer−>write_string( {
id => 'username',
title => [ [ 'Username', 'en' ],
[ 'Användarnamn', 'sv' ] ],
description => [ [ 'The username for logging in to
DataDirect.', 'en' ],
[ 'Användarnamn hos DataDirect', 'sv' ] ],
} );
$writer−>start_selectone( {
id => 'lineup',
title => [ [ 'Lineup', 'en' ],
[ 'Programpaket', 'sv' ] ],
description => [ [ 'The lineup of channels for your
region.', 'en' ],
[ 'Programpaket för din region', 'sv' ] ],
} );
$writer−>write_option( {
value=>'eastcoast',
text=> => [ [ 'East Coast', 'en' ],
[ 'Ãstkusten', 'sv' ] ]
} );
$writer−>write_option( {
value=>'westcoast',
text=> => [ [ 'West Coast', 'en' ],
[ 'Västkusten', 'sv' ] ]
} );
$writer−>end_selectone();
$writer−>end();
print $result;
None.
start()
Write the start of the <xmltvconfiguration> element. Parameter is a hashref which gives the attributes of this element.
write_string()
Write a <string> element. Parameter is a hashref with the data for the element:
$writer−>write_string(
{
id => 'username',
title => [ [ 'Username', 'en' ],
[ 'Användarnamn', 'sv' ] ],
description => [ [ 'The username for logging in to
DataDirect.', 'en' ],
[ 'Användarnamn hos DataDirect', 'sv' ] ],
default => "",
} );
To add a constant use ’constant’ key: | |||
If constant value is empty then revert to ’ask’ procedure. |
$writer−>write_string(
{
id => 'version',
title => [ [ 'Version number', 'en' ] ],
description => [ [ 'Automatically added version number
− no user input', 'en' ] ],
constant => '123',
} );