From b58821fcd50e52ae726834ef3863b85ed293379f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 11 Jul 2002 13:52:39 +0000
Subject: finally working async framework

---
 fs_selfservice/fs_passwd_test | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 fs_selfservice/fs_passwd_test

(limited to 'fs_selfservice/fs_passwd_test')

diff --git a/fs_selfservice/fs_passwd_test b/fs_selfservice/fs_passwd_test
new file mode 100755
index 000000000..77782e651
--- /dev/null
+++ b/fs_selfservice/fs_passwd_test
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+
+use strict;
+use FS::SelfService qw(passwd);
+
+my $error = passwd(
+  'username' => 'ivan',
+  'old_password' => 'heyhoo',
+  'new_password' => 'haloo',
+);
+
+die $error if $error;
+
+print "password changed sucessfully\n";
-- 
cgit v1.2.1