From 2ff3b386766e569c354f98033cc15b930ffab36f Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Sun, 23 Apr 2017 00:41:05 -0400
Subject: [PATCH] Add slugs and expiration

---
 app.pl                |  64 +++++++++++++++++++++++++++++++++++-------
 pastes.db             | Bin 1306624 -> 1309696 bytes
 templates/viewer.html |  32 +++++++++++++++++++--
 3 files changed, 84 insertions(+), 12 deletions(-)

diff --git a/app.pl b/app.pl
index 82ea992..307623c 100755
--- a/app.pl
+++ b/app.pl
@@ -41,12 +41,17 @@ $dbh->{sqlite_unicode} = 1;
 # hardcode some channels first
 
 sub insert_pastebin {
-    my ($paste, $who, $what, $where) = @_;
+    my ($paste, $who, $what, $where, $expire, $lang) = @_;
     
-    $dbh->do("INSERT INTO posts (paste, who, 'where', what, 'when') VALUES (?, ?, ?, ?, ?)", {}, $paste, $who, $where, $what, time());
+    $dbh->do("INSERT INTO posts (paste, who, 'where', what, 'when', 'expiration', 'language') VALUES (?, ?, ?, ?, ?, ?, ?)", {}, $paste, $who, $where, $what, time(), $expire, $lang);
     my $id = $dbh->last_insert_id('', '', 'posts', 'id');
 
-    return $id;
+    # TODO this needs to retry when it fails.
+    my @chars = ('a'..'z', 1..9);
+    my $slug = join '', map {$chars[rand() *@chars]} 1..6;
+    $dbh->do("INSERT INTO slugs (post_id, slug) VAlUES (?, ?)", {}, $id, $slug);
+
+    return $slug;
 }
 
 get '/' => sub {
@@ -61,7 +66,7 @@ get '/paste' => sub {$_[0]->redirect_to('/')};
 post '/paste' => sub {
     my $c = shift;
 
-    my @args = map {($c->param($_))} qw/paste name desc chan/;
+    my @args = map {($c->param($_))} qw/paste name desc chan expire language/;
 
     my $id = insert_pastebin(@args);
     my ($code, $who, $desc, $channel) = @args;
@@ -96,17 +101,56 @@ get '/edit/:pasteid' => sub {
     }
 };
 
-get '/pastebin/:pasteid' => sub {
-    my $c = shift;
-    my $pasteid = $c->param('pasteid');
-    
-    my $row = $dbh->selectrow_hashref("SELECT * FROM posts WHERE id = ? LIMIT 1", {}, $pasteid);
+sub get_paste {
+    my $pasteid = shift;
+    my $row = $dbh->selectrow_hashref(q{
+      SELECT p.* 
+        FROM posts p 
+        LEFT JOIN slugs s ON p.id = s.post_id 
+        WHERE p.id = ? OR s.slug = ?
+        ORDER BY s.slug DESC 
+        LIMIT 1
+      }, {}, $pasteid, $pasteid);
 
     my $when = delete $row->{when};
 
     if ($when) {
+      my $whendt = DateTime->from_epoch(epoch => $when);
+
+      if ($whendt->clone()->add(hours => $row->{expiration}) >= DateTime->now()) {
+        $row->{when} = $whendt->iso8601;
+        return $row;
+      } else {
+        return undef;
+      }
+    } else {
+      return undef;
+    }
+}
+
+get '/raw/:pasteid' => sub {
+    my $c = shift;
+    my $pasteid = $c->param('pasteid');
+    
+    my $row = get_paste($pasteid);
+
+
+    if ($row) {
+        $c->render(text => $row->{paste});
+    } else {
+# 404
+        return $c->reply->not_found;
+    }
+
+};
+get '/pastebin/:pasteid' => sub {
+    my $c = shift;
+    my $pasteid = $c->param('pasteid');
+    
+    my $row = get_paste($pasteid); 
+
+    if ($row) {
         $c->stash($row);
-        $c->stash({when => DateTime->from_epoch(epoch => $when)->iso8601});
         $c->stash({page_tmpl => 'viewer.html'});
         $c->stash({eval => get_eval($pasteid, $row->{paste})});
         $c->stash({paste_id => $pasteid});
diff --git a/pastes.db b/pastes.db
index a9615cf00773ca84026fd632b5795249862a41da..0a844a960500af7c342588c32bf809e6f18f44ab 100644
GIT binary patch
delta 789
zcmY*WT}TvB7`=DC(fye_>AGy2%EC>Al-9HaQS65;w-guuSW!r_aUFK2oo2_`SxpGk
z-ME<aU@Wn3J%-O3?OXNQLl5;*Qc?8MgOUU$8kWsySY5c^!}pzg&OPUw{nR_V-Md)r
z*+PilLw^r{KiKTuLJd3fBBT&-{fO&_06Z*u2>yuOb6wcs_xo{nB0ml6Y>>*gbj6TN
zC8g1>o+$0<weDafLOa5jLxYhhJ>Ak8q^hLFGg4fpladijNJd@rnfm&C00wwVxH0dk
zJvnn7Y+i0IU`k`EoK`dO^nT&@E)9f3(J+mME=Iz1zenrzRN5R>#%;;)mGHo!Y;Yg&
zugu}7zQoevVAHDnFZcnQ@D0}C3w(wT@D^4A{2L$^;C*(|s_*9HW#=B?jVxgVGr}<f
zjPQ(<FjC5hgApeqE=Jr>h`^6H$MH*>{BDsXgzq453|+$(8G?nvf-0OZ5LK8dzEFi{
zm_yGC3!3nh=T@`F^4^liOc$6=m@YE?2-C}$Ue0t6(<`3nUjDX|LotLNpqLfW(7DE3
z(t!p=QRFjenWjxciJ9%9TXgG&qM5X&Pn8sn%HxWeGHTj~ce-m>Ja@y1?hT3U-T7A|
zM+=K}<&MJave#F9z3x2)<)R%1bRu{J^B_ZK(bIufxqMUW=uA~E<wDiA80RzPw5e$E
z;oYV%TGC}hr8&)oPW(4K*o+0KJ%Ci_Zo1HM8{+a!WRzHv+APDnja4?mP)>ECq!_Z;
z|BzEdnxeXtHf1VnrcpUfEia1PMyC`rLC1{LRN8uH{URS~sHzy=>AQ-S?2TTq!nREO
zw1d7=^b@>|d44ySEHX_nF|i$Tu!dk8)(+gQG_{supTGfEi8qpM@kuRFih(P`Ut4|y
Dx+3K&

delta 279
zcmYL>F-yZx6ouc-eNEE7o0=Fjf&?5@)Wy+%phLmM!S0GEJ{%lWG)>?lDpCn0zrv+L
z^E-4C9UPpbqZTa%eVshR;qdWslJ7?H)@aWLeIevX{0HuqRt;SKx%3RQFcx@-aTyTY
zTX~F|wN@RRD2kwUnr~YiEL4mJI2_BbIK;t&FW-@>iw3xcy`(c;_ZQ(KB_?39n2<>_
zRhVohhskBCGSzydWYf(c96vpmw5z^QnSBmqT8@hKeRWZIpJ7(k57Y^iw}bEqY$5O}
zJ!Y*~6Kjuko%IB3pLM``vZq6NW`pPm(aD3kYsEX+o-1y)ytR$|u{m9|=Y6M0y5Us$
I)DKti50LFi6#xJL

diff --git a/templates/viewer.html b/templates/viewer.html
index 597200d..1df0d6a 100755
--- a/templates/viewer.html
+++ b/templates/viewer.html
@@ -1,6 +1,6 @@
 [% BLOCK body_style %]
 <style type="text/css" media="screen">
-    #editor {
+    #editor, #paste {
       margin: auto;
       position: relative !important;
       width: 100%;
@@ -10,6 +10,12 @@
     html, body, #content {
       width: 100%;
     }
+    .options label {
+      padding-right: 0.5em;
+    }
+    .options label:not(:first-child) {
+      padding-left: 2em;
+    }
     
     @font-face {
       font-family: "AnonymousPro";
@@ -42,8 +48,15 @@
       </div>
       <div class="panel-body">
         <div class="row">
+            <div class="options">
+              <label>Raw Viewer</label>
+              <input type="checkbox" id="raw_editor"/>
+              <label><a href="/raw/[% id %]">Raw Link</a></label>
+              <!-- TODO this should come from the eval server somehow -->
+            </div>
           <div class="col-md-12">
-            <pre id="editor">[% paste | html %]</pre>
+            <pre id="paste">[% paste | html %]</pre>
+            <pre id="editor"></pre>
           </div>
         </div>
         <div class="row">
@@ -65,6 +78,21 @@
     //editor.setTheme("ace/theme/twilight");
     editor.session.setMode("ace/mode/perl");
 
+    var use_editor = function() {
+      if ($("#raw_editor").is(":checked")) {
+	$("#editor").hide();
+	$("#paste").show();
+      } else {
+        console.log($("#paste").text());
+        editor.setValue($("#paste").text(),0);
+        editor.clearSelection();
+	$("#paste").hide();
+	$("#editor").show();
+      }
+    };
+ 
+    use_editor();
+    $("#raw_editor").on("change", use_editor);
     editor.setReadOnly(true);
     editor.setOptions({maxLines: Infinity, fontFamily: ['AnonymousPro', 'monospace', 'mono']});
     /*function resizeAce() {