loncom/interface/lonnotify.pm - view

File: [LON-CAPA] / loncom / interface / lonnotify.pm
Revision 1.36: download - view: text, annotated - select for diffs
Fri May 14 18:29:52 2010 UTC (14 years ago) by bisitz
Branches: MAIN
CVS tags: HEAD

Bug 6273 - Consistent menus (use generate_menu)
Reuse existing icons where reasonable. Some icons are only temporary - category fits though.
- Send and display broadcast e-mail
- Course and community creation

Other included changes:
- loncreatecourse.pm:
    - Localization - added missing mt call to button text
- de.pm:
    - Added translations

--- Work in progress ---

1: # The LearningOnline Network with CAPA 2: # Sending messages 3: # 4: # $Id: lonnotify.pm,v 1.36 2010/05/14 18:29:52 bisitz Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: 29: package Apache::lonnotify; 30: 31: use strict; 32: use Apache::lonnet; 33: use Apache::loncommon; 34: use Apache::courseclassifier; 35: use LONCAPA::Enrollment; 36: use Apache::Constants qw(:common :http); 37: use Apache::lonlocal; 38: use Mail::Send; 39: use HTML::TokeParser; 40: use HTML::Entities; 41: use lib '/home/httpd/lib/perl/'; 42: use LONCAPA; 43: 44: sub handler { 45: my ($r) = @_; 46: &Apache::loncommon::content_type($r,'text/html'); 47: $r->send_http_header; 48: 49: if ($r->header_only) { 50: return OK; 51: } 52: my $cdom = $env{'request.role.domain'}; 53: unless (&Apache::lonnet::allowed('psa',$cdom)) { 54: # Not allowed to broadcast e-mail system-wide 55: $env{'user.error.msg'}="/adm/notify:psa:0:0:Cannot broadcast e-mail systemwide"; 56: return HTTP_NOT_ACCEPTABLE; 57: } 58: 59: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, 60: ['command']); 61: my $command = $env{'form.command'}; 62: my $origin = $env{'form.origin'}; 63: 64: &Apache::lonhtmlcommon::clear_breadcrumbs(); 65: 66: &Apache::lonhtmlcommon::add_breadcrumb 67: ({href=>'/adm/notify', 68: text=>"Broadcast E-mail"}); 69: if ($command eq 'process') { 70: &print_request_receipt($r,$command,$cdom); 71: } elsif ($command eq 'compose') { 72: &print_composition_form($r,$command,$cdom); 73: } elsif ($command eq 'pick_target') { 74: &print_selection_form($r,$command,$cdom); 75: } elsif ($command eq 'pick_display') { 76: &print_display_option_form($r,$command,$cdom); 77: } elsif ($command eq 'display') { 78: &print_display($r,$command,$cdom); 79: } else { 80: &print_front_page($r,'front',$cdom); 81: } 82: return OK; 83: } 84: 85: sub add_script { 86: my ($js) = @_; 87: return '<script type="text/javascript">'."\n".$js."\n".'</script>'; 88: } 89: 90: sub start_page { 91: my ($jscript,$bread_title,$formname) = @_; 92: 93: my $loadcode; 94: if ((defined($env{'form.origin'})) 95: && ($env{'form.command'} eq 'compose' 96: || $env{'form.command'} eq 'pick_target' 97: || $env{'form.command'} eq 'pick_display')) { 98: if ($env{'form.origin'} ne '') { 99: $loadcode = 'javascript:setFormElements(document.'.$env{'form.command'}.')'; 100: if (($env{'form.command'} eq 'pick_target') 101: && (($env{'form.origin'} eq 'compose') 102: || ($env{'form.origin'} eq 'process'))) { 103: if ($env{'form.coursepick'} eq 'category') { 104: $loadcode .= ';javascript:setCourseCat(document.'.$env{'form.command'}.')'; 105: } 106: } 107: } 108: } 109: 110: my $start_page = 111: &Apache::loncommon::start_page('Broadcast e-mail to users', $jscript, 112: {'add_entries' => 113: {'onload' => $loadcode,},}); 114: my $breadcrumbs = 115: &Apache::lonhtmlcommon::breadcrumbs($bread_title, 116: 'Broadcast_system_email'); 117: my $output = <<"ENDONE"; 118: $start_page 119: $breadcrumbs 120: <br /> 121: <form name="$formname" method="post" action=""> 122: ENDONE 123: 124: return $output; 125: } 126: 127: sub end_page { 128: return '</form>'.&Apache::loncommon::end_page(); 129: } 130: 131: sub print_front_page { 132: my ($r,$formname,$cdom) = @_; 133: 134: my $jscript = qq| 135: function next_page(caller) { 136: if (caller == 'view') { 137: document.front.command.value="pick_display" 138: } 139: else { 140: document.front.command.value="pick_target" 141: } 142: document.front.submit() 143: } 144: |; 145: 146: 147: my @menu= 148: ({ categorytitle=>'Broadcast e-mail to Domain', 149: items =>[ 150: { linktext => 'Send e-mail to selected users', 151: url => 'javascript:next_page('."'new'".')', 152: permission => 1, 153: #help => '', 154: icon => 'mail-reply-all.png', 155: linktitle => 'Send a new e-mail to selected users from this domain' 156: }, 157: { linktext => 'Display sent e-mails', 158: url => 'javascript:next_page('."'view'".')', 159: permission => 1, 160: #help => '', 161: icon => 'messalog.png', 162: linktitle => 'Display e-mail sent by Domain Coordinators in this domain' 163: }, 164: ] 165: }, 166: ); 167: 168: $r->print( 169: &start_page(&add_script($jscript), 170: 'Broadcast e-mail to Domain', $formname) 171: .'<input type="hidden" name="command" />' 172: .&Apache::lonhtmlcommon::generate_menu(@menu) 173: .&end_page() 174: ); 175: return; 176: } 177: 178: sub print_display_option_form { 179: my ($r,$formname,$cdom) = @_; 180: &Apache::lonhtmlcommon::add_breadcrumb({text=>"Display options"}); 181: 182: my $cmd = 'display'; 183: my $submit_text = &mt('Display e-mail'); 184: my @roles = ('dc'); 185: my $now = time; 186: 187: my $startdateform = &Apache::lonhtmlcommon::date_setter($formname, 188: 'startdate', 189: $now); 190: my $enddateform = &Apache::lonhtmlcommon::date_setter($formname, 191: 'enddate', 192: $now); 193: my %elements = ( 194: startdate_month => 'selectbox', 195: startdate_hour => 'selectbox', 196: enddate_month => 'selectbox', 197: enddate_hour => 'selectbox', 198: startdate_day => 'text', 199: startdate_year => 'text', 200: startdate_minute => 'text', 201: startdate_second => 'text', 202: enddate_day => 'text', 203: enddate_year => 'text', 204: enddate_minute => 'text', 205: enddate_second => 'text', 206: sender => 'checkbox', 207: ); 208: my $jscript = &Apache::lonhtmlcommon::set_form_elements(\%elements); 209: 210: my $output = &start_page(&add_script($jscript), 211: 'Broadcast e-mail display options', $formname); 212: 213: $output .= &Apache::lonhtmlcommon::start_pick_box(); 214: $output .= &Apache::lonhtmlcommon::row_title(&mt('Date range')); 215: $output .= '<table><tr><td>'.&mt('Earliest to display:').' </td><td>'. 216: $startdateform.'</td></tr>'; 217: $output .= '<tr><td>'.&mt('Latest to display:').' </td><td>'.$enddateform. 218: '</td></tr></table>'; 219: $output .= &Apache::lonhtmlcommon::row_closure(); 220: $output .= &Apache::lonhtmlcommon::row_title(&mt('Choose sender(s)')); 221: my %personnel = &Apache::lonnet::get_domain_roles($cdom,\@roles); 222: my @domcc = (); 223: foreach my $server (keys %personnel) { 224: foreach my $user (sort(keys %{$personnel{$server}})) { 225: my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,$user); 226: unless (grep/^$uname:$udom$/,@domcc) { 227: my %userinfo = &Apache::lonnet::get('environment',['lastname','firstname'],$udom,$uname); 228: $output .= '<input type="checkbox" name="sender" value="'.$uname.':'.$udom.'" /> '.$userinfo{'firstname'}.' '.$userinfo{'lastname'}.'  ('.$uname.':'.$udom.')'; 229: push (@domcc,$uname.':'.$udom); 230: } 231: } 232: } 233: $output .= &Apache::lonhtmlcommon::row_closure(); 234: $output .= &Apache::lonhtmlcommon::submit_row(&mt('Submit'),$cmd,$submit_text); 235: $output .= &Apache::lonhtmlcommon::end_pick_box(); 236: $output .= qq(<input type="hidden" name="sortby" value="date" />\n). 237: &end_page(); 238: $r->print($output); 239: return; 240: } 241: 242: sub print_display { 243: my ($r,$formname,$cdom) = @_; 244: &Apache::lonhtmlcommon::add_breadcrumb 245: ({href=>"javascript:goBack('pick_display')", 246: text=>"Display options"}, 247: {text=>"E-mail display"}); 248: 249: my $msgcount = 0; 250: my $start = &Apache::lonhtmlcommon::get_date_from_form('startdate'); 251: my $end = &Apache::lonhtmlcommon::get_date_from_form('enddate'); 252: my @senders = &Apache::loncommon::get_env_multiple('form.sender'); 253: my %sentmail = &Apache::lonnet::dcmaildump($cdom,$start,$end,\@senders); 254: my %dcmail = (); 255: my %Sortby = (); 256: my $jscript = <<"ENDSCRIPT"; 257: function changeSort(caller) { 258: document.$formname.command.value = '$formname'; 259: document.$formname.sortby.value = caller; 260: document.$formname.submit(); 261: } 262: function goBack(target) { 263: document.$formname.command.value = target; 264: document.$formname.submit(); 265: } 266: 267: ENDSCRIPT 268: 269: my $output = &start_page(&add_script($jscript), 270: 'Display Broadcast e-mail', $formname); 271: 272: foreach my $msgid (keys(%sentmail)) { 273: my %content = &Apache::lonmsg::unpackagemsg($sentmail{$msgid}); 274: $msgcount ++; 275: %{$dcmail{$msgid}} = (); 276: foreach my $item (keys(%content)) { 277: if ($item eq 'recipient') { 278: foreach my $user (keys(%{$content{recipient}})) { 279: $dcmail{$msgid}{recipient}{$user} = $content{recipient}{$user}; 280: } 281: } else { 282: $dcmail{$msgid}{$item} = $content{$item}; 283: } 284: } 285: } 286: $output .= &Apache::loncommon::start_data_table(); 287: if ($msgcount > 0) { 288: $output .= &Apache::loncommon::start_data_table_header_row(). 289: '<th><a href="javascript:changeSort(\'date\')">Date</a></th>'. 290: '<th><a href="javascript:changeSort(\'subject\')">Subject</a></th>'. 291: '<th><a href="javascript:changeSort(\'sender\')">Sender</a></th>'. 292: '<th><a href="javascript:changeSort(\'message\')">Message</a></th>'. 293: '<th><a href="javascript:changeSort(\'recipients\')">Recipients</a></th>'. 294: &Apache::loncommon::end_data_table_header_row(); 295: 296: if (($env{'form.sortby'} eq 'date') || ($env{'form.sortby'} eq '') || (!defined($env{'form.sortby'})) || (($env{'form.sortby'} eq 'sender') && (@senders <= 1))) { 297: foreach my $msgid (sort(keys(%dcmail))) { 298: my $recipients = ''; 299: my ($date,undef,$sname,$sdom) = 300: &Apache::lonmsg::unpackmsgid($msgid,undef,1); 301: $date = &Apache::lonlocal::locallocaltime($date); 302: foreach my $user (sort(keys(%{$dcmail{$msgid}{recipient}}))) { 303: $recipients .= $dcmail{$msgid}{recipient}{$user}.', '; 304: } 305: $recipients =~ s/,\s$//; 306: $output .= &Apache::loncommon::start_data_table_row(). 307: '<td><small>'.$date.'</small></td>'. 308: '<td><small>'.&cr_to_br($dcmail{$msgid}{subject}).'</small></td>'. 309: '<td><small>'.$sname.':'.$sdom.'</small></td><td><small>'.&cr_to_br($dcmail{$msgid}{message}).'</small></td>'. 310: '<td><small>'.$recipients.'</small></td>'."\n". 311: &Apache::loncommon::end_data_table_row(); 312: } 313: } else { 314: foreach my $msgid (sort(keys(%dcmail))) { 315: my ($date,undef,$sname,$sdom) = 316: &Apache::lonmsg::unpackmsgid($msgid,undef,1); 317: if ($env{'form.sortby'} eq 'subject') { 318: push @{$Sortby{$dcmail{$msgid}{subject}}},$msgid; 319: } elsif ($env{'form.sortby'} eq 'message') { 320: push @{$Sortby{$dcmail{$msgid}{message}}},$msgid; 321: } elsif ($env{'form.sortby'} eq 'recipients') { 322: my $recipients =''; 323: foreach my $user (sort(keys(%{$dcmail{$msgid}{recipient}}))) { 324: $recipients .= $dcmail{$msgid}{recipient}{$user}.', '; 325: } 326: $recipients =~ s/,\s$//; 327: push @{$Sortby{$recipients}},$msgid; 328: } elsif ($env{'form.sortby'} eq 'sender') { 329: if (@senders > 1) { 330: push @{$Sortby{$sname.':'.$sdom}},$msgid; 331: } 332: } 333: } 334: foreach my $key (sort(keys(%Sortby))) { 335: foreach my $msgid (@{$Sortby{$key}}) { 336: my $recipients = ''; 337: if ($env{'form.sortby'} eq 'recipients') { 338: $recipients = $key; 339: } else { 340: foreach my $user (sort(keys(%{$dcmail{$msgid}{recipient}}))) { 341: $recipients .= $dcmail{$msgid}{recipient}{$user}.', '; 342: } 343: $recipients =~ s/,\s$//; 344: } 345: my ($date,undef,$sname,$sdom) = 346: &Apache::lonmsg::unpackmsgid($msgid,undef,1); 347: $date = &Apache::lonlocal::locallocaltime($date); 348: $output .= &Apache::loncommon::start_data_table_row(). 349: '<td><small>'.$date.'</small></td>'. 350: '<td><small>'.&cr_to_br($dcmail{$msgid}{subject}).'</small></td>'. 351: '<td><small>'.$sname.':'.$sdom.'</small></td>'. 352: '<td><small>'.&cr_to_br($dcmail{$msgid}{message}).'</small></td>'. 353: '<td><small>'.$recipients.'</small></td>'."\n". 354: &Apache::loncommon::end_data_table_row(); 355: } 356: } 357: } 358: } else { 359: $output .= &Apache::loncommon::start_data_table_empty_row(). 360: '<td>No mail sent matching supplied criteria</td>'. 361: &Apache::loncommon::end_data_table_empty_row(); 362: } 363: $output .= &Apache::loncommon::end_data_table(); 364: $output .= &Apache::lonhtmlcommon::echo_form_input(['sortby','command','origin']); 365: my $curr_sortby; 366: if (defined($env{'form.sortby'})) { 367: $curr_sortby = $env{'form.sortby'}; 368: } else { 369: $curr_sortby = 'date'; 370: } 371: $output .= qq(<input type="hidden" name="origin" value="$formname" />\n); 372: $output .= qq(<input type="hidden" name="command" />\n); 373: $output .= qq(<input type="hidden" name="sortby" value="$curr_sortby" />\n); 374: $output .= &end_page(); 375: $r->print($output); 376: return; 377: } 378: 379: sub print_selection_form { 380: my ($r,$formname,$cdom) = @_; 381: my %coursecodes = (); 382: my %codes = (); 383: my @codetitles = (); 384: my %cat_titles = (); 385: my %cat_order = (); 386: my %idlist = (); 387: my %idnums = (); 388: my %idlist_titles = (); 389: my $caller = 'global'; 390: my $totcodes = 0; 391: my $format_reply; 392: my $jscript = ''; 393: my %lt=&Apache::lonlocal::texthash( 394: 'buil' => 'Building valid e-mail address from username, if missing from preferences:', 395: 'kerb' => 'Kerberos: enter default for each realm used in the domain, with comma separation of entries', 396: 'infs' => 'Internal, Filesystem and Local authentication: enter single default.', 397: 'comp' => 'Compose E-mail' 398: ); 399: &Apache::lonhtmlcommon::add_breadcrumb 400: ({text=>"Select Audience"}); 401: 402: $totcodes = &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,$cdom,$totcodes); 403: if ($totcodes > 0) { 404: $format_reply = &Apache::lonnet::auto_instcode_format($caller,$cdom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order); 405: if ($format_reply eq 'ok') { 406: my $numtypes = @codetitles; 407: &Apache::courseclassifier::build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); 408: my ($scripttext,$longtitles) = &Apache::courseclassifier::javascript_definitions(\@codetitles,\%idlist,\%idlist_titles,\%idnums,\%cat_titles); 409: my $longtitles_str = join('","',@{$longtitles}); 410: my $allidlist = $idlist{$codetitles[0]}; 411: $jscript .= &Apache::courseclassifier::courseset_js_start($formname,$longtitles_str,$allidlist); 412: $jscript .= $scripttext; 413: $jscript .= &Apache::courseclassifier::javascript_code_selections($formname,@codetitles); 414: } 415: } 416: 417: my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($cdom); 418: 419: my %elements = ( 420: roles => 'selectbox', 421: types => 'selectbox', 422: Year => 'selectbox', 423: coursepick => 'radio', 424: coursetotal => 'text', 425: courselist => 'text', 426: internal => 'text', 427: krb4 => 'text', 428: krb5 => 'text', 429: localauth => 'text', 430: unix => 'text', 431: ); 432: $jscript .= &Apache::lonhtmlcommon::set_form_elements(\%elements); 433: if ($env{'form.coursepick'} eq 'category') { 434: $jscript .= qq| 435: function setCourseCat(formname) { 436: if (formname.Year.options[formname.Year.selectedIndex].value == -1) { 437: return; 438: } 439: courseSet('Year'); 440: for (var j=0; j<formname.Semester.length; j++) { 441: if (formname.Semester.options[j].value == "$env{'form.Semester'}") { 442: formname.Semester.options[j].selected = true; 443: } 444: } 445: if (formname.Semester.options[formname.Semester.selectedIndex].value == -1) { 446: return; 447: } 448: courseSet('Semester'); 449: for (var j=0; j<formname.Department.length; j++) { 450: if (formname.Department.options[j].value == "$env{'form.Department'}") { 451: formname.Department.options[j].selected = true; 452: } 453: } 454: if (formname.Department.options[formname.Department.selectedIndex].value == -1) { 455: return; 456: } 457: courseSet('Department'); 458: for (var j=0; j<formname.Number.length; j++) { 459: if (formname.Number.options[j].value == "$env{'form.Number'}") { 460: formname.Number.options[j].selected = true; 461: } 462: } 463: } 464: |; 465: } 466: 467: 468: my $output = &start_page(&add_script($jscript).$cb_jscript, 469: 'Choose e-mail audience', $formname); 470: 471: $output .= &Apache::lonhtmlcommon::start_pick_box(); 472: my @roles = ('ow','cc','in','ta','ep','st','cr'); 473: my %longtypes = (); 474: my %authtypes = (); 475: &form_elements(\%longtypes,\%authtypes); 476: my $descrip = $lt{'buil'}.' 477: <ul> 478: <li>'.$lt{'kerb'}.'<br />(e.g., MSU.EDU=msu.edu, MSUE.EDU=msue.msu.edu).</li> 479: <li>'.$lt{'infs'}.'</li> 480: </ul>'."\n"; 481: my $submit_text = $lt{'comp'}; 482: my $cmd = 'compose'; 483: $output .= &Apache::lonhtmlcommon::role_select_row(\@roles,&mt('Roles')); 484: $output .= &Apache::lonhtmlcommon::course_select_row(&mt('Courses'),$formname,$totcodes,\@codetitles,\%idlist,\%idlist_titles); 485: $output .= &Apache::lonhtmlcommon::status_select_row(\%longtypes,&mt('Access status')); 486: $output .= &Apache::lonhtmlcommon::email_default_row(\%authtypes,&mt('Username -> E-mail conversion'),$descrip); 487: $output .= &Apache::lonhtmlcommon::submit_row(&mt('Submit'),$cmd,$submit_text); 488: $output .= &Apache::lonhtmlcommon::end_pick_box(); 489: $output .= &end_page(); 490: $r->print($output); 491: return; 492: } 493: 494: sub print_composition_form { 495: my ($r,$formname,$cdom) = @_; 496: &Apache::lonhtmlcommon::add_breadcrumb 497: ({href=>"javascript:goBack('pick_target')", 498: text=>"Select Audience"}, 499: {text=>"Compose E-mail"}); 500: my $jscript = &Apache::loncommon::check_uncheck_jscript(); 501: $jscript .= qq| 502: function goBack(target) { 503: document.$formname.command.value = target; 504: document.$formname.submit(); 505: } 506: |; 507: 508: my %lt=&Apache::lonlocal::texthash( 509: 'nore' => 'No recipients identified', 510: 'emad' => 'e-mail address', 511: ); 512: my %elements = ( 513: subject => 'text', 514: message => 'text', 515: sender => 'text', 516: recipient => 'checkbox', 517: ); 518: $jscript .= &Apache::lonhtmlcommon::set_form_elements(\%elements); 519: 520: $r->print(&start_page(&add_script($jscript), 521: 'Broadcast e-mail to users', $formname)); 522: 523: my $coursefilter = $env{'form.coursepick'}; 524: my %courses; 525: if ($coursefilter eq 'all') { 526: %courses = &Apache::lonnet::courseiddump($cdom,'.','.','.','.','.', 527: undef,undef,'Course'); 528: } elsif ($coursefilter eq 'category') { 529: my $instcode = ''; 530: my @cats = ('Semester','Year','Department','Number'); 531: foreach my $category (@cats) { 532: if (defined($env{'form.'.$category})) { 533: unless ($env{'form.'.$category} eq '-1') { 534: $instcode .= $env{'form.'.$category}; 535: } 536: } 537: } 538: if ($instcode eq '') { 539: $instcode = '.'; 540: } 541: %courses = &Apache::lonnet::courseiddump($cdom,'.','.',$instcode,'.','.', 542: undef,undef,'Course'); 543: } elsif ($coursefilter eq 'specific') { 544: if ($env{'form.coursetotal'} > 1) { 545: my @course_ids = split(/&&/,$env{'form.courselist'}); 546: foreach my $cid (@course_ids) { 547: $courses{$cid} = ''; 548: } 549: } else { 550: $courses{$env{'form.courselist'}} = ''; 551: } 552: } 553: 554: my @types = &Apache::loncommon::get_env_multiple('form.types'); 555: my @roles = &Apache::loncommon::get_env_multiple('form.roles'); 556: 557: my %longtypes = (); 558: my %authtypes = (); 559: my %email_defaults = (); 560: 561: &form_elements(\%longtypes,\%authtypes); 562: foreach my $auth (keys(%authtypes)) { 563: if (exists($env{'form.'.$auth})) { 564: my $default = $env{'form.'.$auth}; 565: $default =~ s/^,+//; 566: $default =~ s/,+$//; 567: if ($auth =~ /^krb/) { 568: %{$email_defaults{$auth}} = (); 569: if ($default =~ /,/) { 570: my @items = split(/,/,$default); 571: foreach my $item (@items) { 572: my ($realm,$value) = split(/=/,$item); 573: $email_defaults{$auth}{$realm} = $value; 574: } 575: } else { 576: my ($realm,$value) = split(/=/,$default); 577: $email_defaults{$auth}{$realm} = $value; 578: } 579: } else { 580: $email_defaults{$auth} = $default; 581: } 582: } 583: } 584: 585: my $sender = &get_user_info($env{'user.name'},%email_defaults); 586: 587: my %recipients = (); 588: my %users = (); 589: my %access = (); 590: my @sections = (); 591: my $totalrecip = 0; 592: my @unmatched = (); 593: foreach my $role (@roles) { 594: %{$users{$role}} = (); 595: } 596: foreach my $type (@types) { 597: $access{$type} = $type; 598: } 599: foreach my $course_id (keys(%courses)) { 600: my %coursehash = 601: &Apache::lonnet::coursedescription($course_id,{'one_time' => 1}); 602: my $cdom = $coursehash{'domain'}; 603: my $cnum = $coursehash{'num'}; 604: &Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\@sections,\%users); 605: } 606: foreach my $role (keys(%users)) { 607: foreach my $user (keys(%{$users{$role}})) { 608: unless (defined($recipients{$user})) { 609: $recipients{$user} = &get_user_info($user,%email_defaults); 610: if ($recipients{$user} eq '') { 611: push @unmatched, $user; 612: } else { 613: $totalrecip ++; 614: } 615: } 616: } 617: } 618: my $output; 619: 620: if ($totalrecip > 0) { 621: $output .= &Apache::lonhtmlcommon::start_pick_box(); 622: $output .= &Apache::lonhtmlcommon::row_title(&mt('Subject')); 623: $output .= '<input type="text" name="subject" size="30" />'; 624: $output .= &Apache::lonhtmlcommon::row_closure(); 625: $output .= &Apache::lonhtmlcommon::row_title(&mt('Message')); 626: $output .= ' <textarea name="message" id="message" 627: cols="60" rows="10" wrap="hard"></textarea>'; 628: $output .= &Apache::lonhtmlcommon::row_closure(); 629: $output .= &Apache::lonhtmlcommon::row_title(&mt('Recipients')); 630: $output .= '<input type="button" value="check all" 631: onclick="javascript:checkAll(document.compose.recipient)" /> 632:   <input type="button" value="uncheck all" 633: onclick="javascript:uncheckAll(document.compose.recipient)" /> 634: <br />'; 635: $output .= &Apache::loncommon::start_data_table(); 636: if (keys(%recipients) > 0) { 637: $output .= &Apache::loncommon::start_data_table_header_row(); 638: $output .= '<th> <th>username:domain</th><th>'.$lt{'emad'}.'</th>'; 639: $output .= &Apache::loncommon::end_data_table_header_row(); 640: } 641: foreach my $username (sort(keys(%recipients))) { 642: $output .= &Apache::loncommon::start_data_table_row(); 643: if ($recipients{$username} =~ /\@/) { 644: my $value=&escape($username).':'.&escape($recipients{$username}); 645: $output .= '<td><input type="checkbox" name="recipient" value="'.$value.'" /></td><td>'.$username.'</td><td>'.$recipients{$username}.'</td>'; 646: } 647: $output .= &Apache::loncommon::end_data_table_row(); 648: } 649: $output .= &Apache::loncommon::end_data_table(); 650: if (@unmatched) { 651: $output .= '<br /><br />'.&mt('Could not determine e-mail addresses for the following users:').'<ul>'; 652: foreach my $username (sort @unmatched) { 653: $output .= '<li>'.$username.'</li>'; 654: } 655: $output .= '</ul>'; 656: } 657: $output .= &Apache::lonhtmlcommon::row_closure(); 658: $output .= &Apache::lonhtmlcommon::row_title(&mt('Sender e-mail address')); 659: $output .= '<input type="text" name="sender" value="'.$sender.'" />'; 660: $output .= &Apache::lonhtmlcommon::row_closure(); 661: $output .= &Apache::lonhtmlcommon::submit_row(&mt('Submit'),'process',&mt('Send')); 662: $output .= &Apache::lonhtmlcommon::end_pick_box(); 663: } else { 664: $output .= $lt{'nore'}."\n". 665: '<input type="hidden" name="command" value="" />'."\n"; 666: } 667: $output .= '<input type="hidden" name="origin" value="'.$formname.'" />'."\n"; 668: $output .= &Apache::lonhtmlcommon::echo_form_input(['command','origin','subject','message','recipient','sender'],); 669: $output .= &end_page(); 670: $r->print($output); 671: return; 672: } 673: 674: 675: sub print_request_receipt { 676: my ($r,$formname,$dom) =@_; 677: my @recipients = &Apache::loncommon::get_env_multiple('form.recipient'); 678: my $subject = $env{'form.subject'}; 679: my $message = $env{'form.message'}; 680: my $from = $env{'form.sender'}; 681: my $jscript = <<ENDSCRIPT; 682: function goBack(target) { 683: document.$formname.command.value = target; 684: document.$formname.submit(); 685: } 686: ENDSCRIPT 687: 688: &Apache::lonhtmlcommon::add_breadcrumb 689: ({href=>"javascript:goBack('pick_target')", 690: text=>"Select audience"}); 691: &Apache::lonhtmlcommon::add_breadcrumb 692: ({href=>"javascript:goBack('compose')", 693: text=>"Compose E-mail"}); 694: &Apache::lonhtmlcommon::add_breadcrumb 695: ({href=>"/adm/notify?command=process", 696: text=>"Outcome"}); 697: 698: 699: my $output = &start_page(&add_script($jscript), 'E-mail Delivery', 700: $formname); 701: 702: 703: my @deliveries = (); 704: &broadcast_email(\@recipients,$subject,$from,$message,\@deliveries); 705: if (@deliveries > 0) { 706: $output .= &Apache::loncommon::start_data_table(); 707: &store_mail($subject,$message,$dom,\@deliveries); 708: $output .= &Apache::loncommon::start_data_table_header_row(). 709: '<th>'.&mt('Status').'</th>'. 710: '<th>'.&mt('Subject').'</th>'. 711: '<th>'.&mt('Message').'</th>'. 712: '<th>'.&mt('Recipents').'</th>'. 713: &Apache::loncommon::end_data_table_header_row(); 714: $output .= &Apache::loncommon::start_data_table_row(). 715: '<td valign="middle">'.&mt('Sent').'</td>'. 716: '<td valign="middle">'.&cr_to_br($subject).'</td>'. 717: '<td valign="middle">'.&cr_to_br($message).'</td>'. 718: '<td>'; 719: foreach my $person (@deliveries) { 720: my ($username,$email) = split(/:/,$person); 721: $output .= &unescape($email).' ('.&unescape($username).')<br />'."\n"; 722: } 723: $output .= '</td>'. 724: &Apache::loncommon::end_data_table_row(). 725: &Apache::loncommon::end_data_table(); 726: } else { 727: $output .= 'No mail sent - no recipients identified'; 728: } 729: $output .= '<br /><a href="/adm/notify">'.&mt('Send another e-mail').'</a>'."\n"; 730: $output .= '<input type="hidden" name="command" />'."\n". 731: '<input type="hidden" name="origin" value="'.$formname.'" />'."\n"; 732: $output .= &Apache::lonhtmlcommon::echo_form_input(['command','origin']); 733: $output .= &end_page(); 734: $r->print($output); 735: return; 736: } 737: 738: sub broadcast_email { 739: my ($recipients,$subject,$from,$message,$deliveries)=@_; 740: # Should implement staggered delivery for large numbers of recipients?. 741: foreach my $user (@{$recipients}) { 742: my $msg = new Mail::Send; 743: my ($username,$to) = split(/:/,$user); 744: $username = &unescape($username); 745: $to = &unescape($to); 746: $msg->to($to); 747: $msg->subject($subject); 748: $msg->add('From',"$from"); 749: if (my $fh = $msg->open()) { 750: print $fh $message; 751: $fh->close; 752: push(@{$deliveries},$user); 753: } 754: } 755: } 756: 757: sub get_user_info { 758: my ($user,%email_defaults) = @_; 759: my ($uname,$udom) = split(/:/,$user); 760: my @emailtypes = ('permanentemail','critnotification','notification'); 761: my %userinfo = &Apache::loncommon::getemails($uname,$udom); 762: my $email = ''; 763: foreach my $type (@emailtypes) { 764: $email = $userinfo{$type}; 765: if ($email =~ /\@/) { 766: last; 767: } 768: } 769: if ($email eq '') { 770: my $authinfo = &Apache::lonnet::queryauthenticate($uname,$udom); 771: my ($authtype,$autharg) = split(/:/,$authinfo); 772: if ($authtype =~ /^krb/) { 773: if (defined($email_defaults{$authtype}{$autharg})) { 774: $email = $uname.'@'.$email_defaults{$authtype}{$autharg}; 775: } 776: } else { 777: if ((defined($email_defaults{$authtype})) && ($email_defaults{$authtype} ne '')) { 778: $email = $uname.'@'.$email_defaults{$authtype}; 779: } 780: } 781: } 782: return $email; 783: } 784: 785: sub form_elements { 786: my ($longtypes,$authtypes) = @_; 787: %{$longtypes} = ( 788: active => &mt('Currently has access'), 789: previous => &mt('Previously had access'), 790: future => &mt('Will have future access'), 791: ); 792: %{$authtypes} = ( 793: krb4 => 'Kerberos 4', 794: krb5 => 'Kerberos 5', 795: internal => 'Internal (LON-CAPA)', 796: unix => 'Filesystem (UNIX)', 797: localauth => 'Local/Customized', 798: ); 799: return; 800: } 801: 802: sub store_mail { 803: my ($subject,$message,$domain,$recipients,$attachmenturl) = @_; 804: my $msgid; 805: ($msgid,$message) = &Apache::lonmsg::packagemsg($subject,$message,undef,undef, 806: $attachmenturl,$recipients,undef,undef,'dcmail'); 807: 808: # Store in dc email db files on primary library server for domain. 809: my $server = &Apache::lonnet::domain($domain,'primary'); 810: if (defined($server)) { 811: unless (&Apache::lonnet::dcmailput($domain,$msgid,$message,$server) 812: eq 'ok') { 813: &Apache::lonnet::logthis('Storage of dc mail failed for domain'. 814: $domain.' for server: '. $server.'. Message ID was '.$msgid); 815: } 816: } else { 817: &Apache::lonnet::logthis('Storage of dc mail failed for domain'. 818: $domain.' as no primary server identified. Message ID was '.$msgid); 819: } 820: } 821: 822: sub cr_to_br { 823: my $incoming = shift; 824: $incoming =~ s/\n/\<br \/\>/g; 825: return $incoming; 826: } 827: 828: 1;