Si vacation
Aus Si:Wiki von Siegrist SystemLösungen - Informatik und Rezepte
Version vom 26. Dezember 2015, 03:41 Uhr von Sigi (Diskussion | Beiträge) (Die Seite wurde neu angelegt: «<syntaxhighlight lang="perl"> #!/usr/bin/perl # Copyright (c) 2002 by Siegrist(SystemLoesungen) (PSS @ ZweierNet.ch) # http://pss.ZweierNet.ch # # All Rights…»)
#!/usr/bin/perl # Copyright (c) 2002 by Siegrist(SystemLoesungen) (PSS @ ZweierNet.ch) # http://pss.ZweierNet.ch # # All Rights reserved. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # NAME # si_vacation - Email Vacation Auto-Responder. # # SYNOPSIS # si_vacation -i <FQDA-mailaddr,FQDA-mailaddr,...> # # DESCRIPTION # This is a replacement to the BSD vacation program. # As BSD vacation does only deal with login resp. alias names # si_vacation was made to deal with FQDA Mailaddresses. # This may be usefull in relation to sendmails virtualtable # mechanism. With other words it processes all Mailaddrs supported # by the MTA. # # To enable si_vacation put a line of the following form into # the .forwarw file of the users home directory: # # \username, "|/usr/local/bin/si_vacation [-i <FQDA-mailaddr,FQDA-mailaddr,...>]" # # Options: # With no arguments the hole mailaccount will be handled. # -i <comma seperated list> . processes only the given mailaddresses (aliases). FQDA-mailaddr must be rfc822 conform email address. # # This sends one copy of an incoming message to username while # another copy is piped into si_vacation. # # si_acation will not respond to automatically generated mails # (like mails generated by vacation progs). si_vacation will also not # respond to mails from either postmaster or mailer-daemon. # Further all messages with a precedence:(bulk|list|junk) header field # will not be processed. # # To avoid multiple replies to the same sender the program uses a # database file .vacation.bdb in the users home directory. You can # simply delete this file to reset this mechanism. # The '$span' variable in the program settings defines the interval # in days we send such a reply. # The database file holds an entry of each sender address with the appropriate # timestamp to calculate the interval. # # FILES # ~/.forward Contains e-mail adresses or programs # to which mail must be forwarded. # # ~/.vacation.msg The reply message. The tag "$SUBJECT" in this message # can be used tu substitute the subject of received mail. # # ~/.vacation.bdb Berkeley Database file. # # AUTHOR # Peter Siegrist <PSS at ZweierNet.ch> # # NOTES # This script has been tested with Gentoo Linux. Note that # for other systems it can be necessary to modify some things. # # The script needs the BerkeleyDB Module vom CPAN. # # To be sure the program can be processed out of the .forward file # consult the 'smrsh' manpage. # $VERSION = "0.9"; use strict; use BerkeleyDB; ##--- Program Settings ----------------------------- # path to sendmail my $sendmail = "/usr/sbin/sendmail"; # name of logfile my $logfile = "/var/log/si_vacation.log"; # the vacation message file my $vacation_msg = ".vacation.msg"; # the database file my $vacation_db = ".vacation.bdb"; # file contains all domains handled by the mailsystem my $local_hostnames = "/etc/mail/local-host-names"; # (days): send a vacation message every $span days. 0 = never send more than one message. my $span = 1; ## -------------------------------------------------- $span *= 86400; # convert days to secs sub TRUE { 1; } sub FALSE { 0; } my $fwall = FALSE; # RFC822 check. Regular expression von Jeffrey Friedl's Beispiel in # "Reguleare Ausdruecke" (http://www.ora.com/catalog/regexp/). my $RFC822PAT = <<'EOF'; [\040\t]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\ xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\xf f\n\015()]*)*\)[\040\t]*)*(?:(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\x ff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|"[^\\\x80-\xff\n\015 "]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015"]*)*")[\040\t]*(?:\([^\\\x80-\ xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80 -\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040\t]* )*(?:\.[\040\t]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\ \\x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\ x80-\xff\n\015()]*)*\)[\040\t]*)*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x8 0-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|"[^\\\x80-\xff\n \015"]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015"]*)*")[\040\t]*(?:\([^\\\x 80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^ \x80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040 \t]*)*)*@[\040\t]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([ ^\\\x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\ \\x80-\xff\n\015()]*)*\)[\040\t]*)*(?:[^(\040)<>@,;:".\\\[\]\000-\037\ x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80- \xff\n\015\[\]]|\\[^\x80-\xff])*\])[\040\t]*(?:\([^\\\x80-\xff\n\015() ]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\\ x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040\t]*)*(?:\.[\04 0\t]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\ n\015()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\ 015()]*)*\)[\040\t]*)*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?! [^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80-\xff\n\015\[\ ]]|\\[^\x80-\xff])*\])[\040\t]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\ x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\01 5()]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040\t]*)*)*|(?:[^(\040)<>@,;:". \\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff] )|"[^\\\x80-\xff\n\015"]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015"]*)*")[^ ()<>@,;:".\\\[\]\x80-\xff\000-\010\012-\037]*(?:(?:\([^\\\x80-\xff\n\0 15()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80-\xff][ ^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*)*\)|"[^\\\x80-\xff\ n\015"]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015"]*)*")[^()<>@,;:".\\\[\]\ x80-\xff\000-\010\012-\037]*)*<[\040\t]*(?:\([^\\\x80-\xff\n\015()]*(? :(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80- \xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040\t]*)*(?:@[\040\t]* (?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015 ()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015() ]*)*\)[\040\t]*)*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\0 40)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\ [^\x80-\xff])*\])[\040\t]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\ xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]* )*\))[^\\\x80-\xff\n\015()]*)*\)[\040\t]*)*(?:\.[\040\t]*(?:\([^\\\x80 -\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x 80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040\t ]*)*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\ \[\]\000-\037\x80-\xff])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff]) *\])[\040\t]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x 80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80 -\xff\n\015()]*)*\)[\040\t]*)*)*(?:,[\040\t]*(?:\([^\\\x80-\xff\n\015( )]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\ \x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040\t]*)*@[\040\t ]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\0 15()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015 ()]*)*\)[\040\t]*)*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^( \040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80-\xff\n\015\[\]]| \\[^\x80-\xff])*\])[\040\t]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80 -\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015() ]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040\t]*)*(?:\.[\040\t]*(?:\([^\\\x 80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^ \x80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040 \t]*)*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:". \\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff ])*\])[\040\t]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\ \x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x 80-\xff\n\015()]*)*\)[\040\t]*)*)*)*:[\040\t]*(?:\([^\\\x80-\xff\n\015 ()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\ \\x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040\t]*)*)?(?:[^ (\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000- \037\x80-\xff])|"[^\\\x80-\xff\n\015"]*(?:\\[^\x80-\xff][^\\\x80-\xff\ n\015"]*)*")[\040\t]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]| \([^\\\x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]*)*\)) [^\\\x80-\xff\n\015()]*)*\)[\040\t]*)*(?:\.[\040\t]*(?:\([^\\\x80-\xff \n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80-\x ff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040\t]*)*( ?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\ 000-\037\x80-\xff])|"[^\\\x80-\xff\n\015"]*(?:\\[^\x80-\xff][^\\\x80-\ xff\n\015"]*)*")[\040\t]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\x ff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]*) *\))[^\\\x80-\xff\n\015()]*)*\)[\040\t]*)*)*@[\040\t]*(?:\([^\\\x80-\x ff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80- \xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040\t]*) *(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\ ]\000-\037\x80-\xff])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff])*\] )[\040\t]*(?:\([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80- \xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\x ff\n\015()]*)*\)[\040\t]*)*(?:\.[\040\t]*(?:\([^\\\x80-\xff\n\015()]*( ?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()]*(?:\\[^\x80-\xff][^\\\x80 -\xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*)*\)[\040\t]*)*(?:[^(\040)< >@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x8 0-\xff])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff])*\])[\040\t]*(?: \([^\\\x80-\xff\n\015()]*(?:(?:\\[^\x80-\xff]|\([^\\\x80-\xff\n\015()] *(?:\\[^\x80-\xff][^\\\x80-\xff\n\015()]*)*\))[^\\\x80-\xff\n\015()]*) *\)[\040\t]*)*)*>) EOF #--------------------------------------------------------------------- open(LOG, ">>$logfile"); #my $user = $ENV{"USER"} || $ENV{"LOGNAME"} || getlogin || (getpwuid($>))[0]; my $user = (getpwuid($>))[0]; print LOG "\n$user -- @{[scalar localtime()]} ------------------------------\n"; print LOG "$user -- ARGV: @ARGV\n"; print LOG ">>>>>$ENV{'USER'} || $ENV{'LOGNAME'} || ", getlogin, " || ", (getpwuid($>))[0], "\n"; #-- Options # Usage in .forward: "\mailaccount, |si_vacation -i <mail@addr.tld,mail@addr.tld,...>" # ... or "\mailaccount, |si_vacation" # # With no arguments the hole mailaccount will be handled. # -i <comma seperated list> processes only the given mailaddresses (aliases). mail@addr.tld must be rfc822 conform email address. my %i_args = (); if ( $ARGV[0] eq "-i" ) { shift (@ARGV); map { $i_args{lc($_)} = "1" } split(",", shift(@ARGV)); print LOG "$user -- Handle addrs: ", join(",", keys %i_args), "\n"; } else { $fwall = TRUE; } #-- read the local host names open(LH, "<$local_hostnames") or die "error open $local_hostnames: $!\n"; my @lhn = <LH>; close LH; # # Process the message my ($from, $to, $cc, $subject, $messageid, $lastheader, $email, $delivery_to, $header); $subject=""; while (<>) { last if (/^$/); $header .= $_; if (/^\s+(.*)/ and $lastheader) { $$lastheader .= " $1"; } elsif (/^from:\s+(.*)\n$/i) { $from = $1; $lastheader = \$from; } elsif (/^to:\s+(.*)\n$/i) { $to = $1; $lastheader = \$to; } elsif (/^cc:\s+(.*)\n$/i) { $cc = $1; $lastheader = \$cc; } elsif (/^subject:\s+(.*)\n$/i) { $subject = $1; $lastheader = \$subject; } elsif (/^message-id:\s+(.*)\n$/i) { $messageid = $1; $lastheader = \$messageid; } elsif (/^x-spam-(flag|status):\s+yes/i) { exit; } elsif (/^precedence:\s+(bulk|list|junk)/i) { exit; } elsif (/^Auto-Submitted: auto\-.+/i) { exit; } else {$lastheader = "" ; } } close ARGV; if (!$from || !$messageid) { exit; } exit if $from =~ /mailer-daemon/i; exit if $from =~ /postmaster/i; #print LOG "HEADER:\n$header\n"; $RFC822PAT =~ s/\n//g; if ( $from !~ /^${RFC822PAT}$/o ) { print LOG "$user -- Exit! Address check failed (not rfc822 conform): $from\n"; exit; } my ($db_from) = ( $from =~ /([\w\-.%]+\@[\w.-]+)/ ); chomp($db_from); chomp($from); print LOG "$user -- MAIL-TO: $to\n"; # exit if no need to send a mail if ( check_vdb($db_from) == FALSE ) { print LOG "$user -- Already sent a vacation message.\n"; exit; } # check for allowed domains my ($dom) = ( $db_from =~ /.+\@(.+)$/ ); if ( !grep /^$dom$/i, @lhn ) { #print LOG "$user -- Exit! Unallowed domainname ($dom). Won't reply.\n"; #exit; } # senseless mailaddr ? ($to) = ( $to =~ /([\w\-.%]+\@[\w.-]+)/ ); exit if $to eq ""; chomp($to); lc $to; #-- exit if not in argument list if ( ! $fwall ) { if ( ! exists $i_args{$to} ) { print LOG "$user -- Not handled address.($to / $i_args{$to}\n"; exit; } } my $msg = ""; if (open(MSG,"$vacation_msg")) { undef $/; $msg = <MSG>; close MSG; } else { print LOG "$user -- Can't open $vacation_msg: $!\n"; exit; } # Replace $SUBJECT with real subject text. $msg =~ s/\$SUBJECT/$subject/gm; print LOG "$user -- REPLAY-TO: $from\n"; # Send reply using sendmail. if ( open(MAIL, "|$sendmail -t -f $to") ) { print MAIL <<EOF_MAIL_HEADER; To: $from Auto-Submitted: auto-replied Precedence: junk EOF_MAIL_HEADER print MAIL $msg; close MAIL; upd_vdb($db_from); } else { print LOG "$user -- si_vacation: Can't run sendmail\n"; exit; } close LOG; exit; #-- check_vdb() # returns false if mailaddr is found and timestamp is in span (don't send a mail) # returns true if mailaddr is not found or timestamp is beyond span (send a mail) #-- sub check_vdb { my $mailaddr = shift; my $ts_span; my $db = BerkeleyDB::Hash->new( -Filename => "$vacation_db", -Flags => DB_CREATE ); if ( ! $db ) { print LOG "$user -- Cannot open vacation DB: $!"; exit FALSE; } my $lt = localtime(); if ( $db->db_get( "$mailaddr", $ts_span ) == 0 ) { return FALSE if $span == 0; # infinite span. send only one message. return TRUE if $lt - $ts_span > $span; return FALSE; } else { return TRUE; } $db->db_close(); } #-- upd_vdb() # update/write vacation db with mailaddr and timestamp #-- sub upd_vdb { my $mailaddr = shift; my $db = BerkeleyDB::Hash->new( -Filename => "$vacation_db", -Flags => DB_CREATE ); if ( ! $db ) { print LOG "$user -- Cannot open vacation DB: $!"; exit FALSE; } my $lt = localtime(); $db->db_put( "$mailaddr", $lt ); $db->db_close(); }
