summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xindex.cgi42
1 files changed, 21 insertions, 21 deletions
diff --git a/index.cgi b/index.cgi
index a02f3df..16a708a 100755
--- a/index.cgi
+++ b/index.cgi
@@ -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';