#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use db_lib;
use time;
use CGI qw/:standard/;
use CGI::Cookie;

my $db="usr_web5_2";


######################################################
# Initialisierung der Variabeln
######################################################
(@dummy) = split(/\&/,$ENV{'QUERY_STRING'});
foreach $p (@dummy)
{
  ($key,$value) = split(/=/,$p);
           $value =~ tr/+/ /;
           $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
           # Stop people from using subshells to execute commands
           # Not a big deal when using sendmail, but very important
           # when using UCB mail (aka mailx).
           $value =~ s/~!/ ~!/g;
           $value =~ tr/"/'/;  
  $param{$key}=$value;
}

$MOD{'ADDPARAM'}='ACTION=ADDNEU';
$MOD{'HEADLINE'}='Neuen Eintrag anlegen';


#########################################################
# Parameter einlesen
#########################################################

if ($param{'ACTION'} eq '')   {$param{'ACTION'}='LIST';}

# Verbindung zur Datenbank,...
$dbh=connect_db($db);
# Verbunden

###############################################################################
# Liste der Ergebnisse ausgeben
###############################################################################
if ($param{'ACTION'} eq 'LIST')
{
  
  print "Content-Type: text/html\n\n";

  open(DATEI,"header_mitglieder.shtml");
  while($zeile=<DATEI>)
{
  print $zeile;
}
  close(DATEI);

  open(DATEI,"navi.shtml");
  while($zeile=<DATEI>)
{
  print $zeile;
}
  close(DATEI);

print "<div id=\"content\">";
print "<h1>Firmen</h1>";

  $befehl="SELECT * from b_firmen WHERE ((class_anzeige = 'j') and (class_wg = 'j'))";
  &ausgabe;

print "<h1>Medien</h1>";
  $befehl="SELECT * from b_vereine WHERE ((class_anzeige = 'j') and (branche LIKE '%182%') and (class_wg = 'j'))";
  &ausgabe;

print "<h1>Vereine</h1>";
  $befehl="SELECT * from b_vereine WHERE ((class_anzeige = 'j') and (NOT(branche LIKE '%182%')) and (class_wg = 'j'))";
  &ausgabe;

print << "  ENDOFHTML";
	
</div><div id="right"><a href="index.shtml"><img src="blank.gif" width="270" height="100" align="right" valign="top" border="0" name="Startseite" alt="Startseite"></div>
<div id="footer">

</div>
</div>
</body>
</html>


  ENDOFHTML
  exit;
}

sub dienice
{
  print @_[0];
  exit;
}

sub datum
{
  ($jahr,$monat,$tag)=split(/-/,@_[0]);
  $s = "$tag.$monat.$jahr";
  return $s;
}

