[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.9

version 1.6, 2000/12/09 19:29:16 version 1.9, 2000/12/10 04:15:23
Line 75  while ($info1=~/\<loncapa\s+(.*?)\>/isg) Line 75  while ($info1=~/\<loncapa\s+(.*?)\>/isg)
         foreach my $m (@meta) {          foreach my $m (@meta) {
     if ($data=~/\<($m)\>(.*?)\<\/$m\>/sgi) {      if ($data=~/\<($m)\>(.*?)\<\/$m\>/sgi) {
  my ($key,$value)=($1,$2);   my ($key,$value)=($1,$2);
  $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{$key}=   $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{uc($key)}=
                                                     $value;                                                      $value;
     }      }
         }          }
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 182  sub make_directory_structure_description Line 183  sub make_directory_structure_description
     my $description=<<END;      my $description=<<END;
 <FONT SIZE=+2>Directory Structure Description, $date</FONT>  <FONT SIZE=+2>Directory Structure Description, $date</FONT>
 <P>  <P>
   The directory structure description below shows only those
   directories which either contain LON-CAPA specific files
   or normally do not exist on a RedHat Linux system (and
   must be generated to allow proper placement of files
   during LON-CAPA run-time operation).
   </P>
   <P>
 <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 212  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 292  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=500>
 END  END
     my $counter=0;      my $counter=0;
     my @colorindex=("#80FF80","#80FFFF","#FFFF80");      my @colorindex=("#80FF80","#80FFFF","#FFFF80");
Line 327  END Line 353  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'};
  my $notes=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTES'};   my $note=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTE'};
    $note.="<BR>" if $note;
    my $listing=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'FILES'};
    my @E=split(/\s+/,$listing);
    $source=~/(.*)\/[^\/]+$/;
    my $sd=$1;
    my $eflag=0;
    foreach my $e (@E) {
       unless (-e "../../$sd/$e") {
    $e="<FONT COLOR=#FF0000>$e</FONT>";
    $eflag=1;
       }
    }
    $listing=join("\n",@E);
    $listing="<B>listing</B><BR><FONT SIZE=-2>$listing</FONT>" if $listing;
    $listing.="<BR>" if $listing;
    my $build=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'BUILD'};
    $build="<B>build</B><BR>$build" if $build;
    $build.="<BR>" if $build;
    my $dependencies=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DEPENDENCIES'};
    $dependencies="<B>dependencies</B><BR>$dependencies" if $dependencies;
    $dependencies.="<BR>" if $dependencies;
    unless (-e "../../$source") {
       $source=~/([^\/]+)$/;
       my $s=$1;
       if ($source!~/\*/) {
    $source="<FONT COLOR=#FF0000>$source</FONT>";
       }
       elsif ($eflag) {
    $source="<FONT COLOR=#FF0000>$source</FONT>";
       }
    }
  $description.=<<END;   $description.=<<END;
 <TR>  <TR>
 <TD BGCOLOR=#A0A0A0><IMG SRC="$fcm{$category}.gif" ALT="$category"></TD>  <TD BGCOLOR=#A0A0A0><IMG SRC="$fcm{$category}.gif" ALT="$category"></TD>
Line 335  END Line 392  END
 <TD BGCOLOR=$color>$files[$i]</TD>  <TD BGCOLOR=$color>$files[$i]</TD>
 <TD BGCOLOR=$color>$fdescription&nbsp;</TD>  <TD BGCOLOR=$color>$fdescription&nbsp;</TD>
 <TD BGCOLOR=$color>$source</TD>  <TD BGCOLOR=$color>$source</TD>
 <TD BGCOLOR=$color>$notes&nbsp;</TD>  <TD BGCOLOR=$color>$note$listing$build$dependencies&nbsp;</TD>
 </TR>  </TR>
 END  END
     }      }
Removed from v.1.6  
changed lines
  Added in v.1.9

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