#!/usr/bin/perl

use strict;

use lib qw(/var/www/sites/ubuyne/cgi-perl/modules/);

use PW2_Functions;		# Various functions

use PW2_PrintBits;		# Various Print functions, and HTML bits

use PW2_CataBlogs;

&process_blog_request;

exit;

# --------------------------------------------------------------------------------------------------------------------------

sub process_blog_request {

undef my %FORM; &process_form_any2(\%FORM);

my $catkey	=$FORM{'cb'};		# The catalogue (ie. the storekey)
my $blogid  	=$FORM{'b'};		# The blog ID
my $page	=$FORM{'p'};		# The page number to display
my $ymdate	=$FORM{'ym'};		# Year and Month (eg. 200610). Used when displaying blogs for certain year & month

&numbers_only(\$blogid);
&numbers_only(\$page);
&numbers_only(\$ymdate);

undef my $catlist; &fetch_catlist(\$catlist);

my $domain	=$ENV{'HTTP_HOST'};

my $content_ref=''; my $title=''; my $metadesc =''; my $metakeyw ='';
my $og_title=''; my $og_desc=''; my $og_url=''; my $og_img='';

if ($blogid gt'')
{
&generate_this_blog(\$content_ref,\$title,\$blogid,\$catkey,\$metadesc,\$metakeyw); 
$og_title=$title; $og_desc=$metadesc; $og_url="https://price-wizard.com/cgi-perl/pw.catablogs.cgi?b=$blogid";
  if (-e '/var/www/sites/ubuyne/images/screenshots/'.lc($catkey).'_screenshot.png'){
  $og_img='https://price-wizard.com/images/screenshots/'.lc($catkey).'_screenshot.png';
  }
}
elsif ($blogid eq'')
{
&generate_blogs(\$content_ref,\$catkey,\$page,\$ymdate,\$domain);	# No blog-ID, so could be listing by storekey, or by date
}

if ($catkey eq'_non'){$catkey='';};	# We should be finished with using $catkey now, so set to '', so we get a banner

if ($title eq'')
{
$title='Latest UK Catalogue News, Mail-Order Deals, Special Offers & Beyond';
}

&print_myheader();						# Print the content/type header

&html_top_of_page(-bannerkey=>\$catkey,-title=>\$title,-metadesc=>\$metadesc,-keywords=>\$metakeyw,-og_title=>\$og_title,-og_desc=>\$og_desc,-og_url=>\$og_url,-og_img=>\$og_img);

print '<main id="maincontent">';
print $content_ref if (defined $content_ref);			# Avoid errors by using the "defined" check
print '</main>';
print qq~<br><br>$catlist<br>~;

&print_footer(\0);						# Print the copyright message and bar

}1;
# --------------------------------------------------------------------------------------------------------------------------

