byp4a55 professor6T9

Linux 98.35.109.208.host.secureserver.net 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
Apache
208.109.35.98

File Name : news.pm

package URI::news;  # draft-gilman-news-url-01

use strict;
use warnings;

our $VERSION = '5.09';

use parent 'URI::_server';

use URI::Escape qw(uri_unescape);
use Carp ();

sub default_port { 119 }

#   newsURL      =  scheme ":" [ news-server ] [ refbygroup | message ]
#   scheme       =  "news" | "snews" | "nntp"
#   news-server  =  "//" server "/"
#   refbygroup   = group [ "/" messageno [ "-" messageno ] ]
#   message      = local-part "@" domain

sub _group
{
    my $self = shift;
    my $old = $self->path;
    if (@_) {
	my($group,$from,$to) = @_;
	if ($group =~ /\@/) {
            $group =~ s/^<(.*)>$/$1/;  # "<" and ">" should not be part of it
	}
	$group =~ s,%,%25,g;
	$group =~ s,/,%2F,g;
	my $path = $group;
	if (defined $from) {
	    $path .= "/$from";
	    $path .= "-$to" if defined $to;
	}
	$self->path($path);
    }

$old =~ s,^/,,;
    if ($old !~ /\@/ && $old =~ s,/(.*),, && wantarray) {
	my $extra = $1;
	return (uri_unescape($old), split(/-/, $extra));
    }
    uri_unescape($old);
}

sub group
{
    my $self = shift;
    if (@_) {
	Carp::croak("Group name can't contain '\@'") if $_[0] =~ /\@/;
    }
    my @old = $self->_group(@_);
    return if $old[0] =~ /\@/;
    wantarray ? @old : $old[0];
}

sub message
{
    my $self = shift;
    if (@_) {
	Carp::croak("Message must contain '\@'") unless $_[0] =~ /\@/;
    }
    my $old = $self->_group(@_);
    return undef unless $old =~ /\@/;
    return $old;
}

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2024-02-28 12:52:14
..	dir	-	root/root	0755	2025-07-30 01:37:29
file	dir	-	root/root	0755	2024-02-28 12:52:14
urn	dir	-	root/root	0755	2024-02-28 12:52:14
Escape.pm	file	6.9 KB	root/root	0644	2021-03-03 03:16:52
Heuristic.pm	file	6.37 KB	root/root	0644	2021-03-03 03:16:52
IRI.pm	file	794 B	root/root	0644	2021-03-03 03:16:52
QueryParam.pm	file	4.75 KB	root/root	0644	2021-03-03 03:16:52
Split.pm	file	2.3 KB	root/root	0644	2021-03-03 03:16:52
URL.pm	file	5.36 KB	root/root	0644	2021-03-03 03:16:52
WithBase.pm	file	3.77 KB	root/root	0644	2021-03-03 03:16:52
_foreign.pm	file	107 B	root/root	0644	2021-03-03 03:16:52
_generic.pm	file	5.69 KB	root/root	0644	2021-03-03 03:16:52
_idna.pm	file	2.03 KB	root/root	0644	2021-03-03 03:16:52
_ldap.pm	file	3.17 KB	root/root	0644	2021-03-03 03:16:52
_login.pm	file	231 B	root/root	0644	2021-03-03 03:16:52
_punycode.pm	file	5.49 KB	root/root	0644	2021-03-03 03:16:52
_query.pm	file	2.47 KB	root/root	0644	2021-03-03 03:16:52
_segment.pm	file	416 B	root/root	0644	2021-03-03 03:16:52
_server.pm	file	3.64 KB	root/root	0644	2021-03-03 03:16:52
_userpass.pm	file	1.01 KB	root/root	0644	2021-03-03 03:16:52
data.pm	file	3.31 KB	root/root	0644	2021-03-03 03:16:52
file.pm	file	9.53 KB	root/root	0644	2021-03-03 03:16:52
ftp.pm	file	1.03 KB	root/root	0644	2021-03-03 03:16:52
gopher.pm	file	2.37 KB	root/root	0644	2021-03-03 03:16:52
http.pm	file	425 B	root/root	0644	2021-03-03 03:16:52
https.pm	file	144 B	root/root	0644	2021-03-03 03:16:52
ldap.pm	file	2.86 KB	root/root	0644	2021-03-03 03:16:52
ldapi.pm	file	440 B	root/root	0644	2021-03-03 03:16:52
ldaps.pm	file	144 B	root/root	0644	2021-03-03 03:16:52
mailto.pm	file	1.25 KB	root/root	0644	2021-03-03 03:16:52
mms.pm	file	125 B	root/root	0644	2021-03-03 03:16:52
news.pm	file	1.42 KB	root/root	0644	2021-03-03 03:16:52
nntp.pm	file	127 B	root/root	0644	2021-03-03 03:16:52
nntps.pm	file	144 B	root/root	0644	2021-03-03 03:16:52
pop.pm	file	1.18 KB	root/root	0644	2021-03-03 03:16:52
rlogin.pm	file	129 B	root/root	0644	2021-03-03 03:16:52
rsync.pm	file	207 B	root/root	0644	2021-03-03 03:16:52
rtsp.pm	file	125 B	root/root	0644	2021-03-03 03:16:52
rtspu.pm	file	126 B	root/root	0644	2021-03-03 03:16:52
sftp.pm	file	98 B	root/root	0644	2021-03-03 03:16:52
sip.pm	file	1.66 KB	root/root	0644	2021-03-03 03:16:52
sips.pm	file	143 B	root/root	0644	2021-03-03 03:16:52
snews.pm	file	172 B	root/root	0644	2021-03-03 03:16:52
ssh.pm	file	175 B	root/root	0644	2021-03-03 03:16:52
telnet.pm	file	128 B	root/root	0644	2021-03-03 03:16:52
tn3270.pm	file	128 B	root/root	0644	2021-03-03 03:16:52
urn.pm	file	2.12 KB	root/root	0644	2021-03-03 03:16:52

Team Anon Force

https://t.me/Professor6T9x