[BACK]Return to parse.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/Attic/parse.pl between versions 1.6 and 1.8

version 1.6, 2000/12/09 19:29:16 version 1.8, 2000/12/10 03:06:11
Line 118  sub begin_description_page { Line 118  sub begin_description_page {
 <LI>About this file  <LI>About this file
 <LI>Software Package Description  <LI>Software Package Description
 <LI>Directory Structure  <LI>Directory Structure
   <LI>File Type Ownership and Permissions
 <LI>File and Directory Structure  <LI>File and Directory Structure
 </UL>  </UL>
 <FONT SIZE=+2>About this file</FONT>  <FONT SIZE=+2>About this file</FONT>
Line 185  sub make_directory_structure_description Line 186  sub make_directory_structure_description
 <TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>  <TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
 END  END
     my $maxcount=0;      my $maxcount=0;
       my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
       my %diraccount; # hash to track which directories are accounted for
       foreach my $file (@allfiles) {
    $file=~/^(.*)\/([^\/]+)$/;
    $diraccount{$1}=1;
       }
     foreach my $d (@$dirs) {      foreach my $d (@$dirs) {
         my (@matches)=($d=~/\//g);          my (@matches)=($d=~/\//g);
  my $count=scalar(@matches);   my $count=scalar(@matches);
  $maxcount=$count if $count>$maxcount;   $maxcount=$count if $count>$maxcount;
    delete $diraccount{$d};
     }      }
     $description.=<<END;      $description.=<<END;
 <TR>  <TR>
Line 197  END Line 205  END
 <TH ALIGN=LEFT BGCOLOR=#FFFFFF><FONT COLOR=#FF0000>Development<BR>Permissions</FONT></TH>  <TH ALIGN=LEFT BGCOLOR=#FFFFFF><FONT COLOR=#FF0000>Development<BR>Permissions</FONT></TH>
 END  END
     $description.="<TH ALIGN=LEFT BGCOLOR=#FFFFFF COLSPAN=".($maxcount+1).">Directory Path</TH>\n";      $description.="<TH ALIGN=LEFT BGCOLOR=#FFFFFF COLSPAN=".($maxcount+1).">Directory Path</TH>\n";
       if (keys %diraccount) {
    $description.= "<TR><TD ALIGN=LEFT BGCOLOR=#FFFFFF COLSPAN=".($maxcount+4)."><I><PRE>Directories that are unaccounted for: \n";
    foreach my $d (keys %diraccount) {
       $description.="$d\n";
    }
    $description.="</PRE></I></TH></TR>\n";
       }
     foreach my $d (@$dirs) {      foreach my $d (@$dirs) {
  my $dtable=$d;   my $dtable=$d;
  $dtable=~s/\//\<\/TD\>\<TD\>/g;   $dtable=~s/\//\<\/TD\>\<TD\>/g;
Line 270  sub make_directory_and_file_structure_de Line 285  sub make_directory_and_file_structure_de
 <P>  <P>
 The icons on the left column correspond to the file type  The icons on the left column correspond to the file type
 specified in the second column.  The last column "Notes" shows compilation,  specified in the second column.  The last column "Notes" shows compilation,
 dependency, and configuration information.  dependency, and configuration information.  The CVS location
   shows the location of the binary source file (if applicable) needed to
   be copied to the target.  If the binary source file is not at
   the specified location, then the text is shown in 
   <FONT COLOR=#FF0000>red</FONT>.
 </P>  </P>
 <P>  <P>
 <TABLE BORDER=1 CELLPADDING=5 WIDTH=60%>  <TABLE BORDER=1 CELLPADDING=5 WIDTH=60%>
Line 327  END Line 346  END
  my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};   my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
  my $fdescription=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DESCRIPTION'};   my $fdescription=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DESCRIPTION'};
  my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};   my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
    unless (-e "../../$source") {
       $source=~/([^\/]+)$/;
       my $s=$1;
       $source="<FONT COLOR=#FF0000>$source</FONT>";
   #    my $fr=`cd ../../; find . -name $s`;
   #    $source.="<BR>$fr\n";
    }
  my $notes=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTES'};   my $notes=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTES'};
  $description.=<<END;   $description.=<<END;
 <TR>  <TR>
Removed from v.1.6  
changed lines
  Added in v.1.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>