#
# spec file for package perl-Data-Password-Manager
#
# Copyright (c) 2013 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
# upon. The license for this file, and modifications and additions to the
# file, is the same license as for the pristine package itself (unless the
# license for the pristine package is not an Open Source License, in which
# case the license is the MIT License). An "Open Source License" is a
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
# Please submit bugfixes or comments via http://bugs.opensuse.org/
#
Name: perl-Data-Password-Manager
Version: 0.02
Release: 0
%define cpan_name Data-Password-Manager
Summary: generate, check, manage B passwords
License: The non-(Julianne Haugh) portion of the program is free software and you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation and either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY and without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program and if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Data-Password-Manager/
Source: http://www.cpan.org/authors/id/M/MI/MIKER/%{cpan_name}-%{version}.tar.gz
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
#BuildRequires: perl(Data::Password::Manager)
%{perl_requires}
%description
* * $password = pw_gen($cleartext);
Generate a 13 character DES password string from clear text
input: string <= 128 characters
output: password
* * $ok = pw_valid($cleartxt,$password);
Return true if clear text is password match
input: string <= 128 characters,
password
output: true on match, else false
* * $clean_text = pw_clean($dirty_text);
Clean a text string to only include
/ . 0..9 a..z A..Z
Useful for restricted password sets
i.e. http applications
Returns a string of 128 characters or less
* * ($code,$text) = $pw_obscure($newpass,$oldpass);
Check for a usable password. Returns ok if there is no old password. i.e.
any new password will do.
input: string <= 128 characters
return (0, 'OK') if no old password or new is good
return ( 1, 'too short' ) if length < $MIN_LEN (default 5)
return ( 2, 'no change' ) if old eq new
return ( 3, 'a palindrome' ) if new is a palindrome
return ( 4, 'case change only' ) if old =~ /$new$/i
return ( 5, 'to similar' ) see code
return ( 6, 'to simple' ) if not a good character mix
return ( 7, 'rotated' ) if new is rotated version of old
return ( 8, 'flipped' ) if new is old flipped around
* * $passwd=pw_get($user,$passwd_file,\$error);
Check a password file for the presence of $user:$password.
input: $user
return: $password
Returns undef on error and places a descriptive error message in the
scalar $error. Since a valid password can be empty, the caller must check
that the return value is defined, not just false.
FILE is of the form:
user1:DESpassword1
user2:DESpassword2
etc...
# in-line comments are OK
%prep
%setup -q -n %{cpan_name}-%{version}
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor
%{__make} %{?_smp_mflags}
%check
%{__make} test
%install
%perl_make_install
%perl_process_packlist
%perl_gen_filelist
%files -f %{name}.files
%defattr(-,root,root,755)
%doc Changes GPL README
%changelog