loncom/build/parse.pl - diff

Return to parse.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.19, 2000/12/21 14:45:36	version 1.20, 2000/12/21 19:26:01
Line 251 END	Line 251 END
my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};	my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};	my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};	my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
	my ($owner,$group)=split(/\:/,$devchown);
my $own=$devchown; $own=~s/\:/\,/;	my $own=$devchown; $own=~s/\:/\,/;
$description.=<<END;	$description.=<<END;
\tinstall -m $devchmod -d \$(TARGET)/$d	\tinstall -o $owner -g $group -m $devchmod -d \$(TARGET)/$d
END	END
}	}
$description.=<<END;	$description.=<<END;
Line 298 END	Line 299 END
my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};	my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
my $rot=$filesfull[$i];	my $rot=$filesfull[$i];
$rot=~s/[^\/]+$/\./ if $rot=~/\*/;	$rot=~s/[^\/]+$/\./ if $rot=~/\*/;
	my ($owner,$group)=split(/\:/,$devchown);
$description.=<<END if $category ne 'symbolic link';	$description.=<<END if $category ne 'symbolic link';
\tinstall -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot	\tinstall -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
END	END
}	}
}	}