10 my $op = shift(@ARGV) // "help";
21 } elsif ($op eq "list") {
22 @ARGV == 0 or Odin
::fail
"usage: list";
23 my $db = Odin
::open_db
;
24 for my $r (@
{$db->selectall_arrayref
25 ("SELECT tag, stamp, url
26 FROM odin_shorturl WHERE owner = ?
27 ORDER BY stamp", undef, $Odin::WHO
)}) {
28 my ($tag, $stamp, $url) = @
$r;
29 Odin
::print_columns Odin
::fmt_time
$stamp => 25, $tag => 12, $url =>0;
31 } elsif ($op eq "new") {
32 @ARGV == 1 or Odin
::fail
"usage: new URL";
34 my $tag = Odin
::new_shorturl
$url;
35 print "$Odin::SHORTURL/$tag\n";
36 } elsif ($op eq "get") {
37 @ARGV >= 0 or Odin
::fail
"usage: get TAG ...";
38 if (@ARGV == 1) { print Odin
::get_shorturl
$ARGV[0], "\n"; }
41 { printf "%-12s %s\n", $tag, Odin
::get_shorturl
$tag; }
43 } elsif ($op eq "del") {
44 @ARGV >= 0 or Odin
::fail
"usage: del TAG ...";
45 Odin
::delete_shorturl
@ARGV;
47 Odin
::fail
"unknown operation `$op'";