[PATCH] Provide sample punch card reader script for s390x (#462953)

[David Cantrell <dcantrell redhat com>]

IBM would like us to provide mainframe users with a sample punchcard
reader script along with the other boot files on s390x.

I'd just like to say that again:  punch cards.
---
 bootdisk/s390x/redhat.exec |    9 +++++++++
 scripts/mk-images.s390     |    1 +
 2 files changed, 10 insertions(+), 0 deletions(-)
 create mode 100644 bootdisk/s390x/redhat.exec

diff --git a/bootdisk/s390x/redhat.exec b/bootdisk/s390x/redhat.exec
new file mode 100644
index 0000000..d5b7f74
--- /dev/null
+++ b/bootdisk/s390x/redhat.exec
@@ -0,0 +1,9 @@
+/* */
+'CL RDR'
+'PURGE RDR ALL'
+'SPOOL PUNCH * RDR'
+'PUNCH KERNEL IMG A (NOH'
+'PUNCH REDHAT PARM A (NOH'
+'PUNCH INITRD IMG A (NOH'
+'CH RDR ALL KEEP NOHOLD'
+'I 00C'
diff --git a/scripts/mk-images.s390 b/scripts/mk-images.s390
index 1f87232..b3e9db1 100644
--- a/scripts/mk-images.s390
+++ b/scripts/mk-images.s390
@@ -31,6 +31,7 @@ makeBootImages() {
 	$GENINITRDSZ $sz $TOPDESTPATH/images/initrd.size
 	cp -vf $KERNELROOT/boot/${KERNELNAME}-${version} $TOPDESTPATH/images/kernel.img
 
+	cp -v $BOOTDISKDIR/redhat.exec $TOPDESTPATH/images/redhat.exec
 	cp -v $BOOTDISKDIR/generic.prm $TOPDESTPATH/images/generic.prm
 	cp -v $BOOTDISKDIR/generic.ins $TOPDESTPATH/generic.ins
 
-- 
1.6.0.2