#!/usr/bin/perl

use CGI qw/:all/;
print "Content-Type: text/html\n";
print "\n";

system "./concat_head.cgi";
system "./concat_mid_head.cgi";

@wer = param();
$fname = param(@wer[0]);
#print "@wer[0]\n";
if ( @wer[0] eq "txt" ) {
#	print "txt \n";
#	print param(@wer[0]);
      open (inde, "$fname".'.html') || die "cant open $fname file";
      while (<inde>) {print}; 
}
# paragraf dla  komunikatow
if ( @wer[0] eq "kom" ) {
      open (inde, "./Komunikaty/$fname".'.html') || die "cant open $fname file";
      while (<inde>) {print};
}
# paragraf dla  osiedla motorowa
if ( @wer[0] eq "osm" ) {
      open (inde, "./Osmotorowa/$fname".'.html') || die "cant open $fname file";
      while (<inde>) {print};
}
# paragraf dla Tematyka Mieszkaniowa
if ( @wer[0] eq "spl" ) {
      open (inde, "./Spoldzielczosc/$fname".'.html') || die "cant open $fname file";
      while (<inde>) {print};
}
elsif ( @wer[0] eq "cgi" ) {
#	system './cgi/' . "$fname" . '.cgi " "';
#       print './cgi/' . "$fname" . '.cgi ""'; 
#	print "cgi \n";
#	print param(@wer[0]);
}

close(inde);
# Print foot part of website
system "./concat_foot.cgi";