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


From 0393935877eebdd5bc0932d5ba0ef030bc46d167 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 15 Jul 2002 08:28:18 +0000
Subject: working framework, no hung clients, whew

---
 fs_selfservice/fs_passwd_test | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'fs_selfservice/fs_passwd_test')

diff --git a/fs_selfservice/fs_passwd_test b/fs_selfservice/fs_passwd_test
index 77782e651..c6a297968 100755
--- a/fs_selfservice/fs_passwd_test
+++ b/fs_selfservice/fs_passwd_test
@@ -9,6 +9,10 @@ my $error = passwd(
   'new_password' => 'haloo',
 );
 
-die $error if $error;
+if ( $error eq 'Incorrect password.' ) {
+  exit;
+} else {
+  die $error if $error;
+  die "no error";
+}
 
-print "password changed sucessfully\n";
-- 
cgit v1.2.1


From 6ff02eb18af2dd61ce2dca064414ca183fa02e6e Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 16 Jul 2002 12:28:02 +0000
Subject: invoice viewing...

---
 fs_selfservice/fs_passwd_test | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'fs_selfservice/fs_passwd_test')

diff --git a/fs_selfservice/fs_passwd_test b/fs_selfservice/fs_passwd_test
index c6a297968..4f8b8a888 100755
--- a/fs_selfservice/fs_passwd_test
+++ b/fs_selfservice/fs_passwd_test
@@ -3,11 +3,12 @@
 use strict;
 use FS::SelfService qw(passwd);
 
-my $error = passwd(
+my $rv = passwd(
   'username' => 'ivan',
   'old_password' => 'heyhoo',
   'new_password' => 'haloo',
 );
+my $error = $rv->{error};
 
 if ( $error eq 'Incorrect password.' ) {
   exit;
-- 
cgit v1.2.1