# cache_listings.pl - A TV Listings Viewer Plugin for the Squeezebox
# Michael Coglianese (http://www.coglianese.org)
# Version 2.0 - February 2005
#
#			-----------------------------------------
#
# This script is to be used in conjunction with the Television.pm Squeezebox
# plugin. The script can be run immediately after you download the XML TV
# listings. Doing this will cause the listings to be loaded faster when
# you navigate to the plugin on your Squeezebox the first time.
#

# This script is optional. If you do not use it, it will take longer to load
# the listings the first time you use the plugin each day.

use XML::Simple;

##################################################
############ BEGIN USER CONFIGURATION ############

#
# 	The location of listings XML file generated by XMLTV. The plugin will
#	automatically reread this file if it sees that it has changed.
#
my $data_location = "C:\\Program Files\\XML TV\\listings.xml";

############# END USER CONFIGURATION #############
##################################################

my $xmlsimple = XML::Simple->new( forcearray => 1, forcecontent => 1, keyattr => [], cache => 'storable' );
my $response = $xmlsimple->XMLin($data_location);