diff --git a/modules/lemonldap-ng-manager/example/experimental.pl b/modules/lemonldap-ng-manager/example/experimental.pl index ba1078afd..6d6d5be5f 100755 --- a/modules/lemonldap-ng-manager/example/experimental.pl +++ b/modules/lemonldap-ng-manager/example/experimental.pl @@ -42,12 +42,7 @@ $h->doall(); package Lemonldap::NG::Manager::Experimental; use strict; -use MIME::Base64; use Lemonldap::NG::Handler::CGI qw(:globalStorage :locationRules); -use Lemonldap::NG::Common::Conf::Constants; #inherits -use Lemonldap::NG::Common::Safelib; #link protected safe Safe object - -#require Lemonldap::NG::Manager::_Struct; #inherits our $VERSION = '0.1'; our ( $stylesheet, $parser ); @@ -56,8 +51,7 @@ our @ISA; BEGIN { require Lemonldap::NG::Manager::Help; #inherits *process = *doall; - @ISA = - qw(Lemonldap::NG::Handler::CGI Lemonldap::NG::Manager::_Struct Lemonldap::NG::Manager::Uploader); + @ISA = qw(Lemonldap::NG::Handler::CGI Lemonldap::NG::Manager::Downloader Lemonldap::NG::Manager::Uploader Lemonldap::NG::Manager::_Struct); } sub new { @@ -99,11 +93,18 @@ sub doall { $self->confUpload($rdata); $self->quit(); } + elsif ( my $id = $self->param('newNode') ) { + print $self->header( -type => 'text/html; charset=utf8', ); + print '