function main()
{
echo "<h1>View Build Log</h1>";
?>
<p>Currently viewing the log for application code "
<b><?php
echo gp('application');
?>
</b>". Click any
of the links below to see the logs for the particular application:</p>
<?php
// Run out list of apps they can see
echo "<hr>\n";
$results = SQL("select * from applications");
while ($row = pg_fetch_array($results)) {
echo HTMLE_A_STD($row["application"] . " - " . $row["description"], "a_builder_log", "gp_out=info&application=" . $row["application"]) . "<br>\n";
}
echo "<hr>\n";
// Make up a filename
global $AG;
$t = pathinfo(__FILE__);
$pLogDir = $t["dirname"];
$pLogFile = "AndroDBB." . CleanGet("application") . ".log";
$pLogPath = "{$pLogDir}/{$pLogFile}";
if (!file_exists($pLogPath)) {
echo "<p>There is no build log file for this application at this time. This usually\n\t\t\t\tmeans that the application has not been built yet. Try launching a build process\n\t\t\t\tand then coming back to this page.</p>";
return;
}
//echo "<pre style=\"background-color: silver; color: blue\">";
$fgc = file_get_contents($pLogPath);
$fgc = str_replace("\n", "<br>", $fgc);
echo "<div style=\"font: 10pt courier; color: navy;\">" . $fgc . "</div>";
//echo file_get_contents($pLogPath);
//echo "</pre>";
return "View Build/Update Log for: " . CleanGet("application");
}
function HiddenRepeat($var, $default = '')
{
$retval = CleanGet($var, $default, false);
hidden($var, $retval);
return $retval;
}
/**
name:SQLX_Update
parm:string/array table
parm:array Row
In its most basic form, this routine accepts a [[Row Array]]
and attempts to update that row in the table.
The first entry can be either a [[Table Reference]] or the name of
a table. The second entry is always a [[Row Array]]. This function
makes use of the dictionary to determine the correct formatting of all
columns, and ignores any column in the [[Row Array]] that is not
in the table.
*/
function SQLX_Update($table, $colvals, $errrow = array())
{
if (!is_array($table)) {
$table = DD_TableRef($table);
}
$table_id = $table["table_id"];
$view_id = DDTable_IDResolve($table_id);
$tabflat =& $table["flat"];
$sql = "";
$st_skey = isset($colvals["skey"]) ? $colvals["skey"] : CleanGet("gp_skey");
foreach ($tabflat as $colname => $colinfo) {
if (isset($colvals[$colname])) {
if (DD_ColUpdatesOK($colinfo)) {
$sql .= ListDelim($sql) . $colname . " = " . SQL_FORMAT($colinfo["type_id"], $colvals[$colname]);
}
}
}
if ($sql != '') {
$sql = "UPDATE " . $view_id . " SET " . $sql . " WHERE skey = " . $st_skey;
// ERRORROW CHANGE 5/30/07, big change, SQLX_* routines now save
// the row for the table if there was an error
$errflag = false;
#hprint_r($sql);
SQL($sql, $errflag);
if ($errflag) {
vgfSet('ErrorRow_' . $table_id, $errrow);
}
// Possibly cache the row
if (!Errors()) {
$cache_pkey0 = vgfget('cache_pkey', array());
$cache_pkey = array_flip($cache_pkey0);
if (isset($cache_pkey[$table_id])) {
CacheRowPutBySkey($table, $st_skey);
}
}
}
}
function EmailBlast(&$rows, &$a_skeys, $EmailColumn, $aDispCols)
{
$subject = trim(CleanGet('txt_subject'));
$email_text = trim(CleanGet('txt_email'));
?>
<h2>Email Transmit Report</h2>
<p>Recipients are listed below. If a recipient
has a missing or invalid email, the administrator
will get a "bounce" message, which you can use to
correct the recipient's email address.
</p>
<?php
foreach ($a_skeys as $skey) {
if (CleanGet('embox' . $skey, '', false) == '') {
continue;
}
$namepart = '';
foreach ($aDispCols as $col) {
$namepart .= trim($rows[$skey][$col]) . ' ';
}
$recipient = $namepart . '<' . $rows[$skey][$EmailColumn] . '>';
EmailSend($recipient, $subject, $email_text);
echo $namepart . ' ' . $rows[$skey][$EmailColumn] . '<br>';
}
}
function MD5_ForgotPage0()
{
// Next time around go to page 1
vgfSet("HTML_focus", "txt_email");
echo hErrors();
?>
<input type="hidden" name="gpp" value="1">
<p>Please enter your user_id below so that we can process your
request. You will be sent an email that contains
further instructions.</p>
<p>This page is <b>case-sensitive</b>, so that 'John' is
not the same thing as 'JOHN' or 'john'.</p>
<p>User id:
<input name="txt_user_id" id="txt_user_id" width="30"
value="<?php
echo CleanGet("txt_user_id", "", false);
?>
"></input>
</p>
<br><br>
<button type="submit" value="Submit">Submit</button>
<?php
}
function index_hidden_page()
{
global $AG;
$sessok = !LoggedIn() ? false : true;
// KFD 3/6/08, moved here from the main stream of index_hidden
// because these are relevant only to page processing
if (gpExists('x_module')) {
SessionSet('AGMENU_MODULE', gp('x_module'));
} elseif (vgaGet('nomodule') != '' && SessionGet('AGMENU_MODULE') == '') {
SessionSet('AGMENU_MODULE', vgaGet('nomodule'));
}
// If the search flag is set, we need to know what class for this
// application handles searchs
if (gpExists('gp_search')) {
gpSet('gp_page', vgaGet('SEARCH_CLASS'));
}
// Load up a list of pages that public users are allowed to see,
// with home and password always there.
global $MPPages;
// allows it to be in applib
$MP = array();
//$MPPages= array();
// This is the old method, load $MPPages from its own file
if (file_exists_incpath('appPublicMenu.php')) {
include_once 'appPublicMenu.php';
}
if (!is_array($MPPages)) {
$MPPages = array();
}
$MPPages['x_home'] = 'Home Page';
$MPPages['x_login'] = '******';
$MPPages['x_noauth'] = 'Authorization Required';
$MPPages['x_password'] = "******";
$MPPages['x_mpassword'] = "******";
$MPPages['x_paypalipn'] = 'Paypal IPN';
// If the install page exists, it will be used, no getting
// around it.
$install = $GLOBALS['AG']['dirs']['application'] . 'install.php';
$instal2 = $GLOBALS['AG']['dirs']['application'] . 'install.done.php';
if (file_exists($install)) {
if (gp('gp_install') == 'finish') {
rename($install, $instal2);
} else {
$MPPages['install'] = 'install';
gpSet('gp_page', 'install');
}
}
// First pass is to look for the "flaglogin" flag. This says save all
// current page settings and go to login screen. They will be restored
// on a successful login. Very useful for links that say "Login to
// see nifty stuff..."
if (gp('gp_flaglogin') == '1') {
gpSet('gp_flaglogin', '');
gpToSession();
gpSet('gp_page', 'x_login');
}
// Second pass redirection, pick default page if there
// is none, and verify public pages.
//
$gp_page = gp('gp_page');
if ($gp_page == '') {
if (vgfGet('LoginAttemptOK') === true && vgfGet('x4') === true) {
$gp_page = 'x4init';
gpSet('gp_page', 'x4init');
SessionSet('TEMPLATE', 'x4');
} else {
if (function_exists('appNoPage')) {
$gp_page = appNoPage();
} else {
if (!LoggedIn()) {
$gp_page = FILE_EXISTS_INCPATH('x_home.php') ? 'x_home' : 'x_login';
} else {
// KFD 3/2/07, pull vga stuff to figure defaults
if (vgaGet('nopage') != '') {
$gp_page = vgaGet('nopage');
} else {
$gp_page = 'x_welcome';
}
}
}
}
}
// If they are trying to access a restricted page and are not
// logged in, cache their request and redirect to login page
if (!$sessok && !isset($MPPages[$gp_page])) {
if (vgfGet('loglogins', false)) {
fwLogEntry('1014', 'Page access w/o login', $gp_page);
}
gpToSession();
$gp_page = 'x_login';
}
// If pos is activated and the current requested page does not
// match what they are cleared for, redirect to login
if (vgaGet('POS_SECURITY', false) == true && SessionGet('ADMIN') == false) {
if (SessionGet('POS_PAGE', '', 'FW') != $gp_page) {
gpToSession();
$gp_page = 'x_login';
}
}
gpSet('gp_page', $gp_page);
// Make any database saves. Do this universally, even if save
// was not selected. If errors, reset to previous request.
//if(gp('gp_save')=='1') processPost();
processPost();
if (Errors()) {
gpSetFromArray('gp_', aFromGp('gpx_'));
}
// Put Userid where HTML forms can find it
//vgfSet("UID",SessionGet("UID"));
//if (vgfSet("UID")=="") { vgfSet("UID","Not Logged In"); }
// THIS IS NEWER X_TABLE2 version of drilldown commands,
// considerably simpler than the older ones. It makes use of
// three gp_dd variables.
//
// Notice how we process drillbacks FIRST, allowing a link
// to contain both drillback and drilldown, for the super-nifty
// effect of a "drill-across"
hidden('gp_dd_page');
hidden('gp_dd_skey');
hidden('gp_dd_back');
if (intval(gp('gp_dd_back')) > 0 && $sessok) {
// this is drillback
$dd = ContextGet('drilldown', array());
$back = intval(gp('gp_dd_back'));
if (count($dd) >= $back) {
$spot = count($dd) - $back;
$aback = $dd[$spot];
gpSet('gp_skey', $aback['skey']);
gpSet('gp_page', $aback['page']);
$gp_page = $aback['page'];
gpSet('gpx_skey', $aback['skey']);
gpSet('gpx_page', $aback['page']);
gpSetFromArray('parent_', $aback['parent']);
if (!gpExists('gp_mode')) {
gpSet('gp_mode', 'upd');
}
$dd = $spot == 0 ? array() : array_slice($dd, 0, $spot);
ContextSet('drilldown', $dd);
ContextSet('drilldown_top', $aback['page']);
//ContextSet('drilldown_level',count($dd));
}
}
if (gp('gp_dd_page') != '' && $sessok) {
// this is drilldown...
$matches = DrillDownMatches();
$matches = array_merge($matches, aFromGP('parent_'));
$dd = ContextGet('drilldown', array());
$newdd = array('matches' => $matches, 'parent' => aFromGP('parent_'), 'skey' => gp('gpx_skey'), 'page' => gp('gpx_page'));
$dd[] = $newdd;
ContextSet('drilldown', $dd);
ContextSet('drilldown_top', gp('gp_dd_page'));
//ContextSet('drilldown_level',count($dd));
// having saved the stack, redirect to new page.
$tnew = gp('gp_dd_page');
$gp_page = $tnew;
gpSet('gp_page', $tnew);
if (gp('gp_dd_skey') != '') {
gpSet('gp_skey', gp('gp_dd_skey'));
gpSet('gp_mode', 'upd');
}
// Clear search of new page, set filters to blank
processPost_TableSearchResultsClear($tnew);
ConSet('table', $tnew, 'search', array());
}
// If no drilldown commands were received, and we are not on
// the page that is the top, user must have picked a new page
// altogether, wipe out the drilldown stack
if (gp('gp_page') != ContextGet('drilldown_top', '')) {
ContextSet('drilldown', array());
ContextSet('drilldown_top', '');
}
// Must always have these on the user's form. These can
// be retired with x_Table, they are for old drilldown
//
hidden("dd_page", "");
hidden("dd_ddc", "");
hidden("dd_ddv", "");
hidden("dd_ddback", "");
hidden("dd_action", "searchexecute");
hidden("dd_skey", "");
// Load user preferences just before display
UserPrefsLoad();
$dir = $GLOBALS['AG']['dirs']['root'] . 'application/';
if (file_exists($dir . $gp_page . ".page.yaml")) {
include 'androPage.php';
$obj_page = new androPage();
if ($obj_page->flag_buffer) {
ob_start();
}
$obj_page->main($gp_page);
if ($obj_page->flag_buffer) {
vgfSet("HTML", ob_get_clean());
//ob_end_clean();
}
vgfSet("PageSubtitle", $obj_page->PageSubtitle);
} else {
$obj_page = DispatchObject($gp_page);
if ($obj_page->flag_buffer) {
ob_start();
}
$obj_page->main();
if ($obj_page->flag_buffer && vgfGet('HTML') == '') {
vgfSet("HTML", ob_get_contents());
ob_end_clean();
}
vgfSet("PageSubtitle", $obj_page->PageSubtitle);
}
// Save context onto the page. Note that it is not really
// protected by these methods, just compressed and obscured.
//
$t2 = serialize($GLOBALS['AG']['clean']['gpContext']);
$t2 = gzcompress($t2);
$t2 = base64_encode($t2);
Hidden('gpContext', $t2);
// KFD 3/7/07, give the app the final opportunity to process
// things before the display, while logged in.
if (function_exists('appdisplaypre')) {
appDisplayPre();
}
// ...and write output and we are done. Assume if there was
// no buffering that the output is already done.
if ($obj_page->flag_buffer != false) {
// Work out what template we are using
index_hidden_template('x2');
// KFD 5/30/07, send back only main content if asked
if (gp('ajxBUFFER') == 1) {
echo "andromeda_main_content|";
ehStandardContent();
echo "|-|_focus|" . vgfGet('HTML_focus');
$ajax = ElementReturn('ajax', array());
echo '|-|' . implode('|-|', $ajax);
echo '|-|_title|' . vgfGet('PageTitle');
} elseif (defined('_VALID_MOS')) {
// This is the default branch, using a Joomla template
// DUPLICATE ALERT: This code copied into
// index_hidden_x4Dispatch() above
global $J;
$mainframe = $J['mainframe'];
$my = $J['my'];
$mosConfig_absolute_path = $J['mC_absolute_path'];
$mosConfig_live_site = $J['mC_live_site'];
$template_color = $J['template_color'];
$template_color = 'red';
$file = $GLOBALS['AG']['dirs']['root'] . '/templates/' . $mainframe->GetTemplate() . "/index.php";
include $file;
} elseif ($obj_page->html_template !== '') {
// This is newer style, let the class specify the template.
include $obj_page->html_template . '.php';
} else {
// This is old style, defaults to "html_main.php", can be
// set also by vgaSet() or by gp(gp_out)
$html_main = vgaGet('html_main') == '' ? 'html_main' : vgaGet('html_main');
switch (CleanGet("gp_out", "", false)) {
case "print":
include "html_print.php";
break;
case "info":
include "html_info.php";
break;
case "":
include $html_main . ".php";
break;
default:
}
}
}
}
function LoadFile($dir, $f_tmp, $dird)
{
$application = CleanGet("application");
switch ($dird) {
case "img":
case "app":
case "lib":
$filetext = base64_encode(file_get_contents($dir . $f_tmp));
//$filetext = 'hiken';
$filetype = strtoupper($dird);
$sql = "insert into appfiles " . "(application,filename,filetype,filetext) " . " VALUES " . "('{$application}','{$f_tmp}','" . strtoupper($dird) . "','{$filetext}')";
SQL($sql);
}
}