view release on metacpan or  search on metacpan

html/Journal/User/dhandler  view on Meta::CPAN

my $entry;
if ($argument =~ /^(.*?)\/Logout/) {
 	tied(%session)->delete;
	$username = $1;
}
if ($argument =~ /^(.*?)\/RSS$/) {
	$username = $1;
	$category = 'RSS';
} elsif ($argument =~ /^(.*?)\/Prefs/) {
	$username = $1;
	$mode = 'prefs';
} elsif ($argument =~ /^(.*?)\/Category\/(.*)$/) {
	$username = $1;
	$category = $2;
} elsif ($argument =~ /^(.*?)\/Entry\/(.*)$/) {
	$username = $1;
	$entry = $2;
} else {
	$username = $argument;	
	$username =~ s!/!!g;
}

html/Journal/User/dhandler  view on Meta::CPAN

$category =~ s#/$##;

my $user = RT::User->new($RT::SystemUser);
$user->Load($username);
unless($user->Id) {
	$m->comp("../Elements/Abort", Message =>"User not found");
	
}


if ($mode eq 'prefs') {
	 $m->comp('/Journal/Prefs.html');
	$m->abort();

}

my $guest_user = RT::CurrentUser->new('guest');
my $q = RT::Queue->new($RT::SystemUser);
$q->Load($RT::JournalQueue);

my $cat = RT::CustomField->new($RT::SystemUser);