oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WebGUI 3.1.0 release

Browse source
This commit is contained in:
JT Smith 2002-02-01 06:57:00 +00:00
parent d1c1445ea1
commit 71cd27d3bc
56 changed files with 2025 additions and 238 deletions
Download patch file Download diff file Expand all files Collapse all files

65
lib/WebGUI/Attachment.pm
View file

@ -25,14 +25,15 @@ sub copy {
if ($_[0] ne "") {
$oldFile = $session{setting}{attachmentDirectoryLocal}.'/'.$_[1];
if ($_[3] ne "") {
$oldFile .= '/'.$_[3]
$oldFile .= '/'.$_[3];
}
$oldFile .= '/'.$_[0];
$newFile = $session{setting}{attachmentDirectoryLocal}.'/'.$_[2];
if ($_[4] ne "") {
$newFile .= '/'.$_[4]
}
mkdir ($newFile,0755);
if ($_[4] ne "") {
$newFile .= '/'.$_[4];
mkdir ($newFile,0755);
}
$newFile .= '/'.$_[0];
$a = FileHandle->new($oldFile,"r");
$b = FileHandle->new(">".$newFile);
@ -44,6 +45,54 @@ sub copy {
}
}
#-------------------------------------------------------------------
sub deleteSubmission {
my ($dir);
$dir = $session{setting}{attachmentDirectoryLocal}.'/'.$_[0].'/'.$_[1];
rmtree($dir);
}
#-------------------------------------------------------------------
sub getType {
my ($extension, $icon, %type);
$extension = lc($_[0]);
$extension =~ s/.*?\.(.*?)$/$1/;
if ($extension eq "doc" || $extension eq "dot" || $extension eq "wri") {
$icon = $session{setting}{lib}."/fileIcons/doc.gif";
} elsif ($extension eq "txt" || $extension eq "log" || $extension eq "config" || $extension eq "conf") {
$icon = $session{setting}{lib}."/fileIcons/txt.gif";
} elsif ($extension eq "xls" || $extension eq "xlt" || $extension eq "csv") {
$icon = $session{setting}{lib}."/fileIcons/xls.gif";
} elsif ($extension eq "html" || $extension eq "htm" || $extension eq "xml") {
$icon = $session{setting}{lib}."/fileIcons/html.gif";
} elsif ($extension eq "ram" || $extension eq "mpeg" || $extension eq "mpg" ||
$extension eq "wav" || $extension eq "mp3" || $extension eq "avi") {
$icon = $session{setting}{lib}."/fileIcons/html.gif";
} elsif ($extension eq "html" || $extension eq "htm" || $extension eq "xml") {
$icon = $session{setting}{lib}."/fileIcons/html.gif";
} elsif ($extension eq "rar" || $extension eq "tar" || $extension eq "gz" || $extension eq "Z") {
$icon = $session{setting}{lib}."/fileIcons/rar.gif";
} elsif ($extension eq "mdb") {
$icon = $session{setting}{lib}."/fileIcons/mdb.gif";
} elsif ($extension eq "ppt") {
$icon = $session{setting}{lib}."/fileIcons/ppt.gif";
} elsif ($extension eq "tiff" || $extension eq "tif" || $extension eq "bmp" ||
$extension eq "psd" ||$extension eq "psp" || $extension eq "gif" ||
$extension eq "jpg" || $extension eq "jpeg") {
$icon = $session{setting}{lib}."/fileIcons/psp.gif";
} elsif ($extension eq "zip") {
$icon = $session{setting}{lib}."/fileIcons/zip.gif";
} elsif ($extension eq "mov") {
$icon = $session{setting}{lib}."/fileIcons/mov.gif";
} elsif ($extension eq "pdf") {
$icon = $session{setting}{lib}."/fileIcons/pdf.gif";
} else {
$icon = $session{setting}{lib}."/fileIcons/unknown.gif";
}
%type = (extension => $extension, icon => $icon);
return %type;
}
#-------------------------------------------------------------------
sub purgeWidget {
my ($dir);
@ -54,7 +103,7 @@ sub purgeWidget {
#-------------------------------------------------------------------
# eg: save(formVarName,widgetId,optionallySubmissionId);
sub save {
my ($file, $filename, $bytesread, $buffer, $urlizedFilename, $path);
my (%type, $file, $filename, $bytesread, $buffer, $urlizedFilename, $path);
$filename = $session{cgi}->upload($_[0]);
if (defined $filename) {
if ($filename =~ /([^\/\\]+)$/) {
@ -62,6 +111,12 @@ sub save {
} else {
$urlizedFilename = $filename;
}
%type = getType($urlizedFilename);
if ($type{extension} eq "pl" || $type{extension} eq "perl" || $type{extension} eq "sh" ||
$type{extension} eq "cgi" || $type{extension} eq "php" || $type{extension} eq "asp") {
$urlizedFilename =~ s/\./\_/g;
$urlizedFilename .= ".txt";
}
$urlizedFilename = urlize($urlizedFilename);
$path = $session{setting}{attachmentDirectoryLocal}."/".$_[1]."/";
mkdir ($path,0755);