#!/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) ;

statement of faith

LiveAsIf.org is part of a Christ-centered, Bible-based Internet ministry called StudyLight.org and is not apart of any one church group or denomination. The following is the statement of faith to which we subscribe:

  1. We believe the Bible to be the inspired, the only infallible authoritative Word of God.

  2. We believe the Triune Godhead exists in One Eternal, Transcendent, Omnipotent, personal God, manifested in three Persons: Father, Son, and Holy Spirit.

  3. The substitutionary and redemptive sacrifice of the Lord Jesus Christ for the sin of the world, through His literal physical death, burial, and bodily resurrection followed by His ascension into Heaven.

  4. We believe in the regeneration by the Holy Spirit as absolutely essential for the salvation of lost and sinful men.

  5. We believe in the present ministry of the Holy Spirit, by Whose indwelling the Christian is enabled to live the Godly life.

  6. We believe in personal salvation from the eternal penalty of sin, provided exclusively by the grace of God on the basis of the atoning death and resurrection of the Lord Jesus Christ, to be received only through individual faith in His Person and redemptive work on the cross, and to be followed with a life characterized by the empowering grace of the Holy Spirit, giving evidence in loving service and adherence to the principles and practices of the Christian Faith as set forth in the New Testament.

  7. We believe in the future personal, bodily return of the Lord Jesus Christ to the earth to judge and establish His eternal kingdom and to consummate and fulfill all His purposes, the works of creation, and redemption, with eternal reward for believers and eternal punishments for the unsaved.

  8. We believe in the spiritual unity of believers in Christ, and the evidence of that unity being shown by how we love one another and conduct our ministry.

#!/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) ;