#!/usr/local/bin/perl

binmode(STDIN, ":utf8");

binmode(STDOUT, ":utf8");

# must have's!

use strict;

use warnings;

use CGI::Carp qw(fatalsToBrowser);

use DBI;

use URI::Escape;

use lib "/var/www/html/Pm";

use Html qw(pre_html_header header);

use Bc_chef qw(cookie_get);

use Bc_misc qw(get_param referrer);

use Bc_sql qw(

              get_constant

              sql_execute

              user_exists

              $QUERY_PAGE

              $QUERY_UID

              $LOGGEDIN

              $DB

             );

use Security qw(banned);

my $DEBUG = 0;

my $output;

############################################################

$output = <<END;

{

  "\@context" : "http://schema.org",

  "\@type" : "LocalBusiness",

  "name" : "Night Stand",

  "image" : "https://www.night-stand.ca/img.pl?i=site/logo.png&s=logo",

  "url" : "https://www.night-stand.ca/"

}

END

############################################################

print pre_html_header();

print $output;

exit 1;