mkinitrd-6_1_12/isolinux/version.pl

#!/usr/bin/perl
#
# Read the "version" file and produce some macro declarations
#

use Fcntl;

($vfile, $vout, $def) = @ARGV;
sysopen(VERSION, $vfile, O_RDONLY) or die "$0: Cannot open $vfile\n";
$version = <VERSION>;
chomp $version;
close(VERSION);

unless ( $version =~ /^([0-9]+)\.([0-9]+)$/ ) {
    die "$0: Cannot parse version format\n";
}
$vma = $1+0; $vmi = $2+0;

sysopen(VI, $vout, O_WRONLY|O_CREAT|O_TRUNC)
    or die "$0: Cannot create $vout: $!\n";
print VI "$def VERSION \"$version\"\n";
print VI "$def VER_MAJOR $vma\n";
print VI "$def VER_MINOR $vmi\n";
close(VI);


1	niro	532	#!/usr/bin/perl
2			#
3			# Read the "version" file and produce some macro declarations
4			#
5
6			use Fcntl;
7
8			($vfile, $vout, $def) = @ARGV;
9			sysopen(VERSION, $vfile, O_RDONLY) or die "$0: Cannot open $vfile\n";
10			$version = <VERSION>;
11			chomp $version;
12			close(VERSION);
13
14			unless ( $version =~ /^([0-9]+)\.([0-9]+)$/ ) {
15			die "$0: Cannot parse version format\n";
16			}
17			$vma = $1+0; $vmi = $2+0;
18
19			sysopen(VI, $vout, O_WRONLY\|O_CREAT\|O_TRUNC)
20			or die "$0: Cannot create $vout: $!\n";
21			print VI "$def VERSION \"$version\"\n";
22			print VI "$def VER_MAJOR $vma\n";
23			print VI "$def VER_MINOR $vmi\n";
24			close(VI);
25
26