#!/usr/bin/perl -w
# Copyright (C) 2005 Andrea Schweer <andrea@andaka.org>
#
#
# Queries the licquor price database at systembolaget.se and returns the 
# result as a WML page
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# 
# 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.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

use strict;
use CGI::WML;

my $query = new CGI::WML;

my $looking_for = $query->param('looking_for');

my ($id, $title, $content);

if ($looking_for) {
	$looking_for =~ s/[^\w\d%\s]//g;

	my @results = find_results($looking_for);
	
	$id = "results";
	$title = "Results for &quot;$looking_for&quot;";
	$content = "<p><b>name, volume, price SEK, price EUR:</b><br/><br/>\n";
	foreach (@results) {
		$content .= join(", ", @$_) . "<br/>\n";
	}
	$content .= "</p>\n";
} else {
	$id = "queryform";
	$title = "Query";
	$content = <<'END';
		<p>Enter your query here:<br/>
			<input name="looking_for" title="looking for"/>
			<anchor title="send">Send
				<go method="get" href="index.cgi">
					<postfield name="looking_for" value="$(looking_for)"/>
				</go>
			</anchor>
		</p>
END
}

print
	$query->header(),
	$query->start_wml(),
	$query->template(-content=>$query->prev() . "<do type=\"help\"><go href=\"#about\"/></do>"),
	$query->card(-id=>$id,
	             -title=>$title,
	             -content=>$content),
	$query->card(-id=>"about",
		     -title=>"About",
		     -content=>"<p>Price data from <a href=\"http://systembolaget.se/\">systembolaget.se</a>.<br/>" . 
		"Currency conversion rate as of July 5th, 2005 (1 SEK = " . 
		sek_to_eur(1) . 
		").</p>\n<p>Brought to you by <a href=\"http://an.andaka.org/blog/\">Andrea</a>. <a href=\"http://an.andaka.org/blog/projects/systembolaget/\">More information</a> (sorry, no WAP version).</p>"),
	$query->end_wml();


# queries systembolaget.se
sub find_results {
	my $looking_for = shift;

	my @lines = split /\n/, do_query($looking_for);

	my @results;

	foreach (@lines) {
				if (/<td[^>]+><input[^>]+><\/td><td[^>]+>[^<>]*<\/td><td[^>]+>[^<>]*<\/td><td[^>]+><a[^>]+><b>([^<>]*)<\/b>[^<>]*<\/a>[^<>]*<\/td><td [^>]+>[^<>]*<\/td><td[^>]+>[^<>]*<\/td><td[^>]+>[^<>]*<\/td><td[^>]+>[^<>]*<\/td><td[^>]+>[^<>]*<\/td><td[^>]+>([^<]*)<\/td><td[^>]+>[^<>]*<\/td><td[^>]+><b>([\d.]*).*<\/b><\/td><td[^>]+>.*<\/td>/) {
					my $price_sek = $3 . " SEK";
					my $price_eur = sek_to_eur($price_sek);
					push(@results, [$1, $2, $price_sek, $price_eur]);
		}
	}
	unless (@results) {
		my ($name, $volume, $price_sek, $price_eur);
		
		foreach (@lines)	{
			if (/<td><span class="rubrikstor">([^<>]*)<\/span>/) {
				$name = $1;
			} elsif (/<td[^>]+><input[^>]+><\/td><td[^>]+>[^<>]*<\/td><td[^>]+>([^<>]*)<\/td><td[^>]+>[^<>]*<\/td><td[^>]+>([\d.]*).*<\/td>/) {
				$volume =$1;
				$price_sek = $2 . " SEK";
				$price_eur = sek_to_eur($price_sek);
			}
		}
		push(@results, [$name, $volume, $price_sek, $price_eur]);
	}
	
	return @results;
}

sub do_query {
	my $param = shift;
	use LWP::Simple;
	my $content = get("http://systembolaget.se/Applikationer/Sok/ResultatLista.htm?SokKriteria=$param&SortKol=pris&Asc=1");
	return $content;
}

sub sek_to_eur {
	my $arg = shift;
	return  sprintf("%.2f EUR", $arg * 0.105928);
}