X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=savezelda.git;a=blobdiff_plain;f=lego%2Fmake-title-bin.pl;fp=lego%2Fmake-title-bin.pl;h=a91ae98cc814cca703d96c4805240a98de1380bf;hp=0000000000000000000000000000000000000000;hb=e1ede7aa2cb1840add9ba88901c7495deb2b37e3;hpb=15edfaae0fe106910d059e91f8cb4f691cc50da4 diff --git a/lego/make-title-bin.pl b/lego/make-title-bin.pl new file mode 100755 index 0000000..a91ae98 --- /dev/null +++ b/lego/make-title-bin.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl +sub printline { + my $x = shift; + chomp $x; + $x .= "\0" x 32; + $x = substr $x, 0, 32; + $x =~ s/(.)/\0$1/g; + + print $x; +} + +$name = "Indiana Pwns, by Team Twiizers"; +$version = `cat ../.version`; + +printline $name; +printline $version;