tools/mailchangelog.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl

open F, '| /usr/sbin/sendmail -f devel@mandrakesoft.com';

chomp($ver = <STDIN>);

print F 
q(Subject: [DrakX] DrakX snapshot #$ver uploaded
From: devel@mandrakesoft.com
To: changelog@linux-mandrake.com, install@mandrakesoft.com
Reply-To: install@mandrakesoft.com

);
print F foreach <STDIN>;