x
Yes
No
Do you want to visit DriveHQ English website?
首页
产品服务
价格
免费试用
下载客户端
关于我们
云文件服务
|
云备份服务
|
FTP服务
|
企业邮箱服务
|
网站托管
|
客户端软件
云文件服务
云备份服务
FTP服务
企业级邮箱服务
网站托管
客户端软件
imupload.pl - Hosted on DriveHQ Cloud IT Platform
返回上层目录
上传
下载
共享
发布
新建文件夹
新建文件
复制
剪切
删除
粘贴
评论
升级服务
路径: \\LITTLELEV\ImageFolioLite\admin\imupload.pl
旋转
特效
属性
历史版本
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww##################################################### sub load_values { $query = new CGI; $category = $query->param("admin_directory"); if (!$category) { $category = $query->param("category"); } $uploaddir = "$image_directory/$category"; $binary_image = $query->param("FILE1"); $uid = $query->param("uid"); $fe_admin = $query->param("fe_admin"); if (!$category) { &Error('You must select a Category.'); } elsif (!$binary_image) { &Error('You must select a Picture for uploading.'); } elsif (!(-e $tempdir)) { &Error('Your temp directory does not exist.'); } elsif (!(-W $tempdir)) { &Error('Your temp directory is not writable.'); } elsif (!(-d $tempdir)) { &Error('Your temp directory is not a valid directory.'); } if (!$is_admin && !$is_user) { &Error("You do not have permission to upload files to this site."); } elsif ($is_user) { if (!$group_media_upload_per) { &Error("Sorry $ifusername, you do not have permission to upload files to this site."); } &compare_cat($category); if (!$group_media_fs_per) { $use_fullsize = 0; } } elsif ($is_admin) { @allow_extensions = (); foreach $key (keys %extensions) { push(@allow_extensions, $key); } } $image_to_upload = $binary_image; $image_to_upload =~ s!^.*(\\|\/)!!; ($extension) = ($image_to_upload =~ /\.([^.]+)$/); if (lc($extension) =~ /(jpg|tif|png|psd|pcd|bmp|gif)/i) { $pass_extension_check_1 = 1; } if ($use_fullsize && (lc($myextension_fullsize) ne 'zip')) { $tempdir = $uploaddir; if (lc($myextension_fullsize) =~ /(jpg|tif|png|psd|pcd|bmp|gif)/i) { $pass_extension_check_2 = 1; } if (lc($extension) eq lc($myextension_fullsize)) { $pass_extension_check_3 = 1; } if ($pass_extension_check_1 && !$pass_extension_check_2 && !$pass_extension_check_3) { $new_error_text = qq|ImageFolio is configured to use full size files with extension "$myextension_fullsize" only.
2 SOLUTIONS:
1) If you want to upload and save your original $image_to_upload file then please set \$myextension_fullsize = '$extension' in your config.pl.
2) If you don't want to keep your original $image_to_upload file then please set \$use_fullsize=0 in your config.pl|; &Error($new_error_text); } elsif ($pass_extension_check_1 && $pass_extension_check_2 && !$pass_extension_check_3) { $new_error_text = qq|ImageFolio is configured to use full size files with extension "$myextension_fullsize" only.
3 SOLUTIONS:
1) Upload a $myextension_fullsize image.
2) Set \$myextension_fullsize = '$extension' in your config.pl.
3) Set \$use_fullsize = 0 in your config.pl|; &Error($new_error_text); } elsif (!$pass_extension_check_1 && !$pass_extension_check_2) { $new_error_text = qq|You can not use ImageConvert/ImageMagick to upload your $image_to_upload file.
SOLUTION:
Set \$use_manual_file_upload = 1 in admin_config.pl and/or post_config.pl to use the manual upload function.|; &Error($new_error_text); } elsif (!$pass_extension_check_1 && $pass_extension_check_2) { $new_error_text = qq|ImageFolio is configured to use full size files with extension "$myextension_fullsize" only.
2 SOLUTIONS:
1) Upload a $myextension_fullsize image.
2) Set \$use_manual_file_upload = 1 in admin_config.pl and/or post_config.pl to upload $image_to_upload|; &Error($new_error_text); } } elsif ($use_fullsize && lc($myextension_fullsize) eq 'zip') { $tempdir = $uploaddir; foreach $allow_extension (@allow_extensions) { next if !exists($extensions{lc($allow_extension)}); $my_allowed_extensions .= "$allow_extension, "; if (lc($allow_extension) eq lc($extension)) { $pass_extension_check_4 = 1; } } $my_allowed_extensions =~ s/\, $//g; if (!$pass_extension_check_4) { $new_error_text = qq|You can not upload a "$extension".
SOLUTION:
Only upload files with the following extensions: $my_allowed_extensions|; &Error($new_error_text); } } if (!$pass_extension_check_1) { $new_error_text = qq|You can not use ImageConvert/ImageMagick to upload your $image_to_upload file.
2 SOLUTIONS:
1) Set \$use_manual_file_upload = 1 in admin_config.pl and/or post_config.pl to use the manual upload function.
2) Upload a jpg or tif image|; &Error($new_error_text); } ($shortname) = $image_to_upload =~ m,^(.*)\.\w+$,; $shortname =~ s/ /_/g; $shortname =~ s/\.//g; $shortname =~ s/[$deny_chars]//g; $shortname =~ s/$mypattern//g; $shortname =~ s/$mypattern_fullsize//g; if (!$shortname) { $shortname = "novalidname"; } $filetowrite = qq|$uploaddir/$shortname.jpg|; if (-e "$filetowrite") { if ($overwrite_if_exist) { $source_iptc_info = new Image::IPTCInfo("$filetowrite"); } else { for ($ext=1; $ext<100; $ext++) { $testfile = $uploaddir . "/" . $shortname . $ext . ".jpg"; unless (-e "$testfile") { $shortname = $shortname . $ext; last; } } } } if ($use_fullsize) { if (lc($myextension_fullsize) eq 'zip') { $upimage = "${mypattern_fullsize}${shortname}.$extension"; } else { $upimage = "${mypattern_fullsize}${shortname}.$myextension_fullsize"; } } else { $upimage = $shortname . "." . $extension; } $imgtoread = $tempdir . "/" . $upimage; undef $bytesread; undef $buffer; } sub add_user_info { my $input = shift; @IPTC_attributes = ('caption/abstract','writer/editor','headline','special instructions','copyright notice','credit','source','object name','date created','by-line','by-line title','city','province/state','country/primary location name','original transmission reference','contact','content location code','content location name','country/primary location code','digital creation date','digital creation time','edit status','editorial update','expiration date','expiration time','fixture identifier','image orientation','image type','language identifier','object cycle','originating program','program version','reference date','reference number','reference service','release date','release time','sub-location','subject reference','time created','urgency','custom1','custom2','custom3','custom4','custom5','custom6','custom7','custom8','custom9','custom10','custom11','custom12','custom13','custom14','custom15','custom16','custom17','custom18','custom19','custom20'); if (defined($source_iptc_info)) { $createinfo = create Image::IPTCInfo("$input"); $createinfo->ClearKeywords(); $createinfo->ClearSupplementalCategories(); my $keywordsRef = $source_iptc_info->Keywords(); if ($keywordsRef) { foreach $keyword (@$keywordsRef) { $createinfo->AddKeyword("$keyword"); } } foreach $IPTC_attribute (@IPTC_attributes) { $iptcvalue = $source_iptc_info->Attribute("$IPTC_attribute"); $createinfo->SetAttribute("$IPTC_attribute","$iptcvalue"); } $createinfo->Save(); } else { if (!$group_media_desc_per && !$is_admin) { my $iptc_info = new Image::IPTCInfo("$input"); if (defined($iptc_info)){ $createinfo = create Image::IPTCInfo("$input"); $createinfo->ClearKeywords(); $createinfo->ClearSupplementalCategories(); foreach $IPTC_attribute (@IPTC_attributes) { $createinfo->SetAttribute("$IPTC_attribute",""); } } else { $createinfo = create Image::IPTCInfo("$input"); } } else { $createinfo = create Image::IPTCInfo("$input"); } if ($ifemail && $ifusername) { $encrypt_email = &admin_encrypt($ifemail, $ifusername); } else { $encrypt_email = (); } $createinfo->SetAttribute('originating program','www.imagefolio.com'); $createinfo->SetAttribute('program version','4.x'); $createinfo->SetAttribute('custom18',"[$current_time][$ifusername][$encrypt_email][$group_media_upload_approval][$extension]") if $is_user; $createinfo->SetAttribute('custom18',"[$current_time][][][][$extension]") if $is_admin; $createinfo->Save(); } if (!$source_iptc_info) { $source_iptc_info = new Image::IPTCInfo("$input"); } } sub create_email { $encrypt_link = &admin_encrypt("$imagefolio_url?action=view&link=$category&image=$newimage&ota=1", $secret_key); $one_time_access = &admin_encrypt("$category/$newimage", $secret_key); if ($ifemail) { $from_email = $ifemail; } else { $from_email = $admin_email; } my $from_out = "$from_email"; my $to_out = "$admin_email"; my $cc_out = (); if (@picpost_moderators) { foreach $picpost_moderator (@picpost_moderators) { $my_picpost_moderator .= "$picpost_moderator,"; } $my_picpost_moderator =~ s/,$//g; $bcc_out = $my_picpost_moderator; } $subject_out = "New Upload ($newimage)"; if ($group_media_upload_approval) { $subject_out .= " ***Approval Required***"; $message_out = qq|
<$font>
TAKE ACTION!
This file needs approval before it is visible.
|; $approve_text = "approve/"; $priority = 1; } else { $priority = 0; } my $type_out_0 = 'multipart/related'; # 'text/plain' or 'text/html' or 'multipart/mixed' or 'multipart/related' my $data_out_0 = ''; my $type_out_1 = 'text/html'; # blank 'text/plain' or 'text/html' my $data_out_1 = qq|
$message_out
<$font>
Admin view
After login you have administrator rights. You can
${approve_text}rename/caption/delete/move the file.
<$font>
One time quick access
You have one time, quick access to this file only.
You can ${approve_text}delete the file.
|; my $type_out_2 = 'image/jpeg'; # the type of attachment my $id_out = $newthumb; my $path_out = $filetowrite; &send_mime_email($from_out, $to_out, $cc_out, $bcc_out, $subject_out, $type_out_0, $data_out_0, $type_out_1, $data_out_1, $type_out_2, $id_out, $path_out, $priority); } sub create_imagethumb_cache { if (!$group_media_upload_approval) { $cachefilename = "thumb~USER~$ifusername~sort1~show_tn1"; $cachefilename =~ s/[^0-9a-zA-Z\_]/~/g; $cacheloc = "$cache_directory/searches/$cachefilename"; open (TCACHE,">$cacheloc"); print TCACHE "blah|$newthumb|$category|$filedate|0|0|\n"; close(TCACHE); chmod(0666,"$cacheloc"); $cachefilename .= "~$category"; $cachefilename =~ s/[^0-9a-zA-Z\_]/~/g; $cacheloc = "$cache_directory/searches/$cachefilename"; open (TCACHE,">$cacheloc"); print TCACHE "blah|$newthumb|$category|$filedate|0|0|\n"; close(TCACHE); chmod(0666,"$cacheloc"); } } ############################################################################### # CREATE IMAGE # Creates our full-size image ############################################################################### sub create_image { $newimage = "$shortname.jpg"; $filetowrite = "$uploaddir/$newimage"; if (!$use_im) { &do_ic("\"$imgtoread\"", "\"$filetowrite\"", $ImageDimensions, $ImageQuality, $ImageSharpness, $ImageContrast, $ImageCustom); } else { &do_im($imgtoread, $filetowrite, $ImageDimensions, $ImageQuality, $ImageSharpness, $ImageContrast); } chmod (0666, $filetowrite); } ############################################################################### # CREATE THUMBNAIL # Creates our thumbnail image ############################################################################### sub create_thumbnail { $newthumb = "$mypattern$shortname.jpg"; $thumbtowrite = "$uploaddir/$newthumb"; $ThumbCrop_im = (); $ThumbCrop_ic = (); if ($crop_thumb_width && $crop_thumb_height) { my ($ftw_width, $ftw_height) = imgsize("$filetowrite"); if ($ftw_width && $ftw_height) { $width_factor = $ftw_width/$crop_thumb_width; $height_factor = $ftw_height/$crop_thumb_height; if ($width_factor > $height_factor) { $ThumbDimensions = $ftw_width/$height_factor; $ThumbCrop = ($ThumbDimensions-$crop_thumb_width)/2; ($ThumbCrop) = split(/\./,$ThumbCrop); $ThumbCrop_im = "${crop_thumb_width}x${crop_thumb_height}+${ThumbCrop}+0"; $ThumbCrop_ic = "${ThumbCrop} 0 ${crop_thumb_width} ${crop_thumb_height}"; } else { $ThumbDimensions = $ftw_height/$width_factor; $ThumbCrop = ($ThumbDimensions-$crop_thumb_height)/2; ($ThumbCrop) = split(/\./,$ThumbCrop); $ThumbCrop_im = "${crop_thumb_width}x${crop_thumb_height}+0+${ThumbCrop}"; $ThumbCrop_ic = "0 ${ThumbCrop} ${crop_thumb_width} ${crop_thumb_height}"; } } } if (!$use_im) { $ThumbCustom .= " -rmeta"; &do_ic("\"$filetowrite\"", "\"$thumbtowrite\"", $ThumbDimensions, $ThumbQuality, $ThumbSharpness, $ThumbContrast, $ThumbCustom, $ThumbCrop_ic); } else { &do_im($filetowrite, $thumbtowrite, $ThumbDimensions, $ThumbQuality, $ThumbSharpness, $ThumbContrast, $ThumbCrop_im); } chmod (0666, $thumbtowrite); } ######################################################## # Error # shows error message if form not filled out correctly ######################################################## sub ErrorOLD{ print "Content-type: text/html\n\n"; local ($whoops) = @_; print qq|
Error!
Error!
$whoops
If the button below does not take you back, please use your browser's back button to go back and try again.
|; $binary_image = (); # Needed for win32 to remove the tempfile exit; } ############################################################################### # SAVE DATA TO CATEGORIES.TXT FILE ############################################################################### sub update_index_files { open (CATFILE, "$catfile"); my(@catfiledata)=
; close(CATFILE); foreach $catfiledata (@catfiledata) { ($catpath, $catcount, $catage) = split(/\t/, $catfiledata); if ($catpath eq $category){ $catcount++; ($catage) = (stat("$filetowrite"))[9]; $catlist .= $catpath . "\t" . $catcount . "\t" . $catage . "\t\n"; } else { $catlist .= $catfiledata; } } open(CATFILE, ">$catfile"); if ($useflock) { flock(CATFILE, 2); } print CATFILE $catlist; if ($useflock) { flock(CATFILE, 8); } close(CATFILE); } 1;
imupload.pl
网页地址
文件地址
上一页
15/27
下一页
下载
( 23 KB )
Comments
Total ratings:
0
Average rating:
无评论
of 10