Date: Mon, 12 Jan 2004 13:08:00 +0100 (CET) From: Lars Thegler <lars@thegler.dk> To: FreeBSD-gnats-submit@FreeBSD.org Subject: ports/61240: [NEW PORT] net/p5-File-RsyncP: Perl Rsync client Message-ID: <20040112120800.421E93EB5@dask.thegler.dk> Resent-Message-ID: <200401121210.i0CCAERe001017@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
>Number: 61240 >Category: ports >Synopsis: [NEW PORT] net/p5-File-RsyncP: Perl Rsync client >Confidential: no >Severity: non-critical >Priority: low >Responsible: freebsd-ports-bugs >State: open >Quarter: >Keywords: >Date-Required: >Class: change-request >Submitter-Id: current-users >Arrival-Date: Mon Jan 12 04:10:14 PST 2004 >Closed-Date: >Last-Modified: >Originator: Lars Thegler >Release: FreeBSD 4.9-STABLE i386 >Organization: >Environment: System: FreeBSD dask.thegler.dk 4.9-STABLE FreeBSD 4.9-STABLE #2: Wed Nov 5 11:25:36 CET >Description: File::RsyncP is a perl implementation of an Rsync client. It is compatible with Rsync 2.5.5 (protocol version 26). It can send or receive files, either by running rsync on the remote machine, or connecting to an rsyncd deamon on the remote machine. WWW: http://search.cpan.org/dist/File-RsyncP Generated with FreeBSD Port Tools 0.50 >How-To-Repeat: >Fix: --- p5-File-RsyncP-0.44.shar begins here --- # This is a shell archive. Save it in a file, remove anything before # this line, and then unpack it by entering "sh file". Note, it may # create directories; files and directories will be owned by you and # have default permissions. # # This archive contains: # # p5-File-RsyncP # p5-File-RsyncP/pkg-plist # p5-File-RsyncP/pkg-descr # p5-File-RsyncP/Makefile # p5-File-RsyncP/distinfo # p5-File-RsyncP/files # p5-File-RsyncP/files/patch-FileList.xs # p5-File-RsyncP/files/patch-FileIO.pm # p5-File-RsyncP/files/patch-RsyncP.pm # p5-File-RsyncP/files/patch-Digest.xs # p5-File-RsyncP/files/patch-FileList.pm # p5-File-RsyncP/files/patch-md4.h # echo c - p5-File-RsyncP mkdir -p p5-File-RsyncP > /dev/null 2>&1 echo x - p5-File-RsyncP/pkg-plist sed 's/^X//' >p5-File-RsyncP/pkg-plist << 'END-of-p5-File-RsyncP/pkg-plist' X%%SITE_PERL%%/%%PERL_ARCH%%/File/RsyncP.pm X%%SITE_PERL%%/%%PERL_ARCH%%/File/RsyncP/Digest.pm X%%SITE_PERL%%/%%PERL_ARCH%%/File/RsyncP/FileIO.pm X%%SITE_PERL%%/%%PERL_ARCH%%/File/RsyncP/FileList.pm X%%SITE_PERL%%/%%PERL_ARCH%%/auto/File/RsyncP/Digest/Digest.so X%%SITE_PERL%%/%%PERL_ARCH%%/auto/File/RsyncP/Digest/Digest.bs X%%SITE_PERL%%/%%PERL_ARCH%%/auto/File/RsyncP/Digest/autosplit.ix X%%SITE_PERL%%/%%PERL_ARCH%%/auto/File/RsyncP/FileList/FileList.so X%%SITE_PERL%%/%%PERL_ARCH%%/auto/File/RsyncP/FileList/FileList.bs X%%SITE_PERL%%/%%PERL_ARCH%%/auto/File/RsyncP/FileList/autosplit.ix X%%SITE_PERL%%/%%PERL_ARCH%%/auto/File/RsyncP/.packlist X@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/File/RsyncP/Digest 2>/dev/null || true X@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/File/RsyncP/FileList 2>/dev/null || true X@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/File/RsyncP 2>/dev/null || true X@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/File 2>/dev/null || true X@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/File/RsyncP 2>/dev/null || true X@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/File 2>/dev/null || true END-of-p5-File-RsyncP/pkg-plist echo x - p5-File-RsyncP/pkg-descr sed 's/^X//' >p5-File-RsyncP/pkg-descr << 'END-of-p5-File-RsyncP/pkg-descr' XFile::RsyncP is a perl implementation of an Rsync client. It is Xcompatible with Rsync 2.5.5 (protocol version 26). It can send or Xreceive files, either by running rsync on the remote machine, or Xconnecting to an rsyncd deamon on the remote machine. X XWWW: http://search.cpan.org/dist/File-RsyncP END-of-p5-File-RsyncP/pkg-descr echo x - p5-File-RsyncP/Makefile sed 's/^X//' >p5-File-RsyncP/Makefile << 'END-of-p5-File-RsyncP/Makefile' X# New ports collection makefile for: p5-File-RsyncP X# Date created: Mon Dec 22 10:30:25 GMT 2003 X# Whom: Lars Thegler <lars@thegler.dk> X# X# $FreeBSD$ X# X XPORTNAME= File-RsyncP XPORTVERSION= 0.44 XCATEGORIES= net perl5 XMASTER_SITES= ${MASTER_SITE_PERL_CPAN} XMASTER_SITE_SUBDIR= File XPKGNAMEPREFIX= p5- X XMAINTAINER= lars@thegler.dk XCOMMENT= Perl Rsync client X XPERL_CONFIGURE= yes X XMAN3= File::RsyncP.3 \ X File::RsyncP::Digest.3 \ X File::RsyncP::FileList.3 \ X File::RsyncP::FileIO.3 X Xpost-patch: X @${FIND} ${WRKSRC} -name \*.orig -delete X X.include <bsd.port.mk> END-of-p5-File-RsyncP/Makefile echo x - p5-File-RsyncP/distinfo sed 's/^X//' >p5-File-RsyncP/distinfo << 'END-of-p5-File-RsyncP/distinfo' XMD5 (File-RsyncP-0.44.tar.gz) = 1c238af568362c8ed6da7d2691fda1bb END-of-p5-File-RsyncP/distinfo echo c - p5-File-RsyncP/files mkdir -p p5-File-RsyncP/files > /dev/null 2>&1 echo x - p5-File-RsyncP/files/patch-FileList.xs sed 's/^X//' >p5-File-RsyncP/files/patch-FileList.xs << 'END-of-p5-File-RsyncP/files/patch-FileList.xs' X--- FileList/FileList.xs.orig Thu Jul 24 04:33:37 2003 X+++ FileList/FileList.xs Mon Jan 12 10:27:51 2004 X@@ -93,8 +93,9 @@ X PROTOTYPES: DISABLE X X File::RsyncP::FileList X-new(packname = "File::RsyncP::FileList", SV* opts = NULL) X+new(packname = "File::RsyncP::FileList", opts = NULL) X char *packname X+ SV* opts X CODE: X { X RETVAL = flist_new(); X@@ -187,14 +188,14 @@ X if ( file->sum ) X hv_store(rh, "sum", 3, newSVpv(file->sum, 0), 0); X hv_store(rh, "name", 4, newSVpv(f_name(file), 0), 0); X- hv_store(rh, "uid", 3, newSVuv(file->uid), 0); X- hv_store(rh, "gid", 3, newSVuv(file->gid), 0); X- hv_store(rh, "mode", 4, newSVuv(file->mode), 0); X- hv_store(rh, "mtime", 5, newSVuv(file->modtime), 0); X+ hv_store(rh, "uid", 3, newSViv(file->uid), 0); X+ hv_store(rh, "gid", 3, newSViv(file->gid), 0); X+ hv_store(rh, "mode", 4, newSViv(file->mode), 0); X+ hv_store(rh, "mtime", 5, newSViv(file->modtime), 0); X hv_store(rh, "size", 4, newSVnv(file->length), 0); X hv_store(rh, "dev", 3, newSVnv(file->dev), 0); X hv_store(rh, "inode", 5, newSVnv(file->inode), 0); X- hv_store(rh, "rdev", 4, newSVuv(file->rdev), 0); X+ hv_store(rh, "rdev", 4, newSViv(file->rdev), 0); X RETVAL = newRV((SV*)rh); X } X OUTPUT: X@@ -210,9 +211,10 @@ X } X X void X-encode(flist, SV* data) X+encode(flist, data) X INPUT: X File::RsyncP::FileList flist X+ SV* data X CODE: X { X struct file_struct file, *fileCopy; END-of-p5-File-RsyncP/files/patch-FileList.xs echo x - p5-File-RsyncP/files/patch-FileIO.pm sed 's/^X//' >p5-File-RsyncP/files/patch-FileIO.pm << 'END-of-p5-File-RsyncP/files/patch-FileIO.pm' X--- lib/File/RsyncP/FileIO.pm.orig Thu Jul 24 04:33:37 2003 X+++ lib/File/RsyncP/FileIO.pm Mon Jan 12 10:57:29 2004 X@@ -44,7 +44,7 @@ X use File::Find; X use Data::Dumper; X X-our $VERSION = '0.44'; X+use vars qw($VERSION); $VERSION = '0.44'; X X use constant S_IFMT => 0170000; # type of file X use constant S_IFDIR => 0040000; # directory X@@ -664,7 +664,7 @@ X X foreach my $str ( @logStr ) { X next if ( $str eq "" ); X- $fio->{logHandler}($str); X+ $fio->{logHandler}->($str); X } X } X END-of-p5-File-RsyncP/files/patch-FileIO.pm echo x - p5-File-RsyncP/files/patch-RsyncP.pm sed 's/^X//' >p5-File-RsyncP/files/patch-RsyncP.pm << 'END-of-p5-File-RsyncP/files/patch-RsyncP.pm' X--- lib/File/RsyncP.pm.orig Thu Jul 24 04:33:37 2003 X+++ lib/File/RsyncP.pm Mon Jan 12 10:31:36 2004 X@@ -48,7 +48,7 @@ X use Getopt::Long; X use Data::Dumper; X X-our $VERSION = '0.44'; X+use vars qw($VERSION); $VERSION = '0.44'; X X use constant S_IFMT => 0170000; # type of file X use constant S_IFDIR => 0040000; # directory X@@ -267,7 +267,7 @@ X close(RSYNC); X $rs->{fh} = *FH; X $rs->{rsyncPID} = $pid; X- $rs->{pidHandler}($rs->{rsyncPID}, $rs->{childPID}) X+ $rs->{pidHandler}->($rs->{rsyncPID}, $rs->{childPID}) X if ( defined($rs->{pidHandler}) ); X # X # Write our version and get the remote version X@@ -391,7 +391,7 @@ X $rs->{childFh} = *RH; X $rs->{childPID} = $pid; X $rs->log("Child PID is $pid") if ( $rs->{logLevel} >= 2 ); X- $rs->{pidHandler}($rs->{rsyncPID}, $rs->{childPID}) X+ $rs->{pidHandler}->($rs->{rsyncPID}, $rs->{childPID}) X if ( defined($rs->{pidHandler}) ); X setsockopt($rs->{fh}, SOL_SOCKET, SO_SNDBUF, 8 * 65536); X setsockopt($rs->{childFh}, SOL_SOCKET, SO_RCVBUF, 8 * 65536); X@@ -1088,7 +1088,7 @@ X X foreach my $str ( @logStr ) { X next if ( $str eq "" ); X- $rs->{logHandler}($str); X+ $rs->{logHandler}->($str); X } X } X END-of-p5-File-RsyncP/files/patch-RsyncP.pm echo x - p5-File-RsyncP/files/patch-Digest.xs sed 's/^X//' >p5-File-RsyncP/files/patch-Digest.xs << 'END-of-p5-File-RsyncP/files/patch-Digest.xs' X--- Digest/Digest.xs.orig Sat Jan 10 16:27:37 2004 X+++ Digest/Digest.xs Sat Jan 10 16:28:38 2004 X@@ -169,8 +169,7 @@ X } X X SV * X-blockDigestUpdate(context, dataV, blockSize=700, blockLastLen=0, \ X- md4DigestLen=16, seed=0) X+blockDigestUpdate(context, dataV, blockSize=700, blockLastLen=0, md4DigestLen=16, seed=0) X PREINIT: X STRLEN len; X INPUT: END-of-p5-File-RsyncP/files/patch-Digest.xs echo x - p5-File-RsyncP/files/patch-FileList.pm sed 's/^X//' >p5-File-RsyncP/files/patch-FileList.pm << 'END-of-p5-File-RsyncP/files/patch-FileList.pm' X--- FileList/FileList.pm.orig Mon Jan 12 10:52:48 2004 X+++ FileList/FileList.pm Mon Jan 12 10:53:50 2004 X@@ -39,14 +39,13 @@ X X package File::RsyncP::FileList; X X-use 5.006; X use strict; X-use warnings; X X require Exporter; X require DynaLoader; X X-our @ISA = qw(Exporter AutoLoader DynaLoader); X+use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION); X+@ISA = qw(Exporter AutoLoader DynaLoader); X X # Items to export into callers namespace by default. Note: do not export X # names by default without a very good reason. Use EXPORT_OK instead. X@@ -55,16 +54,16 @@ X # This allows declaration use File::RsyncP::FileList ':all'; X # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK X # will save memory. X-our %EXPORT_TAGS = ( 'all' => [ qw( X+%EXPORT_TAGS = ( 'all' => [ qw( X X ) ] ); X X-our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); X+@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); X X-our @EXPORT = qw( X+@EXPORT = qw( X X ); X-our $VERSION = '0.44'; X+$VERSION = '0.44'; X X bootstrap File::RsyncP::FileList $VERSION; X END-of-p5-File-RsyncP/files/patch-FileList.pm echo x - p5-File-RsyncP/files/patch-md4.h sed 's/^X//' >p5-File-RsyncP/files/patch-md4.h << 'END-of-p5-File-RsyncP/files/patch-md4.h' X--- Digest/md4.h.orig Mon Jan 12 10:37:04 2004 X+++ Digest/md4.h Mon Jan 12 10:44:59 2004 X@@ -38,6 +38,13 @@ X unsigned char rsyncBug; X } MD4_CTX; X X+#define MD4Init myMD4Init X+#define MD4Update myMD4Update X+#define MD4Final myMD4Final X+#define MD4Encode myMD4Encode X+#define MD4FinalRsync myMD4FinalRsync X+#define MD4Decode myMD4Decode X+ X void MD4Init PROTO_LIST ((MD4_CTX *)); X void MD4Update PROTO_LIST X ((MD4_CTX *, unsigned char *, unsigned int)); END-of-p5-File-RsyncP/files/patch-md4.h exit --- p5-File-RsyncP-0.44.shar ends here --- >Release-Note: >Audit-Trail: >Unformatted:
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20040112120800.421E93EB5>