remove cache

* remove cache, cache setup is not easy, todays servers do not really
* need it anymore
* add prototypes and fix parameter issues
* suppress redefinition

lib/calcms/mail.pm

@@ -1,23 +1,25 @@
 package mail;
-use warnings;
+
 use strict;
+use warnings;
+no warnings 'redefine';
 
 use MIME::Lite();
 
-sub send {
-	my $mail = shift;
+sub send($) {
+    my $mail = shift;
 
-	my $msg = MIME::Lite->new(
-		'From'     => $mail->{'From'},
-		'To'       => $mail->{'To'},
-		'Cc'       => $mail->{'Cc'},
-		'Reply-To' => $mail->{'Reply-To'},
-		'Subject'  => $mail->{'Subject'},
-		'Data'     => $mail->{'Data'},
-	);
+    my $msg = MIME::Lite->new(
+        'From'     => $mail->{'From'},
+        'To'       => $mail->{'To'},
+        'Cc'       => $mail->{'Cc'},
+        'Reply-To' => $mail->{'Reply-To'},
+        'Subject'  => $mail->{'Subject'},
+        'Data'     => $mail->{'Data'},
+    );
 
-	$msg->print( \*STDERR );
-	$msg->send;
+    $msg->print( \*STDERR );
+    $msg->send;
 }
 
 # do not delete next line