Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

package DivBasicF::AutoSession;

use strict;
use Data::Dumper;
use CGI;
use CGI::Session;

my $cookie_printed = 0;
my $cgi;
my $session;

sub get_session {
	if (!$cookie_printed) {
		$cgi = new CGI;
		$session = new CGI::Session->new("driver:File", $cgi, {Directory=>'/tmp'});
    	$cookie_printed = 1;
	}
	
	return $session;
}

sub logout {
	my $session = get_session();
	$session->clear;
   	$session->delete();
}

sub login {
	my $user = shift;
	my $session = get_session();
	set("user",$user);
	set("logged_in",1);
}

sub is_logged_in {
	my $session = get_session();
	my $user = get("user");
	return $user ne '' && get("logged_in");
}

sub set {
	my $var = shift;
	my $val = shift;
	my $session = get_session();
	$session->param($var, $val);
	$session->flush();
}

sub get {
	my $var = shift;
	my $session = get_session();
	return $session->param($var);
}

sub user {
	my $session = get_session();
	return get("user");
}

sub set_active_project {
	my $project = shift;
	my $session = get_session();
	set("active_project", $project);
}

sub get_active_project {
	my $session = get_session();
	return get("active_project");
}

sub set_active_node_path {
	my $path = shift;
	my $session = get_session();
	set("active_node_path", $path);
}

sub get_active_node_path {
	my $session = get_session();
	return get("active_node_path");
}

1;