Update of /cvsroot/leaf/src/bering-uclibc4/source/perl
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv29843
Added Files:
buildtool.cfg buildtool.mk perl-5.12.1.tar.bz2 Socket6.pm
Log Message:
add a more or less full-flegded perl version
includes all modules necessary to run perl-based shorewall and shorewall6
--- NEW FILE: buildtool.mk ---
# makefile for perl
include $(MASTERMAKEFILE)
PERL_DIR:=perl-5.12.1
PERL_TARGET_DIR:=$(BT_BUILD_DIR)/perl
$(PERL_DIR)/.source:
bzcat $(PERL_SOURCE) | tar -xvf -
touch $(PERL_DIR)/.source
source: $(PERL_DIR)/.source
$(PERL_DIR)/.configured: $(PERL_DIR)/.source
( cd $(PERL_DIR) ; CC=$(TARGET_CC) LD=$(TARGET_LD)
CFLAGS="$(BT_COPT_FLAGS) -g -Wall" ./Configure -de -Dprefix=/usr \
-Ud_eaccess )
touch $(PERL_DIR)/.configured
$(PERL_DIR)/.build: $(PERL_DIR)/.configured
mkdir -p $(PERL_TARGET_DIR)
mkdir -p $(PERL_TARGET_DIR)/usr/bin
mkdir -p $(PERL_TARGET_DIR)/usr/lib/perl5/5.12.1
$(MAKE) CC=$(TARGET_CC) -C $(PERL_DIR)
$(BT_STRIP) $(BT_STRIP_BINOPTS) $(PERL_DIR)/perl
cp -a $(PERL_DIR)/perl $(PERL_TARGET_DIR)/usr/bin
cp -a $(PERL_DIR)/lib/* $(PERL_TARGET_DIR)/usr/lib/perl5/5.12.1
cp -a $(PERL_DIR)/../Socket6.pm $(PERL_TARGET_DIR)/usr/lib/perl5/5.12.1
cp -a $(PERL_TARGET_DIR)/* $(BT_STAGING_DIR)
touch $(PERL_DIR)/.build
build: $(PERL_DIR)/.build
clean:
-$(MAKE) -C $(PERL_DIR) clean
rm -rf $(PERL_TARGET_DIR)
rm -f $(PERL_DIR)/.build
rm -rf $(BT_STAGING_DIR)/usr/lib/perl5/5.12.1
rm -rf $(PERL_TARGET_DIR)/usr/lib/perl5/5.12.1
# this is probably not enough?
rm -f $(PERL_DIR)/.configured
srcclean: clean
rm -f $(PERL_DIR)/.source
rm -rf $(PERL_DIR)
--- NEW FILE: perl-5.12.1.tar.bz2 ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: Socket6.pm ---
# Copyright (C) 2000-2008 Hajimu UMEMOTO <[email protected]>.
# All rights reserved.
#
# This module is besed on perl5.005_55-v6-19990721 written by KAME
# Project.
#
# Copyright (C) 1995, 1996, 1997, 1998, and 1999 WIDE Project.
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# 3. Neither the name of the project nor the names of its contributors
# may be used to endorse or promote products derived from this software
# without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
# $Id: Socket6.pm,v 1.1 2010/06/22 18:24:37 kapeka Exp $
package Socket6;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
$VERSION = "0.23";
=head1 NAME
Socket6 - IPv6 related part of the C socket.h defines and structure manipulators
=head1 SYNOPSIS
use Socket;
use Socket6;
@res = getaddrinfo('hishost.com', 'daytime', AF_UNSPEC, SOCK_STREAM);
$family = -1;
while (scalar(@res) >= 5) {
($family, $socktype, $proto, $saddr, $canonname, @res) = @res;
($host, $port) = getnameinfo($saddr, NI_NUMERICHOST | NI_NUMERICSERV);
print STDERR "Trying to connect to $host port port $port...\n";
socket(Socket_Handle, $family, $socktype, $proto) || next;
connect(Socket_Handle, $saddr) && last;
close(Socket_Handle);
$family = -1;
}
if ($family != -1) {
print STDERR "connected to $host port port $port\n";
} else {
die "connect attempt failed\n";
}
=head1 DESCRIPTION
This module provides glue routines to the various IPv6 functions.
If you use the Socket6 module,
be sure to specify "use Socket" as well as "use Socket6".
Functions supplied are:
=item inet_pton FAMILY, TEXT_ADDRESS
This function takes an IP address in presentation (or string) format
and converts it into numeric (or binary) format.
The type of IP address conversion (IPv4 versus IPv6) is controlled
by the FAMILY argument.
=item inet_ntop FAMILY, BINARY_ADDRESS
This function takes an IP address in numeric (or binary) format
and converts it into presentation (or string) format
The type of IP address conversion (IPv4 versus IPv6) is controlled
by the FAMILY argument.
=item pack_sockaddr_in6 PORT, ADDR
This function takes two arguments: a port number, and a 16-octet
IPv6 address structure (as returned by inet_pton()).
It returns the sockaddr_in6 structure with these arguments packed
into their correct fields, as well as the AF_INET6 family.
The other fields are not set and their values should not be relied upon.
=item pack_sockaddr_in6_all PORT, FLOWINFO, ADDR, SCOPEID
This function takes four arguments: a port number, a 16-octet
IPv6 address structure (as returned by inet_pton), any
special flow information, and any specific scope information.
It returns a complete sockaddr_in6 structure with these arguments packed
into their correct fields, as well as the AF_INET6 family.
=item unpack_sockaddr_in6 NAME
This function takes a sockaddr_in6 structure (as returned by
pack_sockaddr_in6()) and returns a list of of two elements:
the port number and the 16-octet IP address.
This function will croak if it determines it has not been
passed an IPv6 structure.
=item unpack_sockaddr_in6_all NAME
This function takes a sockaddr_in6 structure (as returned by
pack_sockaddr_in6()) and returns a list of of four elements:
the port number, the flow information, the 16-octet IP address,
and the scope information.
This function will croak if it determines it has not been
passed an IPv6 structure.
=item gethostbyname2 HOSTNAME, FAMILY
=item getaddrinfo NODENAME, SERVICENAME, [FAMILY, SOCKTYPE, PROTOCOL, FLAGS]
This function converts node names to addresses and service names
to port numbers.
If the NODENAME argument is not a false value,
then a nodename to address lookup is performed;
otherwise a service name to port number lookup is performed.
At least one of NODENAME and SERVICENAME must have a true value.
If the lookup is successful, a list consisting of multiples of
five elements is returned.
Each group of five elements consists of the address family,
socket type, protocol, 16-octet IP address, and the canonical
name (undef if the node name passed is already the canonical name).
The arguments FAMILY, SOCKTYPE, PROTOCOL, and FLAGS are all optional.
This function will croak if it determines it has not been
passed an IPv6 structure.
If the lookup is unsuccessful, the function returns a single scalar.
This will contain the string version of that error in string context,
and the numeric value in numeric context.
=item getnameinfo NAME, [FLAGS]
This function takes a socket address structure. If successful, it returns
two strings containing the node name and service name.
The optional FLAGS argument controls what kind of lookup is performed.
If the lookup is unsuccessful, the function returns a single scalar.
This will contain the string version of that error in string context,
and the numeric value in numeric context.
=item getipnodebyname HOST, [FAMILY, FLAGS]
This function takes either a node name or an IP address string
and performs a lookup on that name (or conversion of the string).
It returns a list of five elements: the canonical host name,
the address family, the length in octets of the IP addresses
returned, a reference to a list of IP address structures, and
a reference to a list of aliases for the host name.
The arguments FAMILY and FLAGS are optional.
Note: This function does not handle IPv6 scope identifiers,
and should be used with care.
And, this function was deprecated in RFC3493.
The getnameinfo function should be used instead.
=item getipnodebyaddr FAMILY, ADDRESS
This function takes an IP address family and an IP address structure
and performs a reverse lookup on that address.
It returns a list of five elements: the canonical host name,
the address family, the length in octets of the IP addresses
returned, a reference to a list of IP address structures, and
a reference to a list of aliases for the host name.
Note: This function does not handle IPv6 scope identifiers,
and should be used with care.
And, this function was deprecated in RFC3493.
The getaddrinfo function should be used instead.
=item gai_strerror ERROR_NUMBER
This function returns a string corresponding to the error number
passed in as an argument.
=item in6addr_any
This function returns the 16-octet wildcard address.
=item in6add_loopback
This function returns the 16-octet loopback address.
=over
=back
=cut
use Carp;
use base qw(Exporter DynaLoader);
@EXPORT = qw(
inet_pton inet_ntop pack_sockaddr_in6 pack_sockaddr_in6_all
unpack_sockaddr_in6 unpack_sockaddr_in6_all sockaddr_in6
gethostbyname2 getaddrinfo getnameinfo
in6addr_any in6addr_loopback
gai_strerror getipnodebyname getipnodebyaddr
AI_ADDRCONFIG
AI_ALL
AI_CANONNAME
AI_NUMERICHOST
AI_NUMERICSERV
AI_DEFAULT
AI_MASK
AI_PASSIVE
AI_V4MAPPED
AI_V4MAPPED_CFG
EAI_ADDRFAMILY
EAI_AGAIN
EAI_BADFLAGS
EAI_FAIL
EAI_FAMILY
EAI_MEMORY
EAI_NODATA
EAI_NONAME
EAI_SERVICE
EAI_SOCKTYPE
EAI_SYSTEM
EAI_BADHINTS
EAI_PROTOCOL
IP_AUTH_TRANS_LEVEL
IP_AUTH_NETWORK_LEVEL
IP_ESP_TRANS_LEVEL
IP_ESP_NETWORK_LEVEL
IPPROTO_IP
IPPROTO_IPV6
IPSEC_LEVEL_AVAIL
IPSEC_LEVEL_BYPASS
IPSEC_LEVEL_DEFAULT
IPSEC_LEVEL_NONE
IPSEC_LEVEL_REQUIRE
IPSEC_LEVEL_UNIQUE
IPSEC_LEVEL_USE
IPV6_AUTH_TRANS_LEVEL
IPV6_AUTH_NETWORK_LEVEL
IPV6_ESP_NETWORK_LEVEL
IPV6_ESP_TRANS_LEVEL
NI_NOFQDN
NI_NUMERICHOST
NI_NAMEREQD
NI_NUMERICSERV
NI_DGRAM
NI_WITHSCOPEID
);
push @EXPORT, qw(AF_INET6) unless defined eval {Socket::AF_INET6()};
push @EXPORT, qw(PF_INET6) unless defined eval {Socket::PF_INET6()};
@EXPORT_OK = qw(AF_INET6 PF_INET6);
%EXPORT_TAGS = (
all => [...@export],
);
sub sockaddr_in6 {
if (wantarray) {
croak "usage: (port,iaddr) = sockaddr_in6(sin_sv)" unless @_ == 1;
unpack_sockaddr_in6(@_);
} else {
croak "usage: sin_sv = sockaddr_in6(port,iaddr))" unless @_ == 2;
pack_sockaddr_in6(@_);
}
}
sub AUTOLOAD {
my($constname);
($constname = $AUTOLOAD) =~ s/.*:://o;
$! = 0;
my $val = constant($constname, @_ ? $_[0] : 0);
if ($! != 0) {
croak "Your vendor has not defined Socket macro $constname, used";
}
eval "sub $AUTOLOAD { $val }";
goto &$AUTOLOAD;
}
bootstrap Socket6 $VERSION;
1;
--- NEW FILE: buildtool.cfg ---
<File buildtool.mk>
Server = cvs4-sourceforge
Revision = HEAD
Directory = perl
</File>
<File perl-5.12.1.tar.bz2>
Server = cvs4-sourceforge
Revision = HEAD
envname = PERL_SOURCE
Directory = perl
</File>
<File Socket6.pm>
Server = cvs4-sourceforge
Revision = HEAD
Directory = perl
</File>
<Package>
<perl>
Version = 5.12.1
Revision = 1
Help <<EOF
The full-fledged perl binary, including all modules necessary
to run perl-based shorewall(6).
Homepage: http://www.perl.com/
Requires: libm.lrp
LEAF package by __PACKAGER__, __BUILDDATE__
EOF
<Permissions>
Files = 644
Directories = 755
</Permissions>
<Owner>
Files = root:root
Directories = root:root
</Owner>
<Contents>
<File>
Filename = usr/bin/perl
Source = usr/bin/perl
Type = binary
Permissions = 755
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/AutoLoader.pm
Source =
usr/lib/perl5/5.12.1/AutoLoader.pm
Type = binary
Permissions = 444
</File>
<File>
Filename = usr/lib/perl5/5.12.1/B.pm
Source = usr/lib/perl5/5.12.1/B.pm
Type = binary
Permissions = 444
</File>
<File>
Filename = usr/lib/perl5/5.12.1/Carp.pm
Source = usr/lib/perl5/5.12.1/Carp.pm
Type = binary
Permissions = 444
</File>
<File>
Filename = usr/lib/perl5/5.12.1/Config.pm
Source = usr/lib/perl5/5.12.1/Config.pm
Type = binary
Permissions = 644
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/Config_git.pl
Source =
usr/lib/perl5/5.12.1/Config_git.pl
Type = binary
Permissions = 644
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/Config_heavy.pl
Source =
usr/lib/perl5/5.12.1/Config_heavy.pl
Type = binary
Permissions = 644
</File>
<File>
Filename = usr/lib/perl5/5.12.1/Cwd.pm
Source = usr/lib/perl5/5.12.1/Cwd.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/DynaLoader.pm
Source =
usr/lib/perl5/5.12.1/DynaLoader.pm
Type = binary
Permissions = 444
</File>
<File>
Filename = usr/lib/perl5/5.12.1/Errno.pm
Source = usr/lib/perl5/5.12.1/Errno.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/Exporter.pm
Source =
usr/lib/perl5/5.12.1/Exporter.pm
Type = binary
Permissions = 444
</File>
<File>
Filename = usr/lib/perl5/5.12.1/Fcntl.pm
Source = usr/lib/perl5/5.12.1/Fcntl.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/FindBin.pm
Source =
usr/lib/perl5/5.12.1/FindBin.pm
Type = binary
Permissions = 444
</File>
<File>
Filename = usr/lib/perl5/5.12.1/IO.pm
Source = usr/lib/perl5/5.12.1/IO.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/SelectSaver.pm
Source =
usr/lib/perl5/5.12.1/SelectSaver.pm
Type = binary
Permissions = 444
</File>
<File>
Filename = usr/lib/perl5/5.12.1/Socket.pm
Source = usr/lib/perl5/5.12.1/Socket.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/Socket6.pm
Source =
usr/lib/perl5/5.12.1/Socket6.pm
Type = binary
Permissions = 444
</File>
<File>
Filename = usr/lib/perl5/5.12.1/Symbol.pm
Source = usr/lib/perl5/5.12.1/Symbol.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/XSLoader.pm
Source =
usr/lib/perl5/5.12.1/XSLoader.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/autouse.pm
Source =
usr/lib/perl5/5.12.1/autouse.pm
Type = binary
Permissions = 444
</File>
<File>
Filename = usr/lib/perl5/5.12.1/base.pm
Source = usr/lib/perl5/5.12.1/base.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/constant.pm
Source =
usr/lib/perl5/5.12.1/constant.pm
Type = binary
Permissions = 444
</File>
<File>
Filename = usr/lib/perl5/5.12.1/lib.pm
Source = usr/lib/perl5/5.12.1/lib.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/overload.pm
Source =
usr/lib/perl5/5.12.1/overload.pm
Type = binary
Permissions = 444
</File>
<File>
Filename = usr/lib/perl5/5.12.1/strict.pm
Source = usr/lib/perl5/5.12.1/strict.pm
Type = binary
Permissions = 444
</File>
<File>
Filename = usr/lib/perl5/5.12.1/vars.pm
Source = usr/lib/perl5/5.12.1/vars.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/warnings.pm
Source =
usr/lib/perl5/5.12.1/warnings.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/Exporter/Heavy.pm
Source =
usr/lib/perl5/5.12.1/Exporter/Heavy.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/File/Basename.pm
Source =
usr/lib/perl5/5.12.1/File/Basename.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/File/Path.pm
Source =
usr/lib/perl5/5.12.1/File/Path.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/File/Spec.pm
Source =
usr/lib/perl5/5.12.1/File/Spec.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/File/Temp.pm
Source =
usr/lib/perl5/5.12.1/File/Temp.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/File/Spec/Unix.pm
Source =
usr/lib/perl5/5.12.1/File/Spec/Unix.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/Getopt/Long.pm
Source =
usr/lib/perl5/5.12.1/Getopt/Long.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/IO/Handle.pm
Source =
usr/lib/perl5/5.12.1/IO/Handle.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/IO/Seekable.pm
Source =
usr/lib/perl5/5.12.1/IO/Seekable.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/List/Util.pm
Source =
usr/lib/perl5/5.12.1/List/Util.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/List/Util/PP.pm
Source =
usr/lib/perl5/5.12.1/List/Util/PP.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/Scalar/Util.pm
Source =
usr/lib/perl5/5.12.1/Scalar/Util.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/Scalar/Util/PP.pm
Source =
usr/lib/perl5/5.12.1/Scalar/Util/PP.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/warnings/register.pm
Source =
usr/lib/perl5/5.12.1/warnings/register.pm
Type = binary
Permissions = 444
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/auto/B/B.so
Source =
usr/lib/perl5/5.12.1/auto/B/B.so
Type = binary
Permissions = 755
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/auto/DynaLoader/dl_findfile.al
Source =
usr/lib/perl5/5.12.1/auto/DynaLoader/dl_findfile.al
Type = binary
Permissions = 644
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/auto/Fcntl/Fcntl.so
Source =
usr/lib/perl5/5.12.1/auto/Fcntl/Fcntl.so
Type = binary
Permissions = 755
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/auto/IO/IO.so
Source =
usr/lib/perl5/5.12.1/auto/IO/IO.so
Type = binary
Permissions = 755
</File>
<File>
Filename =
usr/lib/perl5/5.12.1/auto/Socket/Socket.so
Source =
usr/lib/perl5/5.12.1/auto/Socket/Socket.so
Type = binary
Permissions = 755
</File>
</Contents>
</perl>
</Package>
------------------------------------------------------------------------------
ThinkGeek and WIRED's GeekDad team up for the Ultimate
GeekDad Father's Day Giveaway. ONE MASSIVE PRIZE to the
lucky parental unit. See the prize list and enter to win:
http://p.sf.net/sfu/thinkgeek-promo
_______________________________________________
leaf-cvs-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/leaf-cvs-commits
