@ARGV == 0 or Odin::fail "usage: list";
my $db = Odin::open_db;
for my $r (@{$db->selectall_arrayref
- ("SELECT " . Odin::sql_timestamp($db, "stamp") .
- ", tag, lang, title
+ ("SELECT tag, stamp, lang, title
FROM odin_pastebin WHERE owner = ?
ORDER BY stamp", undef, $Odin::WHO)}) {
- my ($stamp, $tag, $lang, $title) = @$r;
+ my ($tag, $stamp, $lang, $title) = @$r;
my $t = strftime "%Y-%m-%d %H:%M:%S %z", localtime $stamp;
printf "%-25s %-12s %-16s %s\n",
$t, $tag, $lang, encode locale => $title;
@ARGV == 0 or Odin::fail "usage: list";
my $db = Odin::open_db;
for my $r (@{$db->selectall_arrayref
- ("SELECT " . Odin::sql_timestamp($db, "stamp") . ", tag, url
+ ("SELECT tag, stamp, url
FROM odin_shorturl WHERE owner = ?
ORDER BY stamp", undef, $Odin::WHO)}) {
- my ($stamp, $tag, $url) = @$r;
+ my ($tag, $stamp, $url) = @$r;
my $t = strftime "%Y-%m-%d %H:%M:%S %z", localtime $stamp;
printf "%-25s %-12s %s\n", $t, $tag, $url;
}
my $drv = $db->{Driver}{Name};
if ($drv eq "Pg") {
$db->{private_odin_retry_p} = sub { $db->state =~ /^40[0P]01$/ };
- $db->{private_odin_unixstamp} = sub { "extract(epoch from $_[0])" };
} elsif ($drv eq "SQLite") {
$db->{private_odin_retry_p} = sub { $db->err == 5 };
- $db->{private_odin_unixstamp} = sub { "strftime('%s', $_[0])" };
} else {
- fail "unsupported database driver `$drv' (patches welcome)", undef;
+ $db->{private_odin_retry_p} = sub { 0 };
}
return $db;
die $exc;
}
-sub sql_timestamp ($$) {
- my ($db, $col) = @_;
- return $db->{private_odin_unixstamp}->($col);
-}
###--------------------------------------------------------------------------
### Sequence numbers and tagging.
undef, $WHOCMP, $url);
unless (defined $tag) {
$tag = encode_tag(next_seq($db, "odin_shorturl_seq"));
- $db->do("INSERT INTO odin_shorturl (tag, owner, url) VALUES (?, ?, ?)",
- undef, $tag, $WHO, $url);
+ $db->do("INSERT INTO odin_shorturl (tag, stamp, owner, url)
+ VALUES (?, ?, ?, ?)", undef,
+ $tag, $NOW, $WHO, $url);
}
} $db;
return $tag;
xact {
$tag = encode_tag next_seq $db, "odin_pastebin_seq";
$db->do("INSERT INTO odin_pastebin
- (tag, edithash, owner, $PASTEBIN_PROPCOLS)
- VALUES (?, ?, ?, $PASTEBIN_PROPPLACES)", undef,
- $tag, $hash, $WHO, @{$new}{@PASTEBIN_PROPS});
+ (tag, stamp, edithash, owner, $PASTEBIN_PROPCOLS)
+ VALUES (?, ?, ?, ?, $PASTEBIN_PROPPLACES)", undef,
+ $tag, $NOW, $hash, $WHO, @{$new}{@PASTEBIN_PROPS});
} $db;
return $tag, $editkey;
}