Login
improve colors and fix linking master
authorGraham Knop <haarg@haarg.org>
Mon, 11 Feb 2013 05:14:40 +0000 (00:14 -0500)
committerGraham Knop <haarg@haarg.org>
Mon, 11 Feb 2013 05:14:40 +0000 (00:14 -0500)
Makefile.PL
lib/Web/Paste/Viewer.pm

index 8893f63..2805013 100644 (file)
@@ -3,7 +3,7 @@ use warnings;
 use ExtUtils::MakeMaker;
 
 WriteMakefile(
-    NAME => 'Web-Paste-Viewer.PL',
+    NAME => 'Web::Paste::Viewer',
     PREREQ_PM => {
         'HTML::Entities' => 0,
         'Plack::Request' => 0,
index 1fe9d7c..4926ce1 100644 (file)
@@ -14,6 +14,7 @@ use Plack::Util::Accessor qw(dir);
 sub call {
     my $self = shift;
     my $env = shift;
+    $env = { %$env };
     my $req = Plack::Request->new($env);
     my $dir = $self->dir;
     my $file = $req->path_info;
@@ -54,7 +55,7 @@ sub send_content {
     my $file = $opts{file};
     my $req = $opts{req};
     my $raw_link = $req->base;
-    $raw_link->path($raw_link->path . "$file/raw");
+    $raw_link->path($raw_link->path . "/$file/raw");
     $send->(sprintf <<'END_HEADER', $file, $raw_link);
 <!DOCTYPE html>
 <html>
@@ -92,7 +93,7 @@ ol.file-content li:nth-child(even):before {
     background-color: #e0e0ff;
 }
 ol.file-content li:nth-child(even) {
-    background-color: #f4f4ff;
+    background-color: #eeeeff;
 }
     </style>
 </head>