("SELECT lang FROM odin_pastebin_lang WHERE lang = ?", undef, $p{lang})}
or Odin::fail "unknown language `$p{lang}'";
my ($tag, $edit) = Odin::new_pastebin %p;
("SELECT lang FROM odin_pastebin_lang WHERE lang = ?", undef, $p{lang})}
or Odin::fail "unknown language `$p{lang}'";
my ($tag, $edit) = Odin::new_pastebin %p;
$p{content} = read_content if $contentp;
Odin::update_pastebin $tag, undef, %p or Odin::fail "nothing changed";
} else {
$p{content} = read_content if $contentp;
Odin::update_pastebin $tag, undef, %p or Odin::fail "nothing changed";
} else {