#!/usr/bin/perl
# BEGIN{
# $| = 1;
# print "Content-type: text/plain\n\n";
# open(STDERR, ">&STDOUT");
# }
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# SmartView Replacer
# (C) 2011 R.S., All Rights Reserved.
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
use strict;
use warnings;
my $Ver = "1.0";
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# Settings
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
my $Charset = "utf-8";
my $ViewPort = '';
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# Add viewport
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
my $ReplaceFileName = $ENV{'SCRIPT_NAME'};
$ReplaceFileName =~ s|.*/([^/]+)\.cgi$|$1\.html|;
my @Contents = ();
open(IN, $ReplaceFileName) || &Error("File not found.");
@Contents = ;
close(IN);
my $UA = $ENV{'HTTP_USER_AGENT'};
print "Content-type: text/html;charset=$Charset\n\n";
my $Line;
foreach $Line (@Contents) {
if ($UA =~ /iPhone|iPod|Android|BlackBerry|IEMobile/) {
$Line =~ s|id=\"([\w-]+)\"|id=\"\1_SP\"|i;
$Line =~ s|class=\"([\w-]+)\"|class=\"\1_SP\"|i;
if ($Line =~ //i) {
print $Line . "\n " . $ViewPort;
} elsif ($Line =~ /![]()
Error$ViewPort";
exit;
}
exit;