Expunge the various references to our fictional `plain-text' language.
my %o;
getopts "l:t:", \%o and @ARGV == 0
or Odin::fail "usage: new [-l LANG] [-t TITLE]";
- my %p = (title => decode(locale => $o{t}), lang => $o{l} // "plain-text",
+ my %p = (title => decode(locale => $o{t}), lang => $o{l} // "txt",
content => read_content);
my $db = Odin::open_db;
my $c = "";
our %PASTEBIN_DEFAULTS = (
title => "(untitled)",
- lang => "plain-text",
+ lang => "txt",
content => ""
);
our @PASTEBIN_PROPS = keys %PASTEBIN_DEFAULTS;
<div class="paste-widgets">
%#
<label class="invis" for="lang" accesskey="l"><u>L</u>abel</label>
- <select id="lang" name="lang" default="plain-text">
+ <select id="lang" name="lang" default="txt">
% my $lh = $db->selectall_hashref
% ("SELECT lang, descr FROM odin_pastebin_lang", "descr");
% for my $d (sort { Odin::nice_name $a cmp Odin::nice_name $b }
owner varchar(64) not null,
title varchar(128) not null,
lang varchar(32) not null
- default 'plain-text'
+ default 'txt'
references odin_pastebin_lang (lang)
on update cascade
on delete set default