#!/usr/bin/perl -w
#  printview.cgi
# 17. 9. 01 <C> Dr. J. Deppisch

use lib "/usr/local/httpd/hotel-anker.de/cgi/lib";

use CGI qw(:standard);
use LWP::UserAgent;

use vars qw($printvtitle $printvheader $printvdatef);

require "setup.pl";

$ua = new LWP::UserAgent;

$url = param("url") ? param("url"):"unkown";
$lang = param("lang") ? param("lang")."/":"";

$host= `hostname`;
chomp $host;
$url = ("$host" eq "bandelion") ?
	"http://bandelion/anker/aktuell/$lang/$url" :
	"http://www.hotel-anker.de/$lang$url";

$req = new HTTP::Request 'GET' => "$url";

#$req->content_type('application/x-www-form-urlencoded');
$res =  $ua->request($req);

$doc = $res->is_success() ? $res->content : 
	"Error: ".$res->code()." ".$res->message();

print header, 
	start_html($printvtitle),
	h4($printvheader . `date "$printvdatef"` ),
	$doc,
	#h3("Ende der Druckausgabe"), 
	#"url: $url", br,
	#"host: $host",
	end_html;