~mdw / odin-cgi / blame
| Commit | Line | Data |
|---|---|---|
| be24e9af MW |
1 | #! /usr/bin/perl |
| 2 | ||
| 3 | use lib "lib"; | |
| 4 | ||
| 5 | use Odin; | |
| 6 | use DBI; | |
| 7 | use Encode; | |
| 8 | use Encode::Locale; | |
| be24e9af MW |
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 | |
| 3300e9a2 | 44 | ("SELECT tag, stamp, lang, title |
| be24e9af MW |
45 | FROM odin_pastebin WHERE owner = ? |
| 46 | ORDER BY stamp", undef, $Odin::WHO)}) { | |
| 3300e9a2 | 47 | my ($tag, $stamp, $lang, $title) = @$r; |
| cc346ee1 MW |
48 | Odin::print_columns Odin::fmt_time $stamp => 25, |
| 49 | $tag => 12, $lang => 16, (encode locale => $title) => 0; | |
| be24e9af MW |
50 | } |
| 51 | } elsif ($op eq "new") { | |
| f0bcb39a MW |
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; | |
| be24e9af MW |
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/$url $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") { | |
| f0bcb39a MW |
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; | |
| 101 | $op->ok or Odin::fail "usage: new [-l LANG] [-t TITLE]"; | |
| 102 | $p{content} = read_content if $contentp; | |
| be24e9af MW |
103 | Odin::update_pastebin $tag, undef, %p or Odin::fail "nothing changed"; |
| 104 | } else { | |
| 105 | Odin::fail "unknown operation `$op'"; | |
| 106 | } |