From e309c42d89080752220f9e2a4df50d3d4cf3d607 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 7 May 2012 22:53:18 +0000 Subject: ctanupload (7may12) git-svn-id: svn://tug.org/texlive/trunk@26252 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/ctanupload/ctanupload.pl | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/scripts/ctanupload') diff --git a/Master/texmf-dist/scripts/ctanupload/ctanupload.pl b/Master/texmf-dist/scripts/ctanupload/ctanupload.pl index 716bc24b2aa..e39c3d21237 100755 --- a/Master/texmf-dist/scripts/ctanupload/ctanupload.pl +++ b/Master/texmf-dist/scripts/ctanupload/ctanupload.pl @@ -10,7 +10,7 @@ sub fromenv; sub load_data; sub save_data; -my $VERSION = 'v1.2a from 2012/05/03'; +my $VERSION = 'v1.2b from 2012/05/06'; my %CTAN_SERVERURLS = ( dante => 'http://dante.ctan.org/upload.html', uktug => 'http://www.tex.ac.uk/upload/', @@ -343,10 +343,17 @@ if ($FIELDS{DoNotAnnounce}) { $DoNotAnnounce = '[x]'; } else { - delete $FIELDS{DoNotAnnounce}; + $FIELDS{DoNotAnnounce} = 'Yes'; delete $FIELDS{to_announce}; $DoNotAnnounce = '[ ]'; } +# Only keep the announcement field used by the site: +if ($CTAN_URL eq $CTAN_SERVERURLS{dante}) { + delete $FIELDS{to_announce}; +} +else { + delete $FIELDS{DoNotAnnounce}; +} if (!$FIELDS{directory}) { $FIELDS{directory} = '/macros/latex/contrib/' . $FIELDS{contribution}; -- cgit v1.2.3