#!/usr/local/bin/perl -w
use strict;

# Tulosta unicafe-ruokalista www:stä; LTu,2002-05-17
#   Käyttö bash-shellistä, esim:
#  for i in nilsia vallila paarakennus; do echo -$i-:; ./uc.pl $i; done

# Ravintolat, vrt. http://www.unicafe.fi/ruokalistat/
my $url = 'http://www.unicafe.fi/ruokalistat_show/index.php?kayttaja=';
my @rav = qw(ylioppilasaukio paarakennus porthania opettajaporthania
	klubikahvila valtiotiede yliopistonkirjasto kasvitiede
	vuorikatu opettaja domus elainmuseo meilahti ruskeasuo sockom
	kumpula physicum kasityo nilsia vallila tiedepuisto
	tiedepuistoinfo ladonlukko metsatalo);

# Lopeta, jos komentoriviargumenttina ei ollut jokin ravintola
die "Käyttö: $0 <ravintola> - tässä ravintola on yksi seuraavista:\n ",
  join("\n ", @rav), "\n" unless @ARGV==1 && grep { $ARGV[0] eq $_ } @rav;

# Imaise menú lynx:illä ja selvitä päivämäärä
my $menu = `lynx -dump $url$ARGV[0]`;
my $today = `date +%e.%m.%Y`;

# Uuta ja tulosta
my $next = substr $today, length($today)-6;
$/ = undef; # rivinerotin
$menu =~ /^.*($today.*?)$next/s;
print $1, "\n";