diff options
-rwxr-xr-x | index.cgi | 42 |
1 files changed, 21 insertions, 21 deletions
@@ -149,7 +149,7 @@ TUWF::post '/mypastes' => sub { Input type => 'hidden', name => 'pc', value => $p; B 'Page: '; Input type => 'submit', name => 'p', value => $_ for (1..($f->{p} - 1)); - txt " $f->{p} "; + Txt " $f->{p} "; Input type => 'submit', name => 'p', value => $_ for(($f->{p}+1)..$cnt); }; } @@ -163,7 +163,7 @@ TUWF::get qr{/$code_re\.txt} => sub { my $r = getpaste(tuwf->capture(1), 'raw'); return if !ref $r; tuwf->resHeader('Content-Type' => 'text/plain; charset=UTF-8'); - lit $r->{raw}; + Lit $r->{raw}; }; @@ -182,14 +182,14 @@ TUWF::get qr{/$code_re} => sub { Pre sub { for (1..$cnt) { A name => "r$_", href => "#r$_", $_; - lit "\n"; + Lit "\n"; } }; } }; Td class => 'top code', sub { Pre mkclass(allowwrap => $r->{wrap}), sub { - lit get_html($r); + Lit get_html($r); }; }; }; @@ -260,12 +260,12 @@ sub template { Div id => 'leftdiv', ''; Div id => 'toplinks', sub { for(@$links) { - txt ' '; + Txt ' '; if(ref($_)) { A href => '#', onclick => "return unpaste('/$$_')", 'unpaste'; - txt ' '; + Txt ' '; A href => "/$$_.txt", 'raw'; - txt ' '; + Txt ' '; A href => "/copy/$$_", 'copy'; } else { /newpaste/ && A href => '/', 'new paste'; @@ -306,7 +306,7 @@ sub html_upload_form { Textarea name => 'f', id => 'f', $r->{raw}; Br; Input type => 'submit', value => 'Submit', id => 'submit'; - txt '-or- '; + Txt '-or- '; Input type => 'file', name => 'u', id => 'u'; I ' (UTF-8, max. ~1MiB)'; }; @@ -323,20 +323,20 @@ sub html_upload_form { I 'Syntax highlighting: '; Input type => 'text', name => 's', id => 's', size => 10, value => $r->{syntax}; I sub {; - txt ' Popular: '; + Txt ' Popular: '; B class => 'syntax', sub { for (@{ tuwf->dbAll('SELECT syntax FROM syntaxes ORDER BY cnt DESC LIMIT 7') }) { A href => '#', onclick => 'return setsyn(this)', $_->{syntax}; - txt ' '; + Txt ' '; } }; - txt '| '; + Txt '| '; A href => '#', onclick => 'return showall()', 'Show all ยป'; }; Div id => 'syntax', style => 'display: none', sub { for (@syntax) { A href => '#', onclick => 'return setsyn(this)', $_; - txt ' '; + Txt ' '; } }; }; @@ -349,10 +349,10 @@ sub html_upload_form { Label for => 'ps', ' save on my computer'; Br; I sub { - txt '(Optional, necessary for listing and/or removing your pastes.)'; + Txt '(Optional, necessary for listing and/or removing your pastes.)'; Br; B 'Important:'; - txt ' make sure your passcode is not something other people are likely to use.' + Txt ' make sure your passcode is not something other people are likely to use.' .' For example, use "nickname-asdf" instead of "asdf".'; }; }; @@ -364,20 +364,20 @@ sub html_upload_form { Li "Pastes don't expire."; Li 'All pastes are private, that is, nobody can find your paste unless they know the URL or the passcode.'; Li sub { - txt 'If you absolutely need to have a paste removed from this site, and you lost your passcode, send a mail to '; + Txt 'If you absolutely need to have a paste removed from this site, and you lost your passcode, send a mail to '; A href => 'mailto:ayo@blicky.net', 'ayo@blicky.net'; - txt '.'; + Txt '.'; }; Li sub { - txt 'Want to paste stuff from the commandline? We have a '; + Txt 'Want to paste stuff from the commandline? We have a '; A href => '/bpaste.sh', 'script'; - txt ' for that.'; + Txt ' for that.'; }; Li 'Code highlighting is provided by vim.'; Li sub { - txt 'This website is '; + Txt 'This website is '; A href => 'https://g.blicky.net/bpaste.git', 'open source'; - txt '.'; + Txt '.'; }; }; }; @@ -447,7 +447,7 @@ sub msg { Td class => 'numbers', ''; Td class => 'top', sub { Br; - lit html_escape $msg; + Lit html_escape $msg; if($back) { Br; A href => 'javascript:history.go(-1)', 'Back to the form'; |