<commit_before>#!/usr/bin/perl -w

use strict;

use Cwd;
use File::Basename;
use File::Find;
use File::Path;
use File::Spec;
use HTML::Mason;
use URI;

use Getopt::Long;
#use Smart::Comments;

my $force;
GetOptions('force' => \$force);

# These are directories.  The canonpath method removes any cruft
# like doubled slashes.
my ($source, $target) = map { File::Spec->canonpath($_) } @ARGV;

die "Need a source and target\n"
    unless defined $source && defined $target;

my $usr_file;
my $usr_file_name = '.svn_user_name';
my $usr_name = '';
my %possible_names = map { $_ => 1 } qw( 
   alech
   bellmich
   djulia
   mbartosch
   oliwel
   svysh
);

if (-e($usr_file_name) && -s _) {                                                                                                                          
    open($usr_file,$usr_file_name);
    $usr_name = <$usr_file>;
    close($usr_file);
    chomp($usr_name);
    $usr_name = '' if (!exists($possible_names{$usr_name}));<commit_msg>new developer pgrig added to svn committers list<commit_after>#!/usr/bin/perl -w

use strict;

use Cwd;
use File::Basename;
use File::Find;
use File::Path;
use File::Spec;
use HTML::Mason;
use URI;

use Getopt::Long;
#use Smart::Comments;

my $force;
GetOptions('force' => \$force);

# These are directories.  The canonpath method removes any cruft
# like doubled slashes.
my ($source, $target) = map { File::Spec->canonpath($_) } @ARGV;

die "Need a source and target\n"
    unless defined $source && defined $target;

my $usr_file;
my $usr_file_name = '.svn_user_name';
my $usr_name = '';
my %possible_names = map { $_ => 1 } qw( 
   alech
   bellmich
   djulia
   mbartosch
   oliwel
   svysh
   pgrig
);

if (-e($usr_file_name) && -s _) {                                                                                                                          
    open($usr_file,$usr_file_name);
    $usr_name = <$usr_file>;
    close($usr_file);
    chomp($usr_name);
    $usr_name = '' if (!exists($possible_names{$usr_name}));
{'fraction_non_alphanumeric': 0.13932806324110672, 'fraction_numerical': 0.0009881422924901185, 'mean_word_length': 2.409090909090909, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 11, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 10, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7048884', 'n_tokens_mistral': 701, 'n_tokens_neox': 676, 'n_words': 175}