#!/usr/bin/perl

use Data::Dumper;
use Getopt::Long;
use XML::Simple;
use strict;
use warnings;

my $output_directory = './';

Getopt::Long::Configure("bundling", "ignorecase_always", "permute");
GetOptions(
	"target-directory|d=s"  => \$output_directory,
	"dt_fmt=s"              => \$RDF::RDFa::Generator::XMLTV::dt_fmt,
	"d_fmt=s"               => \$RDF::RDFa::Generator::XMLTV::d_fmt,
	"t_fmt=s"               => \$RDF::RDFa::Generator::XMLTV::t_fmt,
);

my $input_file = shift @ARGV
	|| die "Usage: xmltv2xhtml.pl --target-directory=DIR INPUTFILE\n";

my $xs = XML::Simple->new(
		ForceArray => [qw(actor subtitles programme channel)],
		ForceContent => [qw(desc)],
		KeyAttr => [],
	);
my $data = $xs->parse_file($input_file);

my $channels = {};
my $hours    = {};
my $genres   = {};

# Loop through channels, reading channel data.
foreach my $c (@{ $data->{'channel'} })
{
	$channels->{$c->{'id'}} = RDF::RDFa::Generator::XMLTV::Channel->new($c);
}

# Loop through programmes, reading programme data.
# Add programmes to schedules.
foreach my $p (@{ $data->{'programme'} })
{
	my $start_hour = substr($p->{'start'}, 0, 10);
	$hours->{ $start_hour } = RDF::RDFa::Generator::XMLTV::Hour->new($start_hour)
		unless defined $hours->{ $start_hour };
	my $h = $hours->{ $start_hour };

	my $g;
	if (length $p->{'category'}->{'content'})
	{
		$genres->{ $p->{'category'}->{'content'} } = RDF::RDFa::Generator::XMLTV::Genre->new($p->{'category'}->{'content'})
			unless defined $genres->{ $p->{'category'}->{'content'} };
		$g = $genres->{ $p->{'category'}->{'content'} };
	}
	
	my $c = $channels->{ $p->{'channel'} };
	
	my $P = RDF::RDFa::Generator::XMLTV::Programme->new($p, $c, $g);
	$c->add_program($P);
	$h->add_program($P);
	$g->add_program($P) if ($g);
}

my $menu_string = RDF::RDFa::Generator::XMLTV::make_menu({
		'Chronological' => $hours,
		'By Channel'    => $channels,
		'By Genre'      => $genres,
	});
	
foreach my $schedule (values %$channels)
	{ $schedule->publish($output_directory, $menu_string); }

foreach my $schedule (values %$hours)
	{ $schedule->publish($output_directory, $menu_string); }

foreach my $schedule (values %$genres)
	{ $schedule->publish($output_directory, $menu_string); }
	

package RDF::RDFa::Generator::XMLTV;

BEGIN
{
	our $d_fmt  = '%F';
	our $dt_fmt = '%F %R';
	our $t_fmt  = '%R';
}

sub make_menu
{
	my $sections = shift;
	my $rv = "\t\t<div class=\"menu\">\n";
	
	foreach my $label (keys %$sections)
	{
		my @pages = sort
			{
				return $a->sort_string cmp $b->sort_string;
			}
			(values %{$sections->{$label}});
			
		$rv .= "\t\t\t<div>\n"
			. "\t\t\t\t<h2>$label</h2>\n";
		
		if (UNIVERSAL::isa($pages[0], 'RDF::RDFa::Generator::XMLTV::Hour'))
			{ $rv .= sprintf("\t\t\t\t<h3>%s</h3>\n", $pages[0]->date_string); }
		
		$rv .= "\t\t\t\t<ul>\n";
		
		my $last_page = undef;
		foreach my $page (@pages)
		{
			if (UNIVERSAL::isa($page, 'RDF::RDFa::Generator::XMLTV::Hour')
			&&  $page->is_different_day($last_page))
				{ $rv .= sprintf("\t\t\t\t</ul>\n\t\t\t\t<h3>%s</h3>\n\t\t\t\t<ul>\n", $page->date_string); }
			
			$rv .= sprintf("\t\t\t\t\t<li><a href=\"%s\">%s</a></li>\n",
				$page->page_name,
				$page->page_title);
				
			$last_page = $page;
		}
		
		$rv .= "\t\t\t\t</ul>\n"
			. "\t\t\t</div>\n";
	}
	
	$rv .= "\t\t</div>\n";
	return $rv;
}

