summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
7cb543c)
Prevent search engines from linking to unfinished site.
ref $_ eq 'ARRAY' and $_ = stylesheet(@$_)."\n" for $meta->{stylesheet};
# other vars
ref $_ eq 'ARRAY' and $_ = stylesheet(@$_)."\n" for $meta->{stylesheet};
# other vars
+ my $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;
my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x;
# leading output
my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x;
# leading output
EOT
say for $meta->{stylesheet} || ();
say for $meta->{raw} || ();
EOT
say for $meta->{stylesheet} || ();
say for $meta->{raw} || ();
+ say '<meta name="robots" content="noindex">' if $Dev;
say qq{</head>\n\n<body id="$file">};
say qq{</head>\n\n<body id="$file">};
- # dev indicator
- my $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;
+ # development version indicator
printf '<p style="%s">beta</p>', join('; ',
'position: fixed',
'right: 1em',
printf '<p style="%s">beta</p>', join('; ',
'position: fixed',
'right: 1em',