#!/usr/bin/perl

###
#  

use strict;
use CGI::Carp qw(fatalsToBrowser) ;

###
#  required files			- 

use lib "/home/sites/lai" ;
use common::lai_Cookies ;
use common::lai_Dates ;
use common::lai_General ;
use www::lai_www_Config ;
use www::lai_www_Wrapper ;

###
#  get arguments sent by the link       - This subroutine (&lai_General::get_params) gets the
#                                         arguments from any queries.
#
#  Output:      $params{'date'}         - data requested for viewing

my ($params) = &lai_General::get_params ;
my %params = %$params ;

###
#  get script information       -       This subroutine (&lai_General::script_info) sends back
#                                       the information needed to be able to know what we are
#                                       going to provide.
#
#  Input:       none
#
#  Output:      $urlPath        -       where the script is located in respect to the URL
#  Output:      $resourceName   -       name of the resource being used.
#  Output:      $directoryName  -       name of the directory where the script resides.
#  Output:      $scriptName     -       name of script currently running.

my ($urlPath, $scriptName) = &lai_General::script_info($params{'info'}) ;

###
#  get cookie information       -       This subroutine (Cookies::get_cookieData('login') ;
#

my ($list_number, $name_first, $name_last, $list_type)  = split(/\,/, &lai_Cookies::get_cookieData('login'), 4) ;

###
#  print Content type

print qq~Content-type: text/html\n\n~ ;

###
#  open up the database stream		- a data stream used to get information from the MySQL
#                                         database server.  This is closed at the end of the
#                                         script.  The $dbh is used throughout to reference the
#                                         stream for queries.
#
#  Input:       $ipAddress      	- address of the MySQL server
my $ipAddress = qq~localhost~ ;
#  Input:       $tableName      	- name of table to be acessed
my $tableName = qq~lai~ ;
#  Input:       $dbUser         	- username to access the database
my $dbUser = qq~study~ ;
#  Input:       $dbPassword     	- password to access the database
my $dbPassword = qq~dziekuje~ ;
#
#  Output:      $dbh            	- handle of opened data stream

my $dbh = &lai_General::open_dataStream($ipAddress, $tableName, $dbUser, $dbPassword) ;

###
#  get resource information
#
#  Input:       $resourceLocation       - urlPath + scriptName
my $resourceLocation = $urlPath . "/" . $scriptName ;
#  Input:       $dbh                    - self explanatory

my $resourceData = &lai_General::get_metaData($resourceLocation, $dbh) ;
my @resourceData = @$resourceData ;

###
#  write header                         - This subroutine (&lai_www_Wrapper::Header) creates the top
#                                         half of the c-wrapper.  Very straight-forward in how
#                                         it does it.  NOTE:  To send additional JavaScript,
#                                         use the $extraStuff variable.
#  Input:       $metaInfo               - taken from the script_info subroutine
my $metaInfo = join "\t", @resourceData ;
#  Input:       $dbh                    - received from opening database stream
#  Input:       \*STDOUT                - STDOUT shows that this is going to the display
#  Input:       $leftColumn             - Info used to build the left column
my $leftColumn = qq~|~ ;
#  Input:       $extraStuff             - first part would be for the "onLoad" argument
#                                         additional JavaScript that needs to be executed
my $extraStuff = qq~/~ ;
#  Input:       $rssfeed                - tells if there is a feed on this page
my $rssfeed = qq~~ ;
#  Input:       $keywords               - sends the keywords searched on to the ad management software
my $keywords = qq~~ ;
#  Input:       $list_number            - is user logged in?

&lai_www_Wrapper::Header($metaInfo, $dbh, \*STDOUT, $leftColumn, $extraStuff, $rssfeed, $keywords, $list_number) ;

###
#   close database stream       	- This subroutine (&lai_General::close_dataStream) takes the
#                                         handle, $dbh, created in the initial opening of the
#                                         stream and now simply closes it.
#
#  Input:       $dbh            	- received from opening database stream

&lai_General::close_dataStream($dbh) ;


<p class=title>Privacy Policy</p>

<p><b>The privacy policy below explains in detail how information is collected about our users. Privacy is taken very seriously. LiveAsIf.org won't rent, sell, or loan any information about you. You're safe with LiveAsIf.org.</b></p>

<p>LiveAsIf.org considers your trust and right to privacy paramount. The following privacy policy outlines for your review the type of information which is gathered - and how it is used - from members, and visitors of www.liveasif.org and related areas (email subscriptions).</p>

<p><b>Two types of information are gathered:</b> <br>
<ol>
  <li>Membership data, which you provide directly in order to participate in certain services or site areas and which may or may not require both demographic information (name, email address, and so on) and preference information (username, password, desired email subscriptions, and so on), 

  <li>Usage information, which is automatically provided by each user's browser for each page requested on our site (commonly referred to as web site log data).
</ol></p>

<p><b>Membership data</b><br>
This is strictly for internal use and is not provided to any third parties such as advertisers. LiveAsIf.org will not disclose any individual user's name, e-mail address without such user's prior consent, except to the extent necessary or appropriate to comply with applicable laws or in legal proceedings where such information is relevant.</p>

<p>LiveAsIf.org does not knowingly accept or use personal profile information from children 12 years old 
or younger.</p>

<p><b>Usage (log) data</b><br>
LiveAsIf does gather and analyze users' current Internet Protocol (IP) addresses -- an address typically assigned to individual browsers by your Internet Service Provider (ISP) -- to help with a variety of site management issues, none of which allow for connecting your IP address with your personal identity. For example, log data is used to: 
<ul>
  <li>diagnose server problems,
  <li>evaluate the sources of user traffic (ie. where visitors clicked from to reach the site),
  <LI>determine traffic patterns through the site (to build better internal links and improve visitors ability to find what they want),
  <LI>understand and optimize the site for the broadest selection of browser types (again, to improve your experience).
</ul>

<p><b>Cookies</b><br>
The site uses cookies to improve your experience while you're visiting. Cookies are electronic "nametag" placed on your browser to help the servers recognize you; while you're on the site, cookies help insure things like:
<ul>
  <li>you can get customized (ie. selected by you) information without having to ask for it every visit,
  <li>you only have to log-in once - when it's even necessary - when you visit certain "members-only" areas,
</ul></p>

<p>Finally, cookies <b>do not</b> provide LiveAsIf.org with information about who you are or where you go on the Internet when you are not at our site.</p>

<p><b>Opt-in</b><br>
LiveAsIf.org acquires no personal or registration data about our users except what you explicitly and voluntarily provide (ie. membership or opt-in). We reserve the right to use this information specifically for the purposes related to your registration and generally for any necessary future communication regarding your registration or status.</p> 

<p>As part of your free subscription, from time to time we will deliver messages from the ministry that might be of specific interest to you.</p>

<p><b>correcting and updating</b><br>User registration data can be corrected or updated by using our convenient <a href="/contact.cgi">contact form</a></p>

<p><b>delete/deactivate</b><br>
You may also use our convenient <a href="/contact.cgi">contact form</a> to deactivate an account or delete an account and have it removed from our database.</p>

<p></p>

#!/usr/bin/perl

use strict;
use CGI::Carp qw(fatalsToBrowser) ;

####
#   write footer			- This subroutine (&lai_Wrapper::Footer) takes one variable
#   					  and acts accordingly.  The variable is either \*STDOUT
#   					  for sending the footer info to the screen or FILE which
#   					  tells the subroutine to send the info to a file.
#
#  Input:	\*STDOUT		- STDOUT shows that this is going to the display
 
&lai_www_Wrapper::Footer(\*STDOUT) ;