mirror of
https://github.com/isc-projects/bind9.git
synced 2026-03-02 13:30:44 -05:00
81 lines
2.6 KiB
Perl
81 lines
2.6 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Copyright (C) 2012 Internet Systems Consortium, Inc. ("ISC")
|
|
#
|
|
# Permission to use, copy, modify, and/or distribute this software for any
|
|
# purpose with or without fee is hereby granted, provided that the above
|
|
# copyright notice and this permission notice appear in all copies.
|
|
#
|
|
# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
|
|
# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
|
|
# AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
|
|
# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
|
|
# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
|
|
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
|
# PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
# $Id$
|
|
|
|
# This script converts the SRCID information in ../srcid into a srcid.h
|
|
# file, defining SRCID, which can be included by config.h.
|
|
|
|
open (SRCIDH, ">../srcid.h") or die "cannot open srcid.h: $!";
|
|
|
|
my $srcid = "unset";
|
|
|
|
if (open (SRCIDFILE, "../srcid")) {
|
|
LOOP: while (<SRCIDFILE>) {
|
|
chomp;
|
|
($data) = split(/\#/);
|
|
if($data) {
|
|
($name, $value) = split(/=/,$data);
|
|
($name) = split(/\s+/, $name);
|
|
($value) = split(/\s+/, $value);
|
|
next LOOP if ($name != "SRCID");
|
|
$srcid = $value;
|
|
}
|
|
}
|
|
close(SRCIDFILE);
|
|
}
|
|
|
|
# Now set up the output version file
|
|
|
|
$ThisDate = scalar localtime();
|
|
|
|
#Standard Header
|
|
|
|
print SRCIDH '/*
|
|
* Copyright (C) 2012 Internet Software Consortium.
|
|
*
|
|
* Permission to use, copy, modify, and distribute this software for any
|
|
* purpose with or without fee is hereby granted, provided that the above
|
|
* copyright notice and this permission notice appear in all copies.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM
|
|
* DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
|
|
* INTERNET SOFTWARE CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT,
|
|
* INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
|
|
* FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
|
|
* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
|
|
* WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
*/
|
|
|
|
';
|
|
|
|
print SRCIDH "/*\n";
|
|
print SRCIDH " * srcid.h";
|
|
print SRCIDH " * Generated automatically by makesrcid.pl.\n";
|
|
print SRCIDH " * Date generated: $ThisDate\n";
|
|
print SRCIDH " */\n\n";
|
|
|
|
print SRCIDH '
|
|
#ifndef SRCID_H
|
|
#define SRCID_H 1
|
|
';
|
|
|
|
print "BIND SRCID: $srcid\n";
|
|
|
|
print SRCIDH "#define SRCID\t\"$srcid\"\n";
|
|
print SRCIDH "#endif /* SRCID_H */\n";
|
|
close SRCIDH;
|