X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=paste.pl;h=3eb13882f26ee372d18f19cf0db5fa6e3e8dfead;hb=HEAD;hp=d8b628cc546bc424fe97bd8f26c00659f41e0a07;hpb=61bea8f9e2f6ef84c0477fd49cf1767890e88826;p=paste.git

diff --git a/paste.pl b/paste.pl
index d8b628c..3eb1388 100755
--- a/paste.pl
+++ b/paste.pl
@@ -56,6 +56,13 @@ get '/<filename>.<ext>'
 	return $c->reply->not_found
 		if !defined $stat;
 
+	if (defined $c->param('download')) {
+		$c->res->headers->content_disposition(
+			"attachment; filename=$fullname"
+		);
+		$c->reply->file($file);
+		return;
+	}
 	$c->stash(mtime => POSIX::strftime('%Y-%m-%d %H:%M:%S',
 		localtime($stat->mtime)));
 	my $content = $file->slurp;
@@ -100,7 +107,9 @@ __DATA__
 
 <h1><tt><%= $filename%>.<%= $ext %></tt>
    <span class="unimportant">— <%= config->{appname} %></span><br/>
-<small class="unimportant">Created: <%= $mtime %></small></h1>
+<small class="unimportant">Created: <%= $mtime %>
+<%= link_to "Download" => url_for->query(download => 1), class => 'downl' %>
+</small></h1>
 <pre><code class="<%= $language %>"><%= $file_content %></code></pre>
 
 
@@ -166,9 +175,11 @@ __DATA__
         border-radius: .4rem;
       }
       pre code {
-        padding: 0;
+        padding: 1em;
         margin-left: 0;
         margin-right: 0;
+        background: black;
+        color: #aaa;
       }
       div.footer {
         color: #999;
@@ -177,6 +188,10 @@ __DATA__
       a {
         color: #90c0ff;
       }
+      a.downl {
+        display: inline-block;
+        float: right;
+      }
     </style>
     <title><%= config->{appname} %></title>
   </head>