1;

package RDF::RDFa::Generator::XMLTV::Programme;
use HTML::Entities qw(encode_entities_numeric);
use Data::Dumper;
use DateTime;
use DateTime::Format::Strptime;
use Digest::SHA1 qw(sha1_hex);

sub new
{
	my $class = shift;
	my $self  = shift;
	my $chan  = shift;
	my $genre = shift;
	
	$self->{'start'} = DateTime->new(
			'year'       => $1,
			'month'      => $2,
			'day'        => $3,
			'hour'       => $4,
			'minute'     => $5,
			'second'     => $6,
			'time_zone'  => $7
		)
		if $self->{'start'} =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})\s*(.\d{4})$/;

	$self->{'stop'} = DateTime->new(
			'year'       => $1,
			'month'      => $2,
			'day'        => $3,
			'hour'       => $4,
			'minute'     => $5,
			'second'     => $6,
			'time_zone'  => $7
		)
		if $self->{'stop'} =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})\s*(.\d{4})$/;

	$self->{'duration'} = $self->{'stop'}->subtract_datetime($self->{'start'});

	$self->{'chan'}  = $chan;
	$self->{'genre'} = $genre;

	bless $self, $class;
}

sub get
{
	my $self  = shift;
	my $field = shift;
	
	my @bits  = split m#/#, $field;
	my $it    = $self;
	my $this_bit;
	while (@bits)
	{
		$this_bit = shift @bits;
		
		if (ref $it eq 'HASH' || ref $it eq ref $self)
			{ $it = $it->{$this_bit}; }
		elsif (ref $it eq 'ARRAY')
			{ $it = $it->[0 + $this_bit]; }
	}

	no warnings;
	return "$it";
}

sub hget
{
	my $self = shift;
	return encode_entities_numeric($self->get(@_));
}

sub langattr
{
	my $self = shift;
	my $key  = shift;
	my $lang = $self->get("$key/lang");
	
	return "xml:lang=\"$lang\"" if ($lang);
	return '';
}

sub id
{
	my $self = shift;
	
	$self->{'ID'} = sha1_hex($self->{'channel'}.$self->{'start'}->iso8601)
		unless defined $self->{'ID'};
		
	return $self->{'ID'};
}

sub uri
{
	my $self = shift;
	my $part = shift || '';
	
	# Identifying URIs for the broadcast on a particular channel at a particular
	# time. These URIs are opaque-looking and non-dereferenceable, but any URI
	# at all is better than no URI!
	return 'tag:buzzword.org.uk,2009:tv/' . $self->id . '/' . $part;
}

sub interval_uri
{
	my $self = shift;
	
	$self->{'INTERVAL_URI'} = sprintf(
			'http://placetime.com/interval/gregorian/%s%s/%s',
			$self->{'start'}->iso8601,
			($self->{'start'}->time_zone->is_utc ? 'Z' : $self->{'start'}->strtime('%z')),
			RDF::RDFa::Generator::XMLTV::Programme::DurationHelper::to_iso8601($self->{'duration'}))
		unless defined $self->{'INTERVAL_URI'};
	
	return $self->{'INTERVAL_URI'};
}

