Annotation of loncom/build/distprobe, revision 1.1

1.1     ! harris41    1: #!/usr/bin/perl
        !             2: 
        !             3: # YEAR=2002
        !             4: # 4/21 Scott Harrison
        !             5: 
        !             6: my $dist='default';
        !             7: if (-e '/etc/redhat-release') {
        !             8:     open(IN,'</etc/redhat-release');
        !             9:     my $versionstring=<IN>;
        !            10:     chomp($versionstring);
        !            11:     close(IN);
        !            12:     my $version=(split(/\s+/,$versionstring))[4];
        !            13:     if ($version=~/^7\./) {
        !            14: 	$dist='redhat7';
        !            15:     }
        !            16: }
        !            17: elsif (-e '/etc/debian_version') {
        !            18:     open(IN,'</etc/debian_version');
        !            19:     my $version=<IN>;
        !            20:     chomp($version);
        !            21:     close(IN);
        !            22:     if ($version eq '2.2') {
        !            23: 	$dist='debian2.2';
        !            24:     }
        !            25: }
        !            26: else {
        !            27:     warn('Unknown installation filesystem; expecting debian version 2.2 '.
        !            28: 	 'or redhat 6.* or 7.*');
        !            29: }
        !            30: print $dist;

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