Gecko [ www.corporacionhdm.com.pe ]

Linux premium71.web-hosting.com 4.18.0-513.11.1.lve.el8.x86_64 #1 SMP Thu Jan 18 16:21:02 UTC 2024 x86_64
LiteSpeed
Server IP : 198.187.29.8 & Your IP : 18.189.13.48
Domains : Cant Read [ /etc/named.conf ]
User : cleahvkv

Name	Size	Permission	Date
file	[ DIR ]	drwxr-xr-x	2024-03-03 19:11
urn	[ DIR ]	drwxr-xr-x	2024-03-03 19:11
Escape.pm	6.9 KB	-rw-r--r--	2018-01-09 06:42
Heuristic.pm	6.37 KB	-rw-r--r--	2018-01-09 06:42
IRI.pm	820 B	-rw-r--r--	2018-01-09 06:42
QueryParam.pm	4.77 KB	-rw-r--r--	2018-01-09 06:42
Split.pm	2.32 KB	-rw-r--r--	2018-01-09 06:42
URL.pm	5.36 KB	-rw-r--r--	2018-01-09 06:42
WithBase.pm	3.77 KB	-rw-r--r--	2018-01-09 06:42
_foreign.pm	133 B	-rw-r--r--	2018-01-09 06:42
_generic.pm	5.71 KB	-rw-r--r--	2018-01-09 06:42
_idna.pm	2.06 KB	-rw-r--r--	2018-01-09 06:42
_ldap.pm	3.2 KB	-rw-r--r--	2018-01-09 06:42
_login.pm	257 B	-rw-r--r--	2018-01-09 06:42
_punycode.pm	5.52 KB	-rw-r--r--	2018-01-09 06:42
_query.pm	2.5 KB	-rw-r--r--	2018-01-09 06:42
_segment.pm	442 B	-rw-r--r--	2018-01-09 06:42
_server.pm	3.66 KB	-rw-r--r--	2018-01-09 06:42
_userpass.pm	1.04 KB	-rw-r--r--	2018-01-09 06:42
data.pm	3.34 KB	-rw-r--r--	2018-01-09 06:42
file.pm	9.53 KB	-rw-r--r--	2018-01-09 06:42
ftp.pm	1.06 KB	-rw-r--r--	2018-01-09 06:42
gopher.pm	2.4 KB	-rw-r--r--	2018-01-09 06:42
http.pm	451 B	-rw-r--r--	2018-01-09 06:42
https.pm	170 B	-rw-r--r--	2018-01-09 06:42
ldap.pm	2.88 KB	-rw-r--r--	2018-01-09 06:42
ldapi.pm	467 B	-rw-r--r--	2018-01-09 06:42
ldaps.pm	170 B	-rw-r--r--	2018-01-09 06:42
mailto.pm	1.27 KB	-rw-r--r--	2018-01-09 06:42
mms.pm	151 B	-rw-r--r--	2018-01-09 06:42
news.pm	1.45 KB	-rw-r--r--	2018-01-09 06:42
nntp.pm	153 B	-rw-r--r--	2018-01-09 06:42
pop.pm	1.2 KB	-rw-r--r--	2018-01-09 06:42
rlogin.pm	155 B	-rw-r--r--	2018-01-09 06:42
rsync.pm	233 B	-rw-r--r--	2018-01-09 06:42
rtsp.pm	151 B	-rw-r--r--	2018-01-09 06:42
rtspu.pm	152 B	-rw-r--r--	2018-01-09 06:42
sftp.pm	124 B	-rw-r--r--	2018-01-09 06:42
sip.pm	1.69 KB	-rw-r--r--	2018-01-09 06:42
sips.pm	169 B	-rw-r--r--	2018-01-09 06:42
snews.pm	198 B	-rw-r--r--	2018-01-09 06:42
ssh.pm	201 B	-rw-r--r--	2018-01-09 06:42
telnet.pm	154 B	-rw-r--r--	2018-01-09 06:42
tn3270.pm	154 B	-rw-r--r--	2018-01-09 06:42
urn.pm	2.15 KB	-rw-r--r--	2018-01-09 06:42

Rename

#
# Written by Ryan Kereliuk <ryker@ryker.org>.  This file may be
# distributed under the same terms as Perl itself.
#
# The RFC 3261 sip URI is <scheme>:<authority>;<params>?<query>.
#

package URI::sip;

use strict;
use warnings;

use parent qw(URI::_server URI::_userpass);

use URI::Escape qw(uri_unescape);

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

sub default_port { 5060 }

sub authority
{
    my $self = shift;
    $$self =~ m,^($URI::scheme_re:)?([^;?]*)(.*)$,os or die;
    my $old = $2;

if (@_) {
        my $auth = shift;
        $$self = defined($1) ? $1 : "";
        my $rest = $3;
        if (defined $auth) {
            $auth =~ s/([^$URI::uric])/ URI::Escape::escape_char($1)/ego;
            $$self .= "$auth";
        }
        $$self .= $rest;
    }
    $old;
}

sub params_form
{
    my $self = shift;
    $$self =~ m,^((?:$URI::scheme_re:)?)(?:([^;?]*))?(;[^?]*)?(.*)$,os or die;
    my $paramstr = $3;

if (@_) {
    	my @args = @_; 
        $$self = $1 . $2;
        my $rest = $4;
	my @new;
	for (my $i=0; $i < @args; $i += 2) {
	    push(@new, "$args[$i]=$args[$i+1]");
	}
	$paramstr = join(";", @new);
	$$self .= ";" . $paramstr . $rest;
    }
    $paramstr =~ s/^;//o;
    return split(/[;=]/, $paramstr);
}

sub params
{
    my $self = shift;
    $$self =~ m,^((?:$URI::scheme_re:)?)(?:([^;?]*))?(;[^?]*)?(.*)$,os or die;
    my $paramstr = $3;

if (@_) {
    	my $new = shift; 
        $$self = $1 . $2;
        my $rest = $4;
	$$self .= $paramstr . $rest;
    }
    $paramstr =~ s/^;//o;
    return $paramstr;
}

# Inherited methods that make no sense for a SIP URI.
sub path {}
sub path_query {}
sub path_segments {}
sub abs { shift }
sub rel { shift }
sub query_keywords {}