#!/usr/bin/perl

# Relativer Pfad zur Setup Datei
# In der Regel können Sie die Angabe so stehen lassen.

$path = "/kunden/doebeln-regional.net/webseiten/firmen";

#----Das war's schon, keine weiteren Änderungen notwendig
#----Wenn Sie die Standardinstallation beibehalten haben.


require "$path/links.setup";
require "$cgidir/cgi-lib.pl";


# Formdaten einlesen...

&ReadParse;

# HTTP Header zum Server senden

print "Content-type: text/html\n\n";

# Format Comment input so that it will fit nicely in the database

if ($in{'Beschreibung'}) {
	$in{'Beschreibung'} =~ s/</&lt;/g;
	$in{'Beschreibung'} =~ s/>/&gt;/g;
	$in{'Beschreibung'} =~ s/\cM//g;
	$in{'Beschreibung'} =~ s/\n\n/ /g;
	$in{'Beschreibung'} =~ s/\n/ /g;
}


# Depending on Form input:
#	1) Display add to links form
#	2) Add Link information to the database
# 	3) Display Links

if ($in{'action'} eq "add_form") {

	$header = $add_links_header;
	$sub_header = $add_links_sub_header;

	&add_form;
}
elsif ($in{'action'} eq "ad_links") {

	$header = $thank_you_header;
	$sub_header = $thank_you_sub_header;

	&ad_links;

	&display_main;

}
elsif ($in{'action'} eq "view_Rubrik") {

	$header = $display_view_header;
	$sub_header = $display_view_sub_header;
	
	&view_Rubrik;
}
else {

	$header = $display_main_header;
	$sub_header = $display_main_sub_header;

	&display_main;
}

&display_output;

exit(0);

####################### END OF THE MAIN PROGRAM ####################


sub display_main {

	open(LINKSDATA,"$datafile") || die $!;
	flock(LINKSDATA,2);
		@linksdata = <LINKSDATA>;
	flock(LINKSDATA,8);
	close(LINKSDATA);

	foreach $line (@linksdata){
		(@linedata) = split(/\|/,$line);
		$Rubrik_num{$linedata[$cat_id]}++;
	}

	$html_output .= qq~
		<font face="$font_face" size="$font_size" color="$font_color"><ul>
		~;

	foreach $cat (@Rubrik_list) {

		$cat1 = $cat;
		$cat =~ tr/ /+/;

		if ($Rubrik_num{"$cat1"} eq "" ) {$Rubrik_num{"$cat1"} = "0";}
	
		$html_output .= qq~
		<li>
		<b>
		<a href="$dcscript?action=view_Rubrik&Rubrik=$cat">$cat1</a>
		</b>~;
		if ($Rubrik_num{"$cat1"} eq "1") {
		$html_output .= qq~($Rubrik_num{"$cat1"} Eintrag)~;
		}
		else {
		$html_output .= qq~($Rubrik_num{"$cat1"} Eintraege)~;
		}
		$html_output .= qq~
		<br>
		$Rubrik_desc{$cat1}
		</li>~;
	}
	$html_output .= "</ul></FONT>\n";
}



sub view_Rubrik {

	$Rubrik = $in{"Rubrik"};
	
	$Rubrik =~ tr/+/ /;
	
	open(LINKSDATA,"$datafile") || die $!;
	flock(LINKSDATA,2);
		@linksdata = <LINKSDATA>;
	flock(LINKSDATA,8);
	close(LINKSDATA);

	
	$html_output .= qq~
	<P align="center">
	<font face="$font_face" size="$font_size" color="$font_color">
	<B>Links in der Rubrik: $Rubrik</b>
	<ul>
	~;
	
	foreach $line (@linksdata) {
		@row = split(/\|/,$line);
		foreach ($j = 0;$j <= @row-1;$j++){
			$rowdata{$link_fields[$j]} = $row[$j];
		}
		if ($rowdata{$link_fields[$cat_id]} =~ /$Rubrik/) {
			$hit = "yes";
			$html_output .= qq~
			<li>~;
			$html_output .= &list_record(@rowdata);
		
		}
	}

	unless ($hit) {
		$html_output .= qq~
		<P align="center">
		Es gibt noch keine Links in der Rubrik: $Rubrik.
		~;
	}
		$html_output .= qq~
		</ul>
		</font>
		~;
}


