#!/usr/bin/perl -w

use CGI::Carp "fatalsToBrowser";
use warnings;
use DBI;
use lib '../module';
use strict;
use CGI::Session;
use URI;
use vars qw($dbms $dbname $dbuser $dbpasswd $table_prefix $session $sid $dbh $lg_name);

sub add_session
{
    my ($str) = @_;
    my $cgi = new CGI;
    $sid = $cgi->cookie('YAMBE_SESSID') || $cgi->param('sid') || undef;
    my $uri = URI->new( $str );
    if (defined ($sid))
    { 
    my $path = $uri->path;
            $uri->path_query( $path . "?sid=$sid" );
    }
    return $uri;
}