You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
423 B
20 lines
423 B
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
open(my $input, "<", "website.html")
|
|
or die "Can't open < website.html: $!";
|
|
|
|
open(my $output, ">", "../src/websiteMgmt.h")
|
|
or die "Can't open < websiteMgmt.h: $!";
|
|
|
|
print $output "static const char mgtWebsite[] PROGMEM = \"";
|
|
while (my $row = <$input>) {
|
|
$row =~ s/\"/\\"/g;
|
|
$row =~ s/\n/\\/g;
|
|
print $output "$row\n";
|
|
}
|
|
print $output "\";";
|
|
|
|
close($input);
|
|
close($output);
|