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.83, 2016/01/27 22:22:59
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
Line 459 sub descend_tree {	Line 460 sub descend_tree {
closedir(DIR);	closedir(DIR);
$depth ++;	$depth ++;
foreach my $item (@contents) {	foreach my $item (@contents) {
if ($depth < 4) {	if (($depth < 4) && (length($item) == 1)) {
&descend_tree($dom,$dir.'/'.$item,$depth,$allportusers,$alldomusers);	&descend_tree($dom,$dir.'/'.$item,$depth,$allportusers,$alldomusers);
} else {	} else {
if (-e $dir.'/'.$item.'/file_permissions.db') {	if (-e $dir.'/'.$item.'/file_permissions.db') {