mirror of https://github.com/CGAL/cgal
26 lines
405 B
Plaintext
Executable File
26 lines
405 B
Plaintext
Executable File
#! /sw/bin/perl5
|
|
|
|
use strict;
|
|
|
|
$ENV{PATH}="$ENV{PATH}:/sw/bin";
|
|
my $subject = shift;
|
|
if ($subject eq "-s") {
|
|
$subject = shift;
|
|
}
|
|
my $recipients = join(' ',@ARGV);
|
|
open NOTI, "| '/sw/sbin/sendmail' '-t'";
|
|
#open NOTI, "| '/usr/bin/cat'";
|
|
print NOTI <<"TOTHIER";
|
|
From: geert+cgal-submit\@cs.uu.nl
|
|
Subject: $subject
|
|
To: $recipients
|
|
|
|
TOTHIER
|
|
|
|
while ( <STDIN> ) {
|
|
print NOTI $_;
|
|
}
|
|
close NOTI;
|
|
exit 0;
|
|
|