master
Joey Hess 2008-07-23 19:25:46 -04:00
parent 4944fb6829
commit 762bf0b887
3 changed files with 18 additions and 18 deletions

View File

@ -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;

View File

@ -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=@_;

View File

@ -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=@_;