#!/usr/local/bin/perl
#$Id: book-page-rebuild.pl,v 1.8 2025/08/14 18:28:50 mwlucas Exp $
#reads the book info spreadsheet and builds a static page with
#purchase info
use warnings;
use v5.10;
use open qw/:std :utf8/;
use Spreadsheet::Read;
use strict;
my $book_data = ReadData ("/home/mwlucas/book-link-pages.xlsx") or die "Cannot read spreadsheet";
my $DEBUG=0;
my $DEBUG2=0;
#constants
#amazon affiliate codes
my $amazonUs = "michaelwlucas-20";
my $amazonAu = "michaelwlucas-22";
my $amazonUk = "michaelwlucas-21";
my $amazonCa = "michaelwluc08-20";
my $amazonDe = "michaelwluc09-21";
my $amazonFr = "michaelwluc01-21";
my $amazonIt = "Michaelwluc05-21";
my $amazonEs = "michaelwluc0f-21";
my $imageDir = "/images/";
my $baseUrl = "https://mwl.link";
my $pageDir = "/var/www/link/";
# Fetching all file content
my @books = Spreadsheet::Read::rows($book_data->[1]);
#skip the first row, it's headers
foreach my $i (2 .. scalar @books)
{
write_page ($books[$i-1][0],$books[$i-1][1],$books[$i-1][2],$books[$i-1][3],
$books[$i-1][4],$books[$i-1][5],$books[$i-1][6],$books[$i-1][7],
$books[$i-1][8],$books[$i-1][9],$books[$i-1][10],$books[$i-1][11],
$books[$i-1][12],$books[$i-1][13]);
}
sub write_page {
my $title = $_[0];
my $author = $_[1];
my $mwlio = $_[2];
my $tagLine = $_[3];
my $twp = $_[4];
my $bookshop = $_[5];
my $kobo = $_[6];
my $gumroad = $_[7];
my $apple = $_[8];
my $nook = $_[9];
my $google = $_[10];
my $asin = $_[11];
my $jacket = $_[12];
my $nsp = $_[13];
if ($DEBUG) {
say "title: " . $title;
say "author: " . $author;
say "mwlio: " . $mwlio;
say "tagLine: " . $tagLine;
say "twp: " . $twp;
say "bookshop: " . $bookshop;
say "kobo: " . $kobo;
say "gumroad: " . $gumroad;
say "apple: " . $apple;
say "nook: " . $nook;
say "google: " . $google;
say "asin: " . $asin;
say "jacket: " . $jacket;
}
say "Now writing page for $title";
#transform the data to usable form
#normalize the title for other names
my $cleanTitle=$title;
$cleanTitle=~s#,##g;
$cleanTitle=~s#[^\w]#-#g;
$cleanTitle=lc($cleanTitle);
$cleanTitle=~s#^--##;
$cleanTitle=~s#--#-#;
my $promoImage = $imageDir . $cleanTitle . "-promo.png";
my $bookCover = $imageDir . $cleanTitle . "-cover.jpg";
my $promoLink = $baseUrl . $promoImage;
my $bookFile = $pageDir . $cleanTitle . ".html";
if ($DEBUG2) {
say "cleanTitle: " . $cleanTitle;
say "promoImage: " . $promoImage;
say "bookCover: " . $bookCover;
say "promoLink: " . $promoLink;
say "bookFile: " . $bookFile;
say " ";
}
#now write a page
open (PAGE, '>', $bookFile) or die $!;
print PAGE <<"HEADER";
$title