Annotation of loncom/build/parse.pl, revision 1.18
1.1 harris41 1: #!/usr/bin/perl
2:
3: # Scott Harrison
4: # November 2000
5:
1.2 harris41 6: # Read in loncapa tags and metagroup tags
1.1 harris41 7:
1.4 harris41 8: # ---------------------------------------------- Read in command line arguments
1.1 harris41 9: my ($file,$mode)=@ARGV;
1.2 harris41 10:
1.4 harris41 11: # ---------------------------------------------------- Read in master data file
1.1 harris41 12: open IN,"<$file";
13: my @lines=<IN>;
14: close IN;
1.5 harris41 15: my $info1=join('',@lines);
16: my $info2=$info1; # value to allow for meta data group retrieval
1.1 harris41 17:
1.4 harris41 18: # ------------------------------------------------------- Make default settings
19: my $distribution="redhat6.2";
20: my $date=`date +'%B %e, %Y'`; chop $date;
21: my $buildhost=`hostname`; chop $buildhost;
1.5 harris41 22: # file category mappings
23: my %fcm=(
24: 'conf' => 'configurable',
25: 'graphic file' => 'graphicfile',
26: 'handler' => 'handler',
27: 'interface file' => 'interfacefile',
28: 'symbolic link' => 'link',
29: 'root script' => 'rootscript',
30: 'script' => 'script',
31: 'setuid script' => 'setuid',
32: 'static conf' => 'static',
33: 'system file' => 'systemfile',
34: );
1.4 harris41 35:
36: # ---------------------------------------------------- Parse the marked up data
37: my %info; # big data storage object
1.5 harris41 38: while ($info1=~/\<loncapa\s+(.*?)\>/isg) {
1.1 harris41 39: my $keystring=$1;
1.4 harris41 40: # In the parsing of LON-CAPA tags, remove boundary white-space,
41: # and handle quotation commands.
1.2 harris41 42: my %hash=map {my ($key,$value)=split(/\=(?!")|\=(?=\s*"[^"]*"[^"]*$)/);
43: $value=~s/^"//;
44: $value=~s/"$//;
45: (uc($key),$value);}
46: split(/\s+(?=\w+\s*\=)/,$keystring);
1.4 harris41 47: # Handle the different types of commands
1.1 harris41 48: if (uc($hash{'TYPE'}) eq "OWNERSHIP") {
49: $info{$hash{'TYPE'}}{$hash{'CATEGORY'}}{'CHMOD'}=$hash{'CHMOD'};
50: $info{$hash{'TYPE'}}{$hash{'CATEGORY'}}{'CHOWN'}=$hash{'CHOWN'};
51: }
52: elsif (uc($hash{'TYPE'}) eq "DEVOWNERSHIP") {
53: $info{$hash{'TYPE'}}{$hash{'CATEGORY'}}{'CHMOD'}=$hash{'CHMOD'};
54: $info{$hash{'TYPE'}}{$hash{'CATEGORY'}}{'CHOWN'}=$hash{'CHOWN'};
55: }
56: elsif (uc($hash{'TYPE'}) eq "RPM") {
57: $hash{'VALUE'}=~s/\\n/\n/g;
58: $info{$hash{'TYPE'}}{$hash{'NAME'}}=$hash{'VALUE'};
59: }
60: elsif (uc($hash{'TYPE'}) eq "DIRECTORY") {
1.4 harris41 61: $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{'CATEGORY'}=
62: $hash{'CATEGORY'};
63: $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{'DESCRIPTION'}=
64: $hash{'DESCRIPTION'} if $hash{'DESCRIPTION'};
1.1 harris41 65: }
66: elsif (uc($hash{'TYPE'}) eq "LOCATION") {
1.5 harris41 67: $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{'CATEGORY'}= $hash{'CATEGORY'};
1.10 harris41 68: $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{'LINKTO'}= $hash{'LINKTO'};
1.5 harris41 69: $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{'SOURCE'}= $hash{'SOURCE'};
1.1 harris41 70: # get surrounding metagroup information
71: my $ckeystring=$keystring; $ckeystring=~s/(SOURCE\=\"[^"]*)\*/$1\\\*/g;
1.5 harris41 72: $ckeystring=~s/(TARGET\=\"[^"]*)\*/$1\\\*/g;
1.1 harris41 73: $info2=~/.*\<(?:metagroup|metasupergroup)\>(.*?)\<loncapa\s+$ckeystring\>(.*?)\<\/(?:metagroup|metasupergroup)\>/is;
74: my $data=$1.$2;
75: my @meta=('description','build','dependencies','files','note');
76: foreach my $m (@meta) {
77: if ($data=~/\<($m)\>(.*?)\<\/$m\>/sgi) {
78: my ($key,$value)=($1,$2);
1.9 harris41 79: $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{uc($key)}=
1.4 harris41 80: $value;
1.1 harris41 81: }
82: }
83: }
84: else {
85: warn("WARNING: this tag text will be ignored since it cannot be understood\n---> $keystring\n");
86: }
87: }
88:
1.10 harris41 89: my $a;
90: my @directories;
91: if ($mode eq "HTML") {
1.4 harris41 92: $a=&begin_description_page;
93: print $a;
94: $a=&make_rpm_description_block;
95: print $a;
96: @directories=&determine_directory_structure;
97: $a=&make_directory_structure_description_block(\@directories);
98: print $a;
1.6 harris41 99: $a=&make_file_type_ownership_and_permissions_description_block;
100: print $a;
1.4 harris41 101: $a=&make_directory_and_file_structure_description_block(\@directories);
102: print $a;
103: $a=&end_description_page;
104: print $a;
105: }
1.10 harris41 106: elsif ($mode eq "SPEC") {
107: my $out=$info{'RPM'}{'Name'} . '-' . $info{'RPM'}{'Version'} . '.spec';
108: open OUT,">$out";
109: $a=&make_rpm_spec_block;
110: print OUT $a;
111: $a=&make_rpm_build_block;
112: print OUT $a;
113: @directories=&determine_directory_structure;
114: $a=&make_directory_structure_spec_block(\@directories);
115: print OUT $a;
116: $a=&make_directory_and_file_structure_spec_block(\@directories);
117: print OUT $a;
118: $a=&end_spec_page;
119: print OUT $a;
120: close OUT;
121: }
122: elsif ($mode eq "LCMakefile") {
123: @directories=&determine_directory_structure;
1.14 harris41 124: $a=&make_directory_LCMakefile_segment(\@directories);
1.10 harris41 125: print $a;
1.14 harris41 126: $a=&make_files_LCMakefile_segment(\@directories);
1.10 harris41 127: print $a;
1.14 harris41 128: $a=&make_links_LCMakefile_segment(\@directories);
1.10 harris41 129: print $a;
130: }
1.11 harris41 131: elsif ($mode eq "BinaryRoot") {
132: mkdir "BinaryRoot",0755;
133: open OUT,">Makefile.BinaryRoot";
134: @directories=&determine_directory_structure;
135: $a=&make_directory_binaryroot_segment(\@directories);
136: print OUT $a;
137: $a=&make_files_binaryroot_segment(\@directories);
138: print OUT $a;
139: $a=&make_links_binaryroot_segment(\@directories);
140: print OUT $a;
141: close OUT;
142: print `make -f Makefile.BinaryRoot TARGET='BinaryRoot' SOURCE='../..' directories`;
143: print `make -f Makefile.BinaryRoot TARGET='BinaryRoot' SOURCE='../..' files`;
144: print `make -f Makefile.BinaryRoot TARGET='BinaryRoot' SOURCE='../..' links`;
145: open OUT,">base_file_list.txt";
146: $a=&make_file_list(\@directories);
147: print OUT $a;
148: close OUT;
149:
150: }
1.10 harris41 151: elsif ($mode eq "status") {
152: }
153: elsif ($mode eq "update") {
154: }
1.16 harris41 155: elsif ($mode eq "configinstall") {
156: @directories=&determine_directory_structure;
157: $a=&make_files_configinstall_segment(\@directories);
158: print $a;
1.17 harris41 159: $a=&make_files_configpermissions_segment(\@directories);
160: print $a;
1.16 harris41 161: }
1.14 harris41 162: elsif ($mode eq "install") {
163: @directories=&determine_directory_structure;
164: $a=&make_directory_install_segment(\@directories);
165: print $a;
166: $a=&make_files_install_segment(\@directories);
167: print $a;
168: $a=&make_links_install_segment(\@directories);
169: print $a;
1.11 harris41 170: }
1.15 harris41 171: elsif ($mode eq "build") {
172: @directories=&determine_directory_structure;
173: $a=&make_files_build_segment(\@directories);
174: print $a;
175: }
1.11 harris41 176:
177: # ------------------------------------------------------ a list of file targets
178: sub make_file_list {
179: my ($dirs)=@_;
180: my $description;
181: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
182: foreach my $d (@$dirs) {
183: # set other values
1.18 ! harris41 184: $description.=<<END
! 185: BinaryRoot/$d
! 186: END
1.11 harris41 187: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
188: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
189: # find files that are contained in this directory
190: my @files;
191: my @filesfull;
192: foreach my $f (@allfiles) {
193: if ($f=~/^$d\/([^\/]+)$/) {
194: push @files,$1;
195: push @filesfull,$f;
196: }
197: }
198: # render starting HTML formatting elements
199: if (@files) {
200: }
1.12 harris41 201: my $pwd=`pwd`; chop $pwd;
1.11 harris41 202: if (@files) {
203: foreach my $i (0..$#files) {
204: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
205: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
206: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
207: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
208: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
209: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
210: my $rot="/".$filesfull[$i];
211: if ($rot=~/\*/) {
212: $rot=~s/[^\/]+$// if $rot=~/\*/;
213: my $listing=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'FILES'};
214: chop $listing;
215: my @list=split(/\s+/,$listing);
216: my $rot2;
217: foreach my $l (@list) {
218: $l=~s/^\s*//; $l=~s/\s*$//;
1.12 harris41 219: $rot2.="BinaryRoot$rot$l\n" if length($l);
1.11 harris41 220: }
221: chop $rot2;
222: $rot=$rot2;
1.12 harris41 223: }
224: else {
225: $rot="BinaryRoot$rot";
1.11 harris41 226: }
1.13 harris41 227: if ($category eq "conf") {
228: $rot.=" # config";
229: }
1.11 harris41 230: $description.=<<END;
231: $rot
232: END
233: }
234: }
235: }
236: $description.=<<END;
237:
238: END
239: return $description;
240: }
241:
242: # --------------------------------- Commands to make BinaryRoot directories
243: sub make_directory_binaryroot_segment {
244: my ($dirs)=@_;
245: my $description=<<END;
246: directories:
247: END
248: foreach my $d (@$dirs) {
249: my $category=$info{'DIRECTORY'}{$distribution}{$d}{'CATEGORY'};
250: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
251: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
252: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
253: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
254: my $own=$devchown; $own=~s/\:/\,/;
255: $description.=<<END;
256: \tinstall -m $devchmod -d \$(TARGET)/$d
257: END
258: }
259: $description.=<<END;
260:
261: END
262: return $description;
263: }
264:
265: # --------------------------------------- Commands to make BinaryRoot files
266: sub make_files_binaryroot_segment {
267: my ($dirs)=@_;
268: my $description=<<END;
269: files:
270: END
271: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
272: foreach my $d (@$dirs) {
273: # set other values
274: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
275: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
276: # find files that are contained in this directory
277: my @files;
278: my @filesfull;
279: foreach my $f (@allfiles) {
280: if ($f=~/^$d\/([^\/]+)$/) {
281: push @files,$1;
282: push @filesfull,$f;
283: }
284: }
285: # render starting HTML formatting elements
286: if (@files) {
287: $description.=<<END;
288: \t# $d $dirdescription
289: END
290: }
291: if (@files) {
292: foreach my $i (0..$#files) {
293: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
294: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
295: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
296: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
297: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
298: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
299: my $rot=$filesfull[$i];
300: $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
301: $description.=<<END if $category ne 'symbolic link';
302: \tinstall -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
303: END
304: }
305: }
306: }
307: $description.=<<END;
308:
309: END
310: return $description;
311: }
312:
313: # ------------------------------ Commands to make BinaryRoot symbolic links
314: sub make_links_binaryroot_segment {
315: my ($dirs)=@_;
316: my $description=<<END;
317: links:
318: END
319: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
320: foreach my $d (@$dirs) {
321: # find files that are contained in this directory
322: my @files;
323: my @filesfull;
324: foreach my $f (@allfiles) {
325: if ($f=~/^$d\/([^\/]+)$/) {
326: push @files,$1;
327: push @filesfull,$f;
328: }
329: }
330: # render starting HTML formatting elements
331: if (@files) {
332: foreach my $i (0..$#files) {
333: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
334: my $linkto=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'LINKTO'};
335: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
336: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
337: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
338: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
339: $description.=<<END if $category eq 'symbolic link';
340: \tln -s /$linkto \$(TARGET)/$filesfull[$i]
341: END
342: }
343: }
344: }
345: $description.=<<END;
346:
347: END
348: return $description;
1.10 harris41 349: }
350:
1.14 harris41 351: # ------ Installation commands for a Makefile used only by a rpm -ba invocation
352: sub make_directory_LCMakefile_segment {
353: my ($dirs)=@_;
354: my $description=<<END;
355: directories:
356: END
357: foreach my $d (@$dirs) {
358: my $category=$info{'DIRECTORY'}{$distribution}{$d}{'CATEGORY'};
359: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
360: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
361: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
362: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
363: my $own=$devchown; $own=~s/\:/\,/;
364: $description.=<<END;
365: \tinstall -m $devchmod -d \$(SOURCE)/$d \$(ROOT)/$d
366: END
367: }
368: $description.=<<END;
369:
370: END
371: return $description;
372: }
373:
374: # ------ Installation commands for a Makefile used only by a rpm -ba invocation
375: sub make_files_LCMakefile_segment {
376: my ($dirs)=@_;
377: my $description=<<END;
378: files:
379: END
380: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
381: foreach my $d (@$dirs) {
382: # set other values
383: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
384: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
385: # find files that are contained in this directory
386: my @files;
387: my @filesfull;
388: foreach my $f (@allfiles) {
389: if ($f=~/^$d\/([^\/]+)$/) {
390: push @files,$1;
391: push @filesfull,$f;
392: }
393: }
394: # render starting HTML formatting elements
395: if (@files) {
396: $description.=<<END;
397: \t# $d $dirdescription
398: END
399: }
400: if (@files) {
401: foreach my $i (0..$#files) {
402: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
403: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
404: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
405: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
406: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
407: my $rot=$filesfull[$i];
408: $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
409: $description.=<<END if $category ne 'symbolic link';
410: \tinstall -m $devchmod \$(SOURCE)/$filesfull[$i] \$(ROOT)/$rot
411: END
412: }
413: }
414: }
415: $description.=<<END;
416:
417: END
418: return $description;
419: }
420:
421: # ------ Installation commands for a Makefile used only by a rpm -ba invocation
422: sub make_links_LCMakefile_segment {
423: my ($dirs)=@_;
424: my $description=<<END;
425: links:
426: END
427: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
428: foreach my $d (@$dirs) {
429: # find files that are contained in this directory
430: my @files;
431: my @filesfull;
432: foreach my $f (@allfiles) {
433: if ($f=~/^$d\/([^\/]+)$/) {
434: push @files,$1;
435: push @filesfull,$f;
436: }
437: }
438: # render starting HTML formatting elements
439: if (@files) {
440: foreach my $i (0..$#files) {
441: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
442: my $linkto=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'LINKTO'};
443: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
444: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
445: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
446: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
447: $description.=<<END if $category eq 'symbolic link';
448: \tln -s /$linkto \$(ROOT)/$filesfull[$i]
449: END
450: }
451: }
452: }
453: $description.=<<END;
454:
455: END
456: return $description;
457: }
458:
1.10 harris41 459: # --------------------------------- Installation commands to install directories
460: sub make_directory_install_segment {
461: my ($dirs)=@_;
462: my $description=<<END;
463: directories:
464: END
465: foreach my $d (@$dirs) {
466: my $category=$info{'DIRECTORY'}{$distribution}{$d}{'CATEGORY'};
1.14 harris41 467: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
1.10 harris41 468: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
469: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
470: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
471: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
1.16 harris41 472: my ($owner,$group)=split(/\:/,$devchown);
1.10 harris41 473: my $own=$devchown; $own=~s/\:/\,/;
474: $description.=<<END;
1.16 harris41 475: \tinstall -o $owner -g $group -m $devchmod -d \$(TARGET)/$d
1.10 harris41 476: END
477: }
478: $description.=<<END;
479:
480: END
481: return $description;
482: }
483:
1.15 harris41 484: # ------------------------------------------------------ Commands to build files
485: sub make_files_build_segment {
486: my ($dirs)=@_;
487: my $description;
488: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
489: my $tab="\t";
490: my $sources="all: ";
491: foreach my $d (@$dirs) {
492: # set other values
493: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
494: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
495: # find files that are contained in this directory
496: my @files;
497: my @filesfull;
498: foreach my $f (@allfiles) {
499: if ($f=~/^$d\/([^\/]+)$/) {
500: push @files,$1;
501: push @filesfull,$f;
502: }
503: }
504: if (@files) {
505: foreach my $i (0..$#files) {
506: # if has build information, output appropriate something
507: my $build=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'BUILD'};
508: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
509: $build=~s/^\s+//; $build=~s/\s+$//;
510: if ($build) {
511: my $dependencies=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DEPENDENCIES'};
512: my $source2=$source;
513: $source2=~s/^[^\/]+\///;
514: $source2="../" . $source2;
515: $sources.="$source2 ";
516: my $directory=$build;
517: $directory=~s/^[^\/]+\///;
518: $directory=~s/([^\/]+)$//;
519: $directory="../" . $directory;
520: my $buildfile=$1;
521: my $sdir=$source;
522: $sdir=~s/^[^\/]+\///;
523: $sdir=~s/([^\/]+)$//;
524: $sdir="../" . $sdir;
525: $dependencies=~s/\s+$//;
526: my $depstat="";
527: if ($dependencies=~s/\s+\[ALWAYS_RUN_BUILD_COMMAND\]//) {
528: $depstat=" alwaysrun";
529: }
530: $dependencies=~s/\s+/ $sdir/gs;
531: $description.=<<END;
532: $source2: $dependencies$depstat
533: ${tab}cd $directory; sh ./$buildfile
534:
535: END
536: }
537: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
538: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
539: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
540: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
541: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
542: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
543: my $rot=$filesfull[$i];
544: $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
545: # $description.=<<END if $category ne 'symbolic link';
1.16 harris41 546: #\tinstall -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
1.15 harris41 547: #END
548: }
549: }
550: }
551: $description.=<<END;
552: alwaysrun:
553:
554: END
555: $sources.="\n\n";
556: return ($sources . $description);
557: }
558:
1.10 harris41 559: # --------------------------------------- Installation commands to install files
560: sub make_files_install_segment {
561: my ($dirs)=@_;
562: my $description=<<END;
563: files:
564: END
565: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
566: foreach my $d (@$dirs) {
567: # set other values
568: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
569: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
570: # find files that are contained in this directory
571: my @files;
572: my @filesfull;
573: foreach my $f (@allfiles) {
574: if ($f=~/^$d\/([^\/]+)$/) {
575: push @files,$1;
576: push @filesfull,$f;
577: }
578: }
579: # render starting HTML formatting elements
580: if (@files) {
581: $description.=<<END;
582: \t# $d $dirdescription
583: END
584: }
585: if (@files) {
586: foreach my $i (0..$#files) {
587: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
1.14 harris41 588: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
1.10 harris41 589: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
590: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
591: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
592: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
593: my $rot=$filesfull[$i];
594: $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
1.16 harris41 595: my ($owner,$group)=split(/\:/,$devchown);
1.15 harris41 596: if ($category ne 'conf') {
597: $description.=<<END if $category ne 'symbolic link';
1.16 harris41 598: \tinstall -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
599: END
600: }
601: }
602: }
603: }
604: $description.=<<END;
605:
606: END
607: return $description;
608: }
609:
610: # ------ Installation commands to install configuration files (and make backups)
611: sub make_files_configinstall_segment {
612: my ($dirs)=@_;
613: my $description=<<END;
614: configfiles:
615: END
616: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
617: foreach my $d (@$dirs) {
618: # set other values
619: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
620: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
621: # find files that are contained in this directory
622: my @files;
623: my @filesfull;
624: foreach my $f (@allfiles) {
625: if ($f=~/^$d\/([^\/]+)$/) {
626: push @files,$1;
627: push @filesfull,$f;
628: }
629: }
630: # render starting HTML formatting elements
631: if (@files) {
632: $description.=<<END;
633: \t# $d $dirdescription
634: END
635: }
636: if (@files) {
637: foreach my $i (0..$#files) {
638: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
639: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
640: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
641: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
642: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
643: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
644: my $rot=$filesfull[$i];
645: $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
646: my ($owner,$group)=split(/\:/,$devchown);
647: if ($category eq 'conf') {
648: $description.=<<END;
649: \tinstall -b -S `date +'.\%Y\%m\%d\%H\%M\%S'` -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
1.17 harris41 650: END
651: }
652: }
653: }
654: }
655: $description.=<<END;
656:
657: END
658: return $description;
659: }
660:
661: # ------ Commands to enforce configuration file permissions
662: sub make_files_configpermissions_segment {
663: my ($dirs)=@_;
664: my $description=<<END;
665: configpermissions:
666: END
667: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
668: foreach my $d (@$dirs) {
669: # set other values
670: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
671: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
672: # find files that are contained in this directory
673: my @files;
674: my @filesfull;
675: foreach my $f (@allfiles) {
676: if ($f=~/^$d\/([^\/]+)$/) {
677: push @files,$1;
678: push @filesfull,$f;
679: }
680: }
681: # render starting HTML formatting elements
682: if (@files) {
683: $description.=<<END;
684: \t# $d $dirdescription
685: END
686: }
687: if (@files) {
688: foreach my $i (0..$#files) {
689: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
690: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
691: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
692: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
693: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
694: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
695: my $rot=$filesfull[$i];
696: $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
697: my ($owner,$group)=split(/\:/,$devchown);
698: if ($category eq 'conf') {
699: $description.=<<END;
700: \tchmod $devchmod \$(TARGET)/$rot
701: \tchown $devchown \$(TARGET)/$rot
1.10 harris41 702: END
1.15 harris41 703: }
1.10 harris41 704: }
705: }
706: }
707: $description.=<<END;
708:
709: END
710: return $description;
711: }
712:
713: # ------------------------------ Installation commands to install symbolic links
714: sub make_links_install_segment {
715: my ($dirs)=@_;
716: my $description=<<END;
717: links:
718: END
1.16 harris41 719: chop $description;
720: my $description2;
1.10 harris41 721: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
722: foreach my $d (@$dirs) {
723: # find files that are contained in this directory
724: my @files;
725: my @filesfull;
726: foreach my $f (@allfiles) {
727: if ($f=~/^$d\/([^\/]+)$/) {
728: push @files,$1;
729: push @filesfull,$f;
730: }
731: }
732: # render starting HTML formatting elements
733: if (@files) {
734: foreach my $i (0..$#files) {
735: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
736: my $linkto=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'LINKTO'};
737: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
738: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
739: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
740: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
1.16 harris41 741: if ($category eq 'symbolic link') {
742: $description.=" \$(TARGET)/$filesfull[$i]";
743: $description2.=<<END;
744: \$(TARGET)/$filesfull[$i]:
1.14 harris41 745: \tln -s /$linkto \$(TARGET)/$filesfull[$i]
1.16 harris41 746:
1.10 harris41 747: END
1.16 harris41 748: }
1.10 harris41 749: }
750: }
751: }
752: $description.=<<END;
1.4 harris41 753:
1.10 harris41 754: END
1.16 harris41 755: $description.=$description2;
1.10 harris41 756: return $description;
757: }
758:
759: # --------------------------------------------------------- Make RPM .spec block
760: sub make_rpm_spec_block {
761: my $pwd=`pwd`; chop $pwd;
762: my $buildroot="$pwd/LON-CAPA-BuildRoot";
763: my $source=$info{'RPM'}{'Name'} . "-" . $info{'RPM'}{'Version'} . '.tar.gz';
764: my $description=<<END;
765: Summary: $info{'RPM'}{'Summary'}
766: Name: $info{'RPM'}{'Name'}
767: Version: $info{'RPM'}{'Version'}
768: Release: $info{'RPM'}{'Release'}
769: Vendor: $info{'RPM'}{'Vendor'}
770: BuildRoot: $buildroot
771: Copyright: $info{'RPM'}{'Copyright'}
772: Group: $info{'RPM'}{'Group'}
773: Source: $source
774: AutoReqProv: $info{'RPM'}{'AutoReqProv'}
775: \%description
776: $info{'RPM'}{'description'}
777:
778: END
779: return $description;
780: }
781:
782: # --------------------------------------------------- Make RPM build .spec block
783: sub make_rpm_build_block {
784: my $pwd=`pwd`; chop $pwd;
785: my $buildroot="$pwd/LON-CAPA-BuildRoot";
786: my $sourceroot="$pwd/LON-CAPA-SourceRoot";
787: my $description=<<END;
788:
789: \%prep
790: \%setup
791:
792: \%build
793: rm -Rf "$buildroot"
794:
795: \%install
796: make -f LCMakefile ROOT="\$RPM_BUILD_ROOT" SOURCE="$sourceroot" directories
797: make -f LCMakefile ROOT="\$RPM_BUILD_ROOT" SOURCE="$sourceroot" files
798: make -f LCMakefile ROOT="\$RPM_BUILD_ROOT" SOURCE="$sourceroot" links
799:
800: \%pre
801: $info{'RPM'}{'pre'}
802:
803: \%post
804: \%postun
805:
806: \%files
807: # \%doc README COPYING ChangeLog LICENSE
808: END
809: return $description;
810: }
811:
812: # ------------------------------------- Make directory structure RPM .spec block
813: sub make_directory_structure_spec_block {
814: my ($dirs)=@_;
815: foreach my $d (@$dirs) {
816: my $category=$info{'DIRECTORY'}{$distribution}{$d}{'CATEGORY'};
817: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
818: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
819: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
820: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
821: my $own=$devchown; $own=~s/\:/\,/;
822: $description.=<<END;
823: \%dir \%attr($devchmod,$own) /$d
824: END
825: }
826: return $description;
827: }
828:
829: # ---------------------------- Make directory and file structure RPM .spec block
830: sub make_directory_and_file_structure_spec_block {
831: my ($dirs)=@_;
832: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
833: foreach my $d (@$dirs) {
834: # set other values
835: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
836: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
837: # find files that are contained in this directory
838: my @files;
839: my @filesfull;
840: foreach my $f (@allfiles) {
841: if ($f=~/^$d\/([^\/]+)$/) {
842: push @files,$1;
843: push @filesfull,$f;
844: }
845: }
846: # render starting HTML formatting elements
847: if (@files) {
848: $description.=<<END;
849: # $d $dirdescription
850: END
851: }
852: if (@files) {
853: foreach my $i (0..$#files) {
854: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
855: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
856: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
857: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
858: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
859: my $own=$devchown; $own=~s/\:/\,/;
860: my $config="";
861: $config="\%config " if $category eq 'conf';
862: $devchmod='-' if $category eq 'symbolic link';
863: $description.=<<END;
864: $config\%attr($devchmod,$own) /$filesfull[$i]
865: END
866: }
867: }
868: }
869: return $description;
870: }
871:
872: # ----------------------------------------------------------- End RPM .spec page
873: sub end_spec_page {
874: }
875:
876: # ------------------------------------------------------- Begin description page
1.4 harris41 877: sub begin_description_page {
878: my $description=<<END;
879: <HTML>
880: <HEAD>
881: <TITLE>LON-CAPA Software Description Page ($distribution, $date)</TITLE>
882: </HEAD>
883: <BODY>
884: <FONT SIZE=+2>LON-CAPA Software Description Page ($distribution, $date)</FONT>
885: <BR>Michigan State University
886: <BR>Learning Online with CAPA
887: <BR>Contact korte\@lon-capa.org
888: <UL>
889: <LI>About this file
890: <LI>Software Package Description
891: <LI>Directory Structure
1.7 harris41 892: <LI>File Type Ownership and Permissions
1.4 harris41 893: <LI>File and Directory Structure
894: </UL>
895: <FONT SIZE=+2>About this file</FONT>
896: <P>
897: This file is generated dynamically by <TT>parse.pl</TT> as
898: part of a development compilation process. See
899: http://install.lon-capa.org/compile/index.html for more
900: information.
901: </P>
902: END
903: return $description;
904: }
905:
906: # ------------------------------------------------- End description page
907: sub end_description_page {
908: my $description=<<END;
909: <HR>
1.5 harris41 910: <FONT SIZE=-1>LON-CAPA Software Development Team</FONT>
1.4 harris41 911: </BODY>
912: </HTML>
913: END
914: return $description;
915: }
916:
917: # ------------------------------------------------- Make RPM description block
918: sub make_rpm_description_block {
919: my $description=<<END;
920: <FONT SIZE=+2>Rolled in a RedHat 6.2 RPM, $date</FONT>
921: <P>
922: <TABLE BGCOLOR=#FFFFFF BORDER=0 CELLPADDING=10 CELLSPACING=0>
923: <TR><TD>
924: <PRE>
925: Name : $info{'RPM'}{'Name'}
926: Version : $info{'RPM'}{'Version'}
927: Vendor : $info{'RPM'}{'Vendor'}
928: Release : $info{'RPM'}{'Release'}
929: Build Host : $buildhost
930: Group : $info{'RPM'}{'Group'}
931: License : $info{'RPM'}{'Copyright'}
932: Summary : $info{'RPM'}{'Summary'}
933: Description :
934: $info{'RPM'}{'description'}
935: </PRE>
936: </TD></TR>
937: </TABLE>
938: </P>
939: END
940: return $description;
941: }
942:
943: # ----------------------------------------------- Determine directory structure
944: sub determine_directory_structure {
945: my @directories=keys %{$info{'DIRECTORY'}{$distribution}};
946: return (sort @directories);
947: }
1.1 harris41 948:
1.4 harris41 949:
950: # ---------------------------------- Make directory structure description block
951: sub make_directory_structure_description_block {
952: my ($dirs)=@_;
953: my $description=<<END;
954: <FONT SIZE=+2>Directory Structure Description, $date</FONT>
955: <P>
1.9 harris41 956: The directory structure description below shows only those
957: directories which either contain LON-CAPA specific files
958: or normally do not exist on a RedHat Linux system (and
959: must be generated to allow proper placement of files
960: during LON-CAPA run-time operation).
961: </P>
962: <P>
1.4 harris41 963: <TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
964: END
965: my $maxcount=0;
1.8 harris41 966: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
967: my %diraccount; # hash to track which directories are accounted for
968: foreach my $file (@allfiles) {
969: $file=~/^(.*)\/([^\/]+)$/;
970: $diraccount{$1}=1;
971: }
1.4 harris41 972: foreach my $d (@$dirs) {
973: my (@matches)=($d=~/\//g);
974: my $count=scalar(@matches);
975: $maxcount=$count if $count>$maxcount;
1.8 harris41 976: delete $diraccount{$d};
1.4 harris41 977: }
978: $description.=<<END;
979: <TR>
980: <TH ALIGN=LEFT BGCOLOR=#FFFFFF>Category</TH>
981: <TH ALIGN=LEFT BGCOLOR=#FFFFFF>Permissions</TH>
982: <TH ALIGN=LEFT BGCOLOR=#FFFFFF><FONT COLOR=#FF0000>Development<BR>Permissions</FONT></TH>
983: END
984: $description.="<TH ALIGN=LEFT BGCOLOR=#FFFFFF COLSPAN=".($maxcount+1).">Directory Path</TH>\n";
1.8 harris41 985: if (keys %diraccount) {
986: $description.= "<TR><TD ALIGN=LEFT BGCOLOR=#FFFFFF COLSPAN=".($maxcount+4)."><I><PRE>Directories that are unaccounted for: \n";
987: foreach my $d (keys %diraccount) {
988: $description.="$d\n";
989: }
990: $description.="</PRE></I></TH></TR>\n";
991: }
1.4 harris41 992: foreach my $d (@$dirs) {
993: my $dtable=$d;
994: $dtable=~s/\//\<\/TD\>\<TD\>/g;
995: my $category=$info{'DIRECTORY'}{$distribution}{$d}{'CATEGORY'};
996: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
997: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
998: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
999: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
1000: $description.=<<END;
1001: <TR>
1002: <TD BGCOLOR=#FFFFFF>$category</TD>
1003: <TD BGCOLOR=#FFFFFF><TT>$chmod $chown</TT></TD>
1004: <TD BGCOLOR=#FFFFFF><FONT COLOR=#FF0000><TT>$devchmod $devchown</TT></FONT></TD>
1005: <TD>
1006: $dtable
1007: </TD>
1008: </TR>
1009: END
1010: }
1011: $description.=<<END;
1012: </TABLE>
1013: </P>
1014: END
1015: return $description;
1016: }
1017:
1.6 harris41 1018: # ------------------- Make file type ownership and permissions description block
1019: sub make_file_type_ownership_and_permissions_description_block {
1020: my $description=<<END;
1021: <FONT SIZE=+2>File Type Ownership and Permissions Descriptions, $date</FONT>
1022: <P>
1023: This table shows what permissions and ownership settings correspond
1024: to each kind of file type.
1025: </P>
1026: <P>
1027: <TABLE BORDER=1 CELLPADDING=5 WIDTH=60%>
1028: <TR>
1029: <TH ALIGN=LEFT BGCOLOR=#FFFFFF>Icon</TH>
1030: <TH ALIGN=LEFT BGCOLOR=#FFFFFF>Type</TH>
1031: <TH ALIGN=LEFT BGCOLOR=#FFFFFF>Permissions</TH>
1032: <TH ALIGN=LEFT BGCOLOR=#FFFFFF>Development Permissions</TH>
1033: </TR>
1034: END
1035: foreach my $type (keys %{$info{'OWNERSHIP'}}) {
1036: if (defined($fcm{$type})) {
1037: my $chmod=$info{'OWNERSHIP'}{$type}{'CHMOD'};
1038: my $chown=$info{'OWNERSHIP'}{$type}{'CHOWN'};
1039: my $devchmod=$info{'DEVOWNERSHIP'}{$type}{'CHMOD'};
1040: my $devchown=$info{'DEVOWNERSHIP'}{$type}{'CHOWN'};
1041: $description.=<<END;
1042: <TR>
1043: <TD><IMG SRC="$fcm{$type}.gif" ALT="$type"></TD>
1044: <TD>$type</TD>
1045: <TD><TT>$chmod $chown</TT></TD>
1046: <TD><TT>$devchmod $devchown</TT></TD>
1047: </TR>
1048: END
1049: }
1050: }
1051: $description.=<<END;
1052: </TABLE>
1053: </P>
1054: END
1055: }
1056:
1.4 harris41 1057: # ------------------------- Make directory and file structure description block
1058: sub make_directory_and_file_structure_description_block {
1059: my ($dirs)=@_;
1060: my $description=<<END;
1061: <FONT SIZE=+2>Directory and File Structure Description, $date</FONT>
1.6 harris41 1062: <P>
1063: The icons on the left column correspond to the file type
1064: specified in the second column. The last column "Notes" shows compilation,
1.7 harris41 1065: dependency, and configuration information. The CVS location
1066: shows the location of the binary source file (if applicable) needed to
1067: be copied to the target. If the binary source file is not at
1068: the specified location, then the text is shown in
1069: <FONT COLOR=#FF0000>red</FONT>.
1.6 harris41 1070: </P>
1.4 harris41 1071: <P>
1.9 harris41 1072: <TABLE BORDER=1 CELLPADDING=5 WIDTH=500>
1.4 harris41 1073: END
1074: my $counter=0;
1075: my @colorindex=("#80FF80","#80FFFF","#FFFF80");
1.5 harris41 1076: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
1.4 harris41 1077: foreach my $d (@$dirs) {
1078: # set color
1079: my $color=$colorindex[$counter%3];
1080: # set other values
1081: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
1082: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
1083: # find subdirectories that are contained in this directory
1084: my @subdirs;
1085: foreach my $d2 (@$dirs) {
1.5 harris41 1086: if ($d2=~/^$d\/([^\/]+)$/) {
1.4 harris41 1087: push @subdirs,$1;
1088: }
1089: }
1090: # find files that are contained in this directory
1091: my @files;
1.5 harris41 1092: my @filesfull;
1.4 harris41 1093: foreach my $f (@allfiles) {
1.5 harris41 1094: if ($f=~/^$d\/([^\/]+)$/) {
1.4 harris41 1095: push @files,$1;
1.5 harris41 1096: push @filesfull,$f;
1.4 harris41 1097: }
1098: }
1099: # render starting HTML formatting elements
1100: if (@subdirs || @files) {
1101: my $subdirstring="<BR>* Relevant subdirectories: " . join(", ",@subdirs) if @subdirs;
1102: $description.=<<END;
1.5 harris41 1103: <TR><TD BGCOLOR=#000000 COLSPAN=6><FONT COLOR=$color><IMG SRC="directory.gif" ALT="directory">DIRECTORY -- $d $dirdescription
1104: $subdirstring</FONT></TD></TR>
1.4 harris41 1105: END
1106: }
1107: else {
1108: $description.=<<END;
1.5 harris41 1109: <TR><TD BGCOLOR=#000000 COLSPAN=6><FONT COLOR=$color><IMG SRC="emptydirectory.gif" ALT="empty directory">EMPTY DIRECTORY - $d $dirdescription</FONT></TD></TR>
1.4 harris41 1110: END
1111: }
1112: if (@files) {
1113: $description.=<<END;
1114: <TR>
1.5 harris41 1115: <TH BGCOLOR=$color ALIGN=LEFT COLSPAN=2>Type</TH>
1116: <TH BGCOLOR=$color ALIGN=LEFT>File Name</TH>
1117: <TH BGCOLOR=$color ALIGN=LEFT>Function</TH>
1118: <TH BGCOLOR=$color ALIGN=LEFT>CVS Location</TH>
1119: <TH BGCOLOR=$color ALIGN=LEFT>Notes</TH>
1.4 harris41 1120: </TR>
1121: END
1.5 harris41 1122: foreach my $i (0..$#files) {
1123: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
1124: my $fdescription=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DESCRIPTION'};
1125: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
1.9 harris41 1126: my $note=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTE'};
1127: $note.="<BR>" if $note;
1128: my $listing=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'FILES'};
1129: my @E=split(/\s+/,$listing);
1130: $source=~/(.*)\/[^\/]+$/;
1131: my $sd=$1;
1132: my $eflag=0;
1133: foreach my $e (@E) {
1134: unless (-e "../../$sd/$e") {
1135: $e="<FONT COLOR=#FF0000>$e</FONT>";
1136: $eflag=1;
1137: }
1138: }
1139: $listing=join("\n",@E);
1140: $listing="<B>listing</B><BR><FONT SIZE=-2>$listing</FONT>" if $listing;
1141: $listing.="<BR>" if $listing;
1142: my $build=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'BUILD'};
1143: $build="<B>build</B><BR>$build" if $build;
1144: $build.="<BR>" if $build;
1145: my $dependencies=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DEPENDENCIES'};
1146: $dependencies="<B>dependencies</B><BR>$dependencies" if $dependencies;
1147: $dependencies.="<BR>" if $dependencies;
1.7 harris41 1148: unless (-e "../../$source") {
1149: $source=~/([^\/]+)$/;
1150: my $s=$1;
1.9 harris41 1151: if ($source!~/\*/) {
1152: $source="<FONT COLOR=#FF0000>$source</FONT>";
1153: }
1154: elsif ($eflag) {
1155: $source="<FONT COLOR=#FF0000>$source</FONT>";
1156: }
1.7 harris41 1157: }
1.5 harris41 1158: $description.=<<END;
1159: <TR>
1160: <TD BGCOLOR=#A0A0A0><IMG SRC="$fcm{$category}.gif" ALT="$category"></TD>
1161: <TD BGCOLOR=$color>$category</TD>
1162: <TD BGCOLOR=$color>$files[$i]</TD>
1163: <TD BGCOLOR=$color>$fdescription </TD>
1164: <TD BGCOLOR=$color>$source</TD>
1.9 harris41 1165: <TD BGCOLOR=$color>$note$listing$build$dependencies </TD>
1.4 harris41 1166: </TR>
1167: END
1.5 harris41 1168: }
1169: }
1.4 harris41 1170: $counter++;
1171: }
1172: $description.=<<END;
1173: </TABLE>
1174: </P>
1175: END
1176: return $description;
1177: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to parse.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / build