version 1.26, 2007/05/14 17:35:01
|
version 1.27, 2007/05/15 06:19:53
|
Line 37
|
Line 37
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use HTML::Entities; |
use HTML::Entities; |
|
use LONCAPA qw(:match); |
|
|
# Determine the library server's domain and hostID |
# Determine the library server's domain and hostID |
my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf'); |
my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf'); |
Line 152
|
Line 153
|
print $fh "$logmsg\n"; |
print $fh "$logmsg\n"; |
print $fh &mt('Messages end for [_1]',$crs)."\n"; |
print $fh &mt('Messages end for [_1]',$crs)."\n"; |
if ($changecount > 0) { |
if ($changecount > 0) { |
unless ($enrollvar{$crs}{notifylist} eq '') { |
|
# Send message about enrollment changes to notifylist. |
|
# Set $env{'user.name'}, $env{'user.domain'}, $env{'user.home'} |
# Set $env{'user.name'}, $env{'user.domain'}, $env{'user.home'} |
# for use by logging in lonmsg |
# and $env{'request.course.id'} for use by logging in lonmsg |
unless ( ($enrollvar{$crs}{'courseowner'} eq '') || (!defined($enrollvar{$crs}{'courseowner'}) ) ) { |
$env{'request.course.id'} = $dom.'_'.$crs; |
if ($enrollvar{$crs}{'courseowner'} =~ /:/) { |
my ($ownername,$ownerdom); |
($env{'user.name'},$env{'user.domain'}) = split(/:/,$enrollvar{$crs}{'courseowner'}); |
if ($enrollvar{$crs}{'courseowner'} ne '') { |
} else { |
if ($enrollvar{$crs}{'courseowner'} =~ /:/) { |
$env{'user.name'} = $enrollvar{$crs}{'courseowner'}; |
($ownername,$ownerdom) = |
$env{'user.domain'} = $dom; |
split(/:/,$enrollvar{$crs}{'courseowner'}); |
} |
} else { |
$env{'user.home'} = &Apache::lonnet::homeserver($env{'user.name'},$env{'user.domain'}); |
$ownername = $enrollvar{$crs}{'courseowner'}; |
|
$ownerdom = $dom; |
my $subject = &mt('Student enrollment changes in [_1]',$enrollvar{$crs}{coursecode}); |
} |
my $message = &mt('The following [quant,_1,change] occurred in [_2] - [_3] as a result of the automated classlist update:',$changecount,$enrollvar{$crs}{description},$enrollvar{$crs}{coursecode})."\n\n".$response; |
} |
unless ($newusermsg eq '') { |
if (($settings->{'sender_uname'} ne '') && |
$message .= "\n".$newusermsg; |
($settings->{'sender_domain'} ne '')) { |
} |
$env{'user.name'} = $settings->{'sender_uname'}; |
my @to_notify = (); |
$env{'user.domain'} = $settings->{'sender_domain'}; |
if ($enrollvar{$crs}{notifylist} =~ m/,/) { |
} else { |
@to_notify = split/,/,$enrollvar{$crs}{notifylist}; |
$env{'user.name'} = $ownername; |
} else { |
$env{'user.domain'} = $ownerdom; |
$to_notify[0] = $enrollvar{$crs}{notifylist}; |
} |
} |
if ($enrollvar{$crs}{notifylist} eq '') { |
foreach my $cc (@to_notify) { |
if ($newusermsg ne '') { |
my ($ccname,$ccdom); |
if (($ownername =~ /^$match_username$/) && |
if ($cc =~ /:/) { |
($ownerdom =~ /^$match_domain$/)) { |
($ccname,$ccdom) = split(/:/,$cc); |
|
} elsif ($cc =~ /\@/) { |
|
($ccname,$ccdom) = split(/\@/,$cc); |
|
} |
|
my $status = &Apache::lonmsg::user_normal_msg($ccname,$ccdom,$subject,$message); |
|
} |
|
if ( ($enrollvar{$crs}{notifylist} eq '') && ($newusermsg ne '') ) { |
|
my $subject = &mt('New user accounts in [_1]',$enrollvar{$crs}{'coursecode'}); |
my $subject = &mt('New user accounts in [_1]',$enrollvar{$crs}{'coursecode'}); |
my $status = &Apache::lonmsg::user_normal_msg($env{'user.name'},$env{'user.domain'},$subject,$newusermsg); |
my $status = &Apache::lonmsg::user_normal_msg($ownername,$ownerdom,$subject,$newusermsg); |
} |
} |
delete($env{'user.name'}); |
} |
delete($env{'user.home'}); |
} else { |
$env{'user.domain'} = $dom; |
my $msgcc; |
|
# Send message about enrollment changes to notifylist. |
|
$env{'user.home'} = &Apache::lonnet::homeserver($env{'user.name'},$env{'user.domain'}); |
|
my $subject = &mt('Student enrollment changes in [_1]',$enrollvar{$crs}{coursecode}); |
|
my $message = &mt('The following [quant,_1,change] occurred in [_2] - [_3] as a result of the automated classlist update:',$changecount,$enrollvar{$crs}{description},$enrollvar{$crs}{coursecode})."\n\n".$response; |
|
unless ($newusermsg eq '') { |
|
$message .= "\n".$newusermsg; |
|
} |
|
my @to_notify = split(/,/,$enrollvar{$crs}{notifylist}); |
|
my $numsent = 0; |
|
my @recusers; |
|
my @recudoms; |
|
foreach my $cc (@to_notify) { |
|
my ($ccname,$ccdom); |
|
if ($cc =~ /:/) { |
|
($ccname,$ccdom) = split(/:/,$cc); |
|
} elsif ($cc =~ /\@/) { |
|
($ccname,$ccdom) = split(/\@/,$cc); |
|
} |
|
push(@recusers,$ccname); |
|
push(@recudoms,$ccdom); |
|
$msgcc->{$ccname.':'.$ccdom}=''; |
|
$numsent ++; |
|
} |
|
my %reciphash = ( |
|
cc => $msgcc, |
|
); |
|
my %sentmessage; |
|
my $stamp = time; |
|
my $msgcount = &Apache::lonmsg::get_uniq(); |
|
&Apache::lonmsg::process_sent_mail($subject,'',$numsent,$stamp,$env{'user.name'},$env{'user.domain'},$msgcount,$crs,$$,$message,\@recusers,\@recudoms); |
|
my ($recipid,$recipstatus) = |
|
&Apache::lonmsg::store_recipients($subject, |
|
$env{'user.name'},$env{'user.domain'},\%reciphash); |
|
foreach my $recip (sort(keys(%{$msgcc}))) { |
|
my ($ccname,$ccdom) = split(/:/,$recip); |
|
my $status = |
|
&Apache::lonmsg::user_normal_msg($ccname,$ccdom,$subject,$message,undef,undef,undef,undef,\%sentmessage,undef,undef,undef,1,$recipid); |
} |
} |
} |
} |
|
delete($env{'user.name'}); |
|
delete($env{'user.home'}); |
|
delete($env{'request.course.id'}); |
|
$env{'user.domain'} = $dom; |
} |
} |
} |
} |
} |
} |