sub to_rdfa
{
	my $self     = shift;
	my $showchan = shift || 0;
	my $showgen  = shift || 0;
	my $css      = shift || 'item';
	my $hx       = shift || 2;
	my $hxp      = $hx + 1;
	my $hxpp     = $hx + 2;

	my $dt_fmt   = $RDF::RDFa::Generator::XMLTV::t_fmt;
	
	my $_subtitle = '';
	$_subtitle = "<h$hxp property=\"dc:title\">".$self->hget('sub-title/content')."</h$hxp>"
		if (defined $self->{'sub-title'});
	
	my $_category = '';
	if ($showgen && defined $self->{'genre'})
	{
		my $genreURI = $self->{'genre'}->page_name;
		$_category = "<div rel=\"tag:taggedWithTag\"><span typeof=\"tag:Tag\" property=\"tag:name\" datatype=\"\"><a rel=\"rdfs:seeAlso\" href=\"".$genreURI."\">".$self->hget('category/content')."</a></span></div>"
			if (defined $self->{'category'});
	}
	
	my $_credits = '';
	if (defined $self->{'credits'})
	{
		$_credits = "<ul>\n";
		foreach my $role (keys %{$self->{'credits'}})
		{
			my $rcode = 'dc:contributor';
			$rcode .= ' po:actor'    if $role eq 'actor';
			$rcode .= ' po:director' if $role eq 'director';
		
			if ('ARRAY' eq ref $self->{'credits'}->{$role})
			{
				foreach my $name (@{$self->{'credits'}->{$role}})
				{
					$_credits .= sprintf("\t\t\t\t\t\t\t<li rel=\"%s\"><span typeof=\"foaf:Person\"><span property=\"foaf:name\">%s</span> (%s)</span></li>\n",
						$rcode, encode_entities_numeric($name->{'content'}), $role);
				}
			}
			else
			{
				$_credits .= sprintf("\t\t\t\t\t\t\t<li rel=\"%s\"><span typeof=\"foaf:Person\"><span property=\"foaf:name\">%s</span> (%s)</span></li>\n",
					$rcode, encode_entities_numeric($self->{'credits'}->{$role}->{'content'}), $role);
			}
		}
		$_credits .= "\t\t\t\t\t\t</ul>\n";
	}
	
	my $_aspect = '';
	$_aspect = "<div property=\"po:aspect_ratio\" content=\"16:9\">(widescreen)</div>"	
		if (defined $self->{'video'}->{'aspect'}->{'content'}
		&&  $self->{'video'}->{'aspect'}->{'content'} eq '16:9');
		
	my $_interval;
	$_interval = sprintf(
			'<span typeof="t:Interval" about="%s" property="rdfs:label" datatype="">'
			.'<span property="t:start" content="%s" datatype="xsd:dateTime">%s</span>'
			.'&#8211;<span property="t:end" content="%s" datatype="xsd:dateTime">%s</span>'
			.' <em property="t:duration" content="%s" datatype="xsd:duration" rel="t:timeline" resource="[s:universaltimeline]">(%s)</em></span>',
			$self->interval_uri,
			($self->{'start'}->time_zone->is_utc ? $self->{'start'}->strftime('%FT%TZ') : $self->{'start'}->strftime('%FT%T%z')),
			$self->{'start'}->strftime($dt_fmt),
			($self->{'stop'}->time_zone->is_utc ? $self->{'stop'}->strftime('%FT%TZ') : $self->{'stop'}->strftime('%FT%T%z')),
			$self->{'stop'}->strftime($dt_fmt),
			RDF::RDFa::Generator::XMLTV::Programme::DurationHelper::to_iso8601($self->{'duration'}),
			RDF::RDFa::Generator::XMLTV::Programme::DurationHelper::to_friendly($self->{'duration'})
		);
		
	my $_broadcastType = 'Broadcast';
	$_broadcastType = 'RepeatBroadcast' if defined $self->{'previously-shown'};
	
	my $_access = '';
	if (defined $self->{'subtitles'})
	{
		$_access .= '<div rel="po:subtitle">';
		foreach my $st (@{$self->{'subtitles'}})
		{
			$_access .= sprintf('<span typeof="po:Subtitle" property="po:subtitle_type">%s</span> ', $st->{'type'});
		}
		$_access .= '</div>';
	}
	
	my $_chan = '';
	if ($showchan && defined $self->{'chan'})
	{
		$_chan = "<div rel=\"po:broadcast_on\">".$self->{'chan'}->to_rdfa_short."</div>";
	}
	else
	{
		$_chan = '<span rel="po:broadcast_on" resource="'.$self->{'chan'}->uri.'"></span>';
	}
	
	return "
			<div id=\"id_".$self->id."\" about=\"".$self->uri('version')."\" typeof=\"po:Version\" class=\"$css\">
				<div rev=\"po:broadcast_of\">
					<div typeof=\"po:$_broadcastType\" about=\"".$self->uri('broadcast')."\">
						$_chan
						<div rel=\"e:time\">$_interval</div>
					</div>
				</div>
				<div rel=\"dc:isVersionOf\" rev=\"po:version dc:hasVersion\">
					<div typeof=\"po:Episode\" about=\"".$self->uri('episode')."\" >
						<div rel=\"dc:isPartOf\" rev=\"dc:hasPart po:episode\">
							<h$hx typeof=\"po:Series\" property=\"dc:title\">".$self->hget('title/content')."</h$hx>
						</div>
						$_subtitle
						<div ".$self->langattr('desc')." property=\"dc:abstract po:synopsis\">".$self->hget('desc/content')."</div>
						$_category
						$_credits
					</div>
					
				</div>
				$_aspect
				$_access
			</div>
	";
}