sub generate_this_blog {

my $html	=shift;		# A reference
my $title	=shift;		#	"
my $blogid	=shift;		#	"
my $storekey	=shift;		#	"
my $metadesc	=shift;		#	"
my $metakeyw	=shift;		#	"

my ($url,$desc,$longdesc,$related,$pmonths,$logdate,$blog,$welcome_text,$catextra,$contactlink,$desc_div,$urlposts,$catlink,$catlink2)=''x14;

my $triangle='<img src="https://price-wizard.com/images/redtri.gif" width="4" height="7" alt="*">';

# This would work if we had $storekey when we get to this point, but we only have the catablog ID so far.
# my $SQLQUERY=qq~SELECT t1.TITLE,t1.URL,t1.STOREKEY,t1.DESCRIPTION,t1.LONGDESC,t1.RELATED,DATE_FORMAT(t1.LOGDATE,"%W, %D %M, %Y"),t2.STORENAME,t2.WORDS FROM STORES t2 JOIN PW_CATABLOGS t1 WHERE (t1.DKEY='$$blogid' AND t1.ACTIVE=1) AND t2.STOREKEY="$$storekey"~;

my $SQLQUERY=qq~SELECT TITLE,URL,STOREKEY,DESCRIPTION,LONGDESC,RELATED,DATE_FORMAT(LOGDATE,"%W, %D %M, %Y") FROM PW_CATABLOGS WHERE DKEY='$$blogid' AND ACTIVE=1~;

undef my @result; &fetch_single_record2(\@result,\$SQLQUERY);

$$title		=$result[0];
$url		=$result[1];
$$storekey	=$result[2];
$desc		=$result[3];	$desc=~s/([^\000-\177])/'&#'.ord($1).';'/ge;
$longdesc	=$result[4];	$longdesc=~s/([^\000-\177])/'&#'.ord($1).';'/ge;
$related	=$result[5];
$logdate	=$result[6];

	my $banner300=''; &get_random_banner(\$banner300, $storekey,\'300',\'250',\'class="responsive_img img300d"');   # let's see if a 300x250 banner exists

	$SQLQUERY=qq~SELECT STORENAME,WORDS FROM STORES WHERE STOREKEY="$$storekey"~;
	undef my @result; &fetch_single_record2(\@result,\$SQLQUERY);
	my $storename=$result[0];
	my $keyw=$result[1];

	my $temp_meta=$longdesc;
	$temp_meta=substr($temp_meta,0,130); 
	$temp_meta=substr($temp_meta,0,rindex($temp_meta,' ')); 
	$$metadesc=$$title.'. '.$temp_meta .' &#8230;';
	$$metadesc=~s/"/&#34;/g;        # swap out any quotation marks (unlikely to be any, but if there are it may screw up the page)
	$$metadesc =~ s|<.+?>||g;	# remove any html tags (could be an occasional "<i>" or "<b", etc.)

	for(my $i=0;$i<length($desc);$i++)
	{
	my $ord=ord(substr($desc,$i,1));
		if ($ord>126)
		{
		substr($desc,$i,1)="&#$ord;"; $i=0;
		}
	}

	for(my $i=0;$i<length($longdesc);$i++)
	{
	my $ord=ord(substr($longdesc,$i,1));
		if ($ord>126)
		{
		substr($longdesc,$i,1)="&#$ord;"; $i=0;
		}
	}

	my $domain	=$ENV{'HTTP_HOST'};

	# Only do any of this section if we have a valid blog (ie. one with a title)

	if ($$title gt'')
	{
	$$storekey=~tr/A-Z/a-z/;

	if ($longdesc eq''){$longdesc=$desc};

	$longdesc=~s/\n/<br>/g;

	$blog=join('','<h2 class="f_green" style="margin-top:4px;">',$$title,'</h2>',$banner300,$longdesc);

	undef my @relatedurls;

	if ($related gt'')
	{
	@relatedurls=split(/\n/,$related);
	}

	if ($$storekey gt'')
	{
	my $catname=''; 

	$SQLQUERY=qq~SELECT STORENAME,WORDS FROM STORES WHERE STOREKEY="$$storekey"~;
	undef my @result; &fetch_single_record2(\@result,\$SQLQUERY);
	my $catname=$result[0];
	my $keyw=$result[1];

	$$metakeyw=lc($keyw); if (index($$metakeyw,lc($catname)==-1)){$$metakeyw=lc($catname).', '.$$metakeyw;}

	$catextra='';

		if ($catname gt'')
		{
		$$title=join(': ',$catname,$$title);

		$catlink=qq~<a href="http://price-wizard.com/cgi-perl/pw.direct.pl?store=$$storekey" target="pwiz">$catname</a>~;

		$catlink2=qq~<a href="http://price-wizard.com/cgi-perl/pw.direct.pl?store=$$storekey" target="pwiz">$catname Online Store</a>~;

		$catlink2=~s/Online Online/Online /g;	# De-dupe

		# If we don't check for the img tag, then the "alt" text of any banner300 which may exist will get swapped instead, causing issues
		if (index($blog,'<img')==-1)
		{
		substr($blog,index($blog,'</h2'))=~s/$catname/$catlink/;
		}

		my ($link_script)='';

		&get_store_description(\$desc_div,\$$storekey) if ($catname gt'');

		if ($desc_div gt'')
		{
		$link_script=qq~document.write("<span id='clink' style=\\"color:#0000ff\\" onmouseover=\\"this.style.cursor='pointer';\\" onclick=\\"\$('#contactdiv2').toggleClass('disp_none');toggletext('clink','Hide Company Details','Show Company Details');\\">$catname Company Details</span>");~;
		$contactlink=qq~<script>$link_script</script><noscript><span class="col_red">This menu item requies JavaScript</span></noscript>~;
		}

		my $pwlink=qq~<li><a href="http://price-wizard.com/cgi-perl/pw.displaystore.cgi?store=$$storekey">$catname, at Price-Wizard.com</a></li>~;

		$catextra=qq~
		<h4 class="mb0">Other $catname Links:</h4>

		<div class="w100 flex_container">
			<div class="flexy1">
			<ul>
			$pwlink
			<li>$contactlink</li>
			<li><a href="http://price-wizard.com/cgi-perl/pw.catablogs.cgi?cb=$$storekey">Other $catname catablogs</a></li>
			</ul>
			</div>
		
			<div class="flexy1">
			<ul>
			<li><a href="http://digital-price.com/cgi-perl/pw.direct.pl?store=$$storekey" target="pwiz">$catname Official Website</a></li>
			</ul>
			</div>
		</div>
		$desc_div
		~;
		}
	}
	elsif($url gt'')
	{

	}


	if (@relatedurls)
	{
		my $relatedurls='<div class="w100"><h4 class="mb">Links Relating To This Article:</h4></div> <div>';

		foreach(@relatedurls)
		{
		my ($ru,$rt)=split(/\|/,$_);

		$ru=~s#mycatalogues.com/cgi2/mc.catgo.cgi\?c#price-wizard.com/cgi-perl/pw.displaystore.cgi?store#;
		$ru=~s#mycatalogues.com/cgi2/mc.go.cgi\?c#price-wizard.com/cgi-perl/pw.direct.pl?store#;

		if ( (index($relatedurls,'http://')!=-1) || (index($relatedurls,'https://')!=-1) ){
		  $relatedurls.=' &nbsp; - &nbsp; ';
 		};

		$relatedurls.=qq~<a href="$ru" target="pwiz">$rt</a>~;
		}

		$relatedurls.='</div><br>';

		$catextra.=$relatedurls;
	}


	$urlposts=''; 
	&socialmedia_links(\$urlposts);

	}
	else
	{
	$blog=join('','<h3 class="f_green" style="margin-top:4px;">Invalid CataBlog ID</h3>Sorry! The catablog ID requested is either invalid or is currently unavailable. If you reached this page from a link on our site then please feel free to let us know, and we can then take steps to fix the link. Alternatively, if you reached this page from a link on another site, you may like to let them know that one of their links may be broken.<br><br>However, all of the catablogs on this site may be reached by using the calendar-menu above, so hopefully you can still easily locate the article you were looking for.<br><br>	');
	}
	# end of "if ($$title gt'') ...


	my $headlines=''; &get_recent_headlines(\$headlines,$blogid,\$domain);

	if ($headlines gt'')
	{
	$headlines=~s/([^\000-\177])/'&#'.ord($1).';'/ge;
	$headlines=join('','<h4 class="mb3">Other Recent Shopping News:</h4>',$headlines);
	}

	my $storelink='';

	if ($catlink2 gt'')
	{
	$storelink=join('','<span class="just_r disp_block"><img src="https://price-wizard.com/pw_img/triangle.grey-13x15.webp" alt="" width="13" height="15"> &nbsp;<b>',$catlink2,'</b></span>');
	}

	&generate_monthlist(\$pmonths,\'',\'',$storekey,\'2',\$domain);

	$$html=qq~
	<h3 class="cblog1">Price-Wizard Shopping News:</h3><br>
		$pmonths<p>
	<div class="flex_container pad5"><div class="just_l flexy1">$logdate</div><div class="just_r">$storelink</div></div>
<br>

	<div class="cblog1">
	$blog
	</div>

$urlposts
<br>
	<div class="cblog1">
	$catextra
	$headlines
	</div>
<br>
<div class="w100 just_c"><a href="../links2/intf.html" title="Interflora Flowers Official Website"><img src="../images/interflora.730x92.webp" alt="Interflora Flowers, Official Website" class="responsive_img"></a></div>
~;

}1;
# --------------------------------------------------------------------------------------------------------------------------

sub get_recent_headlines{

my $headlines	=shift;		# A reference
my $blogid	=shift;		#	"
my $domain	=shift;		#	"

my $SQLQUERY=qq~SELECT TITLE,DESCRIPTION,DATE_FORMAT(LOGDATE,"%D %M, %Y"),DKEY FROM PW_CATABLOGS WHERE ACTIVE=1 AND LONGDESC>"" AND DKEY<>"$$blogid" ORDER BY LOGDATE DESC LIMIT 3~;

undef my @records; &fetch_records2(\@records,\$SQLQUERY,'^');

for (@records)
{
	my($title,$desc,$logdate,$dkey)=split(/\^/,$_);

	&numbers_only(\$dkey);

	$$headlines.=join('','<span class="f_green">',$logdate,': </span> <a href="http://',$$domain,'/cgi-perl/pw.catablogs.cgi?b=',$dkey,'">',$title,'</a><br>','',$desc,'<br><br>');
}

undef $SQLQUERY;
undef @records;

}1;
# --------------------------------------------------------------------------------------------------------------------------

sub get_store_description{

my $html	=shift;		# A reference
my $storekey	=shift;		#	"

my $counter	=0;

my $SQLQUERY=join('','SELECT STORENAME,DESCRIPTION,REALURL FROM STORES WHERE STOREKEY="',$$storekey,'"');

undef my @record; &fetch_single_record2(\@record,\$SQLQUERY);

my $storename	=$record[0];
my $desc	=$record[1];
my $realurl	=$record[2];

$$html=qq~
<div id="contactdiv2" class="disp_none">
<div class="w3-padding lh25"><h4>$storename Information</h4><br>$desc~;

$$html.=join('','<br><br>Official Website: <a href="http://price-wizard.com/cgi-perl/pw.direct.pl?store=',$$storekey,'" onmouseover="window.status=\'',$realurl,'\'; return true" onmouseout="window.status=\' \';return true">',$realurl,'</a></div>');

$$html.='</div>';

undef @record;
undef $SQLQUERY;

}1;
# --------------------------------------------------------------------------------------------------------------------------

sub socialmedia_links{

my $links = shift;	# A reference

$$links=qq~
<br>
<div class="cblog1">
<span class="f_green w3-margin-right">Share this item with other Internet shoppers:</span>
<span class="twitter-share cursor" data-js="twitter-share"><img src="../images/twitter-45x45.png" alt="Share on Twitter"></span>
<span class="facebook-share cursor" data-js="facebook-share"><img src="../images/facebook-45x45.png" alt="Share on Facebook"></span>
</div>

<script src="https://www.price-wizard.com/pw_lib/social.js"></script>
~;

}1;
# --------------------------------------------------------------------------------------------------------------------------