0,0,0,0  897_I|Mdv &K Index of /FSS-BCZ/root/usr/share/doc/libyaml

Index of /FSS-BCZ/root/usr/share/doc/libyaml

 NameLast modifiedSizeDescription
 Parent Directory   -  
 ReadMe.md 2020-06-01 17:34 1.1K 
#lz Jj"Tҁzţ q#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/delpop Copyright 2022 cPanel, L.L.C. # All rights reserved. # copyright@cpanel.net http://cpanel.net # This code is subject to the cPanel license. Unauthorized copying is prohibited package scripts::delpop; use strict; use warnings; use Cpanel::AcctUtils::DomainOwner::Tiny (); use Cpanel::PwCache (); use Cpanel::SafetyBits (); use Cpanel::SafeFile (); use Cpanel::Email::Validate (); use Cpanel::Usage (); use Cpanel::Sys::Setsid::Fast (); use Cpanel::Hooks (); my @attributes = qw{ email user owner domain file }; # call binary run(@ARGV) unless caller(); sub run { my (@args) = @_; my $debug; my $verbose; my $email; my $opts = { email => \$email, debug => \$debug, verbose => \$verbose, }; # compatibility with previous binary version if ( scalar @args == 1 && $args[0] !~ /^\-/ ) { $email = $args[0]; } else { Cpanel::Usage::wrap_options( \@args, \&usage, $opts ); } my $pop = scripts::delpop->new( email => $email || undef ); # interactive fields my $interactive_fields = { email => 'Please enter the pop account to be removed (e.g. bob@sally.com)? ', }; foreach my $field ( sort keys %$interactive_fields ) { while ( !$pop->$field() ) { print $interactive_fields->{$field}; my $input; chomp( $input = ); $pop->$field($input) if length($input); } } Cpanel::Hooks::hook( { 'category' => 'scripts', 'event' => 'delpop', 'stage' => 'pre', }, { 'email' => $email }, ); $pop->delete(); Cpanel::Hooks::hook( { 'category' => 'scripts', 'event' => 'delpop', 'stage' => 'post', }, { 'email' => $email }, ); exit; } sub usage { my $prog = $0; print < Delete the specified email account. --help : display this documentation --email : a valid address email ( format: user\@domain.com ) USAGE exit 1; } sub new { my ( $package, %opts ) = @_; my $self = bless {}, __PACKAGE__; # create accessor and hooks $self->_set_attributes(); # set values map { $self->$_( $opts{$_} ) } keys %opts; return $self; } sub _set_attributes { # call once at first init return unless @attributes; foreach my $att (@attributes) { my $accessor = __PACKAGE__ . "::$att"; # allow symbolic refs to typeglob no strict 'refs'; *$accessor = sub { my ( $self, $v ) = @_; if ( defined $v ) { foreach (qw{before validate set after}) { if ( $_ eq 'set