File Coverage

blib/lib/CMS/Drupal/Admin/MaintenanceMode.pm

Criterion	Covered	Total	%
statement	9	24	37.5
branch	0	6	0.0
condition	0	6	0.0
subroutine	3	6	50.0
pod	3	3	100.0
total	15	45	33.3

package CMS::Drupal::Admin::MaintenanceMode;
$CMS::Drupal::Admin::MaintenanceMode::VERSION = '0.94';
# ABSTRACT: Put your Drupal site into Maintenance Mode, or take it out

use strict;
use warnings;

use base "Exporter::Tiny";
our @EXPORT = qw/ maintenance_mode_check
                  maintenance_mode_on
                  maintenance_mode_off /;

sub maintenance_mode_check {
  my $dbh = shift;

  my $sql = qq|
    SELECT value
    FROM variable
    WHERE name = 'maintenance_mode'
  |;

  return ( $dbh->selectrow_array( $sql ) eq 'i:1;' ) ? 1 : 0;
}

sub maintenance_mode_on {
  my $dbh = shift;

  my $sql1 = qq|
    UPDATE variable
    SET value = 'i:1;'
    WHERE name = 'maintenance_mode'
  |;

  my $rv1 = $dbh->do( $sql1 );

  my $sql2 = qq|
    DELETE FROM cache_bootstrap
    WHERE cid = 'variables'
  |;

  my $rv2 = $dbh->do( $sql2 );

  # cache_bootstrap may not have an entry
  # for 'variables' so we allow 0E0
  return ( $rv1 > 0  and $rv2 >= 0 ) ? 1 : 0;
}

sub maintenance_mode_off {
  my $dbh = shift;

  my $sql1 = qq|
    UPDATE variable
    SET value = 'i:0;'
    WHERE name = 'maintenance_mode'
  |;

  my $rv1 = $dbh->do( $sql1 );

  my $sql2 = qq|
    DELETE FROM cache_bootstrap
    WHERE cid = 'variables'
  |;

  my $rv2 = $dbh->do( $sql2 );

  # cache_bootstrap may not have an entry
  # for 'variables' so we allow 0E0
  return ( $rv1 > 0 and $rv2 >= 0 ) ? 1 : 0;
}

1; # return true

__END__