perl/perl-String-Random
SHA256
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Accepting request 296384 from devel:languages:perl:autoupdate

Browse Source 
automatic update

OBS-URL: https://build.opensuse.org/request/show/296384
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-String-Random?expand=0&rev=2
This commit is contained in:
Dirk Stoecker
2015-04-14 21:44:41 +00:00
committed by Git OBS Bridge
parent ab2741578f
commit cb237a6e9f
4 changed files with 26 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
String-Random-0.22.tar.gz
View File

@@ -1,3 +0,0 @@
version https://git-lfs.github.com/spec/v1
oid sha256:0552acbba611eac76bb2847385a713fe28673a4d4d7ffbed60a64665d38a9969
size 7629

3
String-Random-0.28.tar.gz Normal file
View File

@@ -0,0 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:4493fb59c280d46c3f854b209e97aead8323e0b054109e1390e02f769afb256f
size 21062

6
perl-String-Random.changes
View File

@@ -1,3 +1,9 @@
-------------------------------------------------------------------
Tue Apr 14 19:33:20 UTC 2015 - coolo@suse.com
- updated to 0.28
see /usr/share/doc/packages/perl-String-Random/Changes
------------------------------------------------------------------- -------------------------------------------------------------------
Thu Apr 21 10:40:38 UTC 2011 - coolo@opensuse.org Thu Apr 21 10:40:38 UTC 2011 - coolo@opensuse.org

32
perl-String-Random.spec
View File

@@ -1,7 +1,7 @@
# #
# spec file for package perl-String-Random (Version 0.22) # spec file for package perl-String-Random
# #
# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. # Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany.
# #
# All modifications and additions to the file contributed by third parties # All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed # remain the property of their copyright owners, unless otherwise agreed
@@ -15,23 +15,21 @@
# Please submit bugfixes or comments via http://bugs.opensuse.org/ # Please submit bugfixes or comments via http://bugs.opensuse.org/
# #
Name: perl-String-Random Name: perl-String-Random
Version: 0.22 Version: 0.28
Release: 1 Release: 0
License: GPL+ or Artistic
%define cpan_name String-Random %define cpan_name String-Random
Summary: Perl module to generate random strings based on a pattern Summary: Perl module to generate random strings based on a pattern
Url: http://search.cpan.org/dist/String-Random/ License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl Group: Development/Libraries/Perl
Source: http://www.cpan.org/authors/id/S/ST/STEVE/%{cpan_name}-%{version}.tar.gz Url: http://search.cpan.org/dist/String-Random/
Source: http://www.cpan.org/authors/id/S/SH/SHLOMIF/%{cpan_name}-%{version}.tar.gz
BuildArch: noarch BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl BuildRequires: perl
BuildRequires: perl(Module::Build)
BuildRequires: perl-macros BuildRequires: perl-macros
BuildRequires: perl(Module::Build) BuildRequires: perl(Module::Build) >= 0.36
BuildRequires: perl(Test::More)
Requires: perl(Test::More)
%{perl_requires} %{perl_requires}
%description %description
@@ -42,18 +40,21 @@ random password for a user. The relevant code might look something like
this: this:
use String::Random; use String::Random;
$pass = new String::Random; my $pass = String::Random->new;
print "Your password is ", $pass->randpattern("CCcc!ccn"), "\n"; print "Your password is ", $pass->randpattern("CCcc!ccn"), "\n";
This would output something like this: This would output something like this:
Your password is UDwp$tj5 Your password is UDwp$tj5
*NOTE!!!*: currently, String::Random uses Perl's built-in predictable
random number generator so the passwords generated by it are insecure.
If you are more comfortable dealing with regular expressions, the following If you are more comfortable dealing with regular expressions, the following
code would have a similar result: code would have a similar result:
use String::Random; use String::Random;
$pass = new String::Random; my $pass = String::Random->new;
print "Your password is ", print "Your password is ",
$pass->randregex('[A-Z]{2}[a-z]{2}.[a-z]{2}\d'), "\n"; $pass->randregex('[A-Z]{2}[a-z]{2}.[a-z]{2}\d'), "\n";
@@ -71,11 +72,8 @@ code would have a similar result:
./Build install destdir=%{buildroot} create_packlist=0 ./Build install destdir=%{buildroot} create_packlist=0
%perl_gen_filelist %perl_gen_filelist
%clean
%{__rm} -rf %{buildroot}
%files -f %{name}.files %files -f %{name}.files
%defattr(-,root,root,755) %defattr(-,root,root,755)
%doc Changes README TODO %doc Changes LICENSE README TODO
%changelog %changelog