sub ausgabe
{
  $befehl.=" order by sortiername";
  $cursor = query_result($befehl,$dbh);  
  $ok = ($href = $cursor->fetchrow_hashref);

  while ( $ok )
  {
  %mitglied =  %$href;

print "<p class=box>";

if ($befehl eq "SELECT * from b_firmen WHERE ((class_anzeige = 'j') and (class_wg = 'j')) order by sortiername")
{print"<img src=\"http://www.wattenscheid.net/scripte/images/logo/logo_$mitglied{'bnr'}.jpg\" border=0 align=right hspace=20>";}
else
{print"<img src=\"http://www.wattenscheid.net/scripte/images/logo_verein/logo_$mitglied{'bnr'}.jpg\" border=0 align=right hspace=20>";}

print "    <b>$mitglied{'name'}</b><br>";
if ($mitglied{'bemerkung'} ne '')
{print"    $mitglied{'bemerkung'}<br>";}

print"<br>";

if ($mitglied{'link_web'} ne '')
{print "<a href=\"http://$mitglied{'link_web'}\" target=new>$mitglied{'link_web'}</a><br><br>";}

if ($mitglied{'fil1'} ne '')
{print "    <b>$mitglied{'fil1'}</b><br>";}
if ($mitglied{'zusatz1'} ne '')
{print "    $mitglied{'zusatz1'}<br>";}
if ($mitglied{'strasse'} ne '')
{print "    $mitglied{'strasse'}<br>";}
if (($mitglied{'plz'} != 0) and ($mitglied{'ort'} ne ''))
{print "    $mitglied{'plz'} $mitglied{'ort'}<br>";}
if ($mitglied{'tel'} ne '')
{print "    <img src=\"http://www.wattenscheid.net/scripte/grafik/telefon.gif\" border=0> $mitglied{'tel'}<br>";}
if ($mitglied{'fax1'} ne '')
{print "    <img src=\"http://www.wattenscheid.net/scripte/grafik/telefax.jpg\" border=0> $mitglied{'fax1'}<br>";}

if ((($mitglied{'link_mail1'} ne '') and ($mitglied{'class_kommerziell'} eq 'n'))
and   ($mitglied{'class_stb'} eq 'n'))
{print "    <a href=\"mailto:$mitglied{'link_mail1'}\" target=new><img src=\"../scripte/grafik/umschlag.gif\" border=0> $mitglied{'link_mail1'}</a><br><br>";}

if ($mitglied{'class_stb'} eq 'j')
{
print "    <br><a href=\"../scripte/b_firmen_ausgabe_wg.pl?ACTION=STECKBRIEF&BNR=$mitglied{'bnr'}\"><img src=\"../scripte/grafik/info.gif\" border=0> mehr Infos</a><br>";}

if (($mitglied{'fil2'} ne '') or ($mitglied{'strasse2'} ne ''))
{
print "    <br>";
if ($mitglied{'fil2'} ne '')
{print "    <b>$mitglied{'fil2'}</b><br>";}
if ($mitglied{'zusatz2'} ne '')
{print "    $mitglied{'zusatz2'}<br>";}
if ($mitglied{'strasse2'} ne '')
{print "    $mitglied{'strasse2'}<br>";}
if (($mitglied{'plz2'} != 0) and ($mitglied{'ort2'} ne ''))
{print "    $mitglied{'plz2'} $mitglied{'ort2'}<br>";}
if ($mitglied{'tel2'} ne '')
{print "    <img src=\"http://www.wattenscheid.net/scripte/grafik/telefon.gif\" border=0> $mitglied{'tel2'}<br>";}
if ($mitglied{'fax2'} ne '')
{print "    <img src=\"http://www.wattenscheid.net/scripte/grafik/telefax.jpg\" border=0> $mitglied{'fax2'}<br>";}

if (($mitglied{'class_kunde'} eq 'j') or ($mitglied{'class_kommerziell'} ne 'j'))
{
if ($mitglied{'link_mail2'} ne '')
{
print"    <a href=mailto:$mitglied{'link_mail2'}><img src=\"../scripte/grafik/umschlag.gif\" border=0> $mitglied{'link_mail2'}</a><br>";
}
print"    <br>";

if ($mitglied{'oeffn2'} ne '')
{
print"    Geöffnet:";
print"    $mitglied{'oeffn2'}<br>";
}
}
}

if (($mitglied{'fil3'} ne '') or ($mitglied{'strasse3'} ne ''))
{
print "    <br>";
if ($mitglied{'fil3'} ne '')
{print "    <b>$mitglied{'fil3'}</b><br>";}
if ($mitglied{'zusatz3'} ne '')
{print "    $mitglied{'zusatz3'}<br>";}
if ($mitglied{'strasse3'} ne '')
{print "    $mitglied{'strasse3'}<br>";}
if (($mitglied{'plz3'} != 0) and ($mitglied{'ort3'} ne ''))
{print "    $mitglied{'plz3'} $mitglied{'ort3'}<br>";}
if ($mitglied{'tel3'} ne '')
{print "    <img src=\"http://www.wattenscheid.net/scripte/grafik/telefon.gif\" border=0> $mitglied{'tel3'}<br>";}
if ($mitglied{'fax3'} ne '')
{print "    <img src=\"http://www.wattenscheid.net/scripte/grafik/telefax.jpg\" border=0> $mitglied{'fax3'}<br>";}

if (($mitglied{'class_kunde'} eq 'j') or ($mitglied{'class_kommerziell'} ne 'j'))
{
if ($mitglied{'link_mail3'} ne '')
{
print"    <a href=mailto:$mitglied{'link_mail3'}><img src=\"../scripte/grafik/umschlag.gif\" border=0> $mitglied{'link_mail3'}</a><br>";
}
print"    <br>";

if ($mitglied{'oeffn3'} ne '')
{
print"    Geöffnet:";
print"    $mitglied{'oeffn3'}<br>";
}
}
}

if (($mitglied{'fil4'} ne '') or ($mitglied{'strasse4'} ne ''))
{
print "    <br>";
if ($mitglied{'fil4'} ne '')
{print "    <b>$mitglied{'fil4'}</b><br>";}
if ($mitglied{'zusatz4'} ne '')
{print "    $mitglied{'zusatz4'}<br>";}
if ($mitglied{'strasse4'} ne '')
{print "    $mitglied{'strasse4'}<br>";}
if (($mitglied{'plz4'} != 0) and ($mitglied{'ort4'} ne ''))
{print "    $mitglied{'plz4'} $mitglied{'ort4'}<br>";}
if ($mitglied{'tel4'} ne '')
{print "    <img src=\"http://www.wattenscheid.net/scripte/grafik/telefon.gif\" border=0> $mitglied{'tel4'}<br>";}
if ($mitglied{'fax4'} ne '')
{print "    <img src=\"http://www.wattenscheid.net/scripte/grafik/telefax.jpg\" border=0> $mitglied{'fax4'}<br>";}

if (($mitglied{'class_kunde'} eq 'j') or ($mitglied{'class_kommerziell'} ne 'j'))
{
if ($mitglied{'link_mail4'} ne '')
{
print"    <a href=mailto:$mitglied{'link_mail4'}><img src=\"../scripte/grafik/umschlag.gif\" border=0> $mitglied{'link_mail4'}</a><br>";
}
print"    <br>";

if ($mitglied{'oeffn4'} ne '')
{
print"    Geöffnet:";
print"    $mitglied{'oeffn4'}<br>";
}
}
}

if (($mitglied{'fil5'} ne '') or ($mitglied{'strasse5'} ne ''))
{
print "    <br>";
if ($mitglied{'fil5'} ne '')
{print "    <b>$mitglied{'fil5'}</b><br>";}
if ($mitglied{'zusatz5'} ne '')
{print "    $mitglied{'zusatz5'}<br>";}
if ($mitglied{'strasse5'} ne '')
{print "    $mitglied{'strasse5'}<br>";}
if (($mitglied{'plz5'} != 0) and ($mitglied{'ort5'} ne ''))
{print "    $mitglied{'plz5'} $mitglied{'ort5'}<br>";}
if ($mitglied{'tel5'} ne '')
{print "    <img src=\"http://www.wattenscheid.net/scripte/grafik/telefon.gif\" border=0> $mitglied{'tel5'}<br>";}
if ($mitglied{'fax5'} ne '')
{print "    <img src=\"http://www.wattenscheid.net/scripte/grafik/telefax.jpg\" border=0> $mitglied{'fax5'}<br>";}

if (($mitglied{'class_kunde'} eq 'j') or ($mitglied{'class_kommerziell'} ne 'j'))
{
if ($mitglied{'link_mail5'} ne '')
{
print"    <a href=mailto:$mitglied{'link_mail5'}><img src=\"../scripte/grafik/umschlag.gif\" border=0> $mitglied{'link_mail5'}</a><br>";
}
print"    <br>";

if ($mitglied{'oeffn5'} ne '')
{
print"    Geöffnet:";
print"    $mitglied{'oeffn5'}<br>";
}
}
}

if (($mitglied{'fil6'} ne '') or ($mitglied{'strasse6'} ne ''))
{
print "    <br>";
if ($mitglied{'fil6'} ne '')
{print "    <b>$mitglied{'fil6'}</b><br>";}
if ($mitglied{'zusatz6'} ne '')
{print "    $mitglied{'zusatz6'}<br>";}
if ($mitglied{'strasse6'} ne '')
{print "    $mitglied{'strasse6'}<br>";}
if (($mitglied{'plz6'} != 0) and ($mitglied{'ort6'} ne ''))
{print "    $mitglied{'plz6'} $mitglied{'ort6'}<br>";}
if ($mitglied{'tel6'} ne '')
{print "    <img src=\"http://www.wattenscheid.net/scripte/grafik/telefon.gif\" border=0> $mitglied{'tel6'}<br>";}
if ($mitglied{'fax6'} ne '')
{print "    <img src=\"http://www.wattenscheid.net/scripte/grafik/telefax.jpg\" border=0> $mitglied{'fax6'}<br>";}

if (($mitglied{'class_kunde'} eq 'j') or ($mitglied{'class_kommerziell'} ne 'j'))
{
if ($mitglied{'link_mail6'} ne '')
{
print"    <a href=mailto:$mitglied{'link_mail6'}><img src=\"../scripte/grafik/umschlag.gif\" border=0> $mitglied{'link_mail6'}</a><br>";
}
print"    <br>";

if ($mitglied{'oeffn6'} ne '')
{
print"    Geöffnet:";
print"    $mitglied{'oeffn6'}<br>";
}
}
}
print "</p><br>";

  $ok = ($href = $cursor->fetchrow_hashref);
} 

}