diff options
Diffstat (limited to 'win32utils/makesrcid.pl')
-rw-r--r-- | win32utils/makesrcid.pl | 81 |
1 files changed, 0 insertions, 81 deletions
diff --git a/win32utils/makesrcid.pl b/win32utils/makesrcid.pl deleted file mode 100644 index f46fe472..00000000 --- a/win32utils/makesrcid.pl +++ /dev/null @@ -1,81 +0,0 @@ -#!/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; |