Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Backports:SLE-15-SP4:FactoryCandidates
mirror
mirror-fix-perl-5.38-package-separator.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File mirror-fix-perl-5.38-package-separator.patch of Package mirror
--- mirror-2.9/mirror.pl.orig 2023-12-01 22:13:27.000000000 +0100 +++ mirror-2.9/mirror.pl 2023-12-06 11:37:02.488395509 +0100 @@ -51,7 +51,7 @@ # Allow strip_cr (from Andrew). # More symlink handling... # Set type for vms correctly. -# Changed response from ftp'delete, also corrected path used. +# Changed response from ftp::delete, also corrected path used. # # Revision 2.4 1994/04/29 20:11:09 lmjm # Use correct variable for hostname @@ -1054,10 +1054,10 @@ if( $debug ){ # Keep the ftp debugging lower than the rest. - &ftp'debug( $debug - 1); + &ftp::debug( $debug - 1); } else { - &ftp'debug( $verbose ); + &ftp::debug( $verbose ); } if( $recurse_hard ){ @@ -1070,19 +1070,19 @@ } if( ! $interactive ){ - $ftp'showfd = 'STDOUT'; + $ftp::showfd = 'STDOUT'; } - &ftp'set_timeout( $timeout ); - &ftp'set_signals( "main'msg" ); + &ftp::set_timeout( $timeout ); + &ftp::set_signals( "main::msg" ); # set passive ftp mode if( $passive_ftp ){ - $ftp'use_pasv = 1; + $ftp::use_pasv = 1; } # Are we using the SOCKS version of perl? if( $using_socks ){ - $chat'using_socks = 1; + $chat::using_socks = 1; } # Useful string in prints @@ -1217,13 +1217,13 @@ if( $con == 1 ){ &msg( "login as $remote_user\n" ) if $debug > 1; $curr_remote_user = $remote_user; - if( ! &ftp'login( $remote_user, $remote_password, $remote_account ) ){ + if( ! &ftp::login( $remote_user, $remote_password, $remote_account ) ){ &msg( "Cannot login, skipping package\n" ); &disconnect(); &msg( "\n" ); return $exit_status; } - $can_restart = (&ftp'restart(0) == 1); + $can_restart = (&ftp::restart(0) == 1); if( $debug > 1 ){ &msg( "Can " . ($can_restart ? '' : "not ") . "do restarts\n" ); @@ -1234,7 +1234,7 @@ &msg( "Already connected to site $site\n" ) if $debug; } - if( ! &ftp'type( $text_mode ? 'A' : 'I' ) ){ + if( ! &ftp::type( $text_mode ? 'A' : 'I' ) ){ &msg( "Cannot set type\n" ); } @@ -1245,16 +1245,16 @@ # setting the namemap functions. if( $remote_fs =~ /vms/i ){ $vms = 1; - &ftp'set_namemap( "main'unix2vms", "main'vms2unix" ); + &ftp::set_namemap( "main::unix2vms", "main::vms2unix" ); } else { $vms = 0; # No mapping necessary - &ftp'set_namemap( '' ); + &ftp::set_namemap( '' ); } if( ! $get_file || $remote_idle ){ - local( @rhelp ) = &ftp'site_commands(); + local( @rhelp ) = &ftp::site_commands(); $remote_has_chmod = grep( $_ eq 'CHMOD', @rhelp); $remote_has_rename = grep( $_ eq 'RNFR', @rhelp) && grep( $_ eq 'RNTO', @rhelp); $remote_has_idle = grep( $_ eq 'IDLE', @rhelp); @@ -1265,7 +1265,7 @@ } if( $remote_has_idle && $remote_idle ){ - if( ! &ftp'quote( "site idle $remote_idle" ) ){ + if( ! &ftp::quote( "site idle $remote_idle" ) ){ &msg( "Cannot set remote idle\n" ); } elsif( $debug > 2 ){ @@ -1274,7 +1274,7 @@ } if( $remote_group ){ - if( ! &ftp'quote( "site group $remote_group" ) ){ + if( ! &ftp::quote( "site group $remote_group" ) ){ &msg( "Cannot set remote group\n" ); } elsif( $debug > 2 ){ @@ -1283,7 +1283,7 @@ } if( $remote_gpass ){ - if( ! &ftp'quote( "site gpass $remote_gpass" ) ){ + if( ! &ftp::quote( "site gpass $remote_gpass" ) ){ &msg( "Cannot set remote gpass\n" ); } elsif( $debug > 2 ){ @@ -1497,11 +1497,11 @@ { if( $connected ){ &msg( "disconnecting from $connected\n" ) if $debug; - if( ! $ftp'fatalerror ){ - &ftp'close(); + if( ! $ftp::fatalerror ){ + &ftp::close(); } else { - &ftp'service_closed(); + &ftp::service_closed(); } } $connected = ''; @@ -1525,11 +1525,11 @@ &disconnect(); if( $proxy ){ - $ftp'proxy = $proxy; - $ftp'proxy_gateway = $proxy_gateway; - $ftp'proxy_ftp_port = $proxy_ftp_port; + $ftp::proxy = $proxy; + $ftp::proxy_gateway = $proxy_gateway; + $ftp::proxy_ftp_port = $proxy_ftp_port; } - $res = &ftp'open( $site, $ftp_port, $retry_call, $attempts ); + $res = &ftp::open( $site, $ftp_port, $retry_call, $attempts ); if( $res == 1 ){ # Connected $connected = $site; @@ -1545,7 +1545,7 @@ if( $debug > 2 ){ &msg( " prodding remote ftpd\n" ); } - &ftp'pwd(); + &ftp::pwd(); } # checkout and fixup any regexps. @@ -1775,7 +1775,7 @@ $remote_type[ 0 ] = 0; $remote_mode[ 0 ] = 0; - if( $remote_fs !~ /cms/ && ! &ftp'cwd( $remote_dir ) ){ + if( $remote_fs !~ /cms/ && ! &ftp::cwd( $remote_dir ) ){ if( $get_file ){ # no files to get return 0; @@ -1784,8 +1784,8 @@ &msg( "Failed to change to remote directory ($remote_dir) trying to create it\n" ); &mkdirs( $remote_dir ); - if( ! &ftp'cwd( $remote_dir ) ){ - &msg( "Cannot change to remote directory ($remote_dir) because: $ftp'response\n" ); + if( ! &ftp::cwd( $remote_dir ) ){ + &msg( "Cannot change to remote directory ($remote_dir) because: $ftp::response\n" ); return 0; } } @@ -1814,7 +1814,7 @@ &msg( "Cannot open $dirtmp\n" ); return 0; } - $rls = "main'DIRTMP"; + $rls = "main::DIRTMP"; # Now we don't want to overwrite our input... better test? if( $local_ls_lR_file eq $storename ){ $storename = "/dev/null"; @@ -1828,7 +1828,7 @@ } &msg( " Getting directory listing from remote file $ls_lR_file\n" ) if $debug; - if( ! &ftp'get( $ls_lR_file, $dirtmp, 0 ) ){ + if( ! &ftp::get( $ls_lR_file, $dirtmp, 0 ) ){ &msg( "Cannot get dir listing file\n" ); return 0; } @@ -1857,11 +1857,11 @@ } open( DIRTMP, $dirtmp ) || die "Cannot open $dirtmp"; - $rls = "main'DIRTMP"; + $rls = "main::DIRTMP"; } else { $use_ls = 1; - if( ! &ftp'type( 'A' ) ){ + if( ! &ftp::type( 'A' ) ){ &msg( "Cannot set type to ascii for dir listing, ignored\n" ); $type_changed = 0; } @@ -1870,17 +1870,17 @@ } } - $lsparse'fstype = $remote_fs; - $lsparse'name = "$site:$package"; + $lsparse::fstype = $remote_fs; + $lsparse::name = "$site:$package"; if( $use_ls ){ local( $flags ) = $flags_nonrecursive; if( $recursive && ! $recurse_hard ){ $flags = $flags_recursive; } - $lsparse'report_subdirs = (! $recurse_hard && $algorithm == 0); - if( !&ftp'dir_open( $flags ) ){ - &msg( "Cannot get remote directory listing because: $ftp'response\n" ); + $lsparse::report_subdirs = (! $recurse_hard && $algorithm == 0); + if( !&ftp::dir_open( $flags ) ){ + &msg( "Cannot get remote directory listing because: $ftp::response\n" ); return 0; } @@ -1893,8 +1893,8 @@ # relative to the remote_dir $rcwd = $remote_dir; } - $dateconv'use_timelocal = $use_timelocal; - if( !&lsparse'reset( $rcwd ) ){ + $dateconv::use_timelocal = $use_timelocal; + if( !&lsparse::reset( $rcwd ) ){ &msg( "$remote_fs: unknown fstype\n" ); return 0; } @@ -1924,7 +1924,7 @@ # Could optimise this out - but it makes sure that # the other end gets a command straight after a possibly # long dir listing. - if( ! &ftp'type( $text_mode ? 'A' : 'I' ) ){ + if( ! &ftp::type( $text_mode ? 'A' : 'I' ) ){ local( $msg ) = "Cannot reset type after dir listing, "; if( $type_changed ){ # I changed it before - so I must be able to @@ -1996,7 +1996,7 @@ while( 1 ){ while( !eof( $rls ) ){ ( $path, $size, $time, $type, $mode ) = - &lsparse'line( $rls ); + &lsparse::line( $rls ); last if $path eq ''; if( $ls_fix_mappings ){ local( $old_path ) = $path; @@ -2087,9 +2087,9 @@ } if( $use_ls ){ - if( ! &ftp'dir_close() ){ + if( ! &ftp::dir_close() ){ &msg( "Failure at end of remote directory" . - " ($rdir) because: $ftp'response\n" ); + " ($rdir) because: $ftp::response\n" ); return 0; } } @@ -2099,9 +2099,9 @@ while( 1 ){ if( $#dir_list < 0 ){ # Make sure we end in the right directory. - if( ! &ftp'cwd( $remote_dir ) ){ + if( ! &ftp::cwd( $remote_dir ) ){ &msg( "Cannot change to remote directory" . - " ($rdir) because: $ftp'response\n" ); + " ($rdir) because: $ftp::response\n" ); return 0; } $done = 1; @@ -2112,9 +2112,9 @@ if( $debug > 2 ){ print "scanning: $remote_dir / $rcwd\n"; } - if( ! &ftp'cwd( $rdir ) ){ + if( ! &ftp::cwd( $rdir ) ){ &msg( "Cannot change to remote directory" . - " ($rdir) because: $ftp'response\n" ); + " ($rdir) because: $ftp::response\n" ); next; } last; @@ -2122,12 +2122,12 @@ if( $done ){ last; } - if( !&ftp'dir_open( $flags_nonrecursive ) ){ + if( !&ftp::dir_open( $flags_nonrecursive ) ){ &msg( "Cannot get remote directory" . - " listing because: $ftp'response\n" ); + " listing because: $ftp::response\n" ); return 0; } - &lsparse'reset( $rcwd ); + &lsparse::reset( $rcwd ); # round the loop again. next; @@ -2527,7 +2527,7 @@ if( $external_mapping ){ $old_name = $name; - local( $tmp ) = &extmap'map( $name ); + local( $tmp ) = &extmap::map( $name ); if( $tmp ne $old_name ){ $name = $tmp; } @@ -2688,11 +2688,11 @@ &transfer_file( $src_path, $dest_path, $attribs, $remote_time[ $srci ] ); if( $get_file && $newpath eq '' ){ - &msg( $log, "Failed to $XFER file $ftp'response\n" ); - if( $ftp'response =~ /timeout|timed out/i ){ + &msg( $log, "Failed to $XFER file $ftp::response\n" ); + if( $ftp::response =~ /timeout|timed out/i ){ $timeouts++; } - if( $ftp'fatalerror || $timeouts > $max_timeouts ){ + if( $ftp::fatalerror || $timeouts > $max_timeouts ){ &msg( $log, "Fatal error talking to site, skipping rest of transfers\n" ); &disconnect(); return; @@ -2752,11 +2752,11 @@ } if( $vms ){ - &ftp'type( ($src_path =~ /$vms_xfer_text/i) ? 'A' : 'I' ); + &ftp::type( ($src_path =~ /$vms_xfer_text/i) ? 'A' : 'I' ); } if( $remote_fs eq 'macos' && ! $get_file ){ - &ftp'type( 'A' ); + &ftp::type( 'A' ); } if( ! $get_file ){ @@ -2778,15 +2778,15 @@ $temp = $dest_path; } - if( ! &ftp'put( $src_file, $temp, $restart ) ){ - &msg( $log, "Failed to put $src_file: $ftp'response\n" ); + if( ! &ftp::put( $src_file, $temp, $restart ) ){ + &msg( $log, "Failed to put $src_file: $ftp::response\n" ); unlink( $comptemp ) if $comptemp; return ''; } unlink( $comptemp ) if $comptemp; - if( !$no_rename && ! &ftp'rename( $temp, $dest_path ) ){ - &msg( $log, "Failed to remote rename $temp to $dest_path: $ftp'response\n" ); + if( !$no_rename && ! &ftp::rename( $temp, $dest_path ) ){ + &msg( $log, "Failed to remote rename $temp to $dest_path: $ftp::response\n" ); return ''; } @@ -2810,11 +2810,11 @@ # it. # Get a file - &ftp'dostrip( $strip_cr ); + &ftp::dostrip( $strip_cr ); $start_time = time; - if( ! &ftp'get( $src_path, $temp, $restart ) ){ - if( !$failed_gets_excl || $ftp'response !~ /$failed_gets_excl/ ){ - &msg( $log, "Failed to get $src_path: $ftp'response\n" ); + if( ! &ftp::get( $src_path, $temp, $restart ) ){ + if( !$failed_gets_excl || $ftp::response !~ /$failed_gets_excl/ ){ + &msg( $log, "Failed to get $src_path: $ftp::response\n" ); } # Time stamp the temp file to allow for a restart @@ -2833,7 +2833,7 @@ # delete source file after successful transfer if( $delete_source ){ - if( &ftp'delete( $src_path ) ){ + if( &ftp::delete( $src_path ) ){ &msg( $log, "Deleted remote $src_path\n"); } else { @@ -3185,7 +3185,7 @@ } else { &msg( $log, "delete DIR $del\n" ); - &ftp'delete( "$del" ) || + &ftp::delete( "$del" ) || &msg( $log, "ftp delete DIR $del failed\n" ); } } @@ -3209,7 +3209,7 @@ } else { &msg( $log, "delete FILE $del\n" ); - &ftp'delete( "$del" ) || + &ftp::delete( "$del" ) || &msg( $log, "ftp delete FILE $del failed\n" ); } } @@ -3355,12 +3355,12 @@ } else { # make a remote directory - $val = &ftp'mkdir( $dir ); + $val = &ftp::mkdir( $dir ); # The mkdir might have failed due to bad mode # So try to chmod it anyway if( $remote_has_chmod ){ - $val = &ftp'chmod( $dir, $mode ); + $val = &ftp::chmod( $dir, $mode ); } } @@ -3379,14 +3379,14 @@ } else { # check if remote directory exists - local($old_dir) = &ftp'pwd(); + local($old_dir) = &ftp::pwd(); - $val = &ftp'cwd($dir); + $val = &ftp::cwd($dir); # If I didn't manage to change dir should be where I was! if( $val ){ # go back to the original directory - &ftp'cwd($old_dir) || die "Cannot cd to original remote directory"; + &ftp::cwd($old_dir) || die "Cannot cd to original remote directory"; } } return $val; @@ -3440,7 +3440,7 @@ else { # change the remote file if( $remote_has_chmod ){ - &ftp'chmod( $path, $mode ); + &ftp::chmod( $path, $mode ); } } } --- mirror-2.9/dateconv.pl.orig 2023-12-01 22:13:27.000000000 +0100 +++ mirror-2.9/dateconv.pl 2023-12-06 11:37:07.655064763 +0100 @@ -75,7 +75,7 @@ # input date and time string from ftp "ls -l", such as Mmm dd yyyy or # Mmm dd HH:MM, # return $time number via gmlocal( $string ). -sub main'lstime_to_time +sub main::lstime_to_time { package dateconv; @@ -127,15 +127,15 @@ } if( $use_timelocal ){ - return &'timelocal( $secs, $mins, $hours, $day, $month, $year ); + return &::timelocal( $secs, $mins, $hours, $day, $month, $year ); } else { - return &'timegm( $secs, $mins, $hours, $day, $month, $year ); + return &::timegm( $secs, $mins, $hours, $day, $month, $year ); } } # input time number, output GMT string as "dd Mmm YYYY HH:MM" -sub main'time_to_standard +sub main::time_to_standard { package dateconv; --- mirror-2.9/lchat.pl.orig 2023-12-01 22:13:27.000000000 +0100 +++ mirror-2.9/lchat.pl 2023-12-06 11:37:18.528403542 +0100 @@ -34,7 +34,7 @@ # Lots of changes. See CHANGES since 2.8 file. # # Revision 2.3 1994/02/03 13:45:35 lmjm -# Correct chat'read (bfriesen@simple.sat.tx.us) +# Correct chat::read (bfriesen@simple.sat.tx.us) # # Revision 2.2 1993/12/14 11:09:03 lmjm # Only include sys/socket.ph if not already there. @@ -55,7 +55,7 @@ eval "use Socket"; } else { - unless( defined &'PF_INET ){ + unless( defined &::PF_INET ){ eval "sub ATT { 0; } sub INTEL { 0; }"; do 'sys/socket.ph'; } @@ -63,20 +63,20 @@ # Get the correct magic numbers for socket work. if( $] =~ /^5\.\d+$/ ){ - # Perl 5 has a special way of getting them via the 'use Socket' + # Perl 5 has a special way of getting them via the 'use Socket:: # above. - $main'pf_inet = &Socket'PF_INET; - $main'sock_stream = &Socket'SOCK_STREAM; + $main::pf_inet = &Socket::PF_INET; + $main::sock_stream = &Socket::SOCK_STREAM; local($name, $aliases, $proto) = getprotobyname( 'tcp' ); - $main'tcp_proto = $proto; + $main::tcp_proto = $proto; } -elsif( defined( &'PF_INET ) ){ +elsif( defined( &::PF_INET ) ){ # Perl 4 needs to have the socket.ph file created when perl was # installed. - $main'pf_inet = &'PF_INET; - $main'sock_stream = &'SOCK_STREAM; + $main::pf_inet = &::PF_INET; + $main::sock_stream = &::SOCK_STREAM; local($name, $aliases, $proto) = getprotobyname( 'tcp' ); - $main'tcp_proto = $proto; + $main::tcp_proto = $proto; } else { # Whoever installed perl didn't run h2ph !!! @@ -84,9 +84,9 @@ # last resort # Use hardwired versions # but who the heck would change these anyway? (:-) - $main'pf_inet = 2; - $main'sock_stream = 1; # Sigh... On Solaris set this to 2 - $main'tcp_proto = 6; + $main::pf_inet = 2; + $main::sock_stream = 1; # Sigh... On Solaris set this to 2 + $main::tcp_proto = 6; warn "lchat.pl: using hardwired in network constantants"; } @@ -108,7 +108,7 @@ } -## &chat'open_port("server.address",$port_number); +## &chat::open_port("server.address",$port_number); ## opens a named or numbered TCP server sub open_port { ## public local($server, $port) = @_; @@ -129,7 +129,7 @@ $serveraddr = $x[4]; } $serverproc = pack($sockaddr, 2, $port, $serveraddr); - unless (socket(S, $main'pf_inet, $main'sock_stream, $main'tcp_proto)) { + unless (socket(S, $main::pf_inet, $main::sock_stream, $main::tcp_proto)) { ($!) = ($!, close(S)); # close S while saving $! return undef; } @@ -197,7 +197,7 @@ ############################################################################## -## $return = &chat'expect($timeout_time, +## $return = &chat::expect($timeout_time, ## $pat1, $body1, $pat2, $body2, ... ) ## $timeout_time is the time (either relative to the current time, or ## absolute, ala time(2)) at which a timeout event occurs. @@ -293,7 +293,7 @@ select($rmask, undef, undef, $endtime - time); if ($nfound) { $nread = sysread(S, $thisbuf, 1024); - if( $chat'debug ){ + if( $chat::debug ){ print STDERR "sysread $nread "; print STDERR ">>$thisbuf<<\n"; } @@ -316,21 +316,21 @@ & $subname(); } -## &chat'print(@data) +## &chat::print(@data) sub print { ## public print S @_; - if( $chat'debug ){ + if( $chat::debug ){ print STDERR "printed:"; print STDERR @_; } } -## &chat'close() +## &chat::close() sub close { ## public close(S); } -# &chat'read(*buf, $ntoread ) +# &chat::read(*buf, $ntoread ) # blocking read. returns no. of bytes read and puts data in $buf. # If called with ntoread < 0 then just do the accept and return 0. sub read { ## public --- mirror-2.9/ftp.pl.orig 2023-12-01 22:13:27.000000000 +0100 +++ mirror-2.9/ftp.pl 2023-12-06 11:37:30.048409311 +0100 @@ -28,17 +28,17 @@ # $ftp_port = 21; # $retry_call = 1; # $attempts = 2; -# if( &ftp'open( $site, $ftp_port, $retry_call, $attempts ) != 1 ){ +# if( &ftp::open( $site, $ftp_port, $retry_call, $attempts ) != 1 ){ # die "failed to open ftp connection"; # } -# if( ! &ftp'login( $user, $pass ) ){ +# if( ! &ftp::login( $user, $pass ) ){ # die "failed to login"; # } -# &ftp'type( $text_mode ? 'A' : 'I' ); -# if( ! &ftp'get( $remote_filename, $local_filename, 0 ) ){ +# &ftp::type( $text_mode ? 'A' : 'I' ); +# if( ! &ftp::get( $remote_filename, $local_filename, 0 ) ){ # die "failed to get file"; # } -# &ftp'close(); +# &ftp::close(); # # # $Id: ftp.pl,v 2.9 1998/05/29 19:02:00 lmjm Exp lmjm $ @@ -94,9 +94,9 @@ # This is a "global" it contains the last response from the remote ftp server # for use in error messages -$ftp'response = ""; +$ftp::response = ""; -# Also ftp'NS is the socket containing the data coming in from the remote ls +# Also ftp::NS is the socket containing the data coming in from the remote ls # command. # The size of block to be read or written when talking to the remote @@ -115,12 +115,12 @@ $real_site = ""; # "Global" Where error/log reports are sent to -$ftp'showfd = 'STDERR'; +$ftp::showfd = 'STDERR'; # Should a 421 be treated as a connection close and return 99 from -# ftp'expect. This is against rfc1123 recommendations but I've found +# ftp::expect. This is against rfc1123 recommendations but I've found # it to be a wise default. -$ftp'drop_on_421 = 1; +$ftp::drop_on_421 = 1; # Name of a function to call on a pathname to map it into a remote # pathname. @@ -131,7 +131,7 @@ $ftp_show = 0; # Global set on a error that aborts the connection -$ftp'fatalerror = 0; +$ftp::fatalerror = 0; # Whether to keep the continuation messages so the user can look at them $keep_continuations = 0; @@ -140,7 +140,7 @@ $read_in = undef; # should we use the PASV extension to the ftp protocol? -$ftp'use_pasv = 0; # 0=no (default), 1=yes +$ftp::use_pasv = 0; # 0=no (default), 1=yes # Variable only used if proxying $proxy = $proxy_gateway = $proxy_ftp_port = ''; @@ -150,30 +150,30 @@ # (Normally set elsewhere - this is just a sensible default.) # Is expected to take count and code as arguments and prompt # for the secret key with 'password:' on stdout and then print the password. -$ftp'keygen_prog = '/usr/local/bin/key'; +$ftp::keygen_prog = '/usr/local/bin/key'; # Uncomment to turn on lots of debugging. # &debug( 10 ); -# Limit how much data any one ftp'get can pull back +# Limit how much data any one ftp::get can pull back # Negative values cause the size check to be skipped. $max_get_size = -1; # Where I am connected to. $connect_site = ''; -# &ftp'debug( debugging_level ) +# &ftp::debug( debugging_level ) # Turn on debugging ranging from 1 = some to 10 = everything -sub ftp'debug +sub ftp::debug { $ftp_show = $_[0]; if( $ftp_show > 9 ){ - $chat'debug = 1; + $chat::debug = 1; } } -# &ftp'set_timeout( seconds ) -sub ftp'set_timeout +# &ftp::set_timeout( seconds ) +sub ftp::set_timeout { local( $to ) = @_; return if $to == $timeout; @@ -226,7 +226,7 @@ $connect_site = $site; $connect_port = $ftp_port; } - if( ! &chat'open_port( $connect_site, $connect_port ) ){ + if( ! &chat::open_port( $connect_site, $connect_port ) ){ if( $retry_call ){ print $showfd "Failed to connect\n" if $ftp_show; next; @@ -240,7 +240,7 @@ $ret = &expect( $timeout, 2, 1 ); # ready for login to $site if( $ret != 1 ){ - &chat'close(); + &chat::close(); next; } return 1; @@ -264,21 +264,21 @@ } # Setup a signal handler for possible errors. -sub ftp'set_signals +sub ftp::set_signals { $ftp_logger = @_; - $SIG{ 'PIPE' } = "ftp'ftp__sighandler"; + $SIG{ 'PIPE' } = "ftp::ftp__sighandler"; } # Setup a signal handler for user interrupts. -sub ftp'set_user_signals +sub ftp::set_user_signals { $ftp_logger = @_; - $SIG{ 'INT' } = "ftp'ftp__sighandler"; + $SIG{ 'INT' } = "ftp::ftp__sighandler"; } -# &ftp'set_namemap( function to map outgoing name, function to map incoming ) -sub ftp'set_namemap +# &ftp::set_namemap( function to map outgoing name, function to map incoming ) +sub ftp::set_namemap { ($mapunixout, $mapunixin) = @_; if( $debug ) { @@ -286,12 +286,12 @@ } } -# &ftp'open( hostname or address, +# &ftp::open( hostname or address, # port to use, # retry on call failure, # number of attempts to retry ) # returns 1 if connected, 0 otherwise -sub ftp'open +sub ftp::open { local( $site, $ftp_port, $retry_call, $attempts ) = @_; @@ -318,9 +318,9 @@ return $ret; } -# &ftp'login( user, password, account ) +# &ftp::login( user, password, account ) # the account part is optional unless the remote service requires one. -sub ftp'login +sub ftp::login { local( $remote_user, $remote_password, $remote_account ) = @_; local( $ret ); @@ -357,11 +357,11 @@ # check for s/key challenge - eg, [s/key 994 ph29005] # If we are talking to skey then use remote_password as the # secret to generate a real password - if( $ftp'response =~ m#\[s/key (\d+) (\w+)\]# ){ + if( $ftp::response =~ m#\[s/key (\d+) (\w+)\]# ){ local( $count, $code ) = ($1, $2); # TODO: report open failure & remove need for echo - open( SKEY, "echo $remote_password | $ftp'keygen_prog $count $code |" ); + open( SKEY, "echo $remote_password | $ftp::keygen_prog $count $code |" ); while( <SKEY> ){ if( ! /password:/ ){ chop( $remote_password = $_ ); @@ -417,21 +417,21 @@ sub service_closed { $service_open = 0; - &chat'close(); + &chat::close(); } # Close down the current ftp connecting in an orderly way. -sub ftp'close +sub ftp::close { &quit(); $service_open = 0; - &chat'close(); + &chat::close(); } -# &ftp'cwd( directory ) +# &ftp::cwd( directory ) # Change to the given directory # return 1 if successful, 0 otherwise -sub ftp'cwd +sub ftp::cwd { local( $dir ) = @_; local( $ret ); @@ -466,7 +466,7 @@ sub pasv { # At some point I need to close/free S2, no? - unless( socket( S2, $main'pf_inet, $main'sock_stream, $main'tcp_proto ) ){ + unless( socket( S2, $main::pf_inet, $main::sock_stream, $main::tcp_proto ) ){ ($!) = ($!, close(S2)); # close S2 while saving $! return undef; } @@ -503,7 +503,7 @@ } # now need to connect() the new socket - if( ! &chat'open_newport( $newhost, $newport, *S2 ) ){ + if( ! &chat::open_newport( $newhost, $newport, *S2 ) ){ if( $retry_call ){ print $showfd "Failed to connect newport\n" if $ftp_show; next; @@ -517,12 +517,12 @@ } -# &ftp'dir( remote LIST options ) +# &ftp::dir( remote LIST options ) # Start a list going with the given options. # Presuming that the remote deamon uses the ls command to generate the # data to send back then then you can send it some extra options (eg: -lRa) # return 1 if sucessful, 0 otherwise -sub ftp'dir_open +sub ftp::dir_open { local( $options ) = @_; local( $ret ); @@ -579,7 +579,7 @@ # Close down reading the result of a remote ls command # return 1 if successful, 0 otherwise -sub ftp'dir_close +sub ftp::dir_close { local( $ret ); @@ -608,7 +608,7 @@ # Quit from the remote ftp server # return 1 if successful and 0 on failure -# Users should be calling &ftp'close(); +# Users should be calling &ftp::close(); sub quit { local( $ret ); @@ -693,20 +693,20 @@ return syswrite( NS, $ftpbuf, $ftpbufsize ); } -# &ftp'dostrip( true or false ) +# &ftp::dostrip( true or false ) # Turn on or off stripping of incoming carriage returns. -sub ftp'dostrip +sub ftp::dostrip { ($strip_cr ) = @_; } -# &ftp'get( remote file, local file, try restarting where last xfer failed ) +# &ftp::get( remote file, local file, try restarting where last xfer failed ) # Get a remote file back into a local file. # If no loc_fname passed then uses rem_fname. # If $restart set and the remote site supports it then restart where # last xfer left off. # returns 1 on success, 0 otherwise -sub ftp'get +sub ftp::get { local($rem_fname, $loc_fname, $restart ) = @_; local( $ret ); @@ -893,7 +893,7 @@ return $ret; } -# &ftp'delete( remote filename ) +# &ftp::delete( remote filename ) # Delete a file from the remote site. # returns 1 if successful, 0 otherwise sub delete @@ -929,9 +929,9 @@ # RMD } -# &ftp'put( local filename, remote filename, restart where left off ) +# &ftp::put( local filename, remote filename, restart where left off ) # Similar to get but sends file to the remote site. -sub ftp'put +sub ftp::put { local( $loc_fname, $rem_fname ) = @_; local( $strip_cr ); @@ -1097,9 +1097,9 @@ return $ret; } -# &ftp'restart( byte_offset ) +# &ftp::restart( byte_offset ) # Restart the next transfer from the given offset -sub ftp'restart +sub ftp::restart { local( $restart_point, $ret ) = @_; @@ -1121,7 +1121,7 @@ return $ret; } -# &ftp'type( 'A' or 'I' ) +# &ftp::type( 'A' or 'I' ) # set transfer type to Ascii or Image. sub type { @@ -1149,7 +1149,7 @@ @site_command_list = (); # routine to query the remote server for 'SITE' commands supported -sub ftp'site_commands +sub ftp::site_commands { local( $ret ); @@ -1189,7 +1189,7 @@ } # return the pwd, or null if we can't get the pwd -sub ftp'pwd +sub ftp::pwd { local( $ret, $cwd ); @@ -1220,7 +1220,7 @@ return $cwd; } -# &ftp'mkdir( directory name ) +# &ftp::mkdir( directory name ) # Create a directory on the remote site # return 1 for success, 0 otherwise sub mkdir @@ -1250,7 +1250,7 @@ return $ret; } -# &ftp'chmod( pathname, new mode ) +# &ftp::chmod( pathname, new mode ) # Change the mode of a file on the remote site. # return 1 for success, 0 for failure sub chmod @@ -1280,10 +1280,10 @@ return $ret; } -# &ftp'rename( old name, new name ) +# &ftp::rename( old name, new name ) # Rename a file on the remote site. # returns 1 if successful, 0 otherwise -sub ftp'rename +sub ftp::rename { local( $old_name, $new_name ) = @_; local( $ret ); @@ -1331,8 +1331,8 @@ } -# &ftp'quote( site command ); -sub ftp'quote +# &ftp::quote( site command ); +sub ftp::quote { local( $cmd ) = @_; local( $ret ); @@ -1370,7 +1370,7 @@ } # -# create the list of parameters for chat'expect +# create the list of parameters for chat::expect # # expect( time_out, {value, return value} ); # the last response is stored in $response @@ -1433,7 +1433,7 @@ if( $ftp_show > 9 ){ &printargs( $time_out, @expect_args ); } - $ret = &chat'expect( $time_out, @expect_args ); + $ret = &chat::expect( $time_out, @expect_args ); } return $ret; @@ -1455,10 +1455,10 @@ $sockaddr = 'S n a4 x8'; - ($a,$b,$c,$d) = unpack( 'C4', $chat'thisaddr ); - $this = $chat'thisproc; + ($a,$b,$c,$d) = unpack( 'C4', $chat::thisaddr ); + $this = $chat::thisproc; - if( ! socket( S, $main'pf_inet, $main'sock_stream, $main'tcp_proto ) ){ + if( ! socket( S, $main::pf_inet, $main::sock_stream, $main::tcp_proto ) ){ warn "socket: $!"; return 0; } @@ -1511,7 +1511,7 @@ print $showfd "---> $sc\n"; } - &chat'print( "$send_cmd\r\n" ); + &chat::print( "$send_cmd\r\n" ); } sub accept --- mirror-2.9/lsparse.pl.orig 2023-12-01 22:13:27.000000000 +0100 +++ mirror-2.9/lsparse.pl 2023-12-06 11:37:35.268411925 +0100 @@ -14,7 +14,7 @@ # This software is provided "as is" without express or implied warranty. # # Parse "ls -lR" type listings -# use lsparse'reset( dirname ) repeately +# use lsparse::reset( dirname ) repeately # # By Lee McLoughlin <lmjm@icparc.ic.ac.uk> # @@ -61,18 +61,18 @@ local( $match ); # The filestore type being scanned -$lsparse'fstype = 'unix'; +$lsparse::fstype = 'unix'; # Keep whatever case is on the remote system. Otherwise lowercase it. -$lsparse'vms_keep_case = ''; +$lsparse::vms_keep_case = ''; # A name to report when errors occur -$lsparse'name = 'unknown'; +$lsparse::name = 'unknown'; # Wether to report subdirs when finding them in a directory # or when their details appear. (If you report early then mirro might # recreate locally remote restricted directories.) -$lsparse'report_subdir = 0; # Report when finding details. +$lsparse::report_subdir = 0; # Report when finding details. # Name of routine to call to parse incoming listing lines @@ -81,7 +81,7 @@ # Set the directory that is being scanned and # check that the scan routing for this fstype exists # returns false if the fstype is unknown. -sub lsparse'reset +sub lsparse::reset { $here = $currdir = $_[0]; $now = time; @@ -91,17 +91,17 @@ $vms_strip =~ s,^/+,,; $vms_strip =~ s,/+$,,; - $ls_line = "lsparse'line_$fstype"; + $ls_line = "lsparse::line_$fstype"; return( defined( &$ls_line ) ); } # See line_unix following routine for call/return details. # This calls the filestore specific parser. -sub lsparse'line +sub lsparse::line { local( $fh ) = @_; - # ls_line is setup in lsparse'reset to the name of the function + # ls_line is setup in lsparse::reset to the name of the function local( $path, $size, $time, $type, $mode ) = eval "&$ls_line( \$fh )"; @@ -119,7 +119,7 @@ # time is a Un*x time value for the file # type is "f" for a file, "d" for a directory and # "l linkname" for a symlink -sub lsparse'line_unix +sub lsparse::line_unix { local( $fh ) = @_; local( $non_crud, $perm_denied ); @@ -132,7 +132,7 @@ while( <$fh> ){ # Store listing - print main'STORE $_; + print main::STORE $_; # Stomp on carriage returns s/\015//g; @@ -168,7 +168,7 @@ if( $perm_denied ){ $perm_denied = ""; warn "Warning: input corrupted by 'Permission denied'", - "errors, about line $. of $lsparse'name\n"; + "errors, about line $. of $lsparse::name\n"; next; } # Not found's are like Permission denied's. They can start part @@ -180,7 +180,7 @@ if( $not_found ){ $not_found = ""; warn "Warning: input corrupted by 'not found' errors", - " about line $. of $lsparse'name\n"; + " about line $. of $lsparse::name\n"; next; } @@ -196,7 +196,7 @@ next; } - local( $time ) = &main'lstime_to_time( $lsdate ); + local( $time ) = &main::lstime_to_time( $lsdate ); local( $type ) = '?'; local( $mode ) = 0; @@ -316,7 +316,7 @@ # time is a Un*x time value for the file # type is "f" for a file, "d" for a directory and # "l linkname" for a symlink -sub lsparse'line_dls +sub lsparse::line_dls { local( $fh ) = @_; local( $non_crud, $perm_denied ); @@ -327,7 +327,7 @@ while( <$fh> ){ # Store listing - print main'STORE $_; + print main::STORE $_; # Stomp on carriage returns s/\015//g; @@ -350,7 +350,7 @@ } else { # a file - $time = &main'lstime_to_time( $lsdate ); + $time = &main::lstime_to_time( $lsdate ); $type = 'f'; $mode = 0444; } @@ -400,7 +400,7 @@ # time is a Un*x time value for the file # type is "f" for a file, "d" for a directory and # "l linkname" for a symlink -sub lsparse'line_netware +sub lsparse::line_netware { local( $fh ) = @_; @@ -410,7 +410,7 @@ while( <$fh> ){ # Store listing - print main'STORE $_; + print main::STORE $_; # Stomp on carriage returns s/\015//g; @@ -435,7 +435,7 @@ if( $file eq '.' || $file eq '..' ){ next; } - local( $time ) = &main'lstime_to_time( $lsdate ); + local( $time ) = &main::lstime_to_time( $lsdate ); local( $type ) = '?'; local( $mode ) = 0; @@ -509,7 +509,7 @@ # time is a Un*x time value for the file # type is "f" for a file, "d" for a directory and # "l linkname" for a symlink -sub lsparse'line_vms +sub lsparse::line_vms { local( $fh ) = @_; local( $non_crud, $perm_denied ); @@ -520,7 +520,7 @@ while( <$fh> ){ # Store listing - print main'STORE $_; + print main::STORE $_; # Stomp on carriage returns s/\015//g; @@ -543,7 +543,7 @@ } # Upper case is so ugly - if( ! $lsparse'vms_keep_case ){ + if( ! $lsparse::vms_keep_case ){ tr/A-Z/a-z/; } @@ -584,7 +584,7 @@ $size = 0; if( $got ){ - local( $time ) = &main'lstime_to_time( $lsdate ); + local( $time ) = &main::lstime_to_time( $lsdate ); local( $type ) = 'f'; local( $mode ) = 0444; @@ -610,7 +610,7 @@ $mode = 0555; } - $lsparse'vers = $vers; + $lsparse::vers = $vers; #print "file=|$file| match=|$match| vms_strip=|$vms_strip|\n"; $file =~ s,^,/,; @@ -653,7 +653,7 @@ # time is a Un*x time value for the file # type is "f" for a file, "d" for a directory and # "l linkname" for a symlink -sub lsparse'line_dosftp +sub lsparse::line_dosftp { local( $fh ) = @_; @@ -670,7 +670,7 @@ $_ = <$fh>; # Store listing - print main'STORE $_; + print main::STORE $_; # Ignore the summary at the end and blank lines if( /^\d+ files?\./ || /^\s+$/ ){ @@ -691,7 +691,7 @@ # TODO: fix hacky 19$yr local( $lsdate ) = "$day-$mon-19$yr $hrs:$min"; - local( $time ) = &main'lstime_to_time( $lsdate ); + local( $time ) = &main::lstime_to_time( $lsdate ); local( $type ) = '?'; local( $mode ) = 0; @@ -736,7 +736,7 @@ # 03-08-94 07:17AM 5504 article.xfiles.intro # 02-28-94 11:44AM 3262 article1.gillian.anderson -sub lsparse'line_dosish +sub lsparse::line_dosish { local( $fh ) = @_; @@ -748,7 +748,7 @@ $_ = <$fh>; # Store listing - print main'STORE $_; + print main::STORE $_; # Ignore blank lines if( /^\s+$/ ){ @@ -775,7 +775,7 @@ # TODO: fix hacky 19$yr local( $lsdate ) = "$day-$mon-19$yr $hrs:$min"; - local( $time ) = &main'lstime_to_time( $lsdate ); + local( $time ) = &main::lstime_to_time( $lsdate ); local( $type ) = ($dir_or_size eq '<DIR>' ? 'd' : 'f'); local( $mode ) = 0; local( $size ) = 0; @@ -842,7 +842,7 @@ # WPKIT1.EXE 960338 06/21/95 17:01 # CMT.CSV 0 07/06/95 14:56 -sub lsparse'line_supertcp +sub lsparse::line_supertcp { local( $fh ) = @_; @@ -860,7 +860,7 @@ $_ = <$fh>; # Store listing - print main'STORE $_; + print main::STORE $_; # Ignore the summary at the end and blank lines if( /^\d+ files?\./ || /^\s+$/ ){ @@ -885,7 +885,7 @@ $pending = $5; local( $lsdate ) = "$day-$mon-$yr $time"; - local( $time ) = &main'lstime_to_time( $lsdate ); + local( $time ) = &main::lstime_to_time( $lsdate ); local( $type ) = '?'; local( $mode ) = 0; @@ -931,7 +931,7 @@ # 372 A 08-09-95 10:26 Aussie_1.bag # 310992 06-28-94 09:56 INSTALL.EXE -sub lsparse'line_os2 +sub lsparse::line_os2 { local( $fh ) = @_; @@ -943,7 +943,7 @@ $_ = <$fh>; # Store listing - print main'STORE $_; + print main::STORE $_; # Ignore blank lines if( /^\s+$/ ){ @@ -971,7 +971,7 @@ # TODO: fix hacky 19$yr local( $lsdate ) = "$day-$mon-19$yr $hrs:$min"; - local( $time ) = &main'lstime_to_time( $lsdate ); + local( $time ) = &main::lstime_to_time( $lsdate ); local( $type ) = ($dir eq 'DIR' ? 'd' : 'f'); local( $mode ) = 0; @@ -999,7 +999,7 @@ # time is a Un*x time value for the file # type is "f" for a file, "d" for a directory and # "l linkname" for a symlink -sub lsparse'line_chameleon +sub lsparse::line_chameleon { local( $fh ) = @_; @@ -1038,7 +1038,7 @@ $pending = $5; local( $lsdate ) = "$day-$mon-$yr $time"; - local( $time ) = &main'lstime_to_time( $lsdate ); + local( $time ) = &main::lstime_to_time( $lsdate ); local( $type ) = '?'; local( $mode ) = 0; @@ -1076,7 +1076,7 @@ # time is a Un*x time value for the file # type is "f" for a file, "d" for a directory and # "l linkname" for a symlink -sub lsparse'line_macos +sub lsparse::line_macos { local( $fh ) = @_; local( $non_crud, $perm_denied ); @@ -1087,7 +1087,7 @@ while( <$fh> ){ # Store listing - print main'STORE $_; + print main::STORE $_; # Stomp on carriage returns s/\015//g; @@ -1098,7 +1098,7 @@ if( /^([\-rwxd]{10}).*\s(\d+\s+)?(\S+)\s+\d+\s*(\w\w\w\s+\d+\s*(\d+:\d+|\d\d\d\d))\s+(.*)\n/ ){ local( $kind, $size, $lsdate, $file ) = ($1, $3, $4, $6); - local( $time ) = &main'lstime_to_time( $lsdate ); + local( $time ) = &main::lstime_to_time( $lsdate ); local( $type ) = '?'; local( $mode ) = 0; @@ -1126,18 +1126,18 @@ # --------------------- parse lsparse log file format -# lsparse'line_lsparse() is for input in lsparse's internal form, +# lsparse::line_lsparse() is for input in lsparse::s internal form, # as it might have been written to a log file during a previous # run of a program that uses lsparse. The format is: # filename size time type mode # where size and time are in decimal, mode is in decimal or octal, # and type is one or two words. -sub lsparse'line_lsparse +sub lsparse::line_lsparse { local( $fh ) = @_; - if( $lsparse'readtime ){ - alarm( $lsparse'readtime ); + if( $lsparse::readtime ){ + alarm( $lsparse::readtime ); } if( eof( $fh ) ){ @@ -1147,7 +1147,7 @@ while( <$fh> ){ # Store listing - print main'STORE $_; + print main::STORE $_; if( /^(\S+)\s+(\d+)\s+(\d+)\s+((l\s+)?\S+)\s+(\d+)\n$/ ){ # looks good. @@ -1174,12 +1174,12 @@ # This is the format used at sumex-aim.stanford.edu for the info-mac area. # (see info-mac/help/all-files.txt.gz). # -sub lsparse'line_infomac +sub lsparse::line_infomac { local( $fh ) = @_; - if( $lsparse'readtime ){ - alarm( $lsparse'readtime ); + if( $lsparse::readtime ){ + alarm( $lsparse::readtime ); } if( eof( $fh ) ){ @@ -1189,13 +1189,13 @@ while( <$fh> ){ # Store listing - print main'STORE $_; + print main::STORE $_; next if /^;/; if( /^([l-].)\s*(\d+)\s*(\w\w\w\s+\d+\s*(\d+:\d+|\d\d\d\d))\s+(.*)\n/ ){ local( $kind, $size, $lsdate, $file ) = ($1, $2, $3, $5); - local( $time ) = &main'lstime_to_time( $lsdate ); + local( $time ) = &main::lstime_to_time( $lsdate ); # This should be a symlink if( $kind =~ /^l/ && $file =~ /(.*) -> (.*)/ ){ @@ -1226,12 +1226,12 @@ # +i8388621.48638,m848117771,r,s1336, qmsmac.html # +i8388621.88705,m850544954,/, txt # -sub lsparse'line_eplf +sub lsparse::line_eplf { local( $fh ) = @_; - if( $lsparse'readtime ){ - alarm( $lsparse'readtime ); + if( $lsparse::readtime ){ + alarm( $lsparse::readtime ); } if( eof( $fh ) ){ @@ -1243,7 +1243,7 @@ s/\015//g; # Store listing - print main'STORE $_; + print main::STORE $_; # +i8388621.48638,m848117771,r,s1336, qmsmac.html # +i8388621.88705,m850544954,/, txt @@ -1272,12 +1272,12 @@ # --------------------- CTAN files list # 22670 Mon Jul 20 12:36:34 1992 pub/tex/biblio/bibtex/contrib/aaai-named.bst # -sub lsparse'line_ctan +sub lsparse::line_ctan { local( $fh ) = @_; - if( $lsparse'readtime ){ - alarm( $lsparse'readtime ); + if( $lsparse::readtime ){ + alarm( $lsparse::readtime ); } if( eof( $fh ) ){ @@ -1287,12 +1287,12 @@ while( <$fh> ){ # Store listing - print main'STORE $_; + print main::STORE $_; if( /^\s*(\d+)\s+(\w\w\w\s+\w\w\w\s+\d+\s+\d+:\d+:\d+\s+\d+)\s+(.*)\n/ ){ local( $size, $lsdate, $file ) = ($1, $2, $3); - local( $time ) = &main'lstime_to_time( $lsdate ); + local( $time ) = &main::lstime_to_time( $lsdate ); return( $file, $size, $time, 'f', 0444 ); } @@ -1317,12 +1317,12 @@ # time is a Un*x time value for the file -- this is good from the m/f # type is always "f" for a file -sub lsparse'line_cms +sub lsparse::line_cms { local( $fh ) = @_; - if( $lsparse'readtime ){ - alarm( $lsparse'readtime ); + if( $lsparse::readtime ){ + alarm( $lsparse::readtime ); } if( eof( $fh ) ){ @@ -1331,21 +1331,21 @@ } while( <$fh> ){ # Store listing - print main'STORE $_; + print main::STORE $_; chop; next unless /\d+\/\d+\/\d+\s+\d+:\d+:\d+/; s/^\s+//; # Upper case is so ugly - if( ! $lsparse'vms_keep_case ){ + if( ! $lsparse::vms_keep_case ){ tr/A-Z/a-z/; } local( $fname, $ftype, $fdisk, $rectype, $lrecl, $recs, $blocks, $ldate, $tod ) = split(/\s+/, $_); return( join('.', ($fname, $ftype, $fdisk)), - $lrecl * $recs, &main'lstime_to_time( "$ldate $tod" ), + $lrecl * $recs, &main::lstime_to_time( "$ldate $tod" ), 'f' ); } alarm( 0 );
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
