Apache-UpnpImgBrowser

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
name:         Apache-UpnpImgBrowser
version:      0.01
version_from: UpnpImgBrowser.pm
installdirs:  site
requires:
    Cache::FileCache:              
    Data::Dumper:                  
    Image::Magick:                 
    LWP::Simple:                   
    Net::UPnP:                     
    SOAP::Lite:                    
    URI::Escape:                   
    XML::Simple:                   

distribution_type: module
generated_by: ExtUtils::MakeMaker version 6.17

Makefile.PL  view on Meta::CPAN

my $NAME = 'Apache::UpnpImgBrowser';
my $VERSION_FROM = 'UpnpImgBrowser.pm';
my $COMPRESS = 'gzip';
my $SUFFIX = '.gz';
my $DEFAULT_PREREQ_PM = {
			  Image::Magick => '',
  			  Net::UPnP => '',
 			  SOAP::Lite => '',
  			  XML::Simple => '',
			  Data::Dumper => '',
			  Cache::FileCache => '',
			  URI::Escape => '',
			  LWP::Simple => '',
                        };

#my @NON_IPC_TESTS = ( 't/1_test.t',
#                      't/2_test.t',
#                      't/3_test.t',
#                      't/5_test.t',
#                      't/6_test.t' );

README  view on Meta::CPAN

Apache::UpnpImgBrowser is a simple mod_perl application for displaying photos. 
hosted on a UPNP DLNA compliant Media Server.  


REQUIREMENTS

  Image::Magick
  Net::UPnP
  SOAP::Lite 
  XML::Simple
  Data::Dumper
  Cache::FileCache
  URI::Escape
  LWP::Simple


INSTALLATION

  perl Makefile.PL
  make
  make install

UpnpImgBrowser.pm  view on Meta::CPAN

use APR::Const qw(:filetype);
use APR::Finfo;
use Image::Magick ();
use DirHandle ();
use FileHandle ();
use File::Basename qw(fileparse);
use Net::UPnP::ControlPoint;
use Net::UPnP::AV::MediaServer;
use SOAP::Lite maptype => {}; 
use XML::Simple;
use Data::Dumper;
use POSIX qw(strftime);
use Cache::FileCache;
use URI::Escape;
use LWP::Simple;



use vars qw(%gOptions @gOutput $gOutputStarted $gCp @gDeviceList $gLastDir $cache $VERSION);

$VERSION = 0.01;