savezelda/make-title-bin.pl

17 lines
244 B
Perl
Raw Normal View History

2009-05-26 10:12:55 +02:00
#!/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 = "Twilight Hack by Team Twiizers";
$version = `cat .version`;
printline $name;
printline $version;