[L]Local file[/L]
[L]Upload mode[/L]
[if session arg =~ /\.(gif|jpe?g|png)$/i]
[or cgi ui_upload_binary]
[L]ASCII[/L]
[L]Binary[/L]
[if scratch existing]
[L]Use new file name[/L]
[L]Use existing file name[/L]
[/if]
[else]
[L]ASCII[/L]
[L]Binary[/L]
[/else]
[/if]
[L]Umask default (022)[/L]
[L]Backup mode[/L]
[if cgi ui_backup]
[L]Back up[/L]
[L]NO backup[/L]
[else]
[L]Back up[/L]
[L]NO backup[/L]
[/else]
[/if]
[button text="[L]Upload[/L]" src="upload.gif"]
[calc]
if( $CGI->{ui_upload_newfn} or $CGI->{ui_upload_fn} =~ m:/$:) {
my $image = $CGI->{ui_upload_file};
$image =~ s:.*[\\/]::;
$CGI->{ui_upload_fn} =~ s:/[^/]*$:/:;
$CGI->{ui_upload_fn} .= $image;
$Session->{ui_message} = sprintf ("[L]Uploaded file: %s[/L]", $image);
if($CGI->{ui_preload}) {
my $pre =
$CGI->{ui_preload} =~ /:/
? $CGI->{ui_preload}
: "$Values->{mv_data_table}:$CGI->{ui_preload}";
#Log("preloading $pre=$image");
$CGI->{ui_return_to} .= "\0ui_preload:$pre=$image";
#Log(qq{actual preload: CGI->{"ui_preload:$pre"} = $CGI->{"ui_preload:$pre"}});
}
}
$regex = q{@_UI_CONST_IMAGE_REGEX_@} || '\.(?:gif|jpe?g|png)$';
if( $CGI->{ui_upload_fn} =~ m{$regex}i) {
$CGI->{ui_upload_umask} ||= '022';
}
return;
[/calc]
[/button]
|