Changeset 530
- Timestamp:
- 03/06/08 10:06:31 (21 months ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
trunk/openid2-server/plugins/openid2-server/lib/OpenID2Server/App.pm
r529 r530 5 5 use Net::OpenID::Server; 6 6 use MT::Util qw( perl_sha1_digest_hex ); 7 use Data::Dumper;8 7 9 8 use constant IDENTIIFER_SELECT => 'http://specs.openid.net/auth/2.0/identifier_select'; 10 11 sub llog {12 open my $fh, '>>', 'c:\\temp\\hoge\\hoge.txt';13 print $fh '"'.join('","', @_) . '"';14 close $fh;15 }16 9 17 10 sub openid_xrds {
