{"id":354,"date":"2020-03-30T20:09:59","date_gmt":"2020-03-31T01:09:59","guid":{"rendered":"https:\/\/sundrysites.com\/?page_id=354"},"modified":"2020-03-30T20:09:59","modified_gmt":"2020-03-31T01:09:59","slug":"create-web-pages","status":"publish","type":"page","link":"https:\/\/sundrysites.com\/index.php\/home-info\/arduino-projects\/perl-programs\/create-web-pages\/","title":{"rendered":"Create Web Pages"},"content":{"rendered":"\n

Just for fun I wrote a Perl program to generate some html code to do a simple display of a series of flags sent to it by HCA as parameters.  This program creates a file that contains the web page to be displayed.  NcFTP is then used to transmit the file to the web server.  You can see the resulting page at http:\/\/sundrysites.com\/weather\/ysst.htm.<\/a><\/p>\n\n\n\n

use warnings;
use strict;
# use Time::Piece;<\/p>\n\n\n\n

# major definitions
my $outfile = “ysst.htm”;  #
my $outln = “”;
# my $date = Time::Piece->new->strftime(‘%m\/%d\/%Y’);
my $datestring = localtime();
use Getopt::Long;  #pick up parms<\/p>\n\n\n\n

my $ti = sprintf(“%.1f”,$ARGV[0]);    #temp indoor
my $to = sprintf(“%.1f”,$ARGV[1]);    #temp office
my $tg = sprintf(“%.1f”,$ARGV[2]);    #temp garage
my $tb = sprintf(“%.1f”,$ARGV[3]);    #temp basement
my $tn = sprintf(“%.1f”,$ARGV[4]);    #temp noaa
my $rb = sprintf(“%.1f”,$ARGV[5]);    #rel humid basemnt
my $rn = sprintf(“%.1f”,$ARGV[6]);    #rel humid noaa
my $pr = sprintf(“%.0f”,$ARGV[7]);    # sump pump run<\/p>\n\n\n\n

# print $page, “\\n”;<\/p>\n\n\n\n

open OUTPUT, “> $outfile” or die “Output file open error: $!”;<\/p>\n\n\n\n

$outln = ‘<HTML><HEAD>’;
print OUTPUT $outln;
$outln = ‘<META HTTP-EQUIV=”Content-Type” CONTENT=”text\/html; charset=windows-1252″>’;
print OUTPUT $outln;
$outln = ‘<LINK REL=STYLESHEET HREF=”ysst-ss.css” TYPE=”text\/css”>’;
print OUTPUT $outln;
$outln = ‘<TITLE>YELLOW SPRINGS STATUS<\/TITLE>’;
print OUTPUT $outln;
$outln = ‘<\/HEAD><body style=”width:800px”>’;
print OUTPUT $outln;
$outln = “<center>YS Current Status as of: $datestring<br \/>”;
print OUTPUT $outln;
$outln = ‘<table BORDER CLASS=”boldtable”>’;
print OUTPUT $outln;
$outln = ‘<tr><td>TInd<\/td><td>TOff<\/td><td>TGar<\/td><td>TBas<\/td><td>TNoaa<\/td><td>HBas<\/td><td>HNoaa<\/td><td>SP#<\/td><\/tr>’;
print OUTPUT $outln;
$outln = “<tr><td>$ti<\/td><td>$to<\/td><td>$tg<\/td><td>$tb<\/td><td>$tn<\/td><td>$rb<\/td><td>$rn<\/td><td>$pr<\/td><\/tr>”;
print OUTPUT $outln;
$outln = ‘<\/table><\/center><\/body><\/html>’;
print OUTPUT $outln;<\/p>\n","protected":false},"excerpt":{"rendered":"

Just for fun I wrote a Perl program to generate some html code to do a simple display of a series of flags sent to it by HCA as parameters.  This program creates a file that contains the web page to be displayed.  NcFTP is then used to transmit the file to the web server.  … Continue reading Create Web Pages<\/span> →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"parent":352,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-354","page","type-page","status-publish","hentry"],"yoast_head":"\nCreate Web Pages - Sundrysites<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/sundrysites.com\/index.php\/home-info\/arduino-projects\/perl-programs\/create-web-pages\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Create Web Pages - Sundrysites\" \/>\n<meta property=\"og:description\" content=\"Just for fun I wrote a Perl program to generate some html code to do a simple display of a series of flags sent to it by HCA as parameters.  This program creates a file that contains the web page to be displayed.  NcFTP is then used to transmit the file to the web server.  … Continue reading Create Web Pages →\" \/>\n<meta property=\"og:url\" content=\"https:\/\/sundrysites.com\/index.php\/home-info\/arduino-projects\/perl-programs\/create-web-pages\/\" \/>\n<meta property=\"og:site_name\" content=\"Sundrysites\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data1\" content=\"2 minutes\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/sundrysites.com\\\/index.php\\\/home-info\\\/arduino-projects\\\/perl-programs\\\/create-web-pages\\\/\",\"url\":\"https:\\\/\\\/sundrysites.com\\\/index.php\\\/home-info\\\/arduino-projects\\\/perl-programs\\\/create-web-pages\\\/\",\"name\":\"Create Web Pages - Sundrysites\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/sundrysites.com\\\/#website\"},\"datePublished\":\"2020-03-31T01:09:59+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/sundrysites.com\\\/index.php\\\/home-info\\\/arduino-projects\\\/perl-programs\\\/create-web-pages\\\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/sundrysites.com\\\/index.php\\\/home-info\\\/arduino-projects\\\/perl-programs\\\/create-web-pages\\\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/sundrysites.com\\\/index.php\\\/home-info\\\/arduino-projects\\\/perl-programs\\\/create-web-pages\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/sundrysites.com\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Home Info\",\"item\":\"https:\\\/\\\/sundrysites.com\\\/index.php\\\/home-info\\\/\"},{\"@type\":\"ListItem\",\"position\":3,\"name\":\"Arduino Projects\",\"item\":\"https:\\\/\\\/sundrysites.com\\\/index.php\\\/home-info\\\/arduino-projects\\\/\"},{\"@type\":\"ListItem\",\"position\":4,\"name\":\"Perl Programs\",\"item\":\"https:\\\/\\\/sundrysites.com\\\/index.php\\\/home-info\\\/arduino-projects\\\/perl-programs\\\/\"},{\"@type\":\"ListItem\",\"position\":5,\"name\":\"Create Web Pages\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/sundrysites.com\\\/#website\",\"url\":\"https:\\\/\\\/sundrysites.com\\\/\",\"name\":\"Sundrysites\",\"description\":\"As In Various and Sundry\",\"publisher\":{\"@id\":\"https:\\\/\\\/sundrysites.com\\\/#\\\/schema\\\/person\\\/1e11ce6af1587a3431e57dfc0797ab61\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/sundrysites.com\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":[\"Person\",\"Organization\"],\"@id\":\"https:\\\/\\\/sundrysites.com\\\/#\\\/schema\\\/person\\\/1e11ce6af1587a3431e57dfc0797ab61\",\"name\":\"Wayne Gulden\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/c0392cdfb7826ed5407aad362998bc6dd03fe293560ce15ccc2211357e3cec6e?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/c0392cdfb7826ed5407aad362998bc6dd03fe293560ce15ccc2211357e3cec6e?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/c0392cdfb7826ed5407aad362998bc6dd03fe293560ce15ccc2211357e3cec6e?s=96&d=mm&r=g\",\"caption\":\"Wayne Gulden\"},\"logo\":{\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/c0392cdfb7826ed5407aad362998bc6dd03fe293560ce15ccc2211357e3cec6e?s=96&d=mm&r=g\"},\"sameAs\":[\"https:\\\/\\\/sundrysites.com\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Create Web Pages - Sundrysites","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/sundrysites.com\/index.php\/home-info\/arduino-projects\/perl-programs\/create-web-pages\/","og_locale":"en_US","og_type":"article","og_title":"Create Web Pages - Sundrysites","og_description":"Just for fun I wrote a Perl program to generate some html code to do a simple display of a series of flags sent to it by HCA as parameters.  This program creates a file that contains the web page to be displayed.  NcFTP is then used to transmit the file to the web server.  … Continue reading Create Web Pages →","og_url":"https:\/\/sundrysites.com\/index.php\/home-info\/arduino-projects\/perl-programs\/create-web-pages\/","og_site_name":"Sundrysites","twitter_card":"summary_large_image","twitter_misc":{"Est. reading time":"2 minutes"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/sundrysites.com\/index.php\/home-info\/arduino-projects\/perl-programs\/create-web-pages\/","url":"https:\/\/sundrysites.com\/index.php\/home-info\/arduino-projects\/perl-programs\/create-web-pages\/","name":"Create Web Pages - Sundrysites","isPartOf":{"@id":"https:\/\/sundrysites.com\/#website"},"datePublished":"2020-03-31T01:09:59+00:00","breadcrumb":{"@id":"https:\/\/sundrysites.com\/index.php\/home-info\/arduino-projects\/perl-programs\/create-web-pages\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/sundrysites.com\/index.php\/home-info\/arduino-projects\/perl-programs\/create-web-pages\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/sundrysites.com\/index.php\/home-info\/arduino-projects\/perl-programs\/create-web-pages\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/sundrysites.com\/"},{"@type":"ListItem","position":2,"name":"Home Info","item":"https:\/\/sundrysites.com\/index.php\/home-info\/"},{"@type":"ListItem","position":3,"name":"Arduino Projects","item":"https:\/\/sundrysites.com\/index.php\/home-info\/arduino-projects\/"},{"@type":"ListItem","position":4,"name":"Perl Programs","item":"https:\/\/sundrysites.com\/index.php\/home-info\/arduino-projects\/perl-programs\/"},{"@type":"ListItem","position":5,"name":"Create Web Pages"}]},{"@type":"WebSite","@id":"https:\/\/sundrysites.com\/#website","url":"https:\/\/sundrysites.com\/","name":"Sundrysites","description":"As In Various and Sundry","publisher":{"@id":"https:\/\/sundrysites.com\/#\/schema\/person\/1e11ce6af1587a3431e57dfc0797ab61"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/sundrysites.com\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":["Person","Organization"],"@id":"https:\/\/sundrysites.com\/#\/schema\/person\/1e11ce6af1587a3431e57dfc0797ab61","name":"Wayne Gulden","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/secure.gravatar.com\/avatar\/c0392cdfb7826ed5407aad362998bc6dd03fe293560ce15ccc2211357e3cec6e?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/c0392cdfb7826ed5407aad362998bc6dd03fe293560ce15ccc2211357e3cec6e?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/c0392cdfb7826ed5407aad362998bc6dd03fe293560ce15ccc2211357e3cec6e?s=96&d=mm&r=g","caption":"Wayne Gulden"},"logo":{"@id":"https:\/\/secure.gravatar.com\/avatar\/c0392cdfb7826ed5407aad362998bc6dd03fe293560ce15ccc2211357e3cec6e?s=96&d=mm&r=g"},"sameAs":["https:\/\/sundrysites.com"]}]}},"_links":{"self":[{"href":"https:\/\/sundrysites.com\/index.php\/wp-json\/wp\/v2\/pages\/354","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/sundrysites.com\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/sundrysites.com\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/sundrysites.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/sundrysites.com\/index.php\/wp-json\/wp\/v2\/comments?post=354"}],"version-history":[{"count":1,"href":"https:\/\/sundrysites.com\/index.php\/wp-json\/wp\/v2\/pages\/354\/revisions"}],"predecessor-version":[{"id":355,"href":"https:\/\/sundrysites.com\/index.php\/wp-json\/wp\/v2\/pages\/354\/revisions\/355"}],"up":[{"embeddable":true,"href":"https:\/\/sundrysites.com\/index.php\/wp-json\/wp\/v2\/pages\/352"}],"wp:attachment":[{"href":"https:\/\/sundrysites.com\/index.php\/wp-json\/wp\/v2\/media?parent=354"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}