Annotation of loncom/build/parse.pl, revision 1.36
1.1 harris41 1: #!/usr/bin/perl
2:
3: # Scott Harrison
4: # November 2000
1.35 harris41 5: # 12/5/2000,12/7,12/8,12/9,12/10,12/11,12/12,12/13,12/14,12/21 Scott Harrison
6: # 1/8/2001,1/10/2001,1/13/2001,1/16/2001,1/18/2001,1/23/2001 Scott Harrison
7: # 2/26/2001,2/27/2001,3/5/2001,4/10/2001,4/11,2001,4/13,2001 Scott Harrison
8: # 4/17/2001 Scott Harrison
1.33 harris41 9:
10: # Read in loncapa tags and metagroup tags. Output various
11: # useful files for viewing, compiling, monitoring, updating,
12: # and installing.
13:
14: # This code works well. HOWEVER, I was in a rush when I
15: # wrote it. Future plans are that the parsing should be
16: # much more event-state based and the input should be
17: # more XML-ish. -Scott
1.1 harris41 18:
1.4 harris41 19: # ---------------------------------------------- Read in command line arguments
1.1 harris41 20: my ($file,$mode)=@ARGV;
1.2 harris41 21:
1.4 harris41 22: # ---------------------------------------------------- Read in master data file
1.1 harris41 23: open IN,"<$file";
24: my @lines=<IN>;
25: close IN;
1.5 harris41 26: my $info1=join('',@lines);
27: my $info2=$info1; # value to allow for meta data group retrieval
1.1 harris41 28:
1.4 harris41 29: # ------------------------------------------------------- Make default settings
30: my $distribution="redhat6.2";
31: my $date=`date +'%B %e, %Y'`; chop $date;
32: my $buildhost=`hostname`; chop $buildhost;
1.5 harris41 33: # file category mappings
34: my %fcm=(
35: 'conf' => 'configurable',
36: 'graphic file' => 'graphicfile',
37: 'handler' => 'handler',
38: 'interface file' => 'interfacefile',
39: 'symbolic link' => 'link',
40: 'root script' => 'rootscript',
41: 'script' => 'script',
42: 'setuid script' => 'setuid',
43: 'static conf' => 'static',
44: 'system file' => 'systemfile',
45: );
1.4 harris41 46:
47: # ---------------------------------------------------- Parse the marked up data
48: my %info; # big data storage object
1.5 harris41 49: while ($info1=~/\<loncapa\s+(.*?)\>/isg) {
1.1 harris41 50: my $keystring=$1;
1.4 harris41 51: # In the parsing of LON-CAPA tags, remove boundary white-space,
52: # and handle quotation commands.
1.2 harris41 53: my %hash=map {my ($key,$value)=split(/\=(?!")|\=(?=\s*"[^"]*"[^"]*$)/);
54: $value=~s/^"//;
55: $value=~s/"$//;
56: (uc($key),$value);}
57: split(/\s+(?=\w+\s*\=)/,$keystring);
1.4 harris41 58: # Handle the different types of commands
1.1 harris41 59: if (uc($hash{'TYPE'}) eq "OWNERSHIP") {
60: $info{$hash{'TYPE'}}{$hash{'CATEGORY'}}{'CHMOD'}=$hash{'CHMOD'};
61: $info{$hash{'TYPE'}}{$hash{'CATEGORY'}}{'CHOWN'}=$hash{'CHOWN'};
62: }
63: elsif (uc($hash{'TYPE'}) eq "DEVOWNERSHIP") {
64: $info{$hash{'TYPE'}}{$hash{'CATEGORY'}}{'CHMOD'}=$hash{'CHMOD'};
65: $info{$hash{'TYPE'}}{$hash{'CATEGORY'}}{'CHOWN'}=$hash{'CHOWN'};
66: }
67: elsif (uc($hash{'TYPE'}) eq "RPM") {
68: $hash{'VALUE'}=~s/\\n/\n/g;
69: $info{$hash{'TYPE'}}{$hash{'NAME'}}=$hash{'VALUE'};
70: }
71: elsif (uc($hash{'TYPE'}) eq "DIRECTORY") {
1.4 harris41 72: $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{'CATEGORY'}=
73: $hash{'CATEGORY'};
74: $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{'DESCRIPTION'}=
75: $hash{'DESCRIPTION'} if $hash{'DESCRIPTION'};
1.1 harris41 76: }
77: elsif (uc($hash{'TYPE'}) eq "LOCATION") {
1.5 harris41 78: $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{'CATEGORY'}= $hash{'CATEGORY'};
1.10 harris41 79: $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{'LINKTO'}= $hash{'LINKTO'};
1.5 harris41 80: $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{'SOURCE'}= $hash{'SOURCE'};
1.1 harris41 81: # get surrounding metagroup information
82: my $ckeystring=$keystring; $ckeystring=~s/(SOURCE\=\"[^"]*)\*/$1\\\*/g;
1.5 harris41 83: $ckeystring=~s/(TARGET\=\"[^"]*)\*/$1\\\*/g;
1.1 harris41 84: $info2=~/.*\<(?:metagroup|metasupergroup)\>(.*?)\<loncapa\s+$ckeystring\>(.*?)\<\/(?:metagroup|metasupergroup)\>/is;
85: my $data=$1.$2;
86: my @meta=('description','build','dependencies','files','note');
87: foreach my $m (@meta) {
88: if ($data=~/\<($m)\>(.*?)\<\/$m\>/sgi) {
89: my ($key,$value)=($1,$2);
1.9 harris41 90: $info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{uc($key)}=
1.4 harris41 91: $value;
1.1 harris41 92: }
93: }
94: }
95: else {
96: warn("WARNING: this tag text will be ignored since it cannot be understood\n---> $keystring\n");
97: }
98: }
99:
1.10 harris41 100: my $a;
101: my @directories;
102: if ($mode eq "HTML") {
1.4 harris41 103: $a=&begin_description_page;
104: print $a;
105: $a=&make_rpm_description_block;
106: print $a;
107: @directories=&determine_directory_structure;
108: $a=&make_directory_structure_description_block(\@directories);
109: print $a;
1.6 harris41 110: $a=&make_file_type_ownership_and_permissions_description_block;
111: print $a;
1.4 harris41 112: $a=&make_directory_and_file_structure_description_block(\@directories);
113: print $a;
114: $a=&end_description_page;
115: print $a;
116: }
1.10 harris41 117: elsif ($mode eq "SPEC") {
118: my $out=$info{'RPM'}{'Name'} . '-' . $info{'RPM'}{'Version'} . '.spec';
119: open OUT,">$out";
120: $a=&make_rpm_spec_block;
121: print OUT $a;
122: $a=&make_rpm_build_block;
123: print OUT $a;
124: @directories=&determine_directory_structure;
125: $a=&make_directory_structure_spec_block(\@directories);
126: print OUT $a;
127: $a=&make_directory_and_file_structure_spec_block(\@directories);
128: print OUT $a;
129: $a=&end_spec_page;
130: print OUT $a;
131: close OUT;
132: }
133: elsif ($mode eq "LCMakefile") {
134: @directories=&determine_directory_structure;
1.14 harris41 135: $a=&make_directory_LCMakefile_segment(\@directories);
1.10 harris41 136: print $a;
1.14 harris41 137: $a=&make_files_LCMakefile_segment(\@directories);
1.10 harris41 138: print $a;
1.14 harris41 139: $a=&make_links_LCMakefile_segment(\@directories);
1.10 harris41 140: print $a;
141: }
1.11 harris41 142: elsif ($mode eq "BinaryRoot") {
143: mkdir "BinaryRoot",0755;
144: open OUT,">Makefile.BinaryRoot";
145: @directories=&determine_directory_structure;
146: $a=&make_directory_binaryroot_segment(\@directories);
147: print OUT $a;
148: $a=&make_files_binaryroot_segment(\@directories);
149: print OUT $a;
150: $a=&make_links_binaryroot_segment(\@directories);
151: print OUT $a;
152: close OUT;
153: print `make -f Makefile.BinaryRoot TARGET='BinaryRoot' SOURCE='../..' directories`;
154: print `make -f Makefile.BinaryRoot TARGET='BinaryRoot' SOURCE='../..' files`;
155: print `make -f Makefile.BinaryRoot TARGET='BinaryRoot' SOURCE='../..' links`;
156: open OUT,">base_file_list.txt";
157: $a=&make_file_list(\@directories);
158: print OUT $a;
159: close OUT;
1.21 harris41 160: open OUT,">setup_file_list.txt";
161: print OUT "BinaryRoot/etc/passwd\n";
162: close OUT;
163: open OUT,">BinaryRoot/etc/passwd";
164: print OUT<<END;
1.22 harris41 165: root::0:0:root:/root:/bin/bash
1.24 harris41 166: bin:!!:1:1:bin:/bin:
167: daemon:!!:2:2:daemon:/sbin:
168: adm:!!:3:4:adm:/var/adm:
169: lp:!!:4:7:lp:/var/spool/lpd:
170: sync:!!:5:0:sync:/sbin:/bin/sync
171: shutdown:!!:6:0:shutdown:/sbin:/sbin/shutdown
172: halt:!!:7:0:halt:/sbin:/sbin/halt
173: mail:!!:8:12:mail:/var/spool/mail:
174: news:!!:9:13:news:/var/spool/news:
175: uucp:!!:10:14:uucp:/var/spool/uucp:
176: operator:!!:11:0:operator:/root:
177: games:!!:12:100:games:/usr/games:
178: gopher:!!:13:30:gopher:/usr/lib/gopher-data:
179: ftp:!!:14:50:FTP User:/home/ftp:
180: nobody:!!:99:99:Nobody:/:
181: www:!!:500:500:www:/home/www:/bin/bash
1.21 harris41 182: END
183: close OUT;
1.23 harris41 184: open OUT,">>setup_file_list.txt";
185: print OUT "BinaryRoot/etc/hosts.deny\n";
186: close OUT;
187: open OUT,">BinaryRoot/etc/hosts.deny";
188: print OUT<<END;
189: ALL: ALL
190: END
191: close OUT;
192:
1.27 harris41 193: `install -o 500 -g 500 -m 0700 -d BinaryRoot/home/www`;
194: open OUT,">>setup_file_list.txt";
195: print OUT "BinaryRoot/home/www\n";
196: close OUT;
1.23 harris41 197: `install -d BinaryRoot/etc/pam.d`;
198: open OUT,">>setup_file_list.txt";
199: print OUT "BinaryRoot/etc/pam.d/passwd\n";
200: close OUT;
201: open OUT,">BinaryRoot/etc/pam.d/passwd";
202: print OUT<<END;
203: #%PAM-1.0
204: auth required /lib/security/pam_pwdb.so shadow nullok
205: account required /lib/security/pam_pwdb.so
206: password required /lib/security/pam_cracklib.so retry=3
207: password required /lib/security/pam_pwdb.so use_authtok nullok
208: END
209: close OUT;
210: open OUT,">>setup_file_list.txt";
211: print OUT "BinaryRoot/etc/pam.d/login\n";
212: close OUT;
213: open OUT,">BinaryRoot/etc/pam.d/login";
214: print OUT<<END;
215: #%PAM-1.0
216: auth required /lib/security/pam_securetty.so
217: auth required /lib/security/pam_pwdb.so shadow nullok
218: auth required /lib/security/pam_nologin.so
219: account required /lib/security/pam_pwdb.so
220: password required /lib/security/pam_cracklib.so
221: password required /lib/security/pam_pwdb.so nullok use_authtok
222: session required /lib/security/pam_pwdb.so
223: session optional /lib/security/pam_console.so
224: END
225: close OUT;
1.21 harris41 226:
1.11 harris41 227: }
1.10 harris41 228: elsif ($mode eq "status") {
1.25 harris41 229: $a=&begin_description_page('status');
230: print $a;
231: $a=&make_rpm_description_block('status');
232: print $a;
233: @directories=&determine_directory_structure('status');
234: $a=&make_directory_structure_description_block(\@directories,'status');
235: print $a;
236: $a=&make_file_type_ownership_and_permissions_description_block('status');
237: print $a;
238: $a=&make_directory_and_file_structure_description_block(\@directories,'status');
239: print $a;
240: $a=&end_description_page('status');
241: print $a;
1.10 harris41 242: }
243: elsif ($mode eq "update") {
244: }
1.16 harris41 245: elsif ($mode eq "configinstall") {
246: @directories=&determine_directory_structure;
247: $a=&make_files_configinstall_segment(\@directories);
248: print $a;
1.17 harris41 249: $a=&make_files_configpermissions_segment(\@directories);
250: print $a;
1.16 harris41 251: }
1.14 harris41 252: elsif ($mode eq "install") {
253: @directories=&determine_directory_structure;
254: $a=&make_directory_install_segment(\@directories);
255: print $a;
256: $a=&make_files_install_segment(\@directories);
257: print $a;
258: $a=&make_links_install_segment(\@directories);
259: print $a;
1.11 harris41 260: }
1.15 harris41 261: elsif ($mode eq "build") {
262: @directories=&determine_directory_structure;
263: $a=&make_files_build_segment(\@directories);
264: print $a;
265: }
1.11 harris41 266:
267: # ------------------------------------------------------ a list of file targets
268: sub make_file_list {
269: my ($dirs)=@_;
270: my $description;
271: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
272: foreach my $d (@$dirs) {
273: # set other values
1.19 harris41 274: $description.=<<END;
1.18 harris41 275: BinaryRoot/$d
276: END
1.11 harris41 277: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
278: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
279: # find files that are contained in this directory
280: my @files;
281: my @filesfull;
282: foreach my $f (@allfiles) {
283: if ($f=~/^$d\/([^\/]+)$/) {
284: push @files,$1;
285: push @filesfull,$f;
286: }
287: }
288: # render starting HTML formatting elements
289: if (@files) {
290: }
1.12 harris41 291: my $pwd=`pwd`; chop $pwd;
1.11 harris41 292: if (@files) {
293: foreach my $i (0..$#files) {
294: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
295: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
296: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
297: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
298: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
299: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
300: my $rot="/".$filesfull[$i];
301: if ($rot=~/\*/) {
302: $rot=~s/[^\/]+$// if $rot=~/\*/;
303: my $listing=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'FILES'};
304: chop $listing;
305: my @list=split(/\s+/,$listing);
306: my $rot2;
307: foreach my $l (@list) {
308: $l=~s/^\s*//; $l=~s/\s*$//;
1.12 harris41 309: $rot2.="BinaryRoot$rot$l\n" if length($l);
1.11 harris41 310: }
311: chop $rot2;
312: $rot=$rot2;
1.12 harris41 313: }
314: else {
315: $rot="BinaryRoot$rot";
1.11 harris41 316: }
1.13 harris41 317: if ($category eq "conf") {
318: $rot.=" # config";
319: }
1.11 harris41 320: $description.=<<END;
321: $rot
322: END
323: }
324: }
325: }
326: $description.=<<END;
327:
328: END
329: return $description;
330: }
331:
332: # --------------------------------- Commands to make BinaryRoot directories
333: sub make_directory_binaryroot_segment {
334: my ($dirs)=@_;
335: my $description=<<END;
336: directories:
337: END
338: foreach my $d (@$dirs) {
339: my $category=$info{'DIRECTORY'}{$distribution}{$d}{'CATEGORY'};
340: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
341: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
342: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
343: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
1.20 harris41 344: my ($owner,$group)=split(/\:/,$devchown);
1.11 harris41 345: my $own=$devchown; $own=~s/\:/\,/;
346: $description.=<<END;
1.20 harris41 347: \tinstall -o $owner -g $group -m $devchmod -d \$(TARGET)/$d
1.11 harris41 348: END
349: }
350: $description.=<<END;
351:
352: END
353: return $description;
354: }
355:
356: # --------------------------------------- Commands to make BinaryRoot files
357: sub make_files_binaryroot_segment {
358: my ($dirs)=@_;
359: my $description=<<END;
360: files:
361: END
362: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
363: foreach my $d (@$dirs) {
364: # set other values
365: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
366: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
367: # find files that are contained in this directory
368: my @files;
369: my @filesfull;
370: foreach my $f (@allfiles) {
371: if ($f=~/^$d\/([^\/]+)$/) {
372: push @files,$1;
373: push @filesfull,$f;
374: }
375: }
376: # render starting HTML formatting elements
377: if (@files) {
378: $description.=<<END;
379: \t# $d $dirdescription
380: END
381: }
382: if (@files) {
383: foreach my $i (0..$#files) {
384: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
385: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
386: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
387: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
388: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
389: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
390: my $rot=$filesfull[$i];
391: $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
1.20 harris41 392: my ($owner,$group)=split(/\:/,$devchown);
1.11 harris41 393: $description.=<<END if $category ne 'symbolic link';
1.20 harris41 394: \tinstall -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
1.11 harris41 395: END
396: }
397: }
398: }
399: $description.=<<END;
400:
401: END
402: return $description;
403: }
404:
405: # ------------------------------ Commands to make BinaryRoot symbolic links
406: sub make_links_binaryroot_segment {
407: my ($dirs)=@_;
408: my $description=<<END;
409: links:
410: END
411: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
412: foreach my $d (@$dirs) {
413: # find files that are contained in this directory
414: my @files;
415: my @filesfull;
416: foreach my $f (@allfiles) {
417: if ($f=~/^$d\/([^\/]+)$/) {
418: push @files,$1;
419: push @filesfull,$f;
420: }
421: }
422: # render starting HTML formatting elements
423: if (@files) {
424: foreach my $i (0..$#files) {
425: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
426: my $linkto=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'LINKTO'};
427: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
428: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
429: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
430: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
431: $description.=<<END if $category eq 'symbolic link';
432: \tln -s /$linkto \$(TARGET)/$filesfull[$i]
433: END
434: }
435: }
436: }
437: $description.=<<END;
438:
439: END
440: return $description;
1.10 harris41 441: }
442:
1.14 harris41 443: # ------ Installation commands for a Makefile used only by a rpm -ba invocation
444: sub make_directory_LCMakefile_segment {
445: my ($dirs)=@_;
446: my $description=<<END;
447: directories:
448: END
449: foreach my $d (@$dirs) {
450: my $category=$info{'DIRECTORY'}{$distribution}{$d}{'CATEGORY'};
451: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
452: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
453: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
454: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
455: my $own=$devchown; $own=~s/\:/\,/;
456: $description.=<<END;
457: \tinstall -m $devchmod -d \$(SOURCE)/$d \$(ROOT)/$d
458: END
459: }
460: $description.=<<END;
461:
462: END
463: return $description;
464: }
465:
466: # ------ Installation commands for a Makefile used only by a rpm -ba invocation
467: sub make_files_LCMakefile_segment {
468: my ($dirs)=@_;
469: my $description=<<END;
470: files:
471: END
472: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
473: foreach my $d (@$dirs) {
474: # set other values
475: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
476: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
477: # find files that are contained in this directory
478: my @files;
479: my @filesfull;
480: foreach my $f (@allfiles) {
481: if ($f=~/^$d\/([^\/]+)$/) {
482: push @files,$1;
483: push @filesfull,$f;
484: }
485: }
486: # render starting HTML formatting elements
487: if (@files) {
488: $description.=<<END;
489: \t# $d $dirdescription
490: END
491: }
492: if (@files) {
493: foreach my $i (0..$#files) {
494: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
495: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
496: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
497: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
498: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
499: my $rot=$filesfull[$i];
500: $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
501: $description.=<<END if $category ne 'symbolic link';
502: \tinstall -m $devchmod \$(SOURCE)/$filesfull[$i] \$(ROOT)/$rot
503: END
504: }
505: }
506: }
507: $description.=<<END;
508:
509: END
510: return $description;
511: }
512:
513: # ------ Installation commands for a Makefile used only by a rpm -ba invocation
514: sub make_links_LCMakefile_segment {
515: my ($dirs)=@_;
516: my $description=<<END;
517: links:
518: END
519: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
520: foreach my $d (@$dirs) {
521: # find files that are contained in this directory
522: my @files;
523: my @filesfull;
524: foreach my $f (@allfiles) {
525: if ($f=~/^$d\/([^\/]+)$/) {
526: push @files,$1;
527: push @filesfull,$f;
528: }
529: }
530: # render starting HTML formatting elements
531: if (@files) {
532: foreach my $i (0..$#files) {
533: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
534: my $linkto=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'LINKTO'};
535: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
536: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
537: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
538: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
539: $description.=<<END if $category eq 'symbolic link';
540: \tln -s /$linkto \$(ROOT)/$filesfull[$i]
541: END
542: }
543: }
544: }
545: $description.=<<END;
546:
547: END
548: return $description;
549: }
550:
1.10 harris41 551: # --------------------------------- Installation commands to install directories
552: sub make_directory_install_segment {
553: my ($dirs)=@_;
554: my $description=<<END;
555: directories:
556: END
557: foreach my $d (@$dirs) {
558: my $category=$info{'DIRECTORY'}{$distribution}{$d}{'CATEGORY'};
1.14 harris41 559: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
1.10 harris41 560: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
561: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
562: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
563: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
1.16 harris41 564: my ($owner,$group)=split(/\:/,$devchown);
1.10 harris41 565: my $own=$devchown; $own=~s/\:/\,/;
566: $description.=<<END;
1.16 harris41 567: \tinstall -o $owner -g $group -m $devchmod -d \$(TARGET)/$d
1.10 harris41 568: END
569: }
570: $description.=<<END;
571:
572: END
573: return $description;
574: }
575:
1.15 harris41 576: # ------------------------------------------------------ Commands to build files
577: sub make_files_build_segment {
578: my ($dirs)=@_;
579: my $description;
580: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
581: my $tab="\t";
1.33 harris41 582: my $sources="# Dynamic Makefile generated by LON-CAPA build process\n\n";
583: $sources.="SHELL=\"/bin/sh\"\n\n";
584: $sources.="\nall: ";
1.15 harris41 585: foreach my $d (@$dirs) {
586: # set other values
587: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
588: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
589: # find files that are contained in this directory
590: my @files;
591: my @filesfull;
592: foreach my $f (@allfiles) {
593: if ($f=~/^$d\/([^\/]+)$/) {
594: push @files,$1;
595: push @filesfull,$f;
596: }
597: }
598: if (@files) {
599: foreach my $i (0..$#files) {
600: # if has build information, output appropriate something
601: my $build=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'BUILD'};
602: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
603: $build=~s/^\s+//; $build=~s/\s+$//;
604: if ($build) {
605: my $dependencies=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DEPENDENCIES'};
606: my $source2=$source;
607: $source2=~s/^[^\/]+\///;
608: $source2="../" . $source2;
609: $sources.="$source2 ";
610: my $directory=$build;
611: $directory=~s/^[^\/]+\///;
612: $directory=~s/([^\/]+)$//;
613: $directory="../" . $directory;
614: my $buildfile=$1;
615: my $sdir=$source;
616: $sdir=~s/^[^\/]+\///;
617: $sdir=~s/([^\/]+)$//;
618: $sdir="../" . $sdir;
619: $dependencies=~s/\s+$//;
620: my $depstat="";
621: if ($dependencies=~s/\s+\[ALWAYS_RUN_BUILD_COMMAND\]//) {
622: $depstat=" alwaysrun";
623: }
624: $dependencies=~s/\s+/ $sdir/gs;
1.33 harris41 625: my @deps=split(/\s+/,$dependencies);
626: shift @deps;
627: my $testing=<<END;
628: \@if !(echo "");\\
629: then echo "**** LON-CAPA WARNING **** Strange shell. Check your path settings.";\\
630: END
631: foreach my $d (@deps) {
632: $testing.=<<END;
633: elif !(test -r $d);\\
634: then echo "**** LON-CAPA WARNING **** missing the file: $d";\\
635: END
636: }
637: chop $testing;
1.15 harris41 638: $description.=<<END;
1.33 harris41 639: $source2: $depstat
640: $testing
641: else \\
642: ${tab}cd $directory; sh ./$buildfile;\\
643: fi
1.15 harris41 644:
645: END
646: }
647: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
648: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
649: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
650: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
651: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
652: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
653: my $rot=$filesfull[$i];
654: $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
655: # $description.=<<END if $category ne 'symbolic link';
1.16 harris41 656: #\tinstall -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
1.15 harris41 657: #END
658: }
659: }
660: }
661: $description.=<<END;
662: alwaysrun:
663:
664: END
665: $sources.="\n\n";
666: return ($sources . $description);
667: }
668:
1.10 harris41 669: # --------------------------------------- Installation commands to install files
670: sub make_files_install_segment {
671: my ($dirs)=@_;
672: my $description=<<END;
673: files:
674: END
675: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
676: foreach my $d (@$dirs) {
677: # set other values
678: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
679: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
680: # find files that are contained in this directory
681: my @files;
682: my @filesfull;
683: foreach my $f (@allfiles) {
684: if ($f=~/^$d\/([^\/]+)$/) {
685: push @files,$1;
686: push @filesfull,$f;
687: }
688: }
689: # render starting HTML formatting elements
690: if (@files) {
691: $description.=<<END;
692: \t# $d $dirdescription
693: END
694: }
695: if (@files) {
696: foreach my $i (0..$#files) {
697: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
1.14 harris41 698: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
1.10 harris41 699: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
700: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
701: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
702: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
703: my $rot=$filesfull[$i];
704: $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
1.16 harris41 705: my ($owner,$group)=split(/\:/,$devchown);
1.35 harris41 706: if ($category ne 'conf' && $category ne 'symbolic link') {
707: if ($source!~/\*/) {
708: $description.=<<END;
1.34 harris41 709: \ttest '-e \$(SOURCE)/$source' \&\& install -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot || echo "**** LON-CAPA WARNING **** CVS source file does not exist: \$(SOURCE)/$source"
1.16 harris41 710: END
1.35 harris41 711: }
712: else {
1.36 ! harris41 713: $description.=<<END;
1.35 harris41 714: \tinstall -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
715: END
716: }
1.16 harris41 717: }
718: }
719: }
720: }
721: $description.=<<END;
722:
723: END
724: return $description;
725: }
726:
727: # ------ Installation commands to install configuration files (and make backups)
728: sub make_files_configinstall_segment {
729: my ($dirs)=@_;
730: my $description=<<END;
731: configfiles:
732: END
733: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
734: foreach my $d (@$dirs) {
735: # set other values
736: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
737: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
738: # find files that are contained in this directory
739: my @files;
740: my @filesfull;
741: foreach my $f (@allfiles) {
742: if ($f=~/^$d\/([^\/]+)$/) {
743: push @files,$1;
744: push @filesfull,$f;
745: }
746: }
747: # render starting HTML formatting elements
748: if (@files) {
749: $description.=<<END;
750: \t# $d $dirdescription
751: END
752: }
753: if (@files) {
754: foreach my $i (0..$#files) {
755: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
756: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
757: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
758: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
759: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
760: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
761: my $rot=$filesfull[$i];
762: $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
763: my ($owner,$group)=split(/\:/,$devchown);
764: if ($category eq 'conf') {
765: $description.=<<END;
1.32 harris41 766: \tcp -p \$(TARGET)/$rot \$(TARGET)/$rot`date +'.\%Y\%m\%d\%H\%M\%S'` 2>/dev/null; install -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
1.17 harris41 767: END
768: }
769: }
770: }
771: }
772: $description.=<<END;
773:
774: END
775: return $description;
776: }
777:
778: # ------ Commands to enforce configuration file permissions
779: sub make_files_configpermissions_segment {
780: my ($dirs)=@_;
781: my $description=<<END;
782: configpermissions:
783: END
784: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
785: foreach my $d (@$dirs) {
786: # set other values
787: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
788: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
789: # find files that are contained in this directory
790: my @files;
791: my @filesfull;
792: foreach my $f (@allfiles) {
793: if ($f=~/^$d\/([^\/]+)$/) {
794: push @files,$1;
795: push @filesfull,$f;
796: }
797: }
798: # render starting HTML formatting elements
799: if (@files) {
800: $description.=<<END;
801: \t# $d $dirdescription
802: END
803: }
804: if (@files) {
805: foreach my $i (0..$#files) {
806: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
807: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
808: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
809: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
810: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
811: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
812: my $rot=$filesfull[$i];
813: $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
814: my ($owner,$group)=split(/\:/,$devchown);
815: if ($category eq 'conf') {
816: $description.=<<END;
817: \tchmod $devchmod \$(TARGET)/$rot
818: \tchown $devchown \$(TARGET)/$rot
1.10 harris41 819: END
1.15 harris41 820: }
1.10 harris41 821: }
822: }
823: }
824: $description.=<<END;
825:
826: END
827: return $description;
828: }
829:
830: # ------------------------------ Installation commands to install symbolic links
831: sub make_links_install_segment {
832: my ($dirs)=@_;
833: my $description=<<END;
834: links:
835: END
1.16 harris41 836: chop $description;
837: my $description2;
1.10 harris41 838: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
839: foreach my $d (@$dirs) {
840: # find files that are contained in this directory
841: my @files;
842: my @filesfull;
843: foreach my $f (@allfiles) {
844: if ($f=~/^$d\/([^\/]+)$/) {
845: push @files,$1;
846: push @filesfull,$f;
847: }
848: }
849: # render starting HTML formatting elements
850: if (@files) {
851: foreach my $i (0..$#files) {
852: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
853: my $linkto=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'LINKTO'};
854: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
855: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
856: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
857: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
1.16 harris41 858: if ($category eq 'symbolic link') {
859: $description.=" \$(TARGET)/$filesfull[$i]";
860: $description2.=<<END;
861: \$(TARGET)/$filesfull[$i]:
1.14 harris41 862: \tln -s /$linkto \$(TARGET)/$filesfull[$i]
1.16 harris41 863:
1.10 harris41 864: END
1.16 harris41 865: }
1.10 harris41 866: }
867: }
868: }
869: $description.=<<END;
1.4 harris41 870:
1.10 harris41 871: END
1.16 harris41 872: $description.=$description2;
1.10 harris41 873: return $description;
874: }
875:
876: # --------------------------------------------------------- Make RPM .spec block
877: sub make_rpm_spec_block {
878: my $pwd=`pwd`; chop $pwd;
879: my $buildroot="$pwd/LON-CAPA-BuildRoot";
880: my $source=$info{'RPM'}{'Name'} . "-" . $info{'RPM'}{'Version'} . '.tar.gz';
881: my $description=<<END;
882: Summary: $info{'RPM'}{'Summary'}
883: Name: $info{'RPM'}{'Name'}
884: Version: $info{'RPM'}{'Version'}
885: Release: $info{'RPM'}{'Release'}
886: Vendor: $info{'RPM'}{'Vendor'}
887: BuildRoot: $buildroot
888: Copyright: $info{'RPM'}{'Copyright'}
889: Group: $info{'RPM'}{'Group'}
890: Source: $source
891: AutoReqProv: $info{'RPM'}{'AutoReqProv'}
892: \%description
893: $info{'RPM'}{'description'}
894:
895: END
896: return $description;
897: }
898:
899: # --------------------------------------------------- Make RPM build .spec block
900: sub make_rpm_build_block {
901: my $pwd=`pwd`; chop $pwd;
902: my $buildroot="$pwd/LON-CAPA-BuildRoot";
903: my $sourceroot="$pwd/LON-CAPA-SourceRoot";
904: my $description=<<END;
905:
906: \%prep
907: \%setup
908:
909: \%build
910: rm -Rf "$buildroot"
911:
912: \%install
913: make -f LCMakefile ROOT="\$RPM_BUILD_ROOT" SOURCE="$sourceroot" directories
914: make -f LCMakefile ROOT="\$RPM_BUILD_ROOT" SOURCE="$sourceroot" files
915: make -f LCMakefile ROOT="\$RPM_BUILD_ROOT" SOURCE="$sourceroot" links
916:
917: \%pre
918: $info{'RPM'}{'pre'}
919:
920: \%post
921: \%postun
922:
923: \%files
924: # \%doc README COPYING ChangeLog LICENSE
925: END
926: return $description;
927: }
928:
929: # ------------------------------------- Make directory structure RPM .spec block
930: sub make_directory_structure_spec_block {
931: my ($dirs)=@_;
932: foreach my $d (@$dirs) {
933: my $category=$info{'DIRECTORY'}{$distribution}{$d}{'CATEGORY'};
934: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
935: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
936: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
937: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
938: my $own=$devchown; $own=~s/\:/\,/;
939: $description.=<<END;
940: \%dir \%attr($devchmod,$own) /$d
941: END
942: }
943: return $description;
944: }
945:
946: # ---------------------------- Make directory and file structure RPM .spec block
947: sub make_directory_and_file_structure_spec_block {
948: my ($dirs)=@_;
949: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
950: foreach my $d (@$dirs) {
951: # set other values
952: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
953: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
954: # find files that are contained in this directory
955: my @files;
956: my @filesfull;
957: foreach my $f (@allfiles) {
958: if ($f=~/^$d\/([^\/]+)$/) {
959: push @files,$1;
960: push @filesfull,$f;
961: }
962: }
963: # render starting HTML formatting elements
964: if (@files) {
965: $description.=<<END;
966: # $d $dirdescription
967: END
968: }
969: if (@files) {
970: foreach my $i (0..$#files) {
971: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
972: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
973: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
974: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
975: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
976: my $own=$devchown; $own=~s/\:/\,/;
977: my $config="";
978: $config="\%config " if $category eq 'conf';
979: $devchmod='-' if $category eq 'symbolic link';
980: $description.=<<END;
981: $config\%attr($devchmod,$own) /$filesfull[$i]
982: END
983: }
984: }
985: }
986: return $description;
987: }
988:
989: # ----------------------------------------------------------- End RPM .spec page
990: sub end_spec_page {
991: }
992:
993: # ------------------------------------------------------- Begin description page
1.4 harris41 994: sub begin_description_page {
1.25 harris41 995: my ($mode)=@_;
996: my $description;
997: unless ($mode eq 'status') {
998: $description=<<END;
1.4 harris41 999: <HTML>
1000: <HEAD>
1001: <TITLE>LON-CAPA Software Description Page ($distribution, $date)</TITLE>
1002: </HEAD>
1003: <BODY>
1004: <FONT SIZE=+2>LON-CAPA Software Description Page ($distribution, $date)</FONT>
1005: <BR>Michigan State University
1006: <BR>Learning Online with CAPA
1007: <BR>Contact korte\@lon-capa.org
1008: <UL>
1009: <LI>About this file
1010: <LI>Software Package Description
1011: <LI>Directory Structure
1.7 harris41 1012: <LI>File Type Ownership and Permissions
1.4 harris41 1013: <LI>File and Directory Structure
1014: </UL>
1015: <FONT SIZE=+2>About this file</FONT>
1016: <P>
1017: This file is generated dynamically by <TT>parse.pl</TT> as
1018: part of a development compilation process. See
1019: http://install.lon-capa.org/compile/index.html for more
1020: information.
1021: </P>
1022: END
1.25 harris41 1023: }
1024: else {
1025: $description=<<END;
1026: <HTML>
1027: <HEAD>
1028: <TITLE>LON-CAPA Software File System Status Page ($distribution, $date)</TITLE>
1029: </HEAD>
1030: <BODY>
1031: <FONT SIZE=+2>LON-CAPA Software File System Status Page ($distribution, $date)</FONT>
1032: <BR>Michigan State University
1033: <BR>Learning Online with CAPA
1034: <BR>Contact korte\@lon-capa.org
1035: <UL>
1036: <LI>About this file
1037: <LI>Software Package Description
1038: <LI>Directory Structure
1039: <LI>File Type Ownership and Permissions
1040: <LI>File and Directory Structure
1041: </UL>
1042: <FONT SIZE=+2>About this file</FONT>
1043: <P>
1044: This file is generated dynamically by <TT>parse.pl</TT> as
1045: part of a status checking process. See http://install.lon-capa.org/
1046: for more information.
1047: </P>
1048: END
1049: }
1.4 harris41 1050: return $description;
1.25 harris41 1051:
1.4 harris41 1052: }
1053:
1054: # ------------------------------------------------- End description page
1055: sub end_description_page {
1056: my $description=<<END;
1057: <HR>
1.5 harris41 1058: <FONT SIZE=-1>LON-CAPA Software Development Team</FONT>
1.4 harris41 1059: </BODY>
1060: </HTML>
1061: END
1062: return $description;
1063: }
1064:
1065: # ------------------------------------------------- Make RPM description block
1066: sub make_rpm_description_block {
1.25 harris41 1067: my ($mode)=@_;
1068: my $description;
1069: unless ($mode eq 'status') {
1070: $description=<<END;
1.4 harris41 1071: <FONT SIZE=+2>Rolled in a RedHat 6.2 RPM, $date</FONT>
1072: <P>
1073: <TABLE BGCOLOR=#FFFFFF BORDER=0 CELLPADDING=10 CELLSPACING=0>
1074: <TR><TD>
1075: <PRE>
1076: Name : $info{'RPM'}{'Name'}
1077: Version : $info{'RPM'}{'Version'}
1078: Vendor : $info{'RPM'}{'Vendor'}
1079: Release : $info{'RPM'}{'Release'}
1080: Build Host : $buildhost
1081: Group : $info{'RPM'}{'Group'}
1082: License : $info{'RPM'}{'Copyright'}
1083: Summary : $info{'RPM'}{'Summary'}
1084: Description :
1085: $info{'RPM'}{'description'}
1086: </PRE>
1087: </TD></TR>
1088: </TABLE>
1089: </P>
1090: END
1.25 harris41 1091: }
1092: else {
1093: my $exist=`rpm -q LON-CAPA-base 2>/dev/null`;
1094: unless ($exist) {
1095: $description=<<END;
1096: <FONT SIZE=+2>No LON-CAPA RPM on the system, (installed ??????)</FONT>
1097: <P>
1098: <TABLE BGCOLOR=#FFFFFF BORDER=0 CELLPADDING=10 CELLSPACING=0>
1099: <TR><TD>
1100: <FONT SIZE=+3>Error! A LON-CAPA-base RPM
1101: was never installed on this system!</FONT>
1102: </TD></TR>
1103: </TD></TR>
1104: </TABLE>
1105: </P>
1106: END
1107: }
1108: else {
1109: chop $exist;
1110: my $rpmname=`rpm -q --queryformat '%{NAME}' LON-CAPA-base`;
1111: my $rpmversion=`rpm -q --queryformat '%{VERSION}' LON-CAPA-base`;
1112: my $rpmrelease=`rpm -q --queryformat '%{RELEASE}' LON-CAPA-base`;
1113: my $idate=`rpm -q --queryformat '%{INSTALLTIME:date}' LON-CAPA-base`;
1114: my $rpmvendor=`rpm -q --queryformat '%{VENDOR}' LON-CAPA-base`;
1115: my $rpmbuildhost=`rpm -q --queryformat '%{BUILDHOST}' LON-CAPA-base`;
1116: my $rpmgroup=`rpm -q --queryformat '%{GROUP}' LON-CAPA-base`;
1117: my $rpmlicense=`rpm -q --queryformat '%{LICENSE}' LON-CAPA-base`;
1118: my $rpmsummary=`rpm -q --queryformat '%{SUMMARY}' LON-CAPA-base`;
1119: my $rpmdescription=`rpm -q --queryformat '%{DESCRIPTION}' LON-CAPA-base`;
1120: $description=<<END;
1121: <FONT SIZE=+2>Current RedHat RPM on the system, (installed $idate)</FONT>
1122: <P>
1123: <TABLE BGCOLOR=#FFFFFF BORDER=0 CELLPADDING=10 CELLSPACING=0>
1124: <TR><TD>
1125: <PRE>
1126: Name : $rpmname
1127: Version : $rpmversion
1128: Vendor : $rpmvendor
1129: Release : $rpmrelease
1130: Build Host : $rpmbuildhost
1131: Group : $rpmgroup
1132: License : $rpmlicense
1133: Summary : $rpmsummary
1134: Description :
1135: $rpmdescription
1136: </PRE>
1137: </TD></TR>
1138: </TABLE>
1139: </P>
1140: END
1141: }
1142: }
1.4 harris41 1143: return $description;
1144: }
1145:
1146: # ----------------------------------------------- Determine directory structure
1147: sub determine_directory_structure {
1148: my @directories=keys %{$info{'DIRECTORY'}{$distribution}};
1149: return (sort @directories);
1150: }
1.1 harris41 1151:
1.4 harris41 1152:
1153: # ---------------------------------- Make directory structure description block
1154: sub make_directory_structure_description_block {
1.25 harris41 1155: my ($dirs,$mode)=@_;
1156: my $dirstatus; my $statusheader;
1.4 harris41 1157: my $description=<<END;
1158: <FONT SIZE=+2>Directory Structure Description, $date</FONT>
1159: <P>
1.9 harris41 1160: The directory structure description below shows only those
1161: directories which either contain LON-CAPA specific files
1162: or normally do not exist on a RedHat Linux system (and
1163: must be generated to allow proper placement of files
1164: during LON-CAPA run-time operation).
1165: </P>
1166: <P>
1.4 harris41 1167: <TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
1168: END
1169: my $maxcount=0;
1.8 harris41 1170: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
1171: my %diraccount; # hash to track which directories are accounted for
1172: foreach my $file (@allfiles) {
1173: $file=~/^(.*)\/([^\/]+)$/;
1174: $diraccount{$1}=1;
1175: }
1.4 harris41 1176: foreach my $d (@$dirs) {
1177: my (@matches)=($d=~/\//g);
1178: my $count=scalar(@matches);
1179: $maxcount=$count if $count>$maxcount;
1.8 harris41 1180: delete $diraccount{$d};
1.4 harris41 1181: }
1.25 harris41 1182: if ($mode eq 'status') {
1183: $statusheader="<TH ALIGN=LEFT BGCOLOR=#FFFFFF>Current Status</TH>";
1184: }
1.4 harris41 1185: $description.=<<END;
1186: <TR>
1.25 harris41 1187: $statusheader
1.4 harris41 1188: <TH ALIGN=LEFT BGCOLOR=#FFFFFF>Category</TH>
1189: <TH ALIGN=LEFT BGCOLOR=#FFFFFF>Permissions</TH>
1190: <TH ALIGN=LEFT BGCOLOR=#FFFFFF><FONT COLOR=#FF0000>Development<BR>Permissions</FONT></TH>
1191: END
1192: $description.="<TH ALIGN=LEFT BGCOLOR=#FFFFFF COLSPAN=".($maxcount+1).">Directory Path</TH>\n";
1.8 harris41 1193: if (keys %diraccount) {
1194: $description.= "<TR><TD ALIGN=LEFT BGCOLOR=#FFFFFF COLSPAN=".($maxcount+4)."><I><PRE>Directories that are unaccounted for: \n";
1195: foreach my $d (keys %diraccount) {
1196: $description.="$d\n";
1197: }
1198: $description.="</PRE></I></TH></TR>\n";
1199: }
1.4 harris41 1200: foreach my $d (@$dirs) {
1201: my $dtable=$d;
1202: $dtable=~s/\//\<\/TD\>\<TD\>/g;
1203: my $category=$info{'DIRECTORY'}{$distribution}{$d}{'CATEGORY'};
1204: my $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
1205: my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
1206: my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
1207: my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
1.25 harris41 1208: if ($mode eq 'status') {
1209: my $ds=`find /$d -type d -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;
1210: unless ($ds) {
1211: $dirstatus='<TD BGCOLOR=#FFFFFF><B><U>MISSING</U></B></TD>';
1212: }
1213: else {
1214: my @dss=split(/\t/,$ds);
1215: my $dssz=$dss[0];
1216: $dssz="0" . $dss[0] if length($dss[0])<4;
1217: $dss[0]=$dssz;
1218: $ds="$dss[0] $dss[1]:$dss[2]";
1219: if ($ds eq "$chmod $chown" && $ds eq "$devchmod $devchown") {
1220: $dirstatus='<TD BGCOLOR=#FFFFFF>runtime+development</TD>';
1221: }
1222: elsif ($ds eq "$chmod $chown") {
1223: $dirstatus='<TD BGCOLOR=#FFFFFF>runtime</TD>';
1224: }
1225: elsif ($ds eq "$devchmod $devchown") {
1226: $dirstatus='<TD BGCOLOR=#FFFFFF>development</TD>';
1227: }
1228: else {
1229: $dirstatus="<TD BGCOLOR=#FFFFFF><B><U>ERROR</U></B><BR>$ds</TD>";
1230: }
1231: }
1232: }
1.4 harris41 1233: $description.=<<END;
1234: <TR>
1.25 harris41 1235: $dirstatus
1.4 harris41 1236: <TD BGCOLOR=#FFFFFF>$category</TD>
1237: <TD BGCOLOR=#FFFFFF><TT>$chmod $chown</TT></TD>
1238: <TD BGCOLOR=#FFFFFF><FONT COLOR=#FF0000><TT>$devchmod $devchown</TT></FONT></TD>
1239: <TD>
1240: $dtable
1241: </TD>
1242: </TR>
1243: END
1244: }
1245: $description.=<<END;
1246: </TABLE>
1247: </P>
1248: END
1249: return $description;
1250: }
1251:
1.6 harris41 1252: # ------------------- Make file type ownership and permissions description block
1253: sub make_file_type_ownership_and_permissions_description_block {
1.25 harris41 1254: my ($mode)=@_;
1.6 harris41 1255: my $description=<<END;
1256: <FONT SIZE=+2>File Type Ownership and Permissions Descriptions, $date</FONT>
1257: <P>
1258: This table shows what permissions and ownership settings correspond
1259: to each kind of file type.
1260: </P>
1261: <P>
1262: <TABLE BORDER=1 CELLPADDING=5 WIDTH=60%>
1263: <TR>
1264: <TH ALIGN=LEFT BGCOLOR=#FFFFFF>Icon</TH>
1265: <TH ALIGN=LEFT BGCOLOR=#FFFFFF>Type</TH>
1266: <TH ALIGN=LEFT BGCOLOR=#FFFFFF>Permissions</TH>
1267: <TH ALIGN=LEFT BGCOLOR=#FFFFFF>Development Permissions</TH>
1268: </TR>
1269: END
1270: foreach my $type (keys %{$info{'OWNERSHIP'}}) {
1271: if (defined($fcm{$type})) {
1272: my $chmod=$info{'OWNERSHIP'}{$type}{'CHMOD'};
1273: my $chown=$info{'OWNERSHIP'}{$type}{'CHOWN'};
1274: my $devchmod=$info{'DEVOWNERSHIP'}{$type}{'CHMOD'};
1275: my $devchown=$info{'DEVOWNERSHIP'}{$type}{'CHOWN'};
1276: $description.=<<END;
1277: <TR>
1278: <TD><IMG SRC="$fcm{$type}.gif" ALT="$type"></TD>
1279: <TD>$type</TD>
1280: <TD><TT>$chmod $chown</TT></TD>
1281: <TD><TT>$devchmod $devchown</TT></TD>
1282: </TR>
1283: END
1284: }
1285: }
1286: $description.=<<END;
1287: </TABLE>
1288: </P>
1289: END
1290: }
1291:
1.4 harris41 1292: # ------------------------- Make directory and file structure description block
1293: sub make_directory_and_file_structure_description_block {
1.25 harris41 1294: my ($dirs,$mode)=@_;
1295: my $statusheader; my $filestatus;
1.4 harris41 1296: my $description=<<END;
1297: <FONT SIZE=+2>Directory and File Structure Description, $date</FONT>
1.6 harris41 1298: <P>
1299: The icons on the left column correspond to the file type
1300: specified in the second column. The last column "Notes" shows compilation,
1.7 harris41 1301: dependency, and configuration information. The CVS location
1302: shows the location of the binary source file (if applicable) needed to
1303: be copied to the target. If the binary source file is not at
1304: the specified location, then the text is shown in
1305: <FONT COLOR=#FF0000>red</FONT>.
1.6 harris41 1306: </P>
1.4 harris41 1307: <P>
1.9 harris41 1308: <TABLE BORDER=1 CELLPADDING=5 WIDTH=500>
1.4 harris41 1309: END
1310: my $counter=0;
1311: my @colorindex=("#80FF80","#80FFFF","#FFFF80");
1.5 harris41 1312: my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
1.4 harris41 1313: foreach my $d (@$dirs) {
1314: # set color
1315: my $color=$colorindex[$counter%3];
1316: # set other values
1317: my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
1318: $dirdescription="(" . $dirdescription . ")" if $dirdescription;
1319: # find subdirectories that are contained in this directory
1320: my @subdirs;
1321: foreach my $d2 (@$dirs) {
1.5 harris41 1322: if ($d2=~/^$d\/([^\/]+)$/) {
1.4 harris41 1323: push @subdirs,$1;
1324: }
1325: }
1326: # find files that are contained in this directory
1327: my @files;
1.5 harris41 1328: my @filesfull;
1.4 harris41 1329: foreach my $f (@allfiles) {
1.5 harris41 1330: if ($f=~/^$d\/([^\/]+)$/) {
1.4 harris41 1331: push @files,$1;
1.5 harris41 1332: push @filesfull,$f;
1.4 harris41 1333: }
1334: }
1335: # render starting HTML formatting elements
1336: if (@subdirs || @files) {
1337: my $subdirstring="<BR>* Relevant subdirectories: " . join(", ",@subdirs) if @subdirs;
1338: $description.=<<END;
1.5 harris41 1339: <TR><TD BGCOLOR=#000000 COLSPAN=6><FONT COLOR=$color><IMG SRC="directory.gif" ALT="directory">DIRECTORY -- $d $dirdescription
1340: $subdirstring</FONT></TD></TR>
1.4 harris41 1341: END
1342: }
1343: else {
1344: $description.=<<END;
1.5 harris41 1345: <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 1346: END
1347: }
1348: if (@files) {
1.25 harris41 1349: if ($mode eq 'status') {
1350: $statusheader=<<END;
1351: <TH BGCOLOR=$color ALIGN=LEFT>Current Status</TH>
1352: END
1353: }
1.4 harris41 1354: $description.=<<END;
1355: <TR>
1.25 harris41 1356: $statusheader
1.5 harris41 1357: <TH BGCOLOR=$color ALIGN=LEFT COLSPAN=2>Type</TH>
1358: <TH BGCOLOR=$color ALIGN=LEFT>File Name</TH>
1359: <TH BGCOLOR=$color ALIGN=LEFT>Function</TH>
1360: <TH BGCOLOR=$color ALIGN=LEFT>CVS Location</TH>
1361: <TH BGCOLOR=$color ALIGN=LEFT>Notes</TH>
1.4 harris41 1362: </TR>
1363: END
1.5 harris41 1364: foreach my $i (0..$#files) {
1365: my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
1366: my $fdescription=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DESCRIPTION'};
1367: my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
1.28 harris41 1368: my $source2=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
1.9 harris41 1369: my $note=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTE'};
1370: $note.="<BR>" if $note;
1371: my $listing=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'FILES'};
1372: my @E=split(/\s+/,$listing);
1373: $source=~/(.*)\/[^\/]+$/;
1374: my $sd=$1;
1375: my $eflag=0;
1376: foreach my $e (@E) {
1377: unless (-e "../../$sd/$e") {
1378: $e="<FONT COLOR=#FF0000>$e</FONT>";
1379: $eflag=1;
1380: }
1381: }
1382: $listing=join("\n",@E);
1383: $listing="<B>listing</B><BR><FONT SIZE=-2>$listing</FONT>" if $listing;
1384: $listing.="<BR>" if $listing;
1385: my $build=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'BUILD'};
1386: $build="<B>build</B><BR>$build" if $build;
1387: $build.="<BR>" if $build;
1388: my $dependencies=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DEPENDENCIES'};
1389: $dependencies="<B>dependencies</B><BR>$dependencies" if $dependencies;
1390: $dependencies.="<BR>" if $dependencies;
1.7 harris41 1391: unless (-e "../../$source") {
1392: $source=~/([^\/]+)$/;
1393: my $s=$1;
1.9 harris41 1394: if ($source!~/\*/) {
1395: $source="<FONT COLOR=#FF0000>$source</FONT>";
1396: }
1397: elsif ($eflag) {
1398: $source="<FONT COLOR=#FF0000>$source</FONT>";
1399: }
1.7 harris41 1400: }
1.28 harris41 1401: my $checksum;
1402: my $checksum_source;
1403: my $checksum_target;
1.25 harris41 1404: if ($mode eq 'status') {
1405: $filestatus='';
1406: my $fs;
1407: my $listing2=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'FILES'};
1408: my @E=split(/\s+/,$listing2); shift @E;
1409: if (@E) {
1410: $fs=`find /$filesfull[$i] -prune -printf "\%m\t\%u\t\%g\n" 2>/dev/null | wc -l`; chop $fs;
1411: if ($fs!=(@E+0)) {
1412: $ecount=(@E+0);
1413: $estuff=join(",",@E);
1414: $filestatus="<TD BGCOLOR=#FFFFFF><B><U>ERROR. SOME FILES ARE MISSING</U></B></TD>";
1415: }
1416: $fs=`find /$filesfull[$i] -prune -printf "\%m\t\%u\t\%g\n" 2>/dev/null | sort | uniq | wc -l`; chop $fs;
1417: if ($fs!=1) {
1418: $filestatus='<TD BGCOLOR=#FFFFFF><B><U>ERROR. THERE ARE MULTIPLE OWNERSHIPS/PERMISSIONS WHEN ALL THESE FILES SHOULD HAVE THE SAME CONFIGURATION</U></B></TD>';
1419: }
1420: else {
1421: $fs=`find /$filesfull[$i] -prune -printf "\%m\t\%u\t\%g\n" 2>/dev/null | sort | uniq`; chop $fs;
1422: }
1423: }
1424: else {
1425: $fs=`find /$filesfull[$i] -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;
1.28 harris41 1426: if (-f "/$filesfull[$i]" && !(-l "/$filesfull[$i]")) {
1427: $checksum_source=`md5sum ../../$source2 | cut -d ' ' -f1`;
1428: chop $checksum_source;
1429: $checksum_target=`md5sum /$filesfull[$i] | cut -d ' ' -f1`;
1430: chop $checksum_target;
1.29 harris41 1431: # warn ("CS: $checksum_source, CT: $checksum_target\n");
1.28 harris41 1432: unless ($checksum_source eq $checksum_target) {
1433: $checksum="<BR><B><U>CHECKSUM DIFFERENCE</U></B>";
1434: }
1435: }
1.25 harris41 1436: }
1437: my $fsl=`find /$filesfull[$i] -type l -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;
1438: unless ($fs || $filestatus) {
1439: $filestatus='<TD BGCOLOR=#FFFFFF><B><U>MISSING</U></B></TD>';
1440: }
1441: elsif (!$filestatus) {
1442:
1443: $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
1444: $chown=$info{'OWNERSHIP'}{$category}{'CHOWN'};
1445: $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
1446: $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
1447:
1448: my @fss=split(/\t/,$fs);
1449: my $fssz=$fss[0];
1450: $fssz="0" . $fss[0] if length($fss[0])<4;
1451: $fss[0]=$fssz;
1452: $fs="$fss[0] $fss[1]:$fss[2]";
1453: $s=' ';
1454: if ($fsl) {
1455: $fs="$fss[1]:$fss[2]";
1456: $s='';
1457: }
1458: if ($fs eq "$chmod$s$chown" && $fs eq "$devchmod$s$devchown") {
1.28 harris41 1459: $filestatus="<TD BGCOLOR=#FFFFFF>runtime+development$checksum</TD>";
1.25 harris41 1460: }
1461: elsif ($fs eq "$chmod$s$chown") {
1.28 harris41 1462: $filestatus="<TD BGCOLOR=#FFFFFF>runtime$checksum</TD>";
1.25 harris41 1463: }
1464: elsif ($fs eq "$devchmod$s$devchown") {
1.28 harris41 1465: $filestatus="<TD BGCOLOR=#FFFFFF>development$checksum</TD>";
1.25 harris41 1466: }
1467: else {
1468: $filestatus="<TD BGCOLOR=#FFFFFF><B><U>ERROR</U></B><BR>$fs</TD>";
1469: }
1470: }
1471: }
1.5 harris41 1472: $description.=<<END;
1473: <TR>
1.25 harris41 1474: $filestatus
1.5 harris41 1475: <TD BGCOLOR=#A0A0A0><IMG SRC="$fcm{$category}.gif" ALT="$category"></TD>
1476: <TD BGCOLOR=$color>$category</TD>
1477: <TD BGCOLOR=$color>$files[$i]</TD>
1478: <TD BGCOLOR=$color>$fdescription </TD>
1479: <TD BGCOLOR=$color>$source</TD>
1.9 harris41 1480: <TD BGCOLOR=$color>$note$listing$build$dependencies </TD>
1.4 harris41 1481: </TR>
1482: END
1.5 harris41 1483: }
1484: }
1.4 harris41 1485: $counter++;
1486: }
1487: $description.=<<END;
1488: </TABLE>
1489: </P>
1490: END
1491: return $description;
1492: }
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