diff options
author | Joey Hess <joey@kodama.kitenet.net> | 2008-07-23 19:25:46 -0400 |
---|---|---|
committer | Joey Hess <joey@kodama.kitenet.net> | 2008-07-23 19:25:46 -0400 |
commit | 762bf0b887743db0267a50852c2eb3eaa8fb8042 (patch) | |
tree | 579b88af57cea12221099eb05f61753abdb29b5d /IkiWiki/Plugin | |
parent | 4944fb6829cd6892ba24276486ad9f5b34ebee1b (diff) |
foldage
Diffstat (limited to 'IkiWiki/Plugin')
-rw-r--r-- | IkiWiki/Plugin/attachment.pm | 16 | ||||
-rw-r--r-- | IkiWiki/Plugin/remove.pm | 12 | ||||
-rw-r--r-- | IkiWiki/Plugin/rename.pm | 8 |
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=@_; |