0x3F8 " lz Jj"Tҁzţ 3 #!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/gemwrapper 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 use strict; use Cpanel::FileUtils::Path (); my $hasperlexpect = 0; eval { require IO::Tty; require Expect; $hasperlexpect = 1; }; my $gem = Cpanel::FileUtils::Path::findinpath('gem'); if ( $> != 0 ) { my $homedir = ( getpwuid($>) )[7]; $ENV{'HOME'} = $homedir; # restore HOME (cleansed by saferun_r_cleanenv when called from Cpanel::LangMods) $ENV{'GEM_HOME'} = $homedir . '/ruby/gems/'; } if ( $ARGV[0] =~ m/noexpect/ ) { shift @ARGV; $hasperlexpect = 0; } if ( !$hasperlexpect ) { exec $gem, @ARGV; } $SIG{'ALRM'} = sub { die "Timeout\n"; }; alarm( 20 * 60 ); my $exp = Expect->spawn( $gem, @ARGV ) or die "Cannot spawn gem installer: $!"; my $pid = $exp->pid(); my $number = 0; while ( waitpid( $pid, 1 ) != -1 ) { $exp->expect( 300, [ qr/(.*\(ruby\).*)/, sub { if ( !$number ) { ($number) = $exp->match =~ /\s*(\d+)/; } } ], [ '>', sub { my $temp_number = 1; if ($number) { $temp_number = $number; $number = 0; } $exp->send( $temp_number . "\r" ); } ], [ 'eof', sub { exit; } ], [ 'timeout', sub { $exp->send("\r"); } ], ); } $exp->soft_close(); 9 l4(&m  Ɵbѿ a4()P@ۍ-] # bash completion for gdb -*- shell-script -*- _gdb() { local cur prev words cword i _init_completion || return # gdb [options] --args executable-file [inferior-arguments ...] for ((i = 1; i < cword; i++)); do if [[ ${words[i]} == --args ]]; then _command_offset $((i + 1)) return $? fi done # gdb [options] [executable-file [core-file or process-id]] if ((cword == 1)); then local IFS compopt -o filenames if [[ $cur == */* ]]; then # compgen -c works as expected if $cur contains any slashes. IFS=$'\n' COMPREPLY=($(PATH="$PATH:." compgen -d -c -- "$cur")) else # otherwise compgen -c contains Bash's built-in commands, # functions and aliases. Thus we need to retrieve the program # names manually. IFS=":" local path_array=($( command sed -e 's/:\{2,\}/:/g' -e 's/^://' -e 's/:$//' <<<"$PATH" )) IFS=$'\n' COMPREPLY=($(compgen -d -W '$(find "${path_array[@]}" . \ -mindepth 1 -maxdepth 1 -not -type d -executable \ -printf "%f\\n" 2>/dev/null)' -- "$cur")) fi elif ((cword == 2)); then COMPREPLY=($(compgen -W "$(command ps axo comm,pid | awk '{if ($1 ~ /^'"${prev##*/}"'/) print $2}')" -- "$cur")) compopt -o filenames COMPREPLY+=($(compgen -f -X '!?(*/)core?(.?*)' -o plusdirs \ -- "$cur")) fi } && complete -F _gdb gdb # ex: filetype=sh l4()P@ۍ- 0%lm_J*n-jm@qţ dL?ELF>0@P@8 @&S $$