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

Diff for /loncom/build/Attic/parse.pl between versions 1.18 and 1.21

version 1.18, 2000/12/21 14:38:31 version 1.21, 2001/01/08 17:57:06
Line 146  elsif ($mode eq "BinaryRoot") { Line 146  elsif ($mode eq "BinaryRoot") {
     $a=&make_file_list(\@directories);      $a=&make_file_list(\@directories);
     print OUT $a;      print OUT $a;
     close OUT;      close OUT;
           open OUT,">setup_file_list.txt";
       print OUT "BinaryRoot/etc/passwd\n";
       close OUT;
       open OUT,">BinaryRoot/etc/passwd";
       print OUT<<END;
   root:x:0:0:root:/root:/bin/bash
   bin:x:1:1:bin:/bin:
   daemon:x:2:2:daemon:/sbin:
   adm:x:3:4:adm:/var/adm:
   lp:x:4:7:lp:/var/spool/lpd:
   sync:x:5:0:sync:/sbin:/bin/sync
   shutdown:x:6:0:shutdown:/sbin:/sbin/shutdown
   halt:x:7:0:halt:/sbin:/sbin/halt
   mail:x:8:12:mail:/var/spool/mail:
   news:x:9:13:news:/var/spool/news:
   uucp:x:10:14:uucp:/var/spool/uucp:
   operator:x:11:0:operator:/root:
   games:x:12:100:games:/usr/games:
   gopher:x:13:30:gopher:/usr/lib/gopher-data:
   ftp:x:14:50:FTP User:/home/ftp:
   nobody:x:99:99:Nobody:/:
   xfs:x:43:43:X Font Server:/etc/X11/fs:/bin/false
   gdm:x:42:42::/home/gdm:/bin/bash
   www:x:500:500:www:/home/www:/bin/bash
   END
   close OUT;
   
 }  }
 elsif ($mode eq "status") {  elsif ($mode eq "status") {
 }  }
Line 181  sub make_file_list { Line 207  sub make_file_list {
     my @allfiles=keys %{$info{'LOCATION'}{$distribution}};      my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
     foreach my $d (@$dirs) {      foreach my $d (@$dirs) {
  # set other values   # set other values
  $description.=<<END   $description.=<<END;
 BinaryRoot/$d  BinaryRoot/$d
 END  END
  my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};   my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
Line 251  END Line 277  END
  my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};   my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
  my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};   my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
  my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};   my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
    my ($owner,$group)=split(/\:/,$devchown);
  my $own=$devchown; $own=~s/\:/\,/;   my $own=$devchown; $own=~s/\:/\,/;
  $description.=<<END;   $description.=<<END;
 \tinstall -m $devchmod -d \$(TARGET)/$d  \tinstall -o $owner -g $group -m $devchmod -d \$(TARGET)/$d
 END  END
     }      }
     $description.=<<END;      $description.=<<END;
Line 298  END Line 325  END
  my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};   my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
  my $rot=$filesfull[$i];   my $rot=$filesfull[$i];
  $rot=~s/[^\/]+$/\./ if $rot=~/\*/;   $rot=~s/[^\/]+$/\./ if $rot=~/\*/;
    my ($owner,$group)=split(/\:/,$devchown);
  $description.=<<END if $category ne 'symbolic link';   $description.=<<END if $category ne 'symbolic link';
 \tinstall -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot  \tinstall -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
 END  END
     }      }
  }   }
Removed from v.1.18  
changed lines
  Added in v.1.21

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