view release on metacpan or  search on metacpan

lib/Drupal/Admin.pm  view on Meta::CPAN

    $self->mech->get($url);
    $self->mech->form_id('system-site-maintenance-settings');
    $self->mech->set_fields('site_offline',0);
    $self->mech->click_button(value => 'Save configuration');
    $self->_die("Offline failed") unless ($self->mech->success);
}


# WARNING this has a dependency on an English string
# die()s if errors are detected
sub update {
  my($self) = @_;

  $self->log_trace("Entering update()");

  my $url = $self->{baseurl} . '/update.php';
  my $response = $self->mech->get($url);
  $self->_die('Access denied to update.php')
      if $self->mech->response->decoded_content =~ /access denied/i;
  $self->_update_check_errors;