WebGUI 0.9.0 release

lib/WebGUI/Utility.pm

@@ -0,0 +1,83 @@
+package WebGUI::Utility;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001 Plain Black Software.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use CGI;
+use Exporter;
+use FileHandle;
+use strict;
+use WebGUI::Session;
+use WebGUI::SQL;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(&getNextId &saveAttachment &humanToMysqlDate &round &urlizeTitle &quote);
+
+#-------------------------------------------------------------------
+sub getNextId {
+	my ($id);
+	($id) = WebGUI::SQL->quickArray("select nextValue from incrementer where incrementerId='$_[0]'",$session{dbh});
+	WebGUI::SQL->write("update incrementer set nextValue=nextValue+1 where incrementerId='$_[0]'",$session{dbh});
+        return $id;
+}
+
+#-------------------------------------------------------------------
+sub humanToMysqlDate {
+ 	my ($month, $day, $year) = split(/\//,$_[0]);
+	return $year.'-'.$month.'-'.$day.' 00:00:00';
+}
+
+#-------------------------------------------------------------------
+# This is here simply to make typing shorter, cuz I'm lazy.
+sub quote {
+	return $session{dbh}->quote($_[0]);
+}
+
+#-------------------------------------------------------------------
+sub round {
+        return sprintf("%.0f", $_[0]);
+}
+
+#-------------------------------------------------------------------
+# eg: saveAttachment(formVarName,widgetId);
+sub saveAttachment {
+	my ($file, $filename, $bytesread, $buffer, $urlizedFilename);
+	$filename = $session{cgi}->upload($_[0]);
+	#$filename = $session{form}{$_[0]};
+	#$filename = $session{cgi}->param($_[0]);
+	if (defined $filename) {
+		$urlizedFilename = urlizeTitle($filename);
+		mkdir ($session{setting}{attachmentDirectoryLocal}."/".$_[1],0755);
+		$file = FileHandle->new(">".$session{setting}{attachmentDirectoryLocal}."/".$_[1]."/".$urlizedFilename);
+		if (defined $file) {
+			while ($bytesread=read($filename,$buffer,1024)) {
+        			print $file $buffer;
+			}
+			close($file);
+		} else {
+			return "";
+		}
+		return $urlizedFilename;
+	} else {
+		return "";
+	}
+}
+
+#-------------------------------------------------------------------
+sub urlizeTitle {
+	my ($title);
+        $title = lc($_[0]);
+        $title =~ s/ /_/g;
+        $title =~ s/[^a-z0-9\-\.\_]//g;
+        return $title;
+}
+
+
+1;