savezelda/lego/make-title-bin.pl
Segher Boessenkool e1ede7aa2c LEGO Indiana Jones
2009-09-23 17:40:48 +02:00

17 lines
247 B
Perl
Executable File

#!/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;