diff options
| author | Buchan Milne <buchan@mageia.org> | 2010-11-04 15:26:50 +0000 |
|---|---|---|
| committer | Buchan Milne <buchan@mageia.org> | 2010-11-04 15:26:50 +0000 |
| commit | d57ebd05a5de373dc4698002831164187ebdfd02 (patch) | |
| tree | 793e59a9156e3c29b34939de0e6630bc1d1dfc0e /lib/CatDap/Controller | |
| parent | f867429bab6efe18a21c4fd531ecbe4eff8cff40 (diff) | |
| download | identity-d57ebd05a5de373dc4698002831164187ebdfd02.tar identity-d57ebd05a5de373dc4698002831164187ebdfd02.tar.gz identity-d57ebd05a5de373dc4698002831164187ebdfd02.tar.bz2 identity-d57ebd05a5de373dc4698002831164187ebdfd02.tar.xz identity-d57ebd05a5de373dc4698002831164187ebdfd02.zip | |
Dont use Data::Dumper
Diffstat (limited to 'lib/CatDap/Controller')
| -rw-r--r-- | lib/CatDap/Controller/admin.pm | 6 | ||||
| -rw-r--r-- | lib/CatDap/Controller/register.pm | 4 | ||||
| -rw-r--r-- | lib/CatDap/Controller/user.pm | 2 |
3 files changed, 6 insertions, 6 deletions
diff --git a/lib/CatDap/Controller/admin.pm b/lib/CatDap/Controller/admin.pm index 7632df4..d44bf71 100644 --- a/lib/CatDap/Controller/admin.pm +++ b/lib/CatDap/Controller/admin.pm @@ -2,7 +2,7 @@ package CatDap::Controller::admin; use Moose; use namespace::autoclean; use Data::UUID; -use Data::Dumper; +#use Data::Dumper; use Net::LDAP::Extension::SetPassword; BEGIN { extends 'Catalyst::Controller'; } @@ -447,7 +447,7 @@ sub account_addoc : Local { if ($haveall) { $entry->add( objectClass => [$objectclass] ); $c->log->debug("About to push updates to $dn"); - $c->log->debug( Dumper( \$entry->changes ) ); + #$c->log->debug( Dumper( \$entry->changes ) ); $mesg = $entry->update; push @errors, $mesg->error if $mesg->code; $c->stash( template => 'admin/account.tt', errors => @errors ); @@ -506,7 +506,7 @@ sub password : Local { # send the mail in the users preferred language my @oldlang = $c->languages; if ($entry->preferredLanguage) { - $c->log->debug("Setting languages to: " . Dumper($entry->preferredLanguage)); + #$c->log->debug("Setting languages to: " . Dumper($entry->preferredLanguage)); $c->languages([$entry->preferredLanguage]); } $c->stash( diff --git a/lib/CatDap/Controller/register.pm b/lib/CatDap/Controller/register.pm index 5ad8e19..0e17699 100644 --- a/lib/CatDap/Controller/register.pm +++ b/lib/CatDap/Controller/register.pm @@ -91,8 +91,8 @@ sub check : Local { my $password = $ug->create_str(); my $cn = $c->request->params->{gn} . " " . $c->request->params->{sn}; $c->log->info("Creating account for user $username"); - $c->log->debug("Preferred language(s)"); - $c->log->debug(Dumper($c->languages)); + #$c->log->debug("Preferred language(s)"); + #$c->log->debug(Dumper($c->languages)); $mesg = $c->model('Proxy')->add($dn, attr => [ objectclass => [ 'inetOrgPerson' ], diff --git a/lib/CatDap/Controller/user.pm b/lib/CatDap/Controller/user.pm index f0220f2..439f86e 100644 --- a/lib/CatDap/Controller/user.pm +++ b/lib/CatDap/Controller/user.pm @@ -7,7 +7,7 @@ use Net::LDAP::Extension::SetPassword; use Net::LDAP::Control::PasswordPolicy 0.02; use Crypt::CBC; use Data::UUID; -use Data::Dumper; +#use Data::Dumper; BEGIN {extends 'Catalyst::Controller'; } |