226 |
$fail |
$fail |
227 |
and exit 1; |
and exit 1; |
228 |
|
|
229 |
|
# The markup is escaped as <\# so that when this script is sent by |
230 |
|
# mail (or part of a diff), Gnus is not triggered. |
231 |
print <<EOF; |
print <<EOF; |
232 |
|
|
233 |
Subject: $my_distdir released |
Subject: $my_distdir released |
234 |
|
|
235 |
<#secure method=pgpmime mode=sign> |
<\#secure method=pgpmime mode=sign> |
236 |
|
|
237 |
FIXME: put comments here |
FIXME: put comments here |
238 |
|
|
265 |
|
|
266 |
print "\nHere are the MD5 and SHA1 signatures:\n"; |
print "\nHere are the MD5 and SHA1 signatures:\n"; |
267 |
print "\n"; |
print "\n"; |
268 |
print "<#part type=text/plain filename=\"$tmp\" disposition=inline>\n" |
# The markup is escaped as <\# so that when this script is sent by |
269 |
. "<#/part>\n"; |
# mail (or part of a diff), Gnus is not triggered. |
270 |
|
print "<\#part type=text/plain filename=\"$tmp\" disposition=inline>\n" |
271 |
|
. "<\#/part>\n"; |
272 |
|
|
273 |
open OUT, '>', $tmp |
open OUT, '>', $tmp |
274 |
or die "$ME: $tmp: cannot open for writing: $!\n"; |
or die "$ME: $tmp: cannot open for writing: $!\n"; |