sub list_record {

	local(@rowdata) = @_;
	local($output);
	
	$rowdata{"Homepage"} =~ s/http:\/\///g;
	$output .= qq~
	<b><a href="http://$rowdata{"Homepage"}" TARGET=_NEW>$rowdata{"Name"}</a></b>
	$rowdata{"Beschreibung"}
	~;
	
	$output;
}

sub ad_links {

	open(LINKSDATA,"$datafile") || die $!;
	flock(LINKSDATA,2);
		@linksdata = <LINKSDATA>;
	flock(LINKSDATA,8);
	close(LINKSDATA);

	# Following code checks duplicate links
	foreach (@linksdata) {
		if ($_ =~ /$in{'Homepage'}/) {
			$header = "FEHLER!!! Dieser Link ist schon eingetragen!";
			$sub_header = "Haben Sie die richtige URL eingetragen?";
			$html_output .= qq~
				Dieser Link ist bereits in der Datenbank eingetragen...
			~;
			&display_output;
			exit(0);
		}
	}

	$id = &get_number();
	($date,$localtime) = &get_date();
	$date = $localtime." ".$date;

	$in{'ID'} = $id;
	$in{'Date'} = $date;

	foreach $field (@link_fields) {
		$in{$field} =~ s/\|/\s/g;
		$newline .= $in{$field}."|";
	}

	chop($newline);
	$newline .= "\n";
	
	open(LINKSDATA,">$datafile") || die $!;
	flock(LINKSDATA,2);
		print LINKSDATA $newline;
		print LINKSDATA @linksdata;
	flock(LINKSDATA,8);
	close(LINKSDATA);
	
}











sub add_form {

	
	$html_output .= qq~
	<center>
	<table border="0">
	Zur Zeit nicht moeglich
	<!-- <form action="$dcscript" method="post">
	<input type="hidden" name="action" value="ad_links">~;
	
	foreach $link_field (@link_fields){
		$html_output .= &table_row($link_field,$field_input_type{$link_field});
	}

	$html_output .= qq~
	<tr>
	<td colspan="2" align="center">
	<input type="submit" value="Link eintragen!">
	<input type="reset">
	</form>
	</table>
	-->
	</center>~;
}

sub table_row {

	my ($field,$type) = @_;
	($field,$type) = @_;
	my ($table_row);
	
	if ($type eq "text") {
		$table_row .= qq~
		<tr>
		<td valign="top">
		$field
		</td>
		<td>
		<input type="$type" name="$field" size="40">
		</td>
		</tr>
		~;
	}
	elsif ($type eq "textarea") {
		$table_row .= qq~
		<tr>
		<td valign="top">
		$field
		</td>
		<td>
		<textarea name="$field" rows="6" cols="40" wrap="physical"></textarea>
		</td>
		</tr>
		~;
		
	}
	elsif ($type eq "select") {

		@option_list = eval("@".$field."_list");
		$table_row .= qq~
		<tr>
		<td valign="top">
		$field
		</td>
		<td>
		<select name="$field">~;
		foreach $option (@option_list) {
			$table_row .= "<option value=\"$option\">$option\n";
		}
		
		$table_row .= qq~
		</select>
		</td>
		</tr>
		~;

	}
	
	$table_row;
}

sub get_number {
	
	local($num);
		
	open(NUMBER,"$counter") || die $!;
   		$num = <NUMBER>;
	close(NUMBER);

	$num++;

	open(NUMBER,">$counter") || die $!;
   		print NUMBER $num;
	close(NUMBER);
	 	  
	$num;
}

sub display_output {

	open(TEMPLATE,"$booktemplate") || die $!;
	{  local $/ = undef;
		$template = <TEMPLATE>;
	}

	close(TEMPLATE);

	$template =~ s/\$HTML_OUTPUT/$html_output/g;
	$template =~ s/\$HEADER/$header/g;
	$template =~ s/\$SUB_HEADER/$sub_header/g;
	print $template;

}

sub get_date {

   local($date,$localtime);
   
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

   if ($sec < 10) {
      $sec = "0$sec";
   }
   if ($min < 10) {
      $min = "0$min";
   }
   if ($hour < 10) {
      $hour = "0$hour";
   }
   if ($mon < 10) {
      $mon = "0$mon";
   }
   if ($mday < 10) {
      $mday = "0$mday";
   }

   $month = ($mon + 1);

   @months = ("Januar","Februar","M&auml;rz","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");

   $localtime = "$hour\:$min\:$sec";
   $date = "$month/$mday/$year";

   ($date,$localtime);
   
}