% if ($ipAccess) {
<& blognav.mas, storyId => $id, page => $header &>
IMAGE MAIN: <image-#>
IMAGE W/CAP: <image caption="father and son">
IMAGE SQUARE: <image caption="father and son" square>
HEADER: <h3>Title</h3>
BULLET: <li>Data</li>
LINK: <a href="https://www.adagio.com/black.html" target="_new">black tea</a>
IMAGE SMALL: <image src="ceylon_sonata.jpg">
ITALIC: <span style="font-style: italic;">words here</span>
BOLD: <span style="font-weight: bold;">words here</span>
SIZE: <span style="font-size: 16px;">words here</span>



DEBUG: <% $id %>
by




Image:
1
2
3
4
5
6
7
8
% } <%init> my ($sql, $sth); my $dbh = $m->comp('/dbconnect.mas'); $sql = qq|SELECT MONTH(NOW()),DAY(NOW()),YEAR(NOW())|; $sth = $dbh->prepare($sql); $sth->execute(); my ($month, $day, $year) = $sth->fetchrow_array(); ## DETERMINE IF ACCESS IS ALLOWED FROM ADAGIO EMPLOYEE IP my $ipAccess = $m->comp('../../adagio/lib/ip_access.mas', page=>'blog_lardera'); ## WHITELIST SEO CONSULTANT IP if ($ENV{'HTTP_X_FORWARDED_FOR'} eq "188.78.244.196") {$ipAccess = 1;} my $id = $ARGS{id}; my $step = $ARGS{step}; my $yearNew = $ARGS{yearNew}; my $monthNew = $ARGS{monthNew}; my $dayNew = $ARGS{dayNew}; my $copyNew = $ARGS{copyNew}; my $authorNew = $ARGS{authorNew}; my $authorLinkNew = $ARGS{authorLinkNew}; my $dateNew = $yearNew."-".$monthNew."-".$dayNew." 00:00:00"; my $idniceNew = $ARGS{idniceNew}; my $headerNew = $ARGS{headerNew}; my $teaserNew = $ARGS{teaserNew}; my $metaNew = $ARGS{metaNew}; my $statusNew = $ARGS{statusNew}; ## CONVERT TO LOWER CASE ## CONVERT - to _ $idniceNew =~ s/_/-/g; $idniceNew = lc($idniceNew); my $imageNew = "/images2/blog/$id.jpg"; if ($ipAccess) { if ($step eq "step2") { ## DETERMINE IF ID EXISTS $sql = qq|SELECT ID FROM blog_lardera WHERE ID = ? LIMIT 1|; $sth = $dbh->prepare($sql); $sth->execute($id); my ($testExistance) = $sth->fetchrow_array(); if ($testExistance) { $sql = qq| UPDATE blog_lardera SET ID_NICE = ?, DATE_CREATED = ?, IMAGE = ?, HEADER = ?, TEASER = ?, COPY = ?, AUTHOR = ?, META = ?, STATUS = ? WHERE ID = ? |; $sth = $dbh->prepare($sql); $sth->execute($idniceNew, $dateNew, $imageNew, $headerNew, $teaserNew, $copyNew, $authorNew, $metaNew, $statusNew, $id); } else { $sql = qq| INSERT INTO blog_lardera VALUES ( NULL, ?, ?, ?, ?, ?, ?, ?, "", ?, ? ) |; $sth = $dbh->prepare($sql); $sth->execute($idniceNew, $dateNew, $imageNew, $headerNew, $teaserNew, $copyNew, $authorNew, $metaNew, $statusNew); } $m->redirect("/blog/story.html?id=$id"); } } $sql = qq| SELECT ID_NICE, DATE_FORMAT(DATE_CREATED, '%c'), DATE_FORMAT(DATE_CREATED, '%d'), DATE_FORMAT(DATE_CREATED, '%Y'), IMAGE, HEADER, TEASER, COPY, AUTHOR, AUTHOR_LINK, META, STATUS FROM blog_lardera WHERE ID = ? LIMIT 1 |; $sth = $dbh->prepare($sql); $sth->execute($id); my ($idnice, $monthNow, $dayNow, $yearNow, $image, $header, $teaser, $copy, $author, $authorLink, $meta, $status) = $sth->fetchrow_array(); my @monthOption = (); $monthOption[$monthNow] = "selected"; my @dayOption = (); $dayOption[$dayNow] = "selected"; my @yearOption = (); $yearOption[$yearNow] = "selected"; my @statusOption = (); $statusOption[$status] = "selected"; # DEFAULT DATE if (!$monthNow) { $monthOption[$month] = "selected"; } if (!$dayNow) { $dayOption[$day] = "selected"; } if (!$yearNow) { $yearOption[$year] = "selected"; } my $salt = $m->comp('../lib/images_salt.mas', uid=>"$id"); <%attr> title => 'WEBSITE_NAME - Blog'