<commit_before>#!/usr/bin/perl

######################################################################
# How to use this script:
######################################################################
# 1. Produce a file announce-$version, where
#   $version = $Major.$minor[.$patchlevel]
#
# 2. Run this script like
#
#         perl announce.pl 3.3
#
#   This will send email to Guido, Ralf, Wolfgang.
#
# 3. Check if this email was correctly delivered.
#
# 4. Run the script again with additional 'ok':
#
#         perl announce.pl 3.3 ok
#
# 5. Remove addresses with delivery problems from the list!!!
#
######################################################################

use strict;

my $os = `uname -s`;

# die "Use on Linux machines only !" unless ($os =~ m'Linux');
die "Call as deal user" unless (`who am i` =~ m/deal/);

my @recipients;

my $test = 1;

die "Usage: perl announce.pl <version> [ok]" if ($#ARGV<0);

my $version = $ARGV[0];

my $file = "announce-$version";
die "Announcement file $file does not exist" unless (-r $file);

$test = 0 if ($ARGV[1] eq 'ok');

open ANNOUNCEMENT, $file;
my @announcement = <ANNOUNCEMENT>;

print "=====Announcing version $version=====\n";<commit_msg>better do not spam deal<commit_after>#!/usr/bin/perl

######################################################################
# How to use this script:
######################################################################
# 1. Produce a file announce-$version, where
#   $version = $Major.$minor[.$patchlevel]
#
# 2. Run this script like
#
#         perl announce.pl 3.3
#
#   This will send email to Guido, Ralf, Wolfgang.
#
# 3. Check if this email was correctly delivered.
#
# 4. Run the script again with additional 'ok':
#
#         perl announce.pl 3.3 ok
#
# 5. Remove addresses with delivery problems from the list!!!
#
######################################################################

use strict;

my $os = `uname -s`;

# die "Use on Linux machines only !" unless ($os =~ m'Linux');
#die "Call as deal user" unless (`who am i` =~ m/deal/);

my @recipients;

my $test = 1;

die "Usage: perl announce.pl <version> [ok]" if ($#ARGV<0);

my $version = $ARGV[0];

my $file = "announce-$version";
die "Announcement file $file does not exist" unless (-r $file);

$test = 0 if ($ARGV[1] eq 'ok');

open ANNOUNCEMENT, $file;
my @announcement = <ANNOUNCEMENT>;

print "=====Announcing version $version=====\n";
{'fraction_non_alphanumeric': 0.30715171558495247, 'fraction_numerical': 0.011575031004547334, 'mean_word_length': 4.537757437070939, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 7, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '794713', 'n_tokens_mistral': 800, 'n_tokens_neox': 727, 'n_words': 261}