#!/usr/bin/perl -w

#  Copyright (c) 2023 Tobias Leupold <tl at stonemx dot de>
#  All rights reserved.
#
#  Redistribution and use in source and binary forms, with or without
#  modification, are permitted provided that the following conditions are met:
#
#  1. Redistributions of source code must retain the above copyright notice, this
#     list of conditions and the following disclaimer.
#
#  2. Redistributions in binary form must reproduce the above copyright notice,
#     this list of conditions and the following disclaimer in the documentation
#     and/or other materials provided with the distribution.
#
#  3. Neither the name of the copyright holder nor the names of its contributors
#     may be used to endorse or promote products derived from this software without
#     specific prior written permission.
#
#  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
#  AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
#  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
#  DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
#  FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
#  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
#  SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
#  CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
#  OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
#  OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

use strict;

if (scalar @ARGV != 3) {
    print "Usage: $0 <start sticker number> <first table number> <last table number>\n";
    exit;
}

my $inFile = 'table_numbers.svg';
my $outFile = 'table_numbers.pdf';

my $sticker = $ARGV[0];
my $table = $ARGV[1];
my $lastTable = $ARGV[2];

open my $in, '<', $inFile;
local $/;
chomp(my $data = <$in>);
close $in;

for (my $i = 1; $i < $sticker; $i++) {
    $data =~ s/\@$i\@//g;
}

for (my $i = $sticker; $i <= 12; $i++) {
    if ($table <= $lastTable) {
        $data =~ s/\@$i\@/Tisch $table/g;
    } else {
        $data =~ s/\@$i\@//g;
    }
    $table++;
}

open my $tmp, '>', 'tmp.svg';
print $tmp $data;
close $tmp;

system('inkscape', 'tmp.svg', '--export-filename=' . $outFile);
unlink 'tmp.svg';

print "Wrote output to $outFile\n";
