loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.80, 2013/08/12 16:52:00	version 1.82, 2014/01/16 13:31:31
Line 75 use HTML::TokeParser;	Line 75 use HTML::TokeParser;
use GDBM_File;	use GDBM_File;
use POSIX qw(strftime mktime);	use POSIX qw(strftime mktime);
use Mail::Send;	use Mail::Send;
	use Apache::loncommon();

use Apache::lonnet();	use Apache::lonnet();

Line 373 foreach my $dom (@domains) {	Line 374 foreach my $dom (@domains) {
my $hostname = &Apache::lonnet::hostname($lonhost);	my $hostname = &Apache::lonnet::hostname($lonhost);
my $replytoaddress = 'do-not-reply@'.$hostname;	my $replytoaddress = 'do-not-reply@'.$hostname;
$msg->add('Reply-to',$replytoaddress);	$msg->add('Reply-to',$replytoaddress);
$msg->add('From',"www@$hostname");	$msg->add('From','www@'.$hostname);
$msg->add('Content-type','text/plain; charset=UTF-8');	$msg->add('Content-type','text/plain; charset=UTF-8');
if (my $fh = $msg->open()) {	if (my $fh = $msg->open()) {
print $fh	print $fh