From owner-freebsd-hubs  Tue Mar 18 08:36:07 1997
Return-Path: <owner-hubs>
Received: (from root@localhost)
          by freefall.freebsd.org (8.8.5/8.8.5) id IAA04763
          for hubs-outgoing; Tue, 18 Mar 1997 08:36:07 -0800 (PST)
Received: from who.cdrom.com (who.cdrom.com [204.216.27.3])
          by freefall.freebsd.org (8.8.5/8.8.5) with ESMTP id IAA04738
          for <freebsd-hubs@freefall.freebsd.org>; Tue, 18 Mar 1997 08:36:02 -0800 (PST)
Received: from Campino.Informatik.RWTH-Aachen.DE (campino.Informatik.RWTH-Aachen.DE [137.226.116.240])
          by who.cdrom.com (8.8.5/8.6.11) with ESMTP id GAA29417
          for <freebsd-hubs@freefall.FreeBSD.org>; Tue, 18 Mar 1997 06:24:09 -0800 (PST)
Received: from gilberto.physik.rwth-aachen.de (gilberto.physik.rwth-aachen.de [137.226.31.2]) by Campino.Informatik.RWTH-Aachen.DE (RBI-Z-5/8.6.12)
	with ESMTP id PAA11144; Tue, 18 Mar 1997 15:20:26 +0100 (MET)
Received: (from kuku@localhost) by gilberto.physik.rwth-aachen.de (8.8.5/8.6.9) id PAA11205; Tue, 18 Mar 1997 15:28:36 +0100 (MET)
Date: Tue, 18 Mar 1997 15:28:36 +0100 (MET)
From: Christoph Kukulies <kuku@gilberto.physik.rwth-aachen.de>
Message-Id: <199703181428.PAA11205@gilberto.physik.rwth-aachen.de>
To: de-bsd-hubs@blues.physik.rwth-aachen.de, freebsd-hubs@freefall.freebsd.org
Subject: mirror/perl
Sender: owner-hubs@FreeBSD.ORG
X-Loop: FreeBSD.org
Precedence: bulk

Still trying to figure out why mirror always gets everything
when mirroring the whole shebang /pub/FreeBSD.

perl is perl5.003

I ran mirror -n -d -d -d -d -pall (where all is /pub/FreeBSD)
and tail of my mirror.out looks this:

       dest FreeBSD-CVS/src/gnu/lib/libmalloc/Attic/valloc.c,v (): 70/01/01-01:00:00 0 0
get file FreeBSD-CVS/src/gnu/lib/libmalloc/Attic/valloc.c,v as FreeBSD-CVS/src/gnu/lib/libmalloc/Attic/valloc.c,v (2274)
Compare src FreeBSD-CVS/src/gnu/lib/libmalloc/Attic/ralloc.c,v (46199): 97/02/17-23:00:00 14441 f
       dest FreeBSD-CVS/src/gnu/lib/libmalloc/Attic/ralloc.c,v (): 70/01/01-01:00:00 0 0
get file FreeBSD-CVS/src/gnu/lib/libmalloc/Attic/ralloc.c,v as FreeBSD-CVS/src/gnu/lib/libmalloc/Attic/ralloc.c,v (14441)
Compare src FreeBSD-CVS/src/gnu/lib/libmalloc/Attic/mtrace.c,v (46200): 97/02/17-23:00:00 5027 f
       dest FreeBSD-CVS/src/gnu/lib/libmalloc/Attic/mtrace.c,v (): 70/01/01-01:00:00 0 0
get file FreeBSD-CVS/src/gnu/lib/libmalloc/Attic/mtrace.c,v as FreeBSD-CVS/src/gnu/lib/libmalloc/Attic/mtrace.c,v (5027)
 prodding remote ftpd
Compare src FreeBSD-CVS/src/gnu/lib/libmalloc/Attic/mtrace.awk,v (46201): 97/02/17-23:00:00 1798 f           

One can see easily that the dest timestamp is 1-Jan-1970 (the unix big bang)

I believe this is the piece of code in mirror which is responsible for
the line aboved:

              if( $debug > 2 ){
                        &msg( "       dest $dest_path ($desti): " .
                                &t2str( $dest_time[ $desti ] ) );
                        &msg( " $dest_size[ $desti ] $dest_type[ $desti ]" );
                        &msg( " (->$compress_suffix)" ) if $compress;
                        &msg( " (split)" ) if $split;
                        &msg( "\n" );
                }
      

and I suspect:

sub t2str
{
        local( @t );
        if( $use_timelocal ){
                @t = localtime( $_[0] );
        }
        else {
                @t = gmtime( $_[0] );
        }
        local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = @t;

        return sprintf( "%02d/%02d/%02d-%02d:%02d:%02d",
                $year, $mon + 1, $mday, $hour, $him, $sec );
}
        

Any perl guru out there who could give me a hint what tiny test I could
run to locate the problem?


--
Christoph P. U. Kukulies kuku@gil.physik.rwth-aachen.de