Remove the AdminBar module.

perlDreamer · perlDreamer · commit 917480fe29d5 · 2011-10-11T15:58:52.000-07:00
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;
