chiark - git - mdw - odin-cgi/blob - bin/pastebin.userv

   1 #! /usr/bin/perl
   2
   3 use lib "lib";
   4
   5 use Odin;
   6 use DBI;
   7 use Encode;
   8 use Encode::Locale;
   9
  10 my $BAD = 0;
  11
  12 sub bad ($) {
  13   my ($m) = @_;
  14   $BAD = 1;
  15   print STDERR "$Odin::PROG: $m\n";
  16 }
  17
  18 Odin::cmdline_who;
  19
  20 sub read_content () {
  21   my $c = "";
  22   while (read STDIN, my $buf, 8192) { $c .= $buf; }
  23   return Odin::tidy_pastebin_content decode locale => $c;
  24 }
  25
  26 my $op = shift(@ARGV) // "help";
  27 if ($op eq "help") {
  28   print <<EOF;
  29 Commands available:
  30
  31         claim TAG EDITKEY
  32         del TAG ...
  33         get TAG
  34         help
  35         list
  36         new [-l LANG] [-t TITLE]
  37         rekey TAG
  38         update [-c] [-l LANG] [-t TITLE] TAG
  39 EOF
  40 } elsif ($op eq "list") {
  41   @ARGV == 0 or Odin::fail "usage: list";
  42   my $db = Odin::open_db;
  43   for my $r (@{$db->selectall_arrayref
  44                 ("SELECT tag, stamp, lang, title
  45                   FROM odin_pastebin WHERE owner = ?
  46                   ORDER BY stamp", undef, $Odin::WHO)}) {
  47     my ($tag, $stamp, $lang, $title) = @$r;
  48     Odin::print_columns Odin::fmt_time $stamp => 25,
  49       $tag => 12, $lang => 16, (encode locale => $title) => 0;
  50   }
  51 } elsif ($op eq "new") {
  52   my $op = Odin::OptParse->new(@ARGV);
  53   my $p = (title => undef, lang => "txt");
  54   while (my $o = $op->get) {
  55     if ($o eq "l") { $p{lang} = $op->arg; }
  56     elsif ($o eq "t") { $p{title} = decode locale => $op->arg; }
  57     else { $op->unk; }
  58   }
  59   @ARGV = $op->rest;
  60   $op->bad if @ARGV;
  61   $op->ok or Odin::fail "usage: new [-l LANG] [-t TITLE]";
  62   $p{content} = read_content;
  63   my $db = Odin::open_db;
  64   my $c = "";
  65   while (read STDIN, my $buf, 8192) { $c .= $buf; }
  66   $p{content} = read_content;
  67   @{$db->selectall_arrayref
  68     ("SELECT lang FROM odin_pastebin_lang WHERE lang = ?", undef, $p{lang})}
  69     or Odin::fail "unknown language `$p{lang}'";
  70   my ($tag, $edit) = Odin::new_pastebin %p;
  71   print "$Odin::PASTEBIN/$tag $edit\n";
  72 } elsif ($op eq "get") {
  73   @ARGV == 1 or Odin::fail "usage: get TAG";
  74   my ($tag) = @ARGV;
  75   Odin::get_pastebin Odin::open_db, $tag, my %p;
  76   print encode locale => $p{content};
  77 } elsif ($op eq "claim") {
  78   @ARGV == 2 or Odin::fail "usage: claim TAG EDITKEY";
  79   my ($tag, $key) = @ARGV;
  80   Odin::claim_pastebin $tag, $key;
  81 } elsif ($op eq "rekey") {
  82   @ARGV == 1 or Odin::fail "usage: rekey TAG";
  83   my ($tag) = @ARGV;
  84   my $key = Odin::rekey_pastebin $tag;
  85   print $key, "\n";
  86 } elsif ($op eq "del") {
  87   @ARGV or Odin::fail "usage: del TAG ...";
  88   Odin::delete_pastebin map { $_, undef } @ARGV;
  89 } elsif ($op eq "update") {
  90   my $op = Odin::OptParse->new(@ARGV);
  91   my %p = ();
  92   my $contentp = 0;
  93   while (my $o = $op->get) {
  94     if ($o eq "c") { $contentp = 1; }
  95     elsif ($o eq "l") { $p{lang} = $op->arg; }
  96     elsif ($o eq "t") { $p{title} = decode locale => $op->arg; }
  97     else { $op->unk; }
  98   }
  99   @ARGV = $op->rest;
 100   $op->bad if @ARGV != 1;
 101   $op->ok or Odin::fail "usage: update [-c] [-l LANG] [-t TITLE] TAG";
 102   my $tag = shift @ARGV;
 103   $p{content} = read_content if $contentp;
 104   Odin::update_pastebin $tag, undef, %p or Odin::fail "nothing changed";
 105 } else {
 106   Odin::fail "unknown operation `$op'";
 107 }