unlink
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Data-UUID?expand=0&rev=19
This commit is contained in:
Stephan Kulow
committed by
Git OBS Bridge
Git OBS Bridge
parent
edc8218bd4
commit
a92d995c94
@@ -1,7 +1,7 @@
|
||||
#
|
||||
# spec file for package perl-Data-UUID
|
||||
# spec file for package perl-Data-UUID (Version 1.217)
|
||||
#
|
||||
# Copyright (c) 2009 SUSE LINUX Products GmbH, Nuernberg, Germany.
|
||||
# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
|
||||
#
|
||||
# All modifications and additions to the file contributed by third parties
|
||||
# remain the property of their copyright owners, unless otherwise agreed
|
||||
@@ -15,58 +15,122 @@
|
||||
# Please submit bugfixes or comments via http://bugs.opensuse.org/
|
||||
#
|
||||
|
||||
# norootforbuild
|
||||
|
||||
#Distribution: %dist
|
||||
#Packager: %packager
|
||||
#Vendor: %vendor
|
||||
|
||||
Name: perl-Data-UUID
|
||||
%define cpan_name %( echo %{name} | %{__sed} -e 's,perl-,,' )
|
||||
Summary: Perl extension for generating Globally/Universally Unique Identifiers
|
||||
Version: 1.202
|
||||
Release: 1
|
||||
License: BSD License
|
||||
Group: Development/Libraries/Perl
|
||||
Url: http://search.cpan.org/perldoc?Data::UUID
|
||||
Source: %{cpan_name}-%{version}.tar.bz2
|
||||
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
||||
Name: perl-Data-UUID
|
||||
Version: 1.217
|
||||
Release: 1
|
||||
License: BSD
|
||||
%define cpan_name Data-UUID
|
||||
Summary: Perl extension for generating Globally/Universally
|
||||
Url: http://search.cpan.org/dist/Data-UUID/
|
||||
Group: Development/Libraries/Perl
|
||||
#Source: http://www.cpan.org/authors/id/R/RJ/RJBS/Data-UUID-%{version}.tar.gz
|
||||
Source: %{cpan_name}-%{version}.tar.gz
|
||||
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
||||
BuildRequires: perl
|
||||
BuildRequires: perl-macros
|
||||
BuildRequires: perl(Digest::MD5)
|
||||
Requires: perl = %{perl_version}
|
||||
Requires: perl(Digest::MD5)
|
||||
Requires: perl(Digest::MD5)
|
||||
%{perl_requires}
|
||||
|
||||
%description
|
||||
This module provides a framework for generating UUIDs (Universally Unique
|
||||
Identifiers, also known as GUIDs (Globally Unique Identifiers). A UUID is 128
|
||||
bits long, and is guaranteed to be different from all other UUIDs/GUIDs
|
||||
generated until 3400 CE.
|
||||
This module provides a framework for generating v3 UUIDs (Universally
|
||||
Unique Identifiers, also known as GUIDs (Globally Unique Identifiers). A
|
||||
UUID is 128 bits long, and is guaranteed to be different from all other
|
||||
UUIDs/GUIDs generated until 3400 CE.
|
||||
|
||||
UUIDs were originally used in the Network Computing System (NCS) and later in
|
||||
the Open Software Foundation's (OSF) Distributed Computing Environment.
|
||||
Currently many different technologies rely on UUIDs to provide unique identity
|
||||
for various software components. Microsoft COM/DCOM for instance, uses GUIDs
|
||||
very extensively to uniquely identify classes, applications and components
|
||||
across network-connected systems.
|
||||
UUIDs were originally used in the Network Computing System (NCS) and later
|
||||
in the Open Software Foundation's (OSF) Distributed Computing Environment.
|
||||
Currently many different technologies rely on UUIDs to provide unique
|
||||
identity for various software components. Microsoft COM/DCOM for instance,
|
||||
uses GUIDs very extensively to uniquely identify classes, applications and
|
||||
components across network-connected systems.
|
||||
|
||||
The algorithm for UUID generation, used by this extension, is described in the
|
||||
Internet Draft "UUIDs and GUIDs" by Paul J. Leach and Rich Salz
|
||||
(http://hegel.ittc.ku.edu/topics/internet/internet-drafts/draft-l/draft-leach-uuids-guids-01.txt).
|
||||
It provides reasonably efficient and reliable framework for generating UUIDs
|
||||
and supports fairly high allocation rates -- 10 million per second per machine
|
||||
-- and therefore is suitable for identifying both extremely short-lived and
|
||||
very persistent objects on a given system as well as across the network.
|
||||
The algorithm for UUID generation, used by this extension, is described in
|
||||
the Internet Draft "UUIDs and GUIDs" by Paul J. Leach and Rich Salz. (See
|
||||
RFC 4122.) It provides reasonably efficient and reliable framework for
|
||||
generating UUIDs and supports fairly high allocation rates -- 10 million
|
||||
per second per machine -- and therefore is suitable for identifying both
|
||||
extremely short-lived and very persistent objects on a given system as well
|
||||
as across the network.
|
||||
|
||||
Author: Alexander Golomshtok <agolomsh@cpan.org>
|
||||
This modules provides several methods to create a UUID:
|
||||
|
||||
# creates binary (16 byte long binary value) UUID.
|
||||
$ug->create();
|
||||
$ug->create_bin();
|
||||
|
||||
# creates binary (16-byte long binary value) UUID based on particular
|
||||
# namespace and name string.
|
||||
$ug->create_from_name(<namespace>, <name>);
|
||||
$ug->create_from_name_bin(<namespace>, <name>);
|
||||
|
||||
# creates UUID string, using conventional UUID string format,
|
||||
# such as: 4162F712-1DD2-11B2-B17E-C09EFE1DC403
|
||||
$ug->create_str();
|
||||
$ug->create_from_name_str(<namespace>, <name>);
|
||||
|
||||
# creates UUID string as a hex string,
|
||||
# such as: 0x4162F7121DD211B2B17EC09EFE1DC403
|
||||
$ug->create_hex();
|
||||
$ug->create_from_name_hex(<namespace>, <name>);
|
||||
|
||||
# creates UUID string as a Base64-encoded string
|
||||
$ug->create_b64();
|
||||
$ug->create_from_name_b64(<namespace>, <name>);
|
||||
|
||||
Binary UUIDs can be converted to printable strings using following methods:
|
||||
|
||||
# convert to conventional string representation
|
||||
$ug->to_string(<uuid>);
|
||||
|
||||
# convert to hex string
|
||||
$ug->to_hexstring(<uuid>);
|
||||
|
||||
# convert to Base64-encoded string
|
||||
$ug->to_b64string(<uuid>);
|
||||
|
||||
Conversly, string UUIDs can be converted back to binary form:
|
||||
|
||||
# recreate binary UUID from string
|
||||
$ug->from_string(<uuid>);
|
||||
$ug->from_hexstring(<uuid>);
|
||||
|
||||
# recreate binary UUID from Base64-encoded string
|
||||
$ug->from_b64string(<uuid>);
|
||||
|
||||
Finally, two binary UUIDs can be compared using the following method:
|
||||
|
||||
# returns -1, 0 or 1 depending on whether uuid1 less
|
||||
# than, equals to, or greater than uuid2
|
||||
$ug->compare(<uuid1>, <uuid2>);
|
||||
|
||||
Examples:
|
||||
|
||||
use Data::UUID;
|
||||
|
||||
# this creates a new UUID in string form, based on the standard namespace
|
||||
# UUID NameSpace_URL and name "www.mycompany.com"
|
||||
|
||||
$ug = new Data::UUID;
|
||||
print $ug->create_from_name_str(NameSpace_URL, "www.mycompany.com");
|
||||
|
||||
EXPORT
|
||||
The module allows exporting of several standard namespace UUIDs:
|
||||
|
||||
* NameSpace_DNS
|
||||
|
||||
* NameSpace_URL
|
||||
|
||||
* NameSpace_OID
|
||||
|
||||
* NameSpace_X500
|
||||
|
||||
%prep
|
||||
%setup -q -n %{cpan_name}-%{version}
|
||||
|
||||
%build
|
||||
perl Makefile.PL OPTIMIZE="$RPM_OPT_FLAGS -Wall"
|
||||
%{__make}
|
||||
%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
|
||||
%{__make} %{?_smp_mflags}
|
||||
|
||||
%check
|
||||
%{__make} test
|
||||
@@ -76,13 +140,11 @@ perl Makefile.PL OPTIMIZE="$RPM_OPT_FLAGS -Wall"
|
||||
%perl_process_packlist
|
||||
%perl_gen_filelist
|
||||
|
||||
%clean
|
||||
%{__rm} -rf $RPM_BUILD_ROOT
|
||||
%clean
|
||||
%{__rm} -rf %{buildroot}
|
||||
|
||||
%files -f %{name}.files
|
||||
# normally you only need to check for doc files
|
||||
%defattr(-,root,root)
|
||||
%defattr(644,root,root,755)
|
||||
%doc Changes LICENSE README
|
||||
|
||||
%changelog
|
||||
|
||||
|
||||
Reference in New Issue
Block a user