1;

package RDF::RDFa::Generator::XMLTV::Programme::DurationHelper;

sub to_iso8601
{
	my $this = shift;
	my $str;
	
	# We coerce weeks into days and nanoseconds into fractions of a second
	# for compatibility with xsd:duration.
	
	if ($this->is_negative)
		{ $str .= '-P'; }
	else
		{ $str .= 'P'; }
		
	if ($this->years)
		{ $str .= $this->years.'Y'; }

	if ($this->months)
		{ $str .= $this->months.'M'; }

	if ($this->weeks || $this->days)
		{ $str .= ($this->days + (7 * $this->weeks)).'D'; }

	$str .= 'T';

	if ($this->hours)
		{ $str .= $this->hours.'H'; }

	if ($this->minutes)
		{ $str .= $this->minutes.'M'; }

	if ($this->seconds)
		{ $str .= ($this->seconds + ($this->nanoseconds / 1000000000)).'S'; }
		
	$str =~ s/T$//;
	
	return $str;
}

sub to_friendly
{
	my $this = shift;
	my $str;
	
	# We coerce weeks into days and nanoseconds into fractions of a second
	# for compatibility with xsd:duration.
	
	if ($this->years)
		{ $str .= $this->years.' years, '; }

	if ($this->months)
		{ $str .= $this->months.' months, '; }

	if ($this->weeks || $this->days)
		{ $str .= ($this->days + (7 * $this->weeks)).' days, '; }

	if ($this->hours)
		{ $str .= $this->hours.' hr, '; }

	if ($this->minutes)
		{ $str .= $this->minutes.' min, '; }

	if ($this->seconds)
		{ $str .= ($this->seconds + ($this->nanoseconds / 1000000000)).' sec'; }
		
	$str =~ s/, $//;
	
	return $str;
}

1;

package RDF::RDFa::Generator::XMLTV::Schedule;

sub add_program
{
	my $self = shift;
	push @{ $self->{'programmes'} }, shift;
}

