#!/usr/bin/env perl

use strict;
use warnings;

my $res = shift;
if ($res eq 'true') {
    print "var listPageData = [\n";
} else {
    print "var textPageData = [\n";
}
my $infile = shift or die "No input file specified.\n";
open my $in, $infile or
    die "Cannot open $infile for reading: $!\n";
while (<$in>) {
    next if /^\s*$/;
    chomp;
    print "  '$_',\n";
}
close $in;
print "];\n";