ranpas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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;