sub prologue
{
	my $self  = shift;
	my $title = $self->page_title;	

	return <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML+RDFa 1.0//EN"
    "http://www.w3.org/MarkUp/DTD/xhtml-rdfa-1.dtd">
    
<!--
The following document contains embedded RDFa data (see <http://rdfa.info>).
This comment provides notes on that data.

* Listings data is described using the BBC's Broadcast Ontology.
  See <http://purl.org/ontology/po/2009-02-20.shtml>.
* Episodes have Versions; Versions have Broadcasts; Broadcasts have Intervals.
* Episodes, Versions and Broadcasts all have URIs. These URIs are opaque and
  non-dereferencable, but I consider that better than not having URIs at all!
* Intervals have dereferencable URIs, thanks to placetime.com.
* Channels also have non-dereferencable URIs, thanks to RFC 2838.
-->
    
<html
    xmlns="http://www.w3.org/1999/xhtml"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema#"
    xmlns:foaf="http://xmlns.com/foaf/0.1/"
    xmlns:dc="http://purl.org/dc/terms/"
    xmlns:po="http://purl.org/ontology/po/"
    xmlns:e="http://purl.org/NET/c4dm/event.owl#"
    xmlns:t="http://purl.org/NET/c4dm/timeline.owl#"
    xmlns:tag="http://www.holygoat.co.uk/owl/redwood/0.1/tags/"
    xmlns:h5="http://buzzword.org.uk/rdf/h5#"
    xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#">
    
	<head profile="http://www.w3.org/1999/xhtml/vocab">
		<title property="dc:title">$title</title>
		<link rel="stylesheet" media="screen,projection" type="text/css" href="screen.css" />
		<meta property="h5:generator" name="Generator" content="RDF::RDFa::Generator::XMLTV" />
	</head>
	
	<body>
	
EOF
}

sub epilogue
{
	my $self = shift;
	my $menu = shift;
	return "\n$menu\n\t\t</div>\n\t</body>\n</html>\n";
}

sub heading_block
{
	my $self = shift;
	return "
		<div class=\"head\">
			<h1>".$self->page_title."</h1>
		</div>
		<div class=\"main\">
	";
}

sub shortcuts
{
	my $self = shift;

	my $rv = "\n\t\t\t<div class=\"shortcuts\">\n";
	$rv   .= "\t\t\t\t<h2>Summary</h2>\n";
	$rv   .= "\t\t\t\t<ul>\n";
	foreach my $p (@_)
	{
		$rv .=  sprintf("\t\t\t\t\t<li>%s: <a href=\"#id_%s\">%s</a></li>\n",
			$p->{'start'}->strftime($RDF::RDFa::Generator::XMLTV::t_fmt),
			$p->id,
			$p->hget('title/content'));
	}
	$rv   .=  "\t\t\t\t</ul>\n";
	$rv   .=  "\t\t\t</div>\n";
	
	return $rv;
}

1;

package RDF::RDFa::Generator::XMLTV::Genre;

BEGIN{ our @ISA = qw(RDF::RDFa::Generator::XMLTV::Schedule); };

sub new
{
	my $class = shift;
	my $genre = shift;
	my $self  = { 
		'genre'      => $genre,
		'programmes' => [],
	};
	bless $self, $class;
}

sub sort_string
{
	my $self = shift;
	return lc($self->{'genre'});
}

sub page_name
{
	my $self = shift;
	my $g = $self->{'genre'}; $g =~ s/[^A-Za-z]//g;
	return sprintf("Genre__%s.html", $g);
}

sub page_title
{
	my $self = shift;
	return $self->{'genre'};
}

sub publish
{
	my $self = shift;
	my $dir  = shift;
	my $menu = shift;

	my @progs = sort
		{
			return $a->{'start'} cmp $b->{'start'}
				unless $a->{'start'} eq $b->{'start'};
			return lc($a->{'chan'}->{'display-name'}->{'content'}) cmp lc($b->{'chan'}->{'display-name'}->{'content'});
		}
		@{$self->{'programmes'}};

	open OUT, ">".$dir.$self->page_name;
	print OUT $self->prologue;
	print OUT $self->heading_block;
	my $i = 0;
	foreach my $p (@progs)
	{
		print OUT $p->to_rdfa(1, 0, (++$i%2?'odd item':'even item'));
	}
	print OUT $self->shortcuts(@progs);
	print OUT $self->epilogue($menu);
	close OUT;
}


1;

package RDF::RDFa::Generator::XMLTV::Channel;

BEGIN{ our @ISA = qw(RDF::RDFa::Generator::XMLTV::Schedule); };

sub new
{
	my $class = shift;
	my $self  = shift;
	
	$self->{'programmes'} = [];
	
	bless $self, $class;
}

sub sort_string
{
	my $self = shift;
	return lc($self->{'display-name'}->{'content'});
}

sub page_name
{
	my $self = shift;
	my $pn = $self->{'id'}; $pn =~ s/\./_/g;
	return sprintf("Channel__%s.html", $pn);
}

sub page_title
{
	my $self = shift;
	return $self->{'display-name'}->{'content'};
}

sub uri
{
	my $self = shift;
	
	# See RFC 2838.
	return 'tv:'.$self->{'id'};
}

sub to_rdfa_short
{
	my $self = shift;
	
	if (defined $self->{'icon'}->{'src'})
	{
		return sprintf('<strong about="%s" typeof="po:TV"><img style="height:50px;width:66px" rel="foaf:img" src="%s" alt="" /> <a property="foaf:name" rel="rdfs:seeAlso foaf:page" href="%s">%s</a></strong>',
			$self->uri,
			$self->{'icon'}->{'src'},
			$self->page_name,
			$self->{'display-name'}->{'content'});
	}
	
	return sprintf('<strong about="%s" typeof="po:TV"><a property="foaf:name" rel="foaf:page rdfs@seeAlso" href="%s">%s</a></strong>',
		$self->uri,
		$self->page_name,
		$self->{'display-name'}->{'content'});	
}

sub publish
{
	my $self = shift;
	my $dir  = shift;
	my $menu = shift;

	my @progs = sort
		{
			return $a->{'start'} cmp $b->{'start'}
				unless $a->{'start'} eq $b->{'start'};
			return lc($a->{'chan'}->{'display-name'}->{'content'}) cmp lc($b->{'chan'}->{'display-name'}->{'content'});
		}
		@{$self->{'programmes'}};

	open OUT, ">".$dir.$self->page_name;
	print OUT $self->prologue;
	print OUT $self->heading_block;
	my $i = 0;
	foreach my $p (@progs)
	{
		print OUT $p->to_rdfa(0, 1, (++$i%2?'odd item':'even item'));
	}
	print OUT $self->shortcuts(@progs);
	print OUT $self->epilogue($menu);
	close OUT;
}

sub heading_block
{
	my $self = shift;
	return "
		<div class=\"head\" rel=\"foaf:primaryTopic\">
			<div typeof=\"po:TV\" about=\"".$self->uri."\">
				<img rel=\"foaf:img\" src=\"".$self->{'icon'}->{'src'}."\" alt=\"\" />
				<h1 property=\"foaf:name\">".$self->page_title."</h1>
				<br />
			</div>
		</div>
		<div class=\"main\">
	"
		if defined $self->{'icon'}->{'src'};

	return "
		<div class=\"head\" rel=\"foaf:primaryTopic\">
			<div typeof=\"po:TV\" about=\"".$self->uri."\">
				<h1 property=\"foaf:name\">".$self->page_title."</h1>
				<br />
			</div>
		</div>
		<div class=\"main\">
	";
}


1;


package RDF::RDFa::Generator::XMLTV::Hour;

BEGIN { our @ISA = qw(RDF::RDFa::Generator::XMLTV::Schedule); };

sub new
{
	my $class = shift;
	my $hour  = shift;
	my $self  = { 
		'hour'       => substr($hour, 0, 10),
		'programmes' => [],
	};
	
	$self->{'dt'} = DateTime->new(
			'year'       => $1,
			'month'      => $2,
			'day'        => $3,
			'hour'       => $4,
			'minute'     => 0,
			'second'     => 0,
		)
		if $self->{'hour'} =~ /^(\d{4})(\d{2})(\d{2})(\d{2})$/;
	
	bless $self, $class;
}

sub is_different_day
{
	my $self  = shift;
	my $other = shift;
	return unless defined $other;
	return (substr($self->{'hour'}, 0, 8) ne substr($other->{'hour'}, 0, 8));
}

sub date_string
{
	my $self = shift;
	return $self->{'dt'}->strftime($RDF::RDFa::Generator::XMLTV::d_fmt);
}

sub sort_string
{
	my $self = shift;
	return $self->{'hour'};
}

sub page_name
{
	my $self = shift;
	return sprintf("Hour__%s.html", $self->{'hour'});
}

sub page_title
{
	my $self = shift;
	my $hr = substr($self->{'hour'}, 8) + 0;
	
	return "Listings for $hr AM"
		if ($hr > 0 && $hr < 12);
	return "Listings for ".($hr-12)." PM"
		if ($hr > 12 && $hr < 24);
	return "Listings for Noon"
		if $hr==12;
	return "Listings for Midnight";
}

sub publish
{
	my $self = shift;
	my $dir  = shift;
	my $menu = shift;

	my @progs = sort
		{
			return $a->{'start'} cmp $b->{'start'}
				unless $a->{'start'} eq $b->{'start'};
			return lc($a->{'chan'}->{'display-name'}->{'content'}) cmp lc($b->{'chan'}->{'display-name'}->{'content'});
		}
		@{$self->{'programmes'}};

	open OUT, ">".$dir.$self->page_name;
	print OUT $self->prologue;
	print OUT $self->heading_block;
	my $i = 0;
	foreach my $p (@progs)
	{
		print OUT $p->to_rdfa(1, 1, (++$i%2?'odd item':'even item'));
	}
	print OUT $self->shortcuts(@progs);
	print OUT $self->epilogue($menu);
	close OUT;
}

1;