prefs results from the CPAN

TVGuide-NL

view release on metacpan or search on metacpan


------------------------------------------------------------------------
r57 | bas | 2005-09-02 20:35:50 +0200 (vr, 02 sep 2005) | 2 lines

Added support voor Talpa

------------------------------------------------------------------------
r56 | bas | 2005-09-02 11:55:02 +0200 (vr, 02 sep 2005) | 3 lines

- added all_station_codes() and all_station_names() function to TVGuide::NL
- ported prefs.cgi to the new object model

------------------------------------------------------------------------
r55 | bas | 2005-08-19 16:15:45 +0200 (vr, 19 aug 2005) | 2 lines

- fixed the example scripts to work with the updated namespace

------------------------------------------------------------------------
r54 | bas | 2005-08-19 16:15:29 +0200 (vr, 19 aug 2005) | 5 lines

- converted names.pl to a full perl module TVGuide::NL::Names

CHANGELOG view on Meta::CPAN

------------------------------------------------------------------------
r53 | bas | 2005-08-04 16:35:12 +0200 (do, 04 aug 2005) | 4 lines

getting ready for release:
 - moved files around
 - changed interface to OO-style

------------------------------------------------------------------------
r52 | bas | 2005-08-02 12:08:43 +0200 (di, 02 aug 2005) | 2 lines

Added prefs.css (oops)

------------------------------------------------------------------------
r51 | bas | 2005-07-24 11:39:47 +0200 (zo, 24 jul 2005) | 2 lines

Added Zomergaster movie prepension

------------------------------------------------------------------------
r50 | bas | 2005-07-22 20:26:40 +0200 (vr, 22 jul 2005) | 2 lines

Added another movie prepension

CHANGELOG view on Meta::CPAN


------------------------------------------------------------------------
r48 | bas | 2005-07-22 16:14:54 +0200 (vr, 22 jul 2005) | 2 lines

Improved cookie detection in cgi script

------------------------------------------------------------------------
r47 | bas | 2005-07-18 20:49:19 +0200 (ma, 18 jul 2005) | 3 lines

- Cookies geimplementeerd
- Link van tvgids naar prefs gemaakt

------------------------------------------------------------------------
r46 | bas | 2005-07-18 19:21:27 +0200 (ma, 18 jul 2005) | 2 lines

Fixed js for moving up/down

------------------------------------------------------------------------
r45 | bas | 2005-07-14 12:31:57 +0200 (do, 14 jul 2005) | 2 lines

Fixed the date format in the RSS feeds

------------------------------------------------------------------------
r44 | bas | 2005-07-14 12:26:02 +0200 (do, 14 jul 2005) | 2 lines

Replaced unicode arrows in prefs.cgi by pics

------------------------------------------------------------------------
r43 | bas | 2005-07-14 12:22:44 +0200 (do, 14 jul 2005) | 8 lines

- Added Films rss feed
- Added argument to MoviesOnToday whether or not to show movies that
  have ended already
- Some changes to the film prefixes cleanup thingy
- Added Expires: header to tvgids.cgi
- Added link to rss feed to tvgids.cgi

MANIFEST view on Meta::CPAN

Artistic.txt
examples/films.rss
examples/pics/down.png
examples/pics/left.png
examples/pics/right.png
examples/pics/up.png
examples/prefs.cgi
examples/prefs.css
examples/prefs.js
examples/test.pl
examples/tvgids.cgi
examples/tvgids.css
examples/tvgids.js
GPL2.txt
lib/TVGuide/NL.pm
LICENSE
Makefile.PL
MANIFEST			This list of files
META.yml

examples/prefs.cgi view on Meta::CPAN

#!/usr/bin/perl

#
# prefs.cgi - example cgi script for TVGuide::NL
# Copyright (c) 2004-2006 by Bas Zoetekouw <bas@debian.org>
# $Id: NL.pm 60 2006-04-22 12:10:59Z bas $
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of either the Artistic license, or
# version 2 of the GNU General Public License.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

examples/prefs.cgi view on Meta::CPAN

    '-charset'  => 'utf-8',
    );
print $xmlheader;

print <<"EOF";
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" 
   "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="nl">
<head>
 <title>Wat is er op TV vandaag?</title>
 <link rel="stylesheet" type="text/css" href="prefs.css"/>
 <script type="text/javascript" src="prefs.js"></script>
</head>
<body>
EOF

print <<"EOF";
<h1>TVGids &mdash; Instellingen</h1>

<form action="prefs.cgi" method="post">
<div class="zenders">
  <select class="zenders" id="avail" multiple="multiple" size="20" name="z-avail">
EOF

my $g = TVGuide::NL->new();

foreach my $code ($g->all_station_codes)
{
	my $station = Encode::decode('utf8',$g->station_name($code));
	print "    <option value=\"$code\">", encode_entities($station),

examples/prefs.js view on Meta::CPAN

function submitForm()
{
	var source  = document.getElementById('select');

	var postvar = '';
	/* loop over all <options> */
	for (i=0; i<source.options.length; i++) 
	{
		postvar += 's' + i + '=' + source.options[i].value + ';';
	}
	document.location = 'prefs.cgi?' + postvar + 'save=yes';
}

examples/tvgids.cgi view on Meta::CPAN

   "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="nl">
<head>
 <title>Wat is er op TV vandaag?</title>
 <link rel="alternate" type="text/xml" title="Films RSS Feed" href="films.rss" />
 <link rel="stylesheet" type="text/css" href="tvgids.css"/>
 <script type="text/javascript" src="tvgids.js"></script>
</head>
<body>
<h1>Wat is er op TV vandaag?</h1>
<p class="prefs"><a href="prefs.cgi">Instellingen</a></p>
EOF

my $i = 0;
for my $zender (@zenders)
{
	if ($zender eq 'Z0') 
	{
		print movietable($g, $i, @zenders);
	}
	else

( run in 1.705 second using v1.01-cache-2.11-cpan-98e64b0badf )