projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
finally working async framework
[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
die $error if $error;
13
14
print "password changed sucessfully\n";