From 8c19617946822d7aeac61696294f893d5e5eca6f Mon Sep 17 00:00:00 2001
From: Tslil Clingman <hiato1@gmail.com>
Date: Tue, 26 Mar 2013 15:19:47 +0200
Subject: Init scripts

---
 ranpas | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 ranpas

(limited to 'ranpas')

diff --git a/ranpas b/ranpas
new file mode 100755
index 0000000..dda2712
--- /dev/null
+++ b/ranpas
@@ -0,0 +1,26 @@
+#!/bin/bash
+
+echo Fetching paste list ...
+lst="$(wget pastie.org/pastes -q -O - | sed -n "0,/[\ \t]*e=\$('paste_/s///p" | tr -d "');")"
+echo Newest paste is $lst.
+
+while :; do
+  rnd="$(ruby -e "$><<1+rand($lst)")"
+  echo -e "\n"Looking up paste $rnd ...
+  wget http://www.pastie.org/pastes/$rnd/download -q -O /tmp/paste-$rnd
+  if [ -s "/tmp/paste-$rnd" ]; then
+    grep -q "<p class=\"notice\">Sorry, there is no pastie #$rnd or it has been removed\. Why not create a new pastie?</p>" /tmp/paste-$rnd
+    if [ "$?" = "0" ]; then
+      echo Paste $rnd does not exist.
+    else
+      less /tmp/paste-$rnd
+      echo -n Save?\ 
+      [ "$(line)" = "y" ] && echo Saving as paste $rnd in $HOME && cp /tmp/paste-$rnd $HOME
+    fi;
+  else 
+    echo Empty paste.
+  fi;
+  rm /tmp/paste-$rnd
+  echo -n Quit?\ 
+  [ "$(line)" = "y" ] && exit
+done;
-- 
cgit v1.2.3