--- loncom/interface/lonnotify.pm 2005/10/14 19:10:20 1.6 +++ loncom/interface/lonnotify.pm 2006/03/23 22:32:10 1.15 @@ -53,37 +53,81 @@ sub handler { &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['command']); my $command = $env{'form.command'}; + my $origin = $env{'form.origin'}; + &Apache::lonhtmlcommon::clear_breadcrumbs(); - my %ltext=&Apache::lonlocal::texthash( - 'note' => 'Notification E-mail', - ); + my $function = &Apache::loncommon::get_users_function(); my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg'); - my $bodytag = &Apache::loncommon::bodytag('Broadcast e-mail to users'); - my $html=&Apache::lonxml::xmlbegin(); + &Apache::lonhtmlcommon::add_breadcrumb ({href=>'/adm/notify', text=>"Broadcast E-mail"}); if ($command eq 'process') { - &print_request_receipt($r,$cdom,$tablecolor,$bodytag,$html,\%ltext); + &print_request_receipt($r,$command,$cdom,$tablecolor); } elsif ($command eq 'compose') { - &print_composition_form($r,$cdom,$tablecolor,$bodytag,$html,\%ltext); + &print_composition_form($r,$command,$cdom,$tablecolor); } elsif ($command eq 'pick_target') { - &print_selection_form($r,$cdom,$tablecolor,$bodytag,$html,\%ltext); + &print_selection_form($r,$command,$cdom,$tablecolor); } elsif ($command eq 'pick_display') { - &print_display_option_form($r,$cdom,$tablecolor,$bodytag,$html,\%ltext); + &print_display_option_form($r,$command,$cdom,$tablecolor); } elsif ($command eq 'display') { - &print_display($r,$cdom,$tablecolor,$bodytag,$html,\%ltext); + &print_display($r,$command,$cdom,$tablecolor); } else { - &print_front_page($r,$cdom,$tablecolor,$bodytag,$html,\%ltext); + &print_front_page($r,'front',$cdom,$tablecolor); } return OK; } +sub add_script { + my ($js) = @_; + return ''; +} + +sub start_page { + my ($jscript,$bread_title,$formname) = @_; + + my $loadcode; + if ((defined($env{'form.origin'})) + && ($env{'form.command'} eq 'compose' + || $env{'form.command'} eq 'pick_target' + || $env{'form.command'} eq 'pick_display')) { + if ($env{'form.origin'} ne '') { + $loadcode = 'javascript:setFormElements(document.'.$env{'form.command'}.')'; + if (($env{'form.command'} eq 'pick_target') + && (($env{'form.origin'} eq 'compose') + || ($env{'form.origin'} eq 'process'))) { + if ($env{'form.coursepick'} eq 'category') { + $loadcode .= ';javascript:setCourseCat(document.'.$env{'form.command'}.')'; + } + } + } + } + + $loadcode = ' onLoad="'.$loadcode.'" '; + my $start_page = + &Apache::loncommon::start_page('Broadcast e-mail to users', $jscript, + {'add_entries' => $loadcode,}); + my $breadcrumbs = + &Apache::lonhtmlcommon::breadcrumbs(undef,$bread_title, + 'Broadcast_system_email'); + my $output = <<"ENDONE"; +$start_page +$breadcrumbs +
+
+ENDONE + + return $output; +} + +sub end_page { + return '
'.&Apache::loncommon::end_page(); +} + sub print_front_page { - my ($r,$cdom,$tablecolor,$bodytag,$html,$ltext) = @_; - my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs - (undef,'Broadcast e-mail to Domain','Broadcast_system_email'); + my ($r,$formname,$cdom,$tablecolor) = @_; + my $jscript = qq| function next_page(caller) { if (caller == 'view') { @@ -95,23 +139,11 @@ function next_page(caller) { document.front.submit() } |; - my %lt=&Apache::lonlocal::texthash( - 'note' => 'Notification E-mail', - ); - my $output = <<"ENDONE"; -$html - - LON-CAPA $lt{'note'} - - -$bodytag -$breadcrumbs -
-ENDONE - $output .= '
'. - ''; + + my $output = &start_page(&add_script($jscript), + 'Broadcast e-mail to Domain', $formname); + + $output .= ''; $output .= &Apache::lonhtmlcommon::start_pick_box(); $output .= ''. '
'. @@ -120,50 +152,49 @@ ENDONE 'Display e-mail sent by Domain Coordinators in this domain'. '
'; $output .= &Apache::lonhtmlcommon::end_pick_box(); - $output .= qq( -
- -); + $output .= &end_page(); + $r->print($output); return; } sub print_display_option_form { - my ($r,$cdom,$tablecolor,$bodytag,$html,$ltext) = @_; - &Apache::lonhtmlcommon::add_breadcrumb - ({text=>"Display options"}); - my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs - (undef,'Broadcast e-mail display options','Broadcast_system_email'); + my ($r,$formname,$cdom,$tablecolor) = @_; + &Apache::lonhtmlcommon::add_breadcrumb({text=>"Display options"}); + my $table_width = ''; my $col_width = '200'; - my $formname = 'display_options'; my $cmd = 'display'; my $submit_text = 'Display e-mail'; my @roles = ('dc'); my $now = time; - my %lt=&Apache::lonlocal::texthash( - 'note' => 'Notification E-mail', - ); + my $startdateform = &Apache::lonhtmlcommon::date_setter($formname, 'startdate', $now); my $enddateform = &Apache::lonhtmlcommon::date_setter($formname, 'enddate', $now); - my $jscript; - my $output = <<"ENDONE"; -$html - - LON-CAPA $lt{'note'} - - -$bodytag -$breadcrumbs -
-
-ENDONE + my %elements = ( + startdate_month => 'selectbox', + startdate_hour => 'selectbox', + enddate_month => 'selectbox', + enddate_hour => 'selectbox', + startdate_day => 'text', + startdate_year => 'text', + startdate_minute => 'text', + startdate_second => 'text', + enddate_day => 'text', + enddate_year => 'text', + enddate_minute => 'text', + enddate_second => 'text', + sender => 'checkbox', + ); + my $jscript = &Apache::lonhtmlcommon::set_form_elements(\%elements); + + my $output = &start_page(&add_script($jscript), + 'Broadcast e-mail display options', $formname); + $output .= &Apache::lonhtmlcommon::start_pick_box($table_width); $output .= &Apache::lonhtmlcommon::row_title($col_width,$tablecolor,&mt('Date range')); $output .= ''."\n"; @@ -291,15 +307,17 @@ ENDONE } } else { foreach my $msgid (sort(keys(%dcmail))) { - my ($date,$subj,$sname,$sdom,$cdom) = split(/:/,$msgid,5); + my ($date,$subj,$sname,$sdom) = + &Apache::lonmsg::unpackmsgid($msgid,undef,1); + $subj = &Apache::lonnet::escape($subj); if ($env{'form.sortby'} eq 'subject') { push @{$Sortby{$dcmail{$msgid}{subject}}},$msgid; } elsif ($env{'form.sortby'} eq 'message') { push @{$Sortby{$dcmail{$msgid}{message}}},$msgid; } elsif ($env{'form.sortby'} eq 'recipients') { my $recipients =''; - foreach my $user (sort(keys(%{$dcmail{$msgid}{recipients}}))) { - $recipients .= $dcmail{$msgid}{recipients}{$user}.', '; + foreach my $user (sort(keys(%{$dcmail{$msgid}{recipient}}))) { + $recipients .= $dcmail{$msgid}{recipient}{$user}.', '; } $recipients =~ s/,\s$//; push @{$Sortby{$recipients}},$msgid; @@ -320,13 +338,14 @@ ENDONE if ($env{'form.sortby'} eq 'recipients') { $recipients = $key; } else { - foreach my $user (sort(keys(%{$dcmail{$msgid}{recipients}}))) { - $recipients .= $dcmail{$msgid}{recipients}{$user}.', '; + foreach my $user (sort(keys(%{$dcmail{$msgid}{recipient}}))) { + $recipients .= $dcmail{$msgid}{recipient}{$user}.', '; } $recipients =~ s/,\s$//; } - - my ($date,$subj,$sname,$sdom,$cdom) = split(/:/,$msgid,5); + my ($date,$subj,$sname,$sdom) = + &Apache::lonmsg::unpackmsgid($msgid,undef,1); + $subj = &Apache::lonnet::escape($subj); $date = &Apache::lonlocal::locallocaltime($date); $output .= ''."\n"; $rowNum ++; @@ -338,20 +357,23 @@ ENDONE $output .= ''; } $output .= &Apache::lonhtmlcommon::end_pick_box(); - $output .= &echo_form_input(); - unless (defined($env{'form.sortby'})) { - $output .= qq(\n); - } - $output .= qq( - - -); + $output .= &Apache::lonhtmlcommon::echo_form_input(['sortby','command','origin']); + my $curr_sortby; + if (defined($env{'form.sortby'})) { + $curr_sortby = $env{'form.sortby'}; + } else { + $curr_sortby = 'date'; + } + $output .= qq(\n); + $output .= qq(\n); + $output .= qq(\n); + $output .= &end_page(); $r->print($output); return; } sub print_selection_form { - my ($r,$cdom,$tablecolor,$bodytag,$html,$ltext) = @_; + my ($r,$formname,$cdom,$tablecolor) = @_; my %coursecodes = (); my %codes = (); my @codetitles = (); @@ -364,21 +386,14 @@ sub print_selection_form { my $totcodes = 0; my $format_reply; my $jscript = ''; - my $formname = 'rolefilter'; my $table_width = '100%'; my $col_width = '200'; my %lt=&Apache::lonlocal::texthash( - 'note' => 'Notification E-mail', 'buil' => 'Building valid e-mail address from username, if missing from preferences:', 'kerb' => 'Kerberos: enter default for each realm used in the domain, with comma separation of entries', 'infs' => 'Internal, Filesystem and Local authentication: enter single default.', 'comp' => 'Compose Message' ); - my $loaditems = qq| -function initialize_codes() { - return; -} - |; &Apache::lonhtmlcommon::add_breadcrumb ({text=>"Select Audience"}); @@ -389,79 +404,115 @@ function initialize_codes() { my $numtypes = @codetitles; &Apache::lonsupportreq::build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); &Apache::lonsupportreq::javascript_code_selections($formname,$numtypes,\%cat_titles,\$jscript,\%idlist,\%idnums,\%idlist_titles,\@codetitles); - $loaditems = ''; } } - my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs - (undef,'Choose e-mail audience','Broadcast_system_email'); my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($cdom); - my $output = <<"ENDONE"; -$html - - LON-CAPA $lt{'note'} - -$cb_jscript - -$bodytag -$breadcrumbs -
- -ENDONE - $output .= &Apache::lonhtmlcommon::start_pick_box($table_width); - my @roles = ('ow','cc','in','ta','ep','ad','st','cr'); - my %longtypes = (); - my %authtypes = (); - &form_elements(\%longtypes,\%authtypes); - my $descrip = $lt{'buil'}.' + + my %elements = ( + roles => 'selectbox', + types => 'selectbox', + Year => 'selectbox', + coursepick => 'radio', + coursetotal => 'text', + courselist => 'text', + internal => 'text', + krb4 => 'text', + krb5 => 'text', + local => 'text', + unix => 'text', + ); + $jscript .= &Apache::lonhtmlcommon::set_form_elements(\%elements); + if ($env{'form.coursepick'} eq 'category') { + $jscript .= qq| +function setCourseCat(formname) { + if (formname.Year.options[formname.Year.selectedIndex].value == -1) { + return; + } + courseSet('Year'); + for (var j=0; j
  • '.$lt{'kerb'}.'
    (e.g., MSU.EDU=msu.edu, MSUE.EDU=msue.msu.edu).
  • '.$lt{'infs'}.'
    • '."\n"; - my $submit_text = $lt{'comp'}; - my $cmd = 'compose'; - $output .= &Apache::lonhtmlcommon::role_select_row(\@roles,$col_width,$tablecolor,'Roles'); - $output .= &Apache::lonhtmlcommon::course_select_row($col_width,$tablecolor,'Courses',$formname,$totcodes,\@codetitles,\%idlist,\%idlist_titles); - $output .= &Apache::lonhtmlcommon::status_select_row(\%longtypes,$col_width,$tablecolor,&mt('Access status')); - $output .= &Apache::lonhtmlcommon::email_default_row(\%authtypes,$col_width,$tablecolor,&mt('Username -> Email conversion'),$descrip); - $output .= &Apache::lonhtmlcommon::submit_row($col_width,$tablecolor,&mt('Submit'),$cmd,$submit_text); - $output .= &Apache::lonhtmlcommon::end_pick_box(); - $output .= qq( - - -); + my $submit_text = $lt{'comp'}; + my $cmd = 'compose'; + $output .= &Apache::lonhtmlcommon::role_select_row(\@roles,$col_width,$tablecolor,'Roles'); + $output .= &Apache::lonhtmlcommon::course_select_row($col_width,$tablecolor,'Courses',$formname,$totcodes,\@codetitles,\%idlist,\%idlist_titles); + $output .= &Apache::lonhtmlcommon::status_select_row(\%longtypes,$col_width,$tablecolor,&mt('Access status')); + $output .= &Apache::lonhtmlcommon::email_default_row(\%authtypes,$col_width,$tablecolor,&mt('Username -> Email conversion'),$descrip); + $output .= &Apache::lonhtmlcommon::submit_row($col_width,$tablecolor,&mt('Submit'),$cmd,$submit_text); + $output .= &Apache::lonhtmlcommon::end_pick_box(); + $output .= &end_page(); $r->print($output); return; } sub print_composition_form { - my ($r,$cdom,$tablecolor,$bodytag,$html,$ltext) = @_; + my ($r,$formname,$cdom,$tablecolor) = @_; &Apache::lonhtmlcommon::add_breadcrumb - ({href=>'/adm/notify?command=pick_target', + ({href=>"javascript:goBack('pick_target')", text=>"Select Audience"}, {text=>"Compose Message"}); my $jscript = &Apache::loncommon::check_uncheck_jscript(); - my $breadcrumbs = (&Apache::lonhtmlcommon::breadcrumbs - (undef,'Broadcast e-mail to users','Broadcast_system_email')); + $jscript .= qq| +function goBack(target) { + document.$formname.command.value = target; + document.$formname.submit(); +} +|; my %lt=&Apache::lonlocal::texthash( - 'note' => 'Notification E-mail', 'nore' => 'No recipients identified', 'emad' => 'e-mail address', ); - $r->print(< - LON-CAPA $lt{'note'} - - -$bodytag $breadcrumbs -
    -ENDONE + my %elements = ( + subject => 'text', + message => 'text', + sender => 'text', + recipient => 'checkbox', + ); + $jscript .= &Apache::lonhtmlcommon::set_form_elements(\%elements); + + $r->print(&start_page(&add_script($jscript), + 'Broadcast e-mail to users', $formname)); + my $coursefilter = $env{'form.coursepick'}; my %courses = (); if ($coursefilter eq 'all') { @@ -529,6 +580,7 @@ ENDONE my %recipients = (); my %users = (); my %access = (); + my @sections = (); my $totalrecip = 0; my @unmatched = (); foreach my $role (@roles) { @@ -539,7 +591,7 @@ ENDONE } foreach my $course_id (keys(%courses)) { my ($cdom,$cnum) = split(/_/,$course_id); - &Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\%users); + &Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\@sections,\%users); } foreach my $role (keys(%users)) { foreach my $user (keys(%{$users{$role}})) { @@ -553,7 +605,7 @@ ENDONE } } } - my $output = '
    '."\n"; + my $output; if ($totalrecip > 0) { $output .= &Apache::lonhtmlcommon::start_pick_box($table_width); @@ -576,7 +628,7 @@ ENDONE foreach my $username (sort(keys(%recipients))) { if ($recipients{$username} =~ /\@/) { my $value=&Apache::lonnet::escape($username).':'.&Apache::lonnet::escape($recipients{$username}); - $output .= '    '; + $output .= ''; } } $output .= '
    Earliest to display: '. @@ -189,30 +220,25 @@ ENDONE $output .= &Apache::lonhtmlcommon::row_closure(); $output .= &Apache::lonhtmlcommon::submit_row($col_width,$tablecolor,&mt('Submit'),$cmd,$submit_text); $output .= &Apache::lonhtmlcommon::end_pick_box(); - $output .= qq( - - - -); + $output .= qq(\n). + &end_page(); $r->print($output); return; } sub print_display { - my ($r,$cdom,$tablecolor,$bodytag,$html,$ltext) = @_; + my ($r,$formname,$cdom,$tablecolor) = @_; &Apache::lonhtmlcommon::add_breadcrumb - ({href=>'/adm/notify?command=pick_display', + ({href=>"javascript:goBack('pick_display')", text=>"Display options"}, {text=>"E-mail display"}); - my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs - (undef,'Display Broadcast e-mail','Broadcast_system_email'); + my $table_width = ''; my $col_width = '200'; my $rowColor1 = "#ffffff"; my $rowColor2 = "#eeeeee"; my $rowColor; my $msgcount = 0; - my $formname = 'display_sent'; my $start = &Apache::lonhtmlcommon::get_date_from_form('startdate'); my $end = &Apache::lonhtmlcommon::get_date_from_form('enddate'); my @senders = &Apache::loncommon::get_env_multiple('form.sender'); @@ -221,43 +247,31 @@ sub print_display { my %Sortby = (); my $jscript = <<"ENDSCRIPT"; function changeSort(caller) { + document.$formname.command.value = '$formname'; document.$formname.sortby.value = caller; - document.$formname.submit(); + document.$formname.submit(); +} +function goBack(target) { + document.$formname.command.value = target; + document.$formname.submit(); } + ENDSCRIPT - my $output = <<"ENDONE"; -$html - - LON-CAPA $$ltext{'note'} - - -$bodytag -$breadcrumbs -
    -
    -ENDONE - foreach my $server (keys(%sentmail)) { - foreach my $msgid (keys(%{$sentmail{$server}})) { - my %content = &unpackagemail($sentmail{$server}{$msgid}); - if (defined($dcmail{$msgid})) { - foreach my $user (keys(%{$content{'recipients'}})) { - $dcmail{$msgid}{recipients}{$user} = $content{recipients}{$user}; + my $output = &start_page(&add_script($jscript), + 'Display Broadcast e-mail', $formname); + + foreach my $msgid (keys(%sentmail)) { + my %content = &Apache::lonmsg::unpackagemsg($sentmail{$msgid}); + $msgcount ++; + %{$dcmail{$msgid}} = (); + foreach my $item (keys(%content)) { + if ($item eq 'recipient') { + foreach my $user (keys(%{$content{recipient}})) { + $dcmail{$msgid}{recipient}{$user} = $content{recipient}{$user}; } } else { - $msgcount ++; - %{$dcmail{$msgid}} = (); - foreach my $item (keys(%content)) { - if ($item eq 'recipients') { - foreach my $user (keys(%{$content{recipients}})) { - $dcmail{$msgid}{recipients}{$user} = $content{recipients}{$user}; - } - } else { - $dcmail{$msgid}{$item} = $content{$item}; - } - } + $dcmail{$msgid}{$item} = $content{$item}; } } } @@ -280,10 +294,12 @@ ENDONE $rowColor = $rowColor2; } my $recipients = ''; - my ($date,$subj,$sname,$sdom,$cdom) = split(/:/,$msgid,5); + my ($date,$subj,$sname,$sdom) = + &Apache::lonmsg::unpackmsgid($msgid,undef,1); + $subj = &Apache::lonnet::escape($subj); $date = &Apache::lonlocal::locallocaltime($date); - foreach my $user (sort(keys(%{$dcmail{$msgid}{recipients}}))) { - $recipients .= $dcmail{$msgid}{recipients}{$user}.', '; + foreach my $user (sort(keys(%{$dcmail{$msgid}{recipient}}))) { + $recipients .= $dcmail{$msgid}{recipient}{$user}.', '; } $recipients =~ s/,\s$//; $output .= '
    '.$date.''.&cr_to_br($dcmail{$msgid}{subject}).''.$sname.':'.$sdom.''.&cr_to_br($dcmail{$msgid}{message}).''.$recipients.'
    '.$date.''.&cr_to_br($dcmail{$msgid}{subject}).''.$sname.':'.$sdom.''.&cr_to_br($dcmail{$msgid}{message}).''.$recipients.'
     
      No mail sent matching supplied criteria  

    		 
    '.$username.'  '.$recipients{$username}.'
    '.$username.'  '.$recipients{$username}.'
    '; @@ -595,51 +647,44 @@ ENDONE $output .= &Apache::lonhtmlcommon::submit_row($col_width,$tablecolor,&mt('Submit'),'process',&mt('Send Message')); $output .= &Apache::lonhtmlcommon::end_pick_box(); } else { - $output .= $lt{'nore'}; + $output .= $lt{'nore'}."\n". + ''."\n"; } - $output .= &echo_form_input('command'); - $output .= ''; + $output .= ''."\n"; + $output .= &Apache::lonhtmlcommon::echo_form_input(['command','origin','subject','message','recipient','sender'],); + $output .= &end_page(); $r->print($output); return; } sub print_request_receipt { - my ($r,$dom,$tablecolor,$bodytag,$html,$ltext) =@_; + my ($r,$formname,$dom,$tablecolor) =@_; my @recipients = &Apache::loncommon::get_env_multiple('form.recipient'); my $subject = $env{'form.subject'}; my $message = $env{'form.message'}; my $from = $env{'form.sender'}; my $jscript = <'/adm/notify?command=pick_target', + ({href=>"javascript:goBack('pick_target')", text=>"Select audience"}); &Apache::lonhtmlcommon::add_breadcrumb - ({href=>'javascript:showCompose()', + ({href=>"javascript:goBack('compose')", text=>"Compose Message"}); &Apache::lonhtmlcommon::add_breadcrumb - ({href=>'/adm/notify?command=process', + ({href=>"/adm/notify?command=process", text=>"Outcome"}); - my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs - (undef,'E-mail Delivery','Broadcast_system_email'); - my $output = < - LON-CAPA Notification E-mail - - -$bodytag -$breadcrumbs -
    -
    -ENDONE + + + my $output = &start_page(&add_script($jscript), 'E-mail Delivery', + $formname); + $output .= &Apache::lonhtmlcommon::start_pick_box(); my @deliveries = (); &broadcast_email(\@recipients,$subject,$from,$message,\@deliveries); @@ -668,24 +713,22 @@ ENDONE '; - &store_mail($subject,$message,$dom,\@deliveries); } else { $output .= 'No mail sent - no recipients identified'; } $output .= &Apache::lonhtmlcommon::end_pick_box(); $output .= '
    Send another message?'."\n"; - $output .= &echo_form_input(); - $output .= ' -
    - -'; + $output .= ''."\n". + ''."\n"; + $output .= &Apache::lonhtmlcommon::echo_form_input(['command','origin']); + $output .= &end_page(); $r->print($output); return; } sub broadcast_email { - my ($recipients,$subject,$from,$message,$deliveries,$ltext)=@_; -# find some way to spread out delivery for large numbers of recipients. + my ($recipients,$subject,$from,$message,$deliveries)=@_; +# Should implement staggered delivery for large numbers of recipients?. foreach my $user (@{$recipients}) { my $msg = new Mail::Send; my ($username,$to) = split(/:/,$user); @@ -731,7 +774,7 @@ sub get_user_info { } sub form_elements { - my ($longtypes,$authtypes,$ltext) = @_; + my ($longtypes,$authtypes) = @_; %{$longtypes} = ( active => 'Currently has access', previous => 'Previously had access', @@ -748,120 +791,23 @@ sub form_elements { } sub store_mail { - my ($subject,$message,$domain,$recipients,$attachmenturl,$ltext) = @_; - my %servers = (); - my $msgid=&packagemail($subject,$message,$domain, - $recipients,\%servers,$attachmenturl); -# Store in dc email db files on appropriate servers. - foreach my $server (keys(%servers)) { - unless (&Apache::lonnet::dcmailput($domain,$msgid,\%servers,$server) eq 'ok') { - &Apache::lonnet::logthis('Storage of dc mail failed for domain'.$domain.' for server: '. - $server.'. Message ID was '.$msgid); - } - } -} - -sub packagemail { - my ($subject,$message,$dom,$recipients,$servers,$attachmenturl,$ltext) = @_; - my %record = (); - my $partsubj=$subject; - $partsubj=&Apache::lonnet::escape($partsubj); - $message =&HTML::Entities::encode($message,'<>&"'); - $subject =&HTML::Entities::encode($subject,'<>&"'); - #remove machine specification - $attachmenturl =~ s|^http://[^/]+/|/|; - $attachmenturl =&HTML::Entities::encode($attachmenturl,'<>&"'); - my $now=time; - my $msgid= &Apache::lonnet::escape($now).':'.$partsubj.':'. - &Apache::lonnet::escape($env{'user.name'}).':'. - &Apache::lonnet::escape($env{'user.domain'}).':'. - &Apache::lonnet::escape($dom).':'.$$; - my $result=''.$env{'user.name'}.''. - ''.$env{'user.domain'}.''. - ''. - ''.$ENV{'SERVER_NAME'}.''. - ''.$ENV{'HTTP_HOST'}.''. - ''.$ENV{'REMOTE_ADDR'}.''. - ''.$msgid.''. - ''.$dom.''. - ''.$subject.''. - ''.$message.''."\n"; - if (defined($attachmenturl)) { - $result.= ''.$attachmenturl.''; - } - foreach my $recip (@{$recipients}) { - my ($username,$email) = split(/:/,$recip); - $username = &Apache::lonnet::unescape($username); - $email = &Apache::lonnet::unescape($email); - my ($uname,$udom) = split(/:/,$username); - my $uhom=&Apache::lonnet::homeserver($uname,$udom); - if ($uhom ne 'no_host') { - $username = &HTML::Entities::encode($username,'<>&"'); - $email = &HTML::Entities::encode($email,'<>&"'); - $record{$uhom} .= ''. - $email.''; - } - } - foreach my $server (keys(%record)) { - $$servers{$server} = $result.$record{$server}; - } - return $msgid; -} - -sub unpackagemail { - my ($message,$notoken,$ltext)=@_; - my $parser=HTML::TokeParser->new(\$message); - my $token; - my %content=(); - %{$content{recipients}} = (); - while ($token=$parser->get_token()) { - if ($token->[0] eq 'S') { - my $entry=$token->[1]; - my $value=$parser->get_text('/'.$entry); - my ($username,$email); - if ($entry eq 'recipient') { - $username = $token->[2]{'username'}; - $username = &HTML::Entities::decode($username,'<>&"'); - $content{recipients}{$username} = - &HTML::Entities::decode($value,'<>&"'); - } elsif ($entry eq 'subject' || $entry eq 'message') { - $content{$entry}=&HTML::Entities::decode($value,'<>&"'); - } else { - $content{$entry}=$value; - } - } - } - if ($content{'attachmenturl'}) { - my ($fname)=($content{'attachmenturl'}=~m|/([^/]+)$|); - if ($notoken) { - $content{'message'}.='

    '.&mt('Attachment').': '.$fname.''; } else { - &Apache::lonnet::allowuploaded('/adm/notify', - $content{'attachmenturl'}); - $content{'message'}.='

    '.&mt('Attachment'). - ': '. - $fname.''; - } - } - return %content; -} - -sub echo_form_input { - my (@excluded) = @_; - my $output = ''; - foreach my $key (keys(%env)) { - if ($key =~ /^form\.(.+)$/) { - if ((!@excluded) || (!grep/^$1$/,@excluded)) { - if (ref($env{$key})) { - foreach my $value (@{$env{$key}}) { - $output .= qq(\n); - } - } else { - $output .= qq(\n); - } - } + my ($subject,$message,$domain,$recipients,$attachmenturl) = @_; + my $msgid; + ($msgid,$message) = &Apache::lonmsg::packagemsg($subject,$message,undef,undef, + $attachmenturl,$recipients,undef,undef,'dcmail'); + +# Store in dc email db files on primary library server for domain. + my $server = $Apache::lonnet::domain_primary{$domain}; + if (defined($server)) { + unless (&Apache::lonnet::dcmailput($domain,$msgid,$message,$server) + eq 'ok') { + &Apache::lonnet::logthis('Storage of dc mail failed for domain'. + $domain.' for server: '. $server.'. Message ID was '.$msgid); } + } else { + &Apache::lonnet::logthis('Storage of dc mail failed for domain'. + $domain.' as no primary server identified. Message ID was '.$msgid); } - return $output; } sub cr_to_br { @@ -870,5 +816,4 @@ sub cr_to_br { return $incoming; } - 1;