38 lines
870 B
Perl
38 lines
870 B
Perl
use WebGUI::Upgrade::Script;
|
|
|
|
start_step "Editing templates to remove AdminBar macro calls";
|
|
|
|
use WebGUI::Macro;
|
|
use WebGUI::Asset::Template;
|
|
|
|
my $removeAdminBar = sub {
|
|
my $macro = shift;
|
|
if ($macro->{macro} eq 'AdminBar' || $macro->{macroPackage} eq 'WebGUI::Macro::AdminBar' ) {
|
|
return '';
|
|
}
|
|
else {
|
|
return;
|
|
}
|
|
};
|
|
my $iter = WebGUI::Asset::Template->getIsa( session );
|
|
ASSET: while (1) {
|
|
my $template = eval { $iter->() };
|
|
if (my $e = Exception::Class->caught()) {
|
|
session->log->error($@);
|
|
next ASSET;
|
|
}
|
|
last ASSET unless $template;
|
|
|
|
my $content = $template->template;
|
|
WebGUI::Macro::transform( session, \$content, $removeAdminBar );
|
|
$template->template( $content );
|
|
$template->write;
|
|
}
|
|
|
|
done;
|
|
|
|
start_step "Removing Admin Bar";
|
|
|
|
session->config->delete( 'macros/AdminBar' );
|
|
|
|
done;
|