PHP Classes

File: example.php

Recommend this page to a friend!
  Classes of Rene Kluwen   NtxFile   example.php   Download  
File: example.php
Role: Example script
Content type: text/plain
Description: Sample usage
Class: NtxFile
Reads CA/Clipper NTX index files
Author: By
Last change:
Date: 21 years ago
Size: 1,451 bytes
 

Contents

Class file image Download
<?

require("ntxclass.php");

function
myopen($dbname)
// this function opens the dbase file
{
       
$path = "/path/to/dbase/file/";
       
$fname = $path . strtoupper($dbname);
       
$res = dbase_open($fname, 0);
        if (!
$res) {
                die(
"Cannot open $dbname");
        }
        return
$res;
}

function
dumprec($rec)
// this function dumps the dbase record
{
        echo
"<p>Info about record: <u>" . $rec["FIRSTNAME"] . " " . ["LASTNAME"] . "</u></p>\n";
       
reset($rec);
        echo
"<table border=1>";
       
$cnt = 0;
        while (list(
$key, $val) = each($rec)) {
               
// hide password from user
               
$typ = $key == "PASSWORD" ? "PASSWORD" : "TEXT";
               
$val = $key == "PASSWORD" ? "XXXXXX" : $val;
                echo
"<tr><td>$key</td><td>:</td><td><input type=$typ value=\"$val\"></td></tr>\n";
                if (
$cnt++ > 15) break;
        }
        echo
"</table>";
}

// set the password
// usually we get this from a form
$password = "secret";

// open the dbase file and the index file
$db = myopen("users.dbf");
$ntx = new NtxFile("userpass.ntx");

// the following is as we would do in clipper
$res = $ntx->Seek($password);

if (
$res === false) {
    echo
"<p>User Not Found</p>";
}
else {
   
// At this point, $res holds the record number
   
$rec = dbase_get_record_with_names($db, $res);
   
dumprec($rec);
}
?>