<commit_before>#!/usr/bin/perl -w
use warnings;
use strict;
use less 'mem';
use feature qw(say switch);
use POSIX;
use IO::Select;
use IO::Socket;
use user;
use handle;
use channel;
use easyedit;
local $0 = 'BeyondAndJoahFailIRCd';
our $VERSION = 'BeyondAndJoahFailIRCd-0.5.5';
our $TIME = time;
our $CONFIG = './etc/ircd.conf';
my $NOFORK = 0;
my $PID = 0;
$SIG{'INT'} = \&sigint;
$SIG{'HUP'} = \&sighup;
our (%config,%oper,%kline,%listen,%outbuffer,%inbuffer,%timer);
my (%listensockets,%SSL,@sel,$ipv6);
&handleargs;
confparse($CONFIG);
&loadrequirements;
&createsockets;
unless ($NOFORK) {
  say 'Becoming a daemon...';
  open STDIN,  '/dev/null' or die "Can't read /dev/null: $!";
  open STDOUT, '>/dev/null';
  open STDERR, '>/dev/null';
  open my $pidfile,'>','./etc/juno.pid' or die 'could not write etc/juno.pid';
  $PID = fork;
  say 'Started as '.$PID;
  say $pidfile $PID;
  close $pidfile;
}
exit if ($PID != 0);
&POSIX::setsid;
our $id = conf('server','id');
die 'not listening' if $#sel < 0;
our $select = new IO::Select(@sel);
for(;;) {
  my $time;<commit_msg>rebranding from BeyondAndJoahFailIRCd to juno-ircd<commit_after>#!/usr/bin/perl -w
use warnings;
use strict;
use less 'mem';
use feature qw(say switch);
use POSIX;
use IO::Select;
use IO::Socket;
use user;
use handle;
use channel;
use easyedit;
local $0 = 'juno';
our $VERSION = 'dev-0.5.5';
our $TIME = time;
our $CONFIG = './etc/ircd.conf';
my $NOFORK = 0;
my $PID = 0;
$SIG{'INT'} = \&sigint;
$SIG{'HUP'} = \&sighup;
our (%config,%oper,%kline,%listen,%outbuffer,%inbuffer,%timer);
my (%listensockets,%SSL,@sel,$ipv6);
&handleargs;
confparse($CONFIG);
&loadrequirements;
&createsockets;
unless ($NOFORK) {
  say 'Becoming a daemon...';
  open STDIN,  '/dev/null' or die "Can't read /dev/null: $!";
  open STDOUT, '>/dev/null';
  open STDERR, '>/dev/null';
  open my $pidfile,'>','./etc/juno.pid' or die 'could not write etc/juno.pid';
  $PID = fork;
  say 'Started as '.$PID;
  say $pidfile $PID;
  close $pidfile;
}
exit if ($PID != 0);
&POSIX::setsid;
our $id = conf('server','id');
die 'not listening' if $#sel < 0;
our $select = new IO::Select(@sel);
for(;;) {
  my $time;
{'fraction_non_alphanumeric': 0.2075208913649025, 'fraction_numerical': 0.008356545961002786, 'mean_word_length': 4.701058201058201, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 9, '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': '1573272', 'n_tokens_mistral': 919, 'n_tokens_neox': 870, 'n_words': 239}