* merge with testing-branch

git-svn-id: https://svn.pengutronix.de/svn/ptxdist/trunk@608 33e552b5-05e3-0310-8538-816dae2090ed

1 files changed, 36 insertions, 0 deletions

diff --git a/rules/NEWPACKET-XCHAIN b/rules/NEWPACKET-XCHAIN
new file mode 100755
index 000000000..28c465b78
--- /dev/null
+++ b/rules/NEWPACKET-XCHAIN
@@ -0,0 +1,36 @@
+#!/usr/bin/perl -w 
+
+print "\nCreate new rules file from template:\n";
+print "------------------------------------\n\n";
+
+print "Name of new packet..........: "; $packet = "xchain-".<STDIN>;
+print "Major version number........: "; $major = <STDIN>;
+print "Minor version number........: "; $minor = <STDIN>;
+print "Micro version number........: "; $micro = <STDIN>;
+print "Archive file suffix.........: "; $suffix = <STDIN>;
+print "URL of download directory...: "; $url = <STDIN>;
+print "PTXdist Packet Author.......: "; $author = <STDIN>;
+
+chop ($packet, $major, $minor, $micro, $url, $author, $suffix);
+$PACKET = uc($packet);
+$PACKET =~ s/-/_/;
+
+open(INFILE,  "template") || die "Can't open template";
+open(OUTFILE, ">$packet\.make") || die "Can't open new file";
+
+while (<INFILE>) {
+	s,\@PACKET@,$PACKET,g;
+	s,\@packet@,$packet,g;
+	s,\@MAJOR@,$major,g;
+	s,\@MINOR@,$minor,g;
+	s,\@MICRO@,$micro,g;
+	s,\@URL@,$url,g;
+	s,\@AUTHOR@,$author,g;
+	s,\@SUFFIX@,$suffix,g;
+	print OUTFILE $_;
+}
+
+close(OUTFILE);
+close(INFILE);
+
+print "\n";