- update included Spread.pm to the latest version
http://search.cpan.org/CPAN/authors/id/J/JE/JESUS/Spread-3.17.4.4.tar.gz - assign the port from apache@ tp ports@ (port is not apache related) PR: ports/170124 Submitted by: Marcello Coutinho <marcellocoutinho@gmail.com>
This commit is contained in:
Olli Hauer
parent
d5af3dfc8a
commit
c7a7fd8bcb
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=303152
@ -7,12 +7,12 @@
|
||||
|
||||
PORTNAME= spread
|
||||
PORTVERSION= 3.17.4
|
||||
PORTREVISION= 1
|
||||
PORTREVISION= 2
|
||||
CATEGORIES= net perl5
|
||||
MASTER_SITES= http://www.edu-linux.org/down/
|
||||
DISTNAME= ${PORTNAME}-src-${PORTVERSION}
|
||||
|
||||
MAINTAINER= apache@FreeBSD.org
|
||||
MAINTAINER= ports@FreeBSD.org
|
||||
COMMENT= The Spread Group Communication System, a network toolkit
|
||||
|
||||
MAKE_JOBS_UNSAFE= yes
|
||||
|
||||
@ -1,13 +1,124 @@
|
||||
--- perl/Spread/Spread.pm Mon Dec 8 21:12:18 2003
|
||||
+++ perl/Spread/Spread.pm Mon Dec 8 21:15:44 2003
|
||||
@@ -177,8 +177,8 @@
|
||||
# This patch updates the included perl module to the latest version.
|
||||
# Original Spread.pm plus included test script can be found here:
|
||||
# http://search.cpan.org/CPAN/authors/id/J/JE/JESUS/Spread-3.17.4.4.tar.gz
|
||||
===========================================================================
|
||||
--- ./perl/Spread/Spread.pm.orig 2002-09-26 15:54:46.000000000 +0200
|
||||
+++ ./perl/Spread/Spread.pm 2012-08-25 20:16:53.000000000 +0200
|
||||
@@ -1,9 +1,8 @@
|
||||
# Filename: Spread.pm
|
||||
# Author: Theo Schlossnagle <jesus@cnds.jhu.edu>
|
||||
# Created: 12th October 1999
|
||||
-# Version: 1.03152
|
||||
#
|
||||
-# Copyright (c) 1999-2001 Theo Schlossnagle. All rights reserved.
|
||||
+# Copyright (c) 1999-2006,2008 Theo Schlossnagle. All rights reserved.
|
||||
# This program is free software; you can redistribute it and/or
|
||||
# modify it under the same terms as Perl itself.
|
||||
#
|
||||
@@ -20,7 +19,7 @@
|
||||
use strict;
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
|
||||
|
||||
-$VERSION = "3.17.0-1.04" ;
|
||||
+$VERSION = "3.17.4.4" ;
|
||||
|
||||
*SP_connect = \&Spread::connect;
|
||||
*SP_disconnect = \&Spread::disconnect;
|
||||
@@ -52,7 +51,8 @@
|
||||
CAUSED_BY_LEAVE
|
||||
CAUSED_BY_DISCONNECT
|
||||
CAUSED_BY_NETWORK
|
||||
- MEMBERSHIP_MESS) ],
|
||||
+ MEMBERSHIP_MESS
|
||||
+ REJECT_MESS) ],
|
||||
ERROR => [ qw($sperrno
|
||||
ACCEPT_SESSION
|
||||
ILLEGAL_GROUP
|
||||
@@ -71,7 +71,7 @@
|
||||
REJECT_QUOTA
|
||||
REJECT_VERSION) ],
|
||||
SP => [ qw(SP_connect
|
||||
- SP_disconnecct
|
||||
+ SP_disconnect
|
||||
SP_join
|
||||
SP_leave
|
||||
SP_receive
|
||||
@@ -101,6 +101,7 @@
|
||||
CAUSED_BY_DISCONNECT
|
||||
CAUSED_BY_NETWORK
|
||||
MEMBERSHIP_MESS
|
||||
+ REJECT_MESS
|
||||
|
||||
ACCEPT_SESSION
|
||||
ILLEGAL_GROUP
|
||||
@@ -120,7 +121,7 @@
|
||||
REJECT_VERSION
|
||||
|
||||
SP_connect
|
||||
- SP_disconnecct
|
||||
+ SP_disconnect
|
||||
SP_join
|
||||
SP_leave
|
||||
SP_receive
|
||||
@@ -165,8 +166,6 @@
|
||||
1;
|
||||
__END__
|
||||
|
||||
-# Below is the stub of documentation for your module. You better edit it!
|
||||
-
|
||||
=head1 NAME
|
||||
|
||||
Spread - Perl extension for the Spread group communication system
|
||||
@@ -176,15 +175,21 @@
|
||||
use Spread;
|
||||
|
||||
# Connect
|
||||
my($mailbox, $private_group) = Spread::connect(
|
||||
- spread_name => '4444@host.domain.com',
|
||||
- private_name => 'mrcool',
|
||||
+ { spread_name => '4803@host.domain.com',
|
||||
+ private_name => 'mrcool', }
|
||||
);
|
||||
- my($mailbox, $private_group) = Spread::connect(
|
||||
+ my($mbox, $private_group) = Spread::connect( {
|
||||
spread_name => '4444@host.domain.com',
|
||||
private_name => 'mrcool',
|
||||
- );
|
||||
+ } );
|
||||
+
|
||||
+ # If you don't give a private name, you'll get a unique name from the spread daemon.
|
||||
+ my($mailbox, $private_group) = Spread::connect(
|
||||
+ spread_name => '4444@host.domain.com',
|
||||
+ );
|
||||
+
|
||||
|
||||
# Join and leave groups
|
||||
my(@group_to_join) = ( 'GroupA', 'GroupB', 'GroupC' );
|
||||
my(@joined_groups) = grep( Spread::join($mbox, $_), @group_to_join );
|
||||
- print "Spread::join -- $sperrorno"
|
||||
+ print "Spread::join -- $sperrno"
|
||||
unless (Spread::leave($mbox, 'GroupC'));
|
||||
|
||||
# Multicast to group(s)
|
||||
@@ -204,7 +209,7 @@
|
||||
|
||||
# Disconnect
|
||||
if(Spread::disconnect($mbox)) { print "Successful disconnect\n"; }
|
||||
- else { print "Spread::disconnect -- $sperrorno\n"; }
|
||||
+ else { print "Spread::disconnect -- $sperrno\n"; }
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
@@ -213,8 +218,8 @@
|
||||
See man pages for SP_connect, SP_join, SP_multicast, SP_receive,
|
||||
SP_poll, SP_error, SP_leave, SP_disconnect.
|
||||
|
||||
-$sperror holds either the integer spread error or a descriptive string
|
||||
-depending on the context in which $sperror is used.
|
||||
+$sperrno holds either the integer spread error or a descriptive string
|
||||
+depending on the context in which $sperrno is used.
|
||||
|
||||
=head1 Exported constants
|
||||
|
||||
@@ -268,6 +273,7 @@
|
||||
REGULAR_MESS
|
||||
REG_MEMB_MESS
|
||||
REJECT_ILLEGAL_NAME
|
||||
+ REJECT_MESS
|
||||
REJECT_NOT_UNIQUE
|
||||
REJECT_NO_NAME
|
||||
REJECT_QUOTA
|
||||
|
||||
Loading…
Reference in New Issue
Block a user