Estadísticas y predicciones de Oberliga NOFV-Nord

Preguntas Frecuentes (FAQs)

Cuándo se juega el próximo partido?

Sigue nuestra sección actualizada diariamente para obtener horarios exactos e información sobre transmisiones en vivo.

Dónde puedo encontrar estadísticas detalladas?

Nuestro sitio web ofrece estadísticas completas actualizadas regularmente junto con análisis experto.

<|vq_15629|><|repo_name|>atentacode/match<|file_sep|>/lib/Misc/Conf/Conf.pm package Misc::Conf::Conf; use strict; use warnings; use Carp; use Exporter 'import'; use Data::Dumper; our @EXPORT_OK = qw(conf_init conf_load); my %conf; my $conf_file; sub conf_init { my $cfile = shift or die "No conf file givenn"; if (-f $cfile) { $conf_file = $cfile; } else { carp "Config file '$cfile' not found"; } } sub conf_load { my ($section) = @_; if (!$conf_file) { carp "No config file given to load from"; return undef; } my $c = {}; open my $fh, '<', $conf_file or die "Cannot open config file '$conf_file' for readingn"; while (<$fh>) { next if (/^s*#/); # skip comments next if (/^s*$/); # skip empty lines if (/^[(.+)]/) { # section start $section = $1; next; } chomp; my ($key,$val) = split /s*=s*/, $_; if (!defined $key || !defined $val) { carp "Cannot parse line '$_'"; next; } if (!defined $c->{$section}) { $c->{$section} = {}; } $c->{$section}->{$key} = $val; } close($fh); return $c->{$section}; } 1; <|repo_name|>atentacode/match<|file_sep|>/lib/Misc/Log.pm package Misc::Log; use strict; use warnings; use Carp; sub new { my ($class,$loglevel,$logpath) = @_; my $self = {}; bless($self,$class); $self->{level} = lc($loglevel); $self->{path} = lc($logpath); $self->{fh} = *STDOUT; # default log stream is STDOUT if ($self->{path}) { open($self->{fh},">".$self->{path}); } return $self; } sub log { my ($self,$lvl,$msg) = @_; my %levels = ( info => "INFO", warn => "WARN", error => "ERROR", debug => "DEBUG" ); my %format = ( info => "%sn", warn => "%sn", error => "%sn", debug => "%sn" ); if (defined($levels{$lvl}) && defined($format{$lvl})) { print {$self->{fh}} sprintf($format{$lvl},$msg); } } sub info { $_[0]->log('info',@_); } sub warn { $_[0]->log('warn',@_); } sub error { $_[0]->log('error',@_); } sub debug { $_[0]->log('debug',@_); } 1;<|repo_name|>atentacode/match<|file_sep|>/lib/Misc/Server/Http.pm package Misc::Server::Http; use strict; use warnings; # use IO::Socket::INET6; # IPv6 support use IO::Socket::INET; # IPv4 only support # use HTTP::Response; # Use this module for generating responses sub new { my ($class,%params) = @_; my $port = delete $params{port}; my $host = delete $params{host}; my $addrfamily = delete $params{addrfamily}; my ($socket,$listen); if (!defined($port)) { carp "No port given for HTTP server"; return undef; } if (!defined($host)) { carp "No host given for HTTP server"; return undef; } if (!defined($addrfamily)) { my %supported_families = ( inet6 => 'IPv6', inet => 'IPv4' ); foreach my $af (keys(%supported_families)) { eval { require IO::Socket::$af; }; if (!$@) { carp sprintf("Using %s sockets",ucfirst($supported_families{$af})); return new Misc::Server::Http(port=>$port, host=>$host, addrfamily=>$af, %params); } } carp "No supported socket family found"; return undef; } if ($addrfamily eq 'inet') { # IPv4 eval { require IO::Socket::INET; }; if (!$@) { carp "Using IPv4 sockets"; ($socket,$listen) = start_socket('INET',$host,$port); return undef unless defined($socket); } else { carp "Cannot load module 'IO::Socket::INET' for IPv4 sockets"; return undef; } } elsif ($addrfamily eq 'inet6') { # IPv6 eval { require IO::Socket::INET6; }; if (!$@) { carp "Using IPv6 sockets"; ($socket,$listen) = start_socket('INET6',$host,$port); return undef unless defined($socket); } else { carp "Cannot load module 'IO::Socket::INET6' for IPv6 sockets"; return undef; } } else { carp sprintf("Invalid address family '%s'",$addrfamily); return undef; } return bless({ port => $port, host => $host, addrfamily => $addrfamily, socket => $socket, listen => $listen, params => %params },$class); } sub start_socket{ my ($sock_type,$host,$port) = @_; my ($socket,$listen); eval { if ($sock_type eq 'INET') { # IPv4 ($socket,$listen) = ( IO::Socket::$sock_type->new(LocalAddr=>$host, LocalPort=>$port, Listen=>5), IO::Socket::$sock_type->new(PeerAddr=>$host, PeerPort=>$port) ); } elsif ($sock_type eq 'INET6') { # IPv6 ($socket,$listen) = ( IO::Socket::$sock_type->new(LocalAddr=>$host, LocalPort=>$port, Listen=>5, Proto=>'tcp', Reuse=>1), IO::Socket::$sock_type->new(PeerAddr=>$host, PeerPort=>$port) ); } else { carp sprintf("Unknown socket type '%s'",$sock_type); } }; if (!$@) { return ($socket,$listen); } else { carp sprintf("Cannot create socket of type '%s' on port '%d' (%s)",$sock_type,$port,$@); return (undef,undef); } } sub run{ my ($self,%params) = @_; my @client_addr; while(1){ if(!$$self{socket}){return;} $$self{listen}->accept($$self{socket}) || do{ carp "$$:accept error: $$self{socket}->errstrn"; $$self{socket}->close(); $$self{socket}=undef; next;} push @client_addr,sprintf("%s:%d",$$self{socket}->peerhost(),$$self{socket}->peerport()); my @response=do_request({sock=>$$self{socket}}); $$self{socket}->send(join("",@response)); $$self{socket}->close(); $$self{socket}=undef(); push @{$$self{params}{clients}},join(",",@client_addr) unless(exists $$self