#!/usr/bin/perl

open F, '|/usr/sbin/sendmail -oi -t';

chomp($ver = <STDIN>);

print F 
q(Subject: [DrakX] DrakX snapshot #), $ver, q( uploaded
From: DrakX Builder Robot <devel@mandriva.com>
To: changelog@mandrivalinux.org
Reply-To: install@mandriva.com

);
print F foreach <STDIN>;