#!/usr/bin/perl5
# ==================================================================
# Gossamer Community
#
# Website : http://gossamer-threads.com/
# Support : http://gossamer-threads.com/scripts/support/
# CVS Info :
# NAme : birthdays.cgi
#
# Copyright (c) 2004 Gossamer Threads Inc. All Rights Reserved.
# Redistribution in part or in whole strictly prohibited. Please
# see LICENSE file for full details.
# ==================================================================

use strict;
use CGI::Carp qw(fatalsToBrowser);
use lib '/home/user/site.com/secure_data/lib';
use Community qw/comm_init comm_config comm_fatal $DB $IN $CFG/;
use GT::CGI;
use GT::Date;
use CGI::Carp qw(fatalsToBrowser);
use Carp;
require Community::Web::User;

local $SIG{__DIE__} = \&fatal;

Community::init('/home/user/site.com/secure_data');

print $IN->header();

GT::Template->parse_print("$CFG->{path_private}/templates/$CFG->{system_template_set}/message_home.html", { %$CFG }, { compress => 0 });

use Community qw/comm_init comm_config comm_fatal $DB $IN $CFG $USER/;

# Check if the user already has a valid session.
if ($IN->cookie($CFG->{session_cookie_name_session})) {
my $user = comm_auth(
session => $IN->cookie($CFG->{session_cookie_name_session}),
ip => $ENV{REMOTE_ADDR}
);
if ($user) {
# If the user has a valid session for another account, let's log that other session out
# to make sure the apps don't authenticate the user as the wrong account.
if (lc $user ne $username) {
require Community::User;
push @$cookies, Community::User::cuser_logout($user);
}
else {
$user->{action} = 'login';
return ('user_home.html', $user);
}
}
}

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

use lib '/path/to/login/lib';

use GT::CGI;
use Community qw/
comm_init
comm_config
comm_auth
comm_login_url/;

comm_init('/path/to/login');

my $IN = new GT::CGI;
my $return = "https://www.domain.com";
$return =~ s|/?$|/download.cgi?|;
$return .= $IN->query_string;
my $url = comm_login_url(return_to => $return);


my $session = $IN->cookie('Passport_Sesssion');
$session ||= $IN->param('Passport_Sesssion');

if (! $session) {
print $IN->redirect( $url ) and exit;
}

my $user = comm_auth (session => $session );
#if (! $user or $user->{app_Billing} != 2) {
if (! $user) {
print $IN->redirect( $url ) and exit;
}
else {
# Download code
}