Files
luos/rbac/engine/methods/rbac/authNew2.php
2011-09-05 12:47:25 -04:00

48 lines
1.5 KiB
PHP
Executable File

<?php
/**
* authNew2.php
*
* ProcessMaker Open Source Edition
* Copyright (C) 2004 - 2008 Colosa Inc.23
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU Affero General Public License as
* published by the Free Software Foundation, either version 3 of the
* License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Affero General Public License for more details.
*
* You should have received a copy of the GNU Affero General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*
* For more information, contact Colosa Inc, 2566 Le Jeune Rd.,
* Coral Gables, FL, 33134, USA, or email info@colosa.com.
*
*/
$frm = $_POST['form'];
$code = strtoupper ( $frm['APP_CODE']);
$description = $frm['APP_DESCRIPTION'];
$dbc = new DBConnection(DB_HOST, DB_RBAC_USER, DB_RBAC_PASS, DB_RBAC_NAME );
//crear nueva authentication source
G::LoadClassRBAC ('authentication');
$obj = new authenticationSource;
$obj->SetTo( $dbc );
$res = $obj->newSource ( $frm );
if ($res <= 0 ) {
//G::SendMessage ( -$res, "error");
header ("location: authNew");
die;
}
$HTTP_SESSION_VARS['CURRENT_AUTH_SOURCE'] = $res;
header( "location: authenticationList.html" );
?>