mirror of
https://github.com/Telecominfraproject/OpenCellular.git
synced 2025-11-24 10:14:55 +00:00
2187cdfb35
Change-Id: I4620966554ca26ea91b01e65fd441c9c09db2a83 BUG=chrome-os-parter:792 TEST=none As with every previous change to the BIOS bitmaps, you'll have to 1) get a new factory-install shim with the bitmaps embedded 2) run the factory-install shim to change the screens on the device 3) boot in developer and/or recovery mode to see the screens There is no direct test for this particular bug alone. Review URL: http://codereview.chromium.org/4158003
42 lines
813 B
Perl
Executable File
42 lines
813 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
our $opt_u = 'http://www.chromium.org';
|
|
our $opt_m = 'Unsupported Prototype 0000';
|
|
our $opt_d = '.';
|
|
|
|
use File::Basename;
|
|
my $progdir = dirname($0);
|
|
my $prog = basename($0);
|
|
|
|
use Getopt::Std;
|
|
my $usage = "
|
|
Usage: $prog
|
|
|
|
";
|
|
getopts('u:m:d:') or die $usage;
|
|
|
|
my @old = glob("$opt_d/linetxt_*");
|
|
unlink(@old) if @old;
|
|
|
|
$/ = undef;
|
|
$_ = <>;
|
|
s/\s+$//gs;
|
|
|
|
my $count = 1;
|
|
foreach (split(/\n/, $_))
|
|
{
|
|
s/^\s+//;
|
|
s/\s+$//;
|
|
s/\$URL/$opt_u/g;
|
|
s/\$MODEL/$opt_m/g;
|
|
$_ = ' ' unless $_;
|
|
my $big = s/^\$BIG:\s*//;
|
|
my $filename = sprintf('%s/linetxt_%02d.%s', $opt_d, $count++,
|
|
$big ? 'TXT' : 'txt');
|
|
# print "$filename: ($_)\n"; next;
|
|
open(OUT, ">$filename") || die "$0 can't write $filename: $!\n";
|
|
print OUT "$_";
|
|
close(OUT);
|
|
}
|