savezelda/twilight/make-title-bin.pl

17 lines
247 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";
2009-06-04 09:17:38 +02:00
$version = `cat ../.version`;
2009-05-26 10:12:55 +02:00
printline $name;
printline $version;