File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5/URI

usr / share / perl5 / URI /

?? ..
?? Escape.pm(6.9 KB)
?? Heuristic.pm(6.37 KB)
?? IRI.pm(820 B)
?? QueryParam.pm(4.77 KB)
?? Split.pm(2.32 KB)
?? URL.pm(5.36 KB)
?? WithBase.pm(3.77 KB)
?? _foreign.pm(133 B)
?? _generic.pm(5.71 KB)
?? _idna.pm(2.06 KB)
?? _ldap.pm(3.2 KB)
?? _login.pm(257 B)
?? _punycode.pm(5.52 KB)
?? _query.pm(2.5 KB)
?? _segment.pm(442 B)
?? _server.pm(3.66 KB)
?? _userpass.pm(1.04 KB)
?? data.pm(3.34 KB)
?? file
?? file.pm(9.53 KB)
?? ftp.pm(1.06 KB)
?? gopher.pm(2.4 KB)
?? http.pm(451 B)
?? https.pm(170 B)
?? ldap.pm(2.88 KB)
?? ldapi.pm(467 B)
?? ldaps.pm(170 B)
?? mailto.pm(1.27 KB)
?? mms.pm(151 B)
?? news.pm(1.45 KB)
?? nntp.pm(153 B)
?? pop.pm(1.2 KB)
?? rlogin.pm(155 B)
?? rsync.pm(233 B)
?? rtsp.pm(151 B)
?? rtspu.pm(152 B)
?? sftp.pm(124 B)
?? sip.pm(1.69 KB)
?? sips.pm(169 B)
?? snews.pm(198 B)
?? ssh.pm(201 B)
?? telnet.pm(154 B)
?? tn3270.pm(154 B)
?? urn
?? urn.pm(2.15 KB)

Editing: news.pm

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

use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;

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;
}

X7ROOT File Manager

Editing: news.pm

Upload File

Create Folder