view release on metacpan or  search on metacpan

lib/FWS/V2/Display.pm  view on Meta::CPAN

                                        $valueHash{type} = 'FWSLogin';
                                    }
                                    else {
                                        $valueHash{type} = '';
                                    }
                                }
                            }
                        }

                        #
                        # If your a mobile device, and your mobile is set to (2) show desktop only then eat the type
                        #
                        if ( $ENV{HTTP_USER_AGENT} =~ /mobile/i && $valueHash{showMobile} eq '2' ) {
                            $valueHash{type} = '';
                        }

                        #
                        # If your NOT a mobile device, and your mobile is set to (1) show mobile only then eat the type
                        #
                        if ( $ENV{HTTP_USER_AGENT} !~ /mobile/i && $valueHash{showMobile} eq '1' ) {
                            $valueHash{type} = '';