diff options
Diffstat (limited to 'scripts/newbitmaps/old_releases/mario/makelines.sh')
-rwxr-xr-x | scripts/newbitmaps/old_releases/mario/makelines.sh | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/scripts/newbitmaps/old_releases/mario/makelines.sh b/scripts/newbitmaps/old_releases/mario/makelines.sh deleted file mode 100755 index fca0f9c4..00000000 --- a/scripts/newbitmaps/old_releases/mario/makelines.sh +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/perl -# Copyright (c) 2011 The Chromium OS Authors. All rights reserved. -# Use of this source code is governed by a BSD-style license that can be -# found in the LICENSE file. - -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); -} |