Remove the AdminBar module.

plainblack · Oct 11, 2011 · 917480f · 917480f
1 parent a2a3b2d
commit 917480f
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/share/upgrades/7.10.18-8.0.0/removeAdminBar.pl b/share/upgrades/7.10.18-8.0.0/removeAdminBar.pl
@@ -4,6 +4,9 @@
 
 use WebGUI::Macro;
 use WebGUI::Asset::Template;
+use File::Spec;
+use Cwd qw(realpath);
+use WebGUI::Paths;
 
 my $removeAdminBar = sub {
     my $macro = shift;
@@ -31,8 +34,15 @@
 
 done;
 
-start_step "Removing Admin Bar";
+start_step "Removing Admin Bar from config file";
 
 session->config->delete( 'macros/AdminBar' );
 
 done;
+
+start_step "Removing Admin Bar module";
+
+my $webgui_root = realpath( File::Spec->catdir( WebGUI::Paths->configBase, (File::Spec->updir) x 1) );
+unlink File::Spec->catfile($webgui_root, 'lib', 'WebGUI', 'Macro', 'AdminBar');
+
+done;