#!/usr/bin/perl
##
##

open my $rs , "hostname -I 2>&1 |";
my @ip = <$rs>;
close $rs;
my $result = join '' , @ip;
my $num = index ($result, ' ');
$result = substr($result, 0, $num);
$result =~ s/\s+//g;
$result =~ s/[[:cntrl:]]//g;
$useragent = $ENV{"HTTP_USER_AGENT"};
$browser   = get_browser_name();
sub get_browser_name
{
        local $name;

        $_ = $ENV{"HTTP_USER_AGENT"};

        if    (/Opera/i)                { $name = "Opera";}
        elsif (/Surf/i)                 { $name = "Surf"; }
        elsif (/MSIE 6/i)               { $name = "Internet Explorer Ver. 6"; }
        elsif (/Mozilla\/2/i)           { $name = "Netscape Navigator Ver. 2"; }
        elsif (/Mozilla\/3/i)           { $name = "Netscape Navigator Ver. 3"; }
        elsif (/Mozilla\/4/i    )       { $name = "Netscape Navigator Ver. 4"; }
        elsif (/Mozilla\/5|Netscape6/i) { $name = "Netscape Navigator Ver. 6"; }
        elsif (/Netscape\/7/i)          { $name = "Netscape Navigator Ver. 7"; }
        else                                    { $name = "分かりません"; }

        return $name;
}

use CGI;
$CGI::LIST_CONTEXT_WARN = 0;

system("sudo cp /etc/xdg/lxsession/LXDE-pi/autostart /var/tmp/autostart.save");system("sudo chown www-data:www-data /var/tmp/autostart.save");
if ($browser eq 'Surf')
{
system('sudo echo  "@lxterminal -e /usr/local/bin/dmonitor_update_surf" >> /var/tmp/autostart.save');
} else {
system('sudo echo  "@lxterminal -e /usr/local/bin/dmonitor_update" >> /var/tmp/autostart.save');
}
system("sudo cp /var/tmp/autostart.save /etc/xdg/lxsession/LXDE-pi/autostart");
system("sudo reboot");

