?>
" onclick="closeHelp();" />
<input type="reset" tabindex="<?php
$i++;
print $i;
?>
" value="<?php
print $pgv_lang["reset"];
?>
" /><br />
</td></tr>
</table>
</form>
<br /><!--<?php
if (isset($FILE) && !check_for_import($FILE)) {
print_text("return_editconfig_gedcom");
}
?>
<br />-->
<?php
if (count($GEDCOMS) == 0) {
?>
<script language="JavaScript" type="text/javascript">
helpPopup('welcome_new_help');
</script>
<?php
}
// NOTE: Put the focus on the GEDCOM title field since the GEDCOM path actually
// NOTE: needs no changing
?>
if ($url !== false) {
print "<br />\n";
print "<span class=\"error\">" . $pgv_lang["gedcom_downloadable"] . " :</span>";
print "<br /><a href=\"{$url}\">{$url}</a>";
} else {
print "<br /><b>" . str_replace("#GEDCOM#", get_gedcom_setting($ged_id, 'path'), $pgv_lang['gedcom_download_secure']) . "</b><br />";
}
}
} else {
print "<span class=\"error\">" . $pgv_lang["file_not_found"] . "</span>";
}
print "</td>";
print "<td valign=\"top\">";
// Column 3 (Import action)
print "<a href=\"" . encode_url("uploadgedcom.php?GEDFILENAME={$ged_name}&verify=verify_gedcom&action=add_form&import_existing=1") . "\">" . $pgv_lang["ged_import"] . "</a>";
if (!check_for_import($ged_name)) {
print "<br /><span class=\"error\">" . $pgv_lang["gedcom_not_imported"] . "</span>";
}
print " ";
print "</td>";
echo '<td valign="top">';
// Column 4 (Export action)
echo '<a href="javascript:" onclick="window.open(\'', encode_url("export_gedcom.php?export={$ged_name}"), '\', \'_blank\',\'left=50,top=50,width=500,height=500,resizable=1,scrollbars=1\');">', $pgv_lang['ged_export'], '</a>';
echo '</td>';
print "<td valign=\"top\">";
// Column 5 (Delete action)
print "<a href=\"" . encode_url("editgedcoms.php?action=delete&ged={$ged_name}") . "\" onclick=\"return confirm('" . $pgv_lang["confirm_gedcom_delete"] . " " . preg_replace("/'/", "\\'", $ged_name) . "?');\">" . $pgv_lang["delete"] . "</a>";
print " ";
print "</td>";
print "<td valign=\"top\">";
// Column 6 (Download action)
if (count(get_all_gedcoms()) == 0) {
addDebugLog($action . " ERROR 21: No Gedcoms available on this site.");
print "ERROR 21: No Gedcoms available on this site.\n";
exit;
}
$gedcom = safe_REQUEST($_REQUEST, 'GEDCOM');
if ($gedcom) {
if (!in_array($gedcom, get_all_gedcoms())) {
addDebugLog("ERROR 21: Invalid GEDCOM specified. Remember that the GEDCOM is case sensitive.");
print "ERROR 21: Invalid GEDCOM specified. Remember that the GEDCOM is case sensitive.\n";
exit;
}
$GEDCOM = $gedcom;
}
$GED_ID = get_id_from_gedcom($GEDCOM);
if (!check_for_import($GEDCOM)) {
addDebugLog($action . " ERROR 22: Gedcom [{$GEDCOM}] needs to be imported.");
print "ERROR 22: Gedcom [{$GEDCOM}] needs to be imported.\n";
exit;
}
$action = safe_REQUEST($_REQUEST, 'action');
// The following actions can be performed without being connected.
switch ($action) {
case '':
addDebugLog("ERROR 1: No action specified.");
print "ERROR 1: No action specified.\n";
exit;
case 'version':
addDebugLog($action . " SUCCESS\n" . PGV_VERSION_TEXT . "\n");
print "SUCCESS\n" . PGV_VERSION_TEXT . "\n";
exit;
/**
* get a list of remote servers
*/
function get_server_list()
{
global $GEDCOM, $GEDCOMS, $TBLPREFIX, $sitelist, $gBitDb;
$sitelist = array();
if (isset($GEDCOMS[$GEDCOM]) && check_for_import($GEDCOM)) {
$rows = $gBitDb->getAll("SELECT s_id, s_name, s_gedcom, s_file FROM {$TBLPREFIX}sources WHERE s_file=? AND s_dbid=? ORDER BY s_name", array(PGV_GED_ID, 'Y'));
foreach ($rows as $row) {
$source = array();
$source["name"] = $row['s_name'];
$source["gedcom"] = $row['s_gedcom'];
$source["gedfile"] = $row['s_file'];
$source["url"] = get_gedcom_value("URL", 1, $row['s_gedcom']);
$sitelist[$row['s_id']] = $source;
}
}
return $sitelist;
}
