branches/old/gosa-plugins/mail/addons/mailqueue/main.inc

   1 <?php
   2 /*
   3   This code is part of GOsa (https://gosa.gonicus.de)
   4   Copyright (C) 2003  Cajus Pollmeier
   5
   6   This program is free software; you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation; either version 2 of the License, or
   9   (at your option) any later version.
  10
  11   This program is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with this program; if not, write to the Free Software
  18   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19 */
  20
  21 if (!$remove_lock){
  22         /* Create mailqueue object on demand */
  23         if (!session::is_set('mailqueue') || (isset($_GET['reset']) && $_GET['reset'] == 1)){
  24                 $ui = get_userinfo();
  25                 $mailqueue= new mailqueue ($config);
  26                 $mailqueue->set_acl_category("mailqueue");
  27
  28                 /* Check root dn and user dn for acl informations */
  29                 $mailqueue->set_acl_base($config->current['BASE']);
  30                 if($mailqueue->getacl("") == ""){
  31                         $mailqueue->set_acl_base($ui->dn);
  32                 }
  33                 session::set('mailqueue',$mailqueue);
  34         }
  35         $mailqueue = session::get('mailqueue');
  36
  37         /* Execute formular */
  38         $mailqueue->save_object();
  39         $display= $mailqueue->execute ();
  40         $display.= "<input type=\"hidden\" name=\"ignore\">\n";
  41
  42         /* Page header*/
  43         $display= print_header(get_template_path('plugins/mail/images/mailqueue.png'), _("Mail queue")).$display;
  44
  45         /* Store changes  in session */
  46         session::set('mailqueue',$mailqueue);
  47 }
  48 ?>