You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by he...@apache.org on 2018/10/26 16:55:46 UTC
svn commit: r1844916 -
/spamassassin/branches/3.4/lib/Mail/SpamAssassin/Util.pm
Author: hege
Date: Fri Oct 26 16:55:46 2018
New Revision: 1844916
URL: http://svn.apache.org/viewvc?rev=1844916&view=rev
Log:
fix dbg facilities
Modified:
spamassassin/branches/3.4/lib/Mail/SpamAssassin/Util.pm
Modified: spamassassin/branches/3.4/lib/Mail/SpamAssassin/Util.pm
URL: http://svn.apache.org/viewvc/spamassassin/branches/3.4/lib/Mail/SpamAssassin/Util.pm?rev=1844916&r1=1844915&r2=1844916&view=diff
==============================================================================
--- spamassassin/branches/3.4/lib/Mail/SpamAssassin/Util.pm (original)
+++ spamassassin/branches/3.4/lib/Mail/SpamAssassin/Util.pm Fri Oct 26 16:55:46 2018
@@ -1522,13 +1522,13 @@ sub receive_date {
###########################################################################
sub get_user_groups {
my $suid = shift;
- dbg("get_user_groups: uid is $suid\n");
+ dbg("util: get_user_groups: uid is $suid\n");
my ( $user, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell, $expire ) = getpwuid($suid);
my $rgids="$gid ";
while ( my($name,$pw,$gid,$members) = getgrent() ) {
if ( $members =~ m/\b$user\b/ ) {
$rgids .= "$gid ";
- dbg("get_user_groups: added $gid ($name) to group list which is now: $rgids\n");
+ dbg("util: get_user_groups: added $gid ($name) to group list which is now: $rgids\n");
}
}
endgrent;