File:
[LON-CAPA] /
loncom /
interface /
lonnotify.pm
Revision
1.1:
download - view:
text,
annotated -
select for diffs
Tue Aug 2 05:03:10 2005 UTC (18 years, 10 months ago) by
raeburn
Branches:
MAIN
CVS tags:
version_2_0_X,
version_2_0_2,
version_2_0_1,
version_2_0_0,
version_1_99_3,
HEAD
Saving my work. Untility for use by DCs to send e-mail to active users, classified by role, year, semester, department etc. Incomplete.
1: #
2: # Copyright Michigan State University Board of Trustees
3: #
4: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
5: #
6: # LON-CAPA is free software; you can redistribute it and/or modify
7: # it under the terms of the GNU General Public License as published by
8: # the Free Software Foundation; either version 2 of the License, or
9: # (at your option) any later version.
10: #
11: # LON-CAPA is distributed in the hope that it will be useful,
12: # but WITHOUT ANY WARRANTY; without even the implied warranty of
13: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14: # GNU General Public License for more details.
15: #
16: # You should have received a copy of the GNU General Public License
17: # along with LON-CAPA; if not, write to the Free Software
18: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19: #
20: # /home/httpd/html/adm/gpl.txt
21: #
22: # http://www.lon-capa.org/
23: #
24:
25: package Apache::lonnotify;
26:
27: use strict;
28: use Apache::lonnet;
29: use Apache::loncommon;
30: use Apache::lonsupportreq;
31: use LONCAPA::Enrollment;
32: use Apache::Constants qw(:common :http);
33: use Apache::lonlocal;
34:
35: sub handler {
36: my ($r) = @_;
37: &Apache::loncommon::content_type($r,'text/html');
38: $r->send_http_header;
39:
40: if ($r->header_only) {
41: return OK;
42: }
43: # my $codedom = $env{'request.role.domain'};
44: my $cdom = 'northwood5';
45: unless (&Apache::lonnet::allowed('psa',$env{'request.role.domain'})) {
46: # Not allowed to broadcast e-mail system-wide
47: $env{'user.error.msg'}="/adm/notify:psa:0:0:Cannot broadcast e-mail systemwide";
48: return HTTP_NOT_ACCEPTABLE;
49: }
50:
51: my $command = $env{'form.command'};
52: &Apache::lonhtmlcommon::clear_breadcrumbs();
53: &Apache::lonhtmlcommon::add_breadcrumb
54: ({href=>'/adm/notify',
55: text=>"Broadcast e-mail"});
56: if ($command eq 'process') {
57: &print_request_receipt($r,$cdom);
58: } elsif ($command eq 'compose') {
59: &print_composition_form($r,$cdom);
60: } else {
61: &print_selection_form($r,$cdom);
62: }
63: return OK;
64: }
65:
66: sub print_selection_form {
67: my ($r,$cdom) = @_;
68: my %coursecodes = ();
69: my %codes = ();
70: my @codetitles = ();
71: my %cat_titles = ();
72: my %cat_order = ();
73: my %idlist = ();
74: my %idnums = ();
75: my %idlist_titles = ();
76: my $caller = 'global';
77: my $totcodes = 0;
78: my $format_reply;
79: my $jscript = '';
80: my $loaditems = qq|
81: function initialize_codes() {
82: return;
83: }
84: |;
85: $totcodes = &Apache::lonsupportreq::retrieve_instcodes(\%coursecodes,$cdom,$totcodes);
86: if ($totcodes > 0) {
87: $format_reply = &Apache::lonnet::auto_instcode_format($caller,$cdom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order);
88: if ($format_reply eq 'ok') {
89: my $numtypes = @codetitles;
90: &Apache::lonsupportreq::build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles);
91: &Apache::lonsupportreq::javascript_code_selections($numtypes,\%cat_titles,\$jscript,\%idlist,\%idnums,\%idlist_titles,\@codetitles);
92: $loaditems = '';
93: }
94: }
95:
96: my $function = &Apache::loncommon::get_users_function();
97: my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg');
98: my $bodytag = &Apache::loncommon::bodytag('Broadcast e-mail to users');
99: my $html=&Apache::lonxml::xmlbegin();
100: my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs
101: (undef,'Broadcast e-mail to users','Broadcast_system_email');
102: $r->print(<<ENDONE);
103: $html
104: <head>
105: <title>LON-CAPA Notification E-mail</title>
106: <script type"text/javascript">
107: $jscript
108: </script>
109: </head>
110: $bodytag
111: $breadcrumbs
112: <br />
113: <form method="post" name="logproblem">
114: <table width="580" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">
115: <tr>
116: <td>
117: <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
118: <tr>
119: <td>
120: <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
121: <tr>
122: <td>
123: <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff">
124: <tr>
125: <td width="140" bgcolor="$tablecolor">
126: <table width="140" border="0" cellpadding="8" cellspacing="0">
127: <tr>
128: <td align="right"><b>Roles:</b>
129: </td>
130: </tr>
131: </table>
132: </td>
133: <td width="100%" valign="top">
134: <table width="100%" border="0" cellpadding="8" cellspacing="0">
135: <tr>
136: <td>
137: <select name="roles" multiple>
138: ENDONE
139: foreach ('cc','in','ta','ep','ad') {
140: my $plrole=&Apache::lonnet::plaintext($_);
141: $r->print(' <option value="'.$_.'">'.$plrole.'</option>');
142: }
143: $r->print(<<ENDTWO);
144: </select>
145: </td>
146: </tr>
147: </table>
148: </td>
149: </tr>
150: <tr>
151: <td width="140" bgcolor="$tablecolor">
152: <table width="140" border="0" cellpadding="8" cellspacing="0">
153: <tr>
154: <td align="right"><b>Courses:</b>
155: </td>
156: </tr>
157: </table>
158: </td>
159: <td width="100%" valign="top">
160: <table width="100%" border="0" cellpadding="8" cellspacing="0">
161: <tr>
162: <td>
163: ENDTWO
164: if ($totcodes > 0) {
165: my $numtitles = @codetitles;
166: if ($numtitles == 0) {
167: $r->print('No institutional course code categories found.<br />Can not select courses to receive e-mail.');
168: } else {
169: $r->print('<table><tr><td>'.$codetitles[0].'<br />'."\n".
170: '<select name="'.$codetitles[0].
171: '" onChange="courseSet('."'$codetitles[0]'".')">'."\n".
172: ' <option value="-1" />Select'."\n");
173: my @items = ();
174: my @longitems = ();
175: if ($idlist{$codetitles[0]} =~ /","/) {
176: @items = split/","/,$idlist{$codetitles[0]};
177: } else {
178: $items[0] = $idlist{$codetitles[0]};
179: }
180: if (defined($idlist_titles{$codetitles[0]})) {
181: if ($idlist_titles{$codetitles[0]} =~ /","/) {
182: @longitems = split/","/,$idlist_titles{$codetitles[0]};
183: } else {
184: $longitems[0] = $idlist_titles{$codetitles[0]};
185: }
186: for (my $i=0; $i<@longitems; $i++) {
187: if ($longitems[$i] eq '') {
188: $longitems[$i] = $items[$i];
189: }
190: }
191: } else {
192: @longitems = @items;
193: }
194: for (my $i=0; $i<@items; $i++) {
195: $r->print(' <option value="'.$items[$i].'">'.$longitems[$i].'</option>');
196: }
197: $r->print('</select></td>');
198: for (my $i=1; $i<$numtitles; $i++) {
199: $r->print('<td>'.$codetitles[$i].'<br />'."\n".
200: '<select name="'.$codetitles[$i].
201: '" onChange="courseSet('."'$codetitles[$i]'".')">'."\n".
202: '<option value="-1"><-Pick '.$codetitles[$i-1].'</option>'."\n".
203: '</select>'."\n".
204: '</td>'
205: );
206: }
207: $r->print('</tr></table>');
208: }
209: }
210: $r->print(<<END);
211: </td>
212: </tr>
213: </table>
214: </td>
215: </tr>
216: <tr>
217: <td width="140" bgcolor="$tablecolor">
218: <table width="140" border="0" cellpadding="8" cellspacing="0">
219: <tr>
220: <td align="right"><b>Submit:</b>
221: </td>
222: </tr>
223: </table>
224: </td>
225: <td width="100%" valign="top" align="right">
226: <br />
227: <input type="hidden" name="command" value="compose" />
228: <input type="submit" value="Compose Message"/>
229: <br /><br />
230: </td>
231: </tr>
232: </table>
233: </td>
234: </tr>
235: </table>
236: </td>
237: </tr>
238: </table>
239: </td>
240: </tr>
241: </table>
242: </form>
243: </body>
244: </html>
245: END
246: return;
247: }
248:
249: sub print_composition_form {
250: my ($r,$cdom) = @_;
251: my $function = &Apache::loncommon::get_users_function();
252: my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg');
253: my $bodytag = &Apache::loncommon::bodytag('Broadcast e-mail to users');
254: my $html=&Apache::lonxml::xmlbegin();
255: &Apache::lonhtmlcommon::add_breadcrumb
256: ({href=>'/adm/notify?command=compose',
257: text=>"Compose Message"});
258: my $jscript = <<"END";
259: function checkAll(field) {
260: if (field.length > 0) {
261: for (i = 0; i < field.length; i++) {
262: field[i].checked = true ;
263: }
264: } else {
265: field.checked = true
266: }
267: }
268:
269: function uncheckAll(field) {
270: if (field.length > 0) {
271: for (i = 0; i < field.length; i++) {
272: field[i].checked = false ;
273: } } else {
274: field.checked = false ;
275: }
276: }
277: END
278: my $breadcrumbs = (&Apache::lonhtmlcommon::breadcrumbs
279: (undef,'Broadcast e-mail to users','Broadcast_system_email'));
280:
281: $r->print(<<ENDONE);
282: $html
283: <head>
284: <title>LON-CAPA Notification E-mail</title>
285: <script type"text/javascript">
286: $jscript
287: </script>
288: </head>
289: $bodytag $breadcrumbs
290: <br />
291: ENDONE
292: my $instcode = '';
293: my @cats = ('Semester','Year','Department','Number');
294: foreach my $category (@cats) {
295: if (defined($env{'form.'.$category})) {
296: unless ($env{'form.'.$category} eq '-1') {
297: $instcode .= $env{'form.'.$category};
298: }
299: }
300: }
301: if ($instcode eq '') {
302: $instcode = '.';
303: }
304: my %courses = &Apache::lonnet::courseiddump($cdom,'.','.',$instcode,'.','.');
305: my @roles = &Apache::loncommon::get_env_multiple('form.roles');
306: my %recipients = ();
307: foreach my $course_id (keys %courses) {
308: &get_active_users($course_id,\@roles,\%recipients);
309: }
310: if (%recipients) {
311: $r->print('<form name="compose" method="post">
312: <input type="hidden" command="process" />
313: <table width="580" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">
314: <tr>
315: <td>
316: <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
317: <tr>
318: <td>
319: <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
320: <tr>
321: <td>
322: <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff">
323: <tr>
324: <td width="140" bgcolor="'.$tablecolor.'">
325: <table width="140" border="0" cellpadding="8" cellspacing="0">
326: <tr>
327: <td align="right"><b>Subject:</b>
328: </td>
329: </tr>
330: </table>
331: </td>
332: <td width="100%" valign="top">
333: <table width="100%" border="0" cellpadding="8" cellspacing="0">
334: <tr>
335: <td><input type="text" name="subject" size="30" />
336: </td>
337: </tr>
338: </table>
339: </td>
340: </tr>
341: <tr>
342: <td width="140" bgcolor="'.$tablecolor.'">
343: <table width="140" border="0" cellpadding="8" cellspacing="0">
344: <tr>
345: <td align="right">Message:</td>
346: </td>
347: </tr>
348: </table>
349: </td>
350: <td width="100%" valign="top">
351: <table width="100%" border="0" cellpadding="8" cellspacing="0">
352: <tr>
353: <td>
354: <textarea name="message" id="message"
355: cols="60" rows="10" wrap="hard"></textarea>
356: </td>
357: </tr>
358: </table>
359: </td>
360: </tr>
361: <tr>
362: <td width="140" bgcolor="'.$tablecolor.'">
363: <table width="140" border="0" cellpadding="8" cellspacing="0">
364: <tr>
365: <td align="right"><b>Recipients:</b>
366: </td>
367: </tr>
368: </table>
369: </td>
370: <td width="100%" valign="top">
371: <table width="100%" border="0" cellpadding="8" cellspacing="0">
372: <tr>
373: <td>
374: <input type="button" value="check all"
375: onclick="javascript:checkAll(document.compose.email)" />
376: <input type="button" value="uncheck all"
377: onclick="javascript:uncheckAll(document.compose.email)" /><br />
378: <table border="0">');
379: foreach my $username (sort keys %recipients) {
380: if ($recipients{$username} =~ /\@/) {
381: my $value=&Apache::lonnet::escape($username).':'.&Apache::lonnet::escape($recipients{$username});
382: $r->print('<tr><td><input type="checkbox" name="email" value="'.$value.'" checked="checked" /></td><td>'.$username.'</td><td>'.$recipients{$username}.'</td></tr>');
383: $numrecep ++;
384: }
385: }
386: $r->print('
387: </table>
388: </td>
389: </tr>
390: </table>
391: </td>
392: </tr>
393: <tr>
394: <td width="140" bgcolor="'.$tablecolor.'">
395: <table width="140" border="0" cellpadding="8" cellspacing="0">
396: <tr>
397: <td align="right"><b>Submit:</b>
398: </td>
399: </tr>
400: </table>
401: </td>
402: <td width="100%" valign="top" align="right">
403: <br />
404: <input type="hidden" name="command" value="compose" />
405: <input type="submit" name="sendemail" value="Send Message"/>
406: <br /><br />
407: </td>
408: </tr>
409: </table>
410: </td>
411: </tr>
412: </table>
413: </td>
414: </tr>
415: </table>
416: </td>
417: </tr>
418: </table>
419: </form>');
420: } else {
421: $r->print('No recipients identified');
422: }
423: $r->print('</body></html>');
424: return;
425: }
426:
427:
428: sub print_request_receipt {
429: my ($r,$dom) =@_;
430: my @recipients = &Apache::loncommon::get_env_multiple('recipients');
431: my $subject = $env{'form.subject'};
432: my $message = $env{'form.message'};
433: my $function = &Apache::loncommon::get_users_function();
434: my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg');
435: my $bodytag = &Apache::loncommon::bodytag('Broadcast e-mail to users');
436: my $html=&Apache::lonxml::xmlbegin();
437: my $jscript;
438: my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs
439: (undef,'Broadcast e-mail to users','Broadcast_system_email');
440: $r->print(<<ENDONE);
441: $html
442: <head>
443: <title>LON-CAPA Notification E-mail</title>
444: <script type"text/javascript">
445: $jscript
446: </script>
447: </head>
448: $bodytag
449: $breadcrumbs
450: ENDONE
451: $r->print($subject.'<br /><br />');
452: $r->print($message.'<br /><br />');
453: foreach my $person (@recipients) {
454: my ($username,$email) = split/:/,$person;
455: $r->print('user: '.&Apache::lonnet::unescape($username).' email: '.&Apache::lonnet::unescape($email).'<br />');
456: }
457: return;
458: }
459:
460: sub get_active_users {
461: my ($course_id,$roles,$recipients) = @_;
462: if (@{$roles} > 0) {
463: my ($cdom,$cnum) = split/_/,$course_id;
464: my @coursepersonnel = &Apache::lonnet::getkeys('nohist_userroles',$cdom,$cnum);
465: foreach my $person (@coursepersonnel) {
466: my ($role,$user) = ($person =~ /^([^:]*):(.+)$/);
467: if (($role) && (grep/^$role$/,@{$roles})) {
468: unless (exists($$recipients{$user})) {
469: my ($uname,$udom) = split/:/,$user;
470: if ($uname ne '' && $udom ne '') {
471: if (&LONCAPA::Enrollment::check_user_status($udom,$uname,$cdom,$cnum,$role) eq 'ok') {
472: my %userinfo = &Apache::lonnet::get('environment',['permanenetemail','notification','critnotification',],$udom,$uname);
473: my @emailtypes = ('permanentemail','critnotification','notification');
474: my $email = '';
475: foreach (@emailtypes) {
476: $email = $userinfo{$_};
477: if ($email =~ /\@/) {
478: last;
479: }
480: }
481: if ($email eq '') {
482: my $authinfo = &Apache::lonnet::queryauthenticate($uname,$udom);
483: my ($authtype,$autharg) = split/:/,$authinfo;
484: if (($authtype =~ /^krb/) && ($autharg =~ /^MSU/)) {
485: $email = $uname.'@msu.edu';
486: }
487: }
488: $$recipients{$user} = $email;
489: }
490: }
491: }
492: }
493: }
494: }
495: }
496:
497: 1;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnotify.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface