#!/usr/bin/perl
print "Content-type: text/html\n\n";
open MEMBERS, "members.txt";
foreach () {
($id, $data) = split /#/, $_;
$MEMBERS{$id} = $data;
}
close MEMBERS;
open HTML, "mitglieder.htm";
foreach () {
$template .= $_;
}
close HTML;
$html = "
\n
| %%MEMBER_ID%% | \n
![](\"spacer.gif\") | \n
%%CALLSIGN%% | \n
| \n
%%FULLNAME%% | \n
| \n
%%CITY%% | \n
| \n
%%PIC%% | \n
";
$pic = "![](\"kamera.gif\")
";
$color2 = 'ffffff';
$color = 'cccccc';
$mitgliederliste = '';
foreach (sort keys %MEMBERS) {
$row = $html;
$row =~ s/%%COLOR2%%/$color2/g;
$row =~ s/%%COLOR%%/$color/g;
$row =~ s/%%MEMBER_ID%%/$_/;
my @data = split /:/, $MEMBERS{$_};
$call = lc $data[0];
open PIC, "$call.jpg" or my $nopic = 1;
$data[0] =~ s/^\s+|\s+$//g;
$data[1] =~ s/^\s+|\s+$//g;
$data[2] =~ s/^\s+|\s+$//g;
$row =~ s/%%CALLSIGN%%/$data[0]/g;
$row =~ s/%%FULLNAME%%/$data[1]/g;
$row =~ s/%%CITY%%/$data[2]/g;
if ($nopic != 1) {
$row =~ s/%%PIC%%/$pic/;
$row =~ s/%%CALLSIGN%%/$data[0]/g;
}
$row =~ s/%%(.*)%%//g;
$mitgliederliste .= "$row\n\n";
if ($color eq 'ffffff') {
$color = 'cccccc';
$color2 = 'ffffff';
}
else {
$color = 'ffffff';
$color2 = 'cccccc';
}
}
$template =~ s/%%MEMBERS%%/$mitgliederliste/;
print $template;