Commit | Line | Data |
---|---|---|
be24e9af | 1 | #! /usr/bin/perl |
128543b0 MW |
2 | ### |
3 | ### Pastebin userv interface for Odin | |
4 | ### | |
5 | ### (c) 2015 Mark Wooding | |
6 | ### | |
7 | ||
8 | ###----- Licensing notice --------------------------------------------------- | |
9 | ### | |
10 | ### This file is part of the `odin.gg' service, `odin-cgi'. | |
11 | ### | |
12 | ### `odin-cgi' is free software; you can redistribute it and/or modify | |
13 | ### it under the terms of the GNU Affero General Public License as | |
14 | ### published by the Free Software Foundation; either version 3 of the | |
15 | ### License, or (at your option) any later version. | |
16 | ### | |
17 | ### `odin-cgi' is distributed in the hope that it will be useful, | |
18 | ### but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 | ### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 | ### GNU Affero General Public License for more details. | |
21 | ### | |
22 | ### You should have received a copy of the GNU Affero General Public | |
23 | ### License along with `odin-cgi'; if not, see | |
24 | ### <http://www.gnu.org/licenses/>. | |
be24e9af MW |
25 | |
26 | use lib "lib"; | |
27 | ||
28 | use Odin; | |
29 | use DBI; | |
30 | use Encode; | |
31 | use Encode::Locale; | |
be24e9af MW |
32 | |
33 | my $BAD = 0; | |
34 | ||
35 | sub bad ($) { | |
36 | my ($m) = @_; | |
37 | $BAD = 1; | |
38 | print STDERR "$Odin::PROG: $m\n"; | |
39 | } | |
40 | ||
41 | Odin::cmdline_who; | |
42 | ||
43 | sub read_content () { | |
44 | my $c = ""; | |
45 | while (read STDIN, my $buf, 8192) { $c .= $buf; } | |
46 | return Odin::tidy_pastebin_content decode locale => $c; | |
47 | } | |
48 | ||
49 | my $op = shift(@ARGV) // "help"; | |
50 | if ($op eq "help") { | |
51 | print <<EOF; | |
52 | Commands available: | |
53 | ||
54 | claim TAG EDITKEY | |
55 | del TAG ... | |
56 | get TAG | |
57 | help | |
c24aba68 | 58 | langs |
be24e9af MW |
59 | list |
60 | new [-l LANG] [-t TITLE] | |
61 | rekey TAG | |
62 | update [-c] [-l LANG] [-t TITLE] TAG | |
63 | EOF | |
c24aba68 MW |
64 | } elsif ($op eq "langs") { |
65 | @ARGV == 0 or Odin::fail "usage: list"; | |
66 | my $db = Odin::open_db; | |
67 | for my $r (@{$db->selectall_arrayref | |
68 | ("SELECT lang, descr FROM odin_pastebin_lang | |
69 | ORDER BY lang", undef)}) { | |
70 | my ($lang, $descr) = @$r; | |
71 | Odin::print_columns $lang => 16, $descr => 0; | |
72 | } | |
be24e9af MW |
73 | } elsif ($op eq "list") { |
74 | @ARGV == 0 or Odin::fail "usage: list"; | |
75 | my $db = Odin::open_db; | |
76 | for my $r (@{$db->selectall_arrayref | |
3300e9a2 | 77 | ("SELECT tag, stamp, lang, title |
be24e9af MW |
78 | FROM odin_pastebin WHERE owner = ? |
79 | ORDER BY stamp", undef, $Odin::WHO)}) { | |
3300e9a2 | 80 | my ($tag, $stamp, $lang, $title) = @$r; |
cc346ee1 MW |
81 | Odin::print_columns Odin::fmt_time $stamp => 25, |
82 | $tag => 12, $lang => 16, (encode locale => $title) => 0; | |
be24e9af MW |
83 | } |
84 | } elsif ($op eq "new") { | |
f0bcb39a MW |
85 | my $op = Odin::OptParse->new(@ARGV); |
86 | my $p = (title => undef, lang => "txt"); | |
87 | while (my $o = $op->get) { | |
88 | if ($o eq "l") { $p{lang} = $op->arg; } | |
89 | elsif ($o eq "t") { $p{title} = decode locale => $op->arg; } | |
90 | else { $op->unk; } | |
91 | } | |
92 | @ARGV = $op->rest; | |
93 | $op->bad if @ARGV; | |
94 | $op->ok or Odin::fail "usage: new [-l LANG] [-t TITLE]"; | |
95 | $p{content} = read_content; | |
be24e9af | 96 | my ($tag, $edit) = Odin::new_pastebin %p; |
93ec1b86 | 97 | print "$Odin::PASTEBIN/$tag $edit\n"; |
be24e9af MW |
98 | } elsif ($op eq "get") { |
99 | @ARGV == 1 or Odin::fail "usage: get TAG"; | |
100 | my ($tag) = @ARGV; | |
101 | Odin::get_pastebin Odin::open_db, $tag, my %p; | |
102 | print encode locale => $p{content}; | |
103 | } elsif ($op eq "claim") { | |
104 | @ARGV == 2 or Odin::fail "usage: claim TAG EDITKEY"; | |
105 | my ($tag, $key) = @ARGV; | |
106 | Odin::claim_pastebin $tag, $key; | |
107 | } elsif ($op eq "rekey") { | |
108 | @ARGV == 1 or Odin::fail "usage: rekey TAG"; | |
109 | my ($tag) = @ARGV; | |
110 | my $key = Odin::rekey_pastebin $tag; | |
111 | print $key, "\n"; | |
112 | } elsif ($op eq "del") { | |
113 | @ARGV or Odin::fail "usage: del TAG ..."; | |
114 | Odin::delete_pastebin map { $_, undef } @ARGV; | |
115 | } elsif ($op eq "update") { | |
f0bcb39a MW |
116 | my $op = Odin::OptParse->new(@ARGV); |
117 | my %p = (); | |
118 | my $contentp = 0; | |
119 | while (my $o = $op->get) { | |
120 | if ($o eq "c") { $contentp = 1; } | |
121 | elsif ($o eq "l") { $p{lang} = $op->arg; } | |
122 | elsif ($o eq "t") { $p{title} = decode locale => $op->arg; } | |
123 | else { $op->unk; } | |
124 | } | |
125 | @ARGV = $op->rest; | |
98984c9d MW |
126 | $op->bad if @ARGV != 1; |
127 | $op->ok or Odin::fail "usage: update [-c] [-l LANG] [-t TITLE] TAG"; | |
128 | my $tag = shift @ARGV; | |
f0bcb39a | 129 | $p{content} = read_content if $contentp; |
be24e9af MW |
130 | Odin::update_pastebin $tag, undef, %p or Odin::fail "nothing changed"; |
131 | } else { | |
132 | Odin::fail "unknown operation `$op'"; | |
133 | } |