lib/Odin.pm, bin/*.userv: New function for printing tabular reports.

[odin-cgi] / bin / shorturl.userv

#! /usr/bin/perl

use lib "lib";

use Odin;
use DBI;

Odin::cmdline_who;

my $op = shift(@ARGV) // "help";
if ($op eq "help") {
  print <<EOF;
Commands available:

	del TAG ...
	get TAG ...
	help
	list
	new URL
EOF
} elsif ($op eq "list") {
  @ARGV == 0 or Odin::fail "usage: list";
  my $db = Odin::open_db;
  for my $r (@{$db->selectall_arrayref
      ("SELECT tag, stamp, url
	FROM odin_shorturl WHERE owner = ?
	ORDER BY stamp", undef, $Odin::WHO)}) {
    my ($tag, $stamp, $url) = @$r;
    Odin::print_columns Odin::fmt_time $stamp => 25, $tag => 12, $url =>0;
  }
} elsif ($op eq "new") {
  @ARGV == 1 or Odin::fail "usage: new URL";
  my ($url) = @ARGV;
  my $tag = Odin::new_shorturl $url;
  print "$Odin::SHORTURL/$tag\n";
} elsif ($op eq "get") {
  @ARGV >= 0 or Odin::fail "usage: get TAG ...";
  if (@ARGV == 1) { print Odin::get_shorturl $ARGV[0], "\n"; }
  else {
    for my $tag (@ARGV)
      { printf "%-12s  %s\n", $tag, Odin::get_shorturl $tag; }
  }
} elsif ($op eq "del") {
  @ARGV >= 0 or Odin::fail "usage: del TAG ...";
  Odin::delete_shorturl @ARGV;
} else {
  Odin::fail "unknown operation `$op'";
}