VideoLan::Client - interact with VideoLan Client using telnet connection
Version 0.1
use VideoLan::Client;
see METHODS section below
VideoLan::Client allows you to lauchn vlc and control it using vlc connections. VideoLan::Client offer simple I/O methods. VideoLan::Client require Net::Telnet.
In the calling sequences below, square brackets [] represent optional parameters.
$obj = new VideoLan::Client();
$obj = new VideoLan::Client ([HOST => $host,]
[PORT => $port,]
[TIMEOUT => $timeout,]
[PASSWD => $passwd,]
[DEBUG => $debug_file,]
);
This is the constructor for VideoLan::Client objects.
The default host is "localhost"
The default port is 4212
The default timeout is 10 secondes
The default passwd is admin secondes
The default debug is undef. if debug is set to $file, $file will contains the telnet connection log. debug have to be set before the login method
$val = $ojb->login;
If succed return 1, else return 0.
$obj->logout;
$obj->shutdown;
@val = $obj->cmd('commande');
$obj->add_broadcast_media($name,$input,$output);
input and output use the syntaxe of vlc input/output
$obj->load_config_file($file)
$obj->save_config_file($file)
$obj->media_play($name)
$obj->media_stop($name)
$val = lauchnvlc;
Work only if the host is localhost. Will only work on *NIX where nohup commande exist and vlc command is in path. lauchnvlc method is not support actually, just in test.
This example connect to a running vlc, lauchn the help commande and logout.
use VideoLan::Client;
my $vlc = VideoLan::Client->new( HOST =>'192.168.1.10', PORT => '35342', PASSWD => 'mdp_test');
$vlc->login();
my @help = $vlc->cmd("help");
$vlc->logout();
This example connect to a running vlc and shutdown it
use VideoLan::Client;
my $vlc = VideoLan::Client->new( PASSWD => 'mdp_test');
$vlc->login;
my @help = $vlc->shutdown;
$vlc->logout;
Cyrille Hombecq, <elliryc at cpan.com>
Please report any bugs or feature requests to bug-videolan-client at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=VideoLan-Client. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc VideoLan::Client
You can also look for information at:
Copyright 2008 Cyrille Hombecq, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
