summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/ctanupload
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-05-07 22:53:18 +0000
committerKarl Berry <karl@freefriends.org>2012-05-07 22:53:18 +0000
commite309c42d89080752220f9e2a4df50d3d4cf3d607 (patch)
tree75dc36961a6977f32697acfc2d37236aaa58abd9 /Master/texmf-dist/scripts/ctanupload
parent5ed19c50b43e9e945556079d31e5e88c4e2f4990 (diff)
ctanupload (7may12)
git-svn-id: svn://tug.org/texlive/trunk@26252 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/ctanupload')
-rwxr-xr-xMaster/texmf-dist/scripts/ctanupload/ctanupload.pl11
1 files changed, 9 insertions, 2 deletions
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};