#! /usr/bin/perl

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
my $response = $mech->get('http://www.les-brasseurs.ch/platsdujour/lausanne/index.htm');
if (!$mech->success) {
    die "Failure to retrieve http://www.les-brasseurs.ch/platsdujour/lausanne/index.htm: " . $mech->status . "\n";
}
my $content = $mech->content;

my %today = (1 => 'Lundi', 2 => 'Mardi', 3 => 'Mercredi', 4 => 'Jeudi', 5 => 'Vendredi');
my $dayofweek = $today{chomp_(`date +%u`)};

my ($n1, $n2) = ($content =~ m|<b>$dayofweek</b>.*?<tr>.*?(<td.*?)(<td.*?)</td>|s);

$n1 =~ s/\r/\n/g;
$n1 =~ s|<.+?>||g;
$n1 =~ s|^\s+||;
$n1 =~ s|\s+$||;
$n1 =~ s|\n|\n\t|g;

$n2 =~ s/\r/\n/g;
$n2 =~ s|<.+?>||g;
$n2 =~ s|^\s+||;
$n2 =~ s|\s+$||;
$n2 =~ s|\n|\n\t|g;

print "Subject: today at the Brasseurs :)\n\n";
print "Plat 1:\n\t$n1\n";
print "Plat 2:\n\t$n2\n";

sub chomp_ { my @l = map { my $l = $_; chomp $l; $l } @_; wantarray() ? @l : $l[0] }