projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
c6a2979689fa44354065f48f88dddf4cca6b363d
[freeside.git]
/
fs_selfservice
/
fs_passwd_test
1
#!/usr/bin/perl -w
2
3
use strict;
4
use FS::SelfService qw(passwd);
5
6
my $error = passwd(
7
'username' => 'ivan',
8
'old_password' => 'heyhoo',
9
'new_password' => 'haloo',
10
);
11
12
if ( $error eq 'Incorrect password.' ) {
13
exit;
14
} else {
15
die $error if $error;
16
die "no error";
17
}
18