Tadashi Okoshi
slash****@users*****
2005年 12月 10日 (土) 07:14:09 JST
Index: affelio/lib/Affelio/misc/WSSE.pm
diff -u affelio/lib/Affelio/misc/WSSE.pm:1.1 affelio/lib/Affelio/misc/WSSE.pm:1.2
--- affelio/lib/Affelio/misc/WSSE.pm:1.1 Wed Nov 23 13:00:20 2005
+++ affelio/lib/Affelio/misc/WSSE.pm Sat Dec 10 07:14:09 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: WSSE.pm,v 1.1 2005/11/23 04:00:20 slash5234 Exp $
+# $Id: WSSE.pm,v 1.2 2005/12/09 22:14:09 slash5234 Exp $
package Affelio::misc::WSSE;
{
@@ -24,6 +24,7 @@
use MIME::Base64 ();
use Error qw(:try);
use lib("../../../lib/");
+ use Affelio::misc::Debug;
use Exporter;
@Affelio::misc::WSSE::ISA = "Exporter";
@Affelio::misc::WSSE::EXPORT = qw(make_XWSSE authenticate);
@@ -31,6 +32,10 @@
sub authenticate {
my ($XWSSE_mesg, $user, $pass) = shift;
+# $XWSSE_mesg =~ /^Username="(.*)",(\s*)Password/;
+# my $user = $1;
+# debug_print("WSSE::Auth: user = [$user]");
+
return(1);
my $my_own_mesg = make_XWSSE($user, $pass);