Changeset 178

Timestamp:

09/07/07 22:09:46 (16 months ago)

Author:

jonas

Message:

Added: md5sum of .mailfiter will be saved to database

Location:

trunk

Files:

• ChangeLog (modified) (1 diff)
• system_scripts/create_mailfilters.pl (modified) (3 diffs)

trunk/ChangeLog

@@ -9 +9 @@
         o Added: check if php-imap is enabled
         o Added: lang selection per user/sadmin
+        o Added: md5sum of .mailfiter will be saved to database
         o Improved: removed reload to domain show on save emailaddress
         o Fixed: autoresponder.pl. UTF-8 problems in body

trunk/system_scripts/create_mailfilters.pl

@@ -21 +21 @@
 use Config::General;
 use Proc::PID::File;
+use Digest::MD5;
 
 my $conf = new Config::General("/etc/cpves/mail_config.conf");
@@ -122 +123 @@
                 return $default;
         }
+}
+
+sub update_email_option($$$) {
+        my $uid = $_[0];
+        my $conf = $_[1];
+        my $value = $_[2];
+        my $eo_sth = $dbh->prepare("SELECT id FROM email_options WHERE email=? AND conf=?");
+        $eo_sth->execute($uid,$conf);
+        if ($eo_sth->rows==1) {
+                my @row_eo=$eo_sth->fetchrow_array;
+                my $sql=sprintf("UPDATE email_options SET options=%s WHERE email=%d AND conf=%s",
+                        $dbh->quote($value),
+                        $dbh->quote($uid),
+                        $dbh->quote($conf));
+                $dbh->do($sql);
+                undef($sql);
+        }
+        else {
+                my $eou_sth = $dbh->prepare("INSERT INTO email_options SET email=?,conf=?,options=?");
+                $eou_sth->execute($uid,$conf,$value);
+        }
+        return 0;
+
 }
 
@@ -238 +262 @@
                         undef $handle;
                         `chmod 600 $path/.mailfilter`;
+
+                        open(FILE ,  $path ."/.mailfilter");
+                        binmode(FILE);
+                        my $md5sum =Digest::MD5->new->addfile(*FILE)->hexdigest;
+                        close(FILE);
+                        update_email_option($id,"mailfilter_md5",$md5sum);
+                        undef($md5sum);
+                        
                 }
                 undef $mailfilter;