15 print STDERR
"$Odin::PROG: $m\n";
22 while (read STDIN
, my $buf, 8192) { $c .= $buf; }
23 return Odin
::tidy_pastebin_content decode locale
=> $c;
26 my $op = shift(@ARGV) // "help";
36 new [-l LANG] [-t TITLE]
38 update [-c] [-l LANG] [-t TITLE] TAG
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;
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; }
61 $op->ok or Odin
::fail
"usage: new [-l LANG] [-t TITLE]";
62 $p{content
} = read_content
;
63 my $db = Odin
::open_db
;
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";
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";
84 my $key = Odin
::rekey_pastebin
$tag;
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);
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; }
101 $op->ok or Odin
::fail
"usage: new [-l LANG] [-t TITLE]";
102 $p{content
} = read_content
if $contentp;
103 Odin
::update_pastebin
$tag, undef, %p or Odin
::fail
"nothing changed";
105 Odin
::fail
"unknown operation `$op'";