aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess <joey@kodama.kitenet.net>2008-07-23 19:25:46 -0400
committerJoey Hess <joey@kodama.kitenet.net>2008-07-23 19:25:46 -0400
commit762bf0b887743db0267a50852c2eb3eaa8fb8042 (patch)
tree579b88af57cea12221099eb05f61753abdb29b5d
parent4944fb6829cd6892ba24276486ad9f5b34ebee1b (diff)
downloadikiwiki-762bf0b887743db0267a50852c2eb3eaa8fb8042.tar
ikiwiki-762bf0b887743db0267a50852c2eb3eaa8fb8042.tar.gz
foldage
-rw-r--r--IkiWiki/Plugin/attachment.pm16
-rw-r--r--IkiWiki/Plugin/remove.pm12
-rw-r--r--IkiWiki/Plugin/rename.pm8
3 files changed, 18 insertions, 18 deletions
diff --git a/IkiWiki/Plugin/attachment.pm b/IkiWiki/Plugin/attachment.pm
index e08aa3677..9dbc66020 100644
--- a/IkiWiki/Plugin/attachment.pm
+++ b/IkiWiki/Plugin/attachment.pm
@@ -11,7 +11,7 @@ sub import { #{{{
hook(type => "formbuilder", id => "attachment", call => \&formbuilder);
} # }}}
-sub check_canattach ($$;$) {
+sub check_canattach ($$;$) { #{{{
my $session=shift;
my $dest=shift; # where it's going to be put, under the srcdir
my $file=shift; # the path to the attachment currently
@@ -43,7 +43,7 @@ sub check_canattach ($$;$) {
else {
return 1;
}
-}
+} #}}}
sub checkconfig () { #{{{
$config{cgi_disable_uploads}=0;
@@ -207,7 +207,7 @@ sub formbuilder (@) { #{{{
$form->tmpl_param("attachment_list" => [attachment_list($form->field('page'))]);
} # }}}
-sub attachment_location ($) {
+sub attachment_location ($) { #{{{
my $page=shift;
# Put the attachment in a subdir of the page it's attached
@@ -216,9 +216,9 @@ sub attachment_location ($) {
$page.="/" if length $page;
return $page;
-}
+} #}}}
-sub attachment_list ($) {
+sub attachment_list ($) { #{{{
my $page=shift;
my $loc=attachment_location($page);
@@ -240,9 +240,9 @@ sub attachment_list ($) {
# Sort newer attachments to the top of the list, so a newly-added
# attachment appears just before the form used to add it.
return sort { $b->{mtime_raw} <=> $a->{mtime_raw} || $a->{link} cmp $b->{link} } @ret;
-}
+} #}}}
-my %units=( # size in bytes
+my %units=( #{{{ # size in bytes
B => 1,
byte => 1,
KB => 2 ** 10,
@@ -274,7 +274,7 @@ my %units=( # size in bytes
# ikiwiki, if you find you need larger data quantities, either modify
# yourself to add them, or travel back in time to 2008 and kill me.
# -- Joey
-);
+); #}}}
sub parsesize ($) { #{{{
my $size=shift;
diff --git a/IkiWiki/Plugin/remove.pm b/IkiWiki/Plugin/remove.pm
index 4c73ed9e5..a886956b2 100644
--- a/IkiWiki/Plugin/remove.pm
+++ b/IkiWiki/Plugin/remove.pm
@@ -12,7 +12,7 @@ sub import { #{{{
} # }}}
-sub check_canremove ($$$$) {
+sub check_canremove ($$$$) { #{{{
my $page=shift;
my $q=shift;
my $session=shift;
@@ -42,7 +42,7 @@ sub check_canremove ($$$$) {
if ($attachment) {
IkiWiki::Plugin::attachment::check_canattach($session, $page, $file);
}
-}
+} #}}}
sub formbuilder_setup (@) { #{{{
my %params=@_;
@@ -79,7 +79,7 @@ sub confirmation_form ($$) { #{{{
return $f, ["Remove", "Cancel"];
} #}}}
-sub removal_confirm ($$@) {
+sub removal_confirm ($$@) { #{{{
my $q=shift;
my $session=shift;
my $attachment=shift;
@@ -107,9 +107,9 @@ sub removal_confirm ($$@) {
IkiWiki::showform($f, $buttons, $session, $q);
exit 0;
-}
+} #}}}
-sub postremove ($) {
+sub postremove ($) { #{{{
my $session=shift;
# Load saved form state and return to edit form.
@@ -117,7 +117,7 @@ sub postremove ($) {
$session->clear("postremove");
IkiWiki::cgi_savesession($session);
IkiWiki::cgi($postremove, $session);
-}
+} #}}}
sub formbuilder (@) { #{{{
my %params=@_;
diff --git a/IkiWiki/Plugin/rename.pm b/IkiWiki/Plugin/rename.pm
index 5fda526a8..527ee88bc 100644
--- a/IkiWiki/Plugin/rename.pm
+++ b/IkiWiki/Plugin/rename.pm
@@ -102,7 +102,7 @@ sub rename_form ($$$) { #{{{
return $f, ["Rename", "Cancel"];
} #}}}
-sub rename_start ($$$$) {
+sub rename_start ($$$$) { #{{{
my $q=shift;
my $session=shift;
my $attachment=shift;
@@ -127,9 +127,9 @@ sub rename_start ($$$$) {
IkiWiki::showform($f, $buttons, $session, $q);
exit 0;
-}
+} #}}}
-sub postrename ($;$$$) {
+sub postrename ($;$$$) { #{{{
my $session=shift;
my $src=shift;
my $dest=shift;
@@ -160,7 +160,7 @@ sub postrename ($;$$$) {
}
IkiWiki::cgi_editpage($postrename, $session);
-}
+} #}}}
sub formbuilder (@) { #{{{
my %params=@_;