File: patch.del_notify

package info (click to toggle)
sympa 2.6.1-3
  • links: PTS
  • area: main
  • in suites: potato
  • size: 2,940 kB
  • ctags: 1,069
  • sloc: perl: 8,446; makefile: 237; sh: 191; ansic: 172; lisp: 32
file content (14 lines) | stat: -rw-r--r-- 531 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
*** Commands.pm.orig	Thu Sep 30 10:40:41 1999
--- Commands.pm	Fri Oct  1 13:52:32 1999
***************
*** 884,889 ****
--- 884,892 ----
  	}
  	print Msg(6, 38, $msg::user_removed_from_list);
  	do_log('info', 'DEL %s %s from %s accepted (%d seconds)', $which, $who, $sender,time-$time_command);
+ 	if ($action =~ /notify/i) {
+ 	    $list->send_notify_to_owner($who, "", 'del',$sender);
+ 	}
  	return 1;
      }
      do_log('info', 'DEL %s %s from %s aborted because unknown requested action in scenario',$which,$who,$sender);