|
version 1.5, 2001/09/08 17:45:09
|
version 1.8, 2001/09/08 22:51:26
|
|
Line 579 sub format_directory {
|
Line 579 sub format_directory {
|
| return $directory="\nDIRECTORY $targetdir $categoryname $description"; |
return $directory="\nDIRECTORY $targetdir $categoryname $description"; |
| } |
} |
| elsif ($mode eq 'install') { |
elsif ($mode eq 'install') { |
| return "\t".'install '.$categoryhash{$categoryname}.' -d /'. |
return "\t".'install '.$categoryhash{$categoryname}.' -d '. |
| $targetroot.$targetdir."\n"; |
$targetroot.'/'.$targetdir."\n"; |
| } |
} |
| else { |
else { |
| return ''; |
return ''; |
|
Line 668 sub format_file {
|
Line 668 sub format_file {
|
| "\nEND FILE"); |
"\nEND FILE"); |
| } |
} |
| elsif ($mode eq 'install' && $categoryname ne 'conf') { |
elsif ($mode eq 'install' && $categoryname ne 'conf') { |
| return "\t".'@test -e '.$sourceroot.$source. |
return "\t".'@test -e '.$sourceroot.'/'.$source. |
| ' && install '. |
' && install '. |
| $categoryhash{$categoryname}.' '. |
$categoryhash{$categoryname}.' '. |
| $sourceroot.$source.' '. |
$sourceroot.'/'.$source.' '. |
| $targetroot.$target. |
$targetroot.'/'.$target. |
| ' || echo "**** LON-CAPA WARNING '. |
' || echo "**** LON-CAPA WARNING '. |
| '**** CVS source file does not exist: "'.$sourceroot.$source. |
'**** CVS source file does not exist: '.$sourceroot.'/'. |
| '"'."\n"; |
$source.'"'."\n"; |
| } |
} |
| else { |
else { |
| return ''; |
return ''; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lpml_parse.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / build