summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Kröll <pepl@cpan.org>2008-12-02 00:01:29 +0100
committerMichael Kröll <pepl@cpan.org>2008-12-02 00:01:29 +0100
commitf2ec2ba11b65fc188402c306d510c09818676b75 (patch)
treecd9d1d90c00989eb1d000a6cc006475c12c11ac8
parentCheck for valid return_to url (diff)
parentMerge branch 'master' of git@git.useperl.at:PAUSE-OpenID (diff)
downloadSimple-OpenID-master.tar.gz
Simple-OpenID-master.tar.bz2
Simple-OpenID-master.zip
Merge branch 'master' of git@git.useperl.at:PAUSE-OpenIDHEADmaster
-rw-r--r--.gitignore16
-rw-r--r--lib/PAUSE/OpenID/Controller/Root.pm9
-rw-r--r--root/static/css/default.css33
-rw-r--r--root/static/images/openid-logo.pngbin0 -> 3218 bytes
-rw-r--r--root/templates/index.xsl2
5 files changed, 53 insertions, 7 deletions
diff --git a/.gitignore b/.gitignore
index ad568e7..e5c46db 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,10 +1,14 @@
-cover_db
META.yml
-Makefile
blib
+_build
+Build
+.DS_Store
inc
pm_to_blib
-MANIFEST
-Makefile.old
-pod2htm?.tmp
-*.bak
+.project
+.settings
+*.swp
+tmp/*
+cover_db
+MANIFEST.bak
+PAUSE-OpenID-*
diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm
index 13f165f..c707cf8 100644
--- a/lib/PAUSE/OpenID/Controller/Root.pm
+++ b/lib/PAUSE/OpenID/Controller/Root.pm
@@ -67,6 +67,7 @@ sub error :Local {
sub default :Path {
my ( $self, $c ) = @_;
+ $c->response->content_type('text/plain');
$c->response->body( 'Page not found' );
$c->response->status(404);
@@ -87,6 +88,7 @@ sub login :Local {
$ua->credentials('pause.perl.org:443', 'PAUSE', $username, $password);
my $res = $ua->request($req);
+ # but this is bad as the certificate is checked AFTER the credentials are send :-(
die 'pause server certificate validation failed'
if exists $res->headers->{'client-ssl-warning'};
@@ -118,6 +120,13 @@ sub login_failed :Local {
$c->res->body('login fail');
}
+sub pauseid : Regex('^(.*)/?$') {
+ my ( $self, $c ) = @_;
+ my $param = $c->req->captures->[0];
+ $c->log->error("user $param");
+
+}
+
=head2 end
Attempt to render a view, if needed.
diff --git a/root/static/css/default.css b/root/static/css/default.css
index e69de29..a5f3b9a 100644
--- a/root/static/css/default.css
+++ b/root/static/css/default.css
@@ -0,0 +1,33 @@
+body {
+ padding: 1.2em;
+ color: #fff;
+ background-color: #086;
+ font-family: 'DejaVu Sans', 'Arial Unicode MS', sans-serif;
+}
+
+h1,form,.redirectmessage {
+ color: #443;
+ border: 2px solid #986;
+ padding: 0.5em;
+ background-color: #fff;
+}
+
+h1 {
+ margin-bottom: 1em;
+}
+
+.redirectmessage {
+ float: left;
+ width: 50%;
+ margin-top: 0.7em;
+}
+
+form {
+ float: right;
+ width: 20%;
+ margin-top: 0.7em;
+}
+
+form input {
+ max-width: 90%;
+} \ No newline at end of file
diff --git a/root/static/images/openid-logo.png b/root/static/images/openid-logo.png
new file mode 100644
index 0000000..3ec55c1
--- /dev/null
+++ b/root/static/images/openid-logo.png
Binary files differ
diff --git a/root/templates/index.xsl b/root/templates/index.xsl
index 6b83e4b..db4196c 100644
--- a/root/templates/index.xsl
+++ b/root/templates/index.xsl
@@ -15,7 +15,7 @@
<title>Sign in with OpenID</title>
<link rel="openid.server" href="{config[@key='baseurl']/@value}/openid" />
<style type="text/css">
- @import "default.css";
+ @import "/static/css/default.css";
</style>
</head>