#  $Id: debug_change.pm,v 1.5 2006/03/28 13:37:10 jonas Exp $  -*-perl-*-
package Para::Frame::Action::debug_change;
#=====================================================================
#
# DESCRIPTION
#   Paranormal.se change debug level
#
# AUTHOR
#   Jonas Liljegren   <jonas@paranormal.se>
#
# COPYRIGHT
#   Copyright (C) 2004-2006 Jonas Liljegren.  All Rights Reserved.
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
#=====================================================================

use strict;

use Para::Frame::Logging;
use Para::Frame::Utils qw( debug );

sub handler
{
    my( $req ) = @_;

    my $q = $req->q;
    my $s = $req->s;


    my $level = $q->param('debuglevel');
    $level = $s->debug_level unless defined $level;

    my $txt = "";

    if( $level != $s->debug_level )
    {
	$s->set_debug( $level );
	$txt .= "Changed session debug level to $level\n";
    }

    my $global_level = $q->param('debuglevel-global');
    $global_level = $Para::Frame::CFG->{'debug'} unless defined $global_level;

    if( $global_level != $Para::Frame::CFG->{'debug'} )
    {
	$Para::Frame::CFG->{'debug'} = $global_level;
	$txt .= "Changed global debug level to $global_level\n";
    }

    foreach my $key ( $q->param )
    {
	debug "Looking at key $key";
	if( $key =~ /^watch_(.*)/ )
	{
	    if( $q->param($key) )
	    {
		$Para::Frame::Logging::WATCH{$1} = $q->param($key);
	    }
	    else
	    {
		delete $Para::Frame::Logging::WATCH{$1};
	    }
	}
    }

    if( my $key = $q->param('new_watch_sub') )
    {
	if( my $val = $q->param('new_watch_level') )
	{
	    $Para::Frame::Logging::WATCH{$key} = $val;
	}

	$q->delete('new_watch_sub');
	$q->delete('new_watch_level');
    }

    return $txt;
}

1;


=head1 NAME

Para::Frame::Action::debug_change - changing the debug level

=cut