#!/usr/bin/perl

$mailprog = '/usr/sbin/sendmail';

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

@Zeilen = ();
open(main, "<src/main.src");
while(<main>){ push(@Zeilen,$_);}
close(main);

@news = ();
open(news, "<src/newsdat.src");
while(<news>){
 $_ =~ s/\\n/\n/g;
 push(@news,$_);
}
close(news);

for(@Zeilen){
 if ($_ ne "\n") { print "$_"; }
 if ($_ =~ "<!-- news -->") { print "$news[0]\n$news[1]\n$news[2]\n"; }
}