home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 4 / hacker04 / 04_HACK04.ISO / src / PHP / simpdbm.php3.txt < prev    next >
Encoding:
Text File  |  2002-05-06  |  7.2 KB  |  186 lines
  1. Simple DBM database 
  2.  
  3. Handles insert/delete/update to a dbm file. Can specify file and field list. No search/sort. A quick 'n dirty script. Possibly to be used as a starting point for DBM related coding 
  4.  
  5.  
  6.  
  7. <?php 
  8. /* 
  9.  * A simple script to manage a dbm file database 
  10.  *   No query/sort facility 
  11.  * Just a quick dirty hack I put together to make something get 
  12.  * going real fast. Code to handle field separator in data is not 
  13.  * good... General indentation and style is way off too :-) 
  14.  * Still, if it is useful... 
  15.  * 
  16.  * V.Satheesh Babu, vsbabu@csoft.net http://csoft.net/~vsbabu 
  17.  */ 
  18.  
  19. // specify the database file here 
  20. $dbm = dbmopen( "tst.db",  "c"); 
  21. // The directory where this file exists should be 
  22. // writably by httpd user... 
  23.  
  24. // specify field separator and field headings 
  25. $field_separator =  ":" ; 
  26. $fields = array (  "field1", "field2", "field3"); 
  27.  
  28. function print_one_record($w_mykey,$w_fields) { 
  29.     global $fields; 
  30.     if( $w_mykey)print( "<H3>Modify Record</H3>\n"); 
  31.     print( "<FORM NAME=entdetails ACTION=\"$PHP_SELF\" METHOD=\"POST\">\n"); 
  32.     print( "<TABLE BORDER=\"0\" CELLSPACING=\"1\" CELLPADDING=\"0\">\n"); 
  33.      /* we must make mykey a field, only if it is NOT defined */ 
  34.     if ( $w_mykey ) 
  35.         print( "<TR><TH><B>Key</B></TH>\n<TH>". 
  36.          "<INPUT NAME=\"mykey\" TYPE=\"HIDDEN\" VALUE=\"$w_mykey\"><B>". 
  37.          "$w_mykey</B></TH></TR>\n"); 
  38.     else 
  39.         print( "<TR><TH><B>Key</B></TH>\n<TD>". 
  40.          "<INPUT NAME=\"mykey\" TYPE=\"TEXT\"  VALUE=\"\" SIZE=35>". 
  41.          "</TD>\n</TR>\n"); 
  42.     for ($i=0;$i < count($fields) ; $i++) { 
  43.         print( "<TR>\n". 
  44.                  "<TH>$fields[$i]</TH>\n". 
  45.                  "<TD>". 
  46.                  "<INPUT NAME=\"$fields[$i]\" TYPE=\"TEXT\" VALUE=\""); 
  47.                 if ($w_fields[$i] !=  "") 
  48.                     print ( "$w_fields[$i]"); 
  49.                 else 
  50.                     print ( ""); 
  51.                 print( "\" SIZE=35></TD>\n". 
  52.                  "</TR>\n"); 
  53.     } 
  54.         print( "<TR><TD COLSPAN=\"2\">"); 
  55.         print( "<INPUT TYPE=\"RESET\" NAME=\"reset\" VALUE=\"Clear\">\n"); 
  56.         if ( !$w_mykey ) { 
  57.             print( "<INPUT TYPE=\"SUBMIT\" NAME=\"sub\" VALUE=\"Add\">\n"); 
  58.         } else { 
  59.             print( "<INPUT TYPE=\"SUBMIT\" NAME=\"del\" VALUE=\"Delete\">\n"); 
  60.             print( "<INPUT TYPE=\"SUBMIT\" NAME=\"sub\" VALUE=\"Update\">\n"); 
  61.         } 
  62.         print ( "</TD></TR></TABLE></FORM>\n"); 
  63.         return; 
  64.     } 
  65. function verify_data(&$w_mykey,&$w_fields){ 
  66.      /* for any error, show the error and ask user to go back */ 
  67.     global  $field_separator; 
  68.     global  $fields; 
  69.     trim($w_mykey); ereg_replace( "\n", "",$w_mykey); 
  70.     ereg_replace($field_separator, " ",$w_mykey); 
  71.     for ($i=0;$i < count($fields) ; $i++)  { 
  72.     trim($w_fields[$i]);ereg_replace( "\n", "",$w_fields[$i]); 
  73.     ereg_replace($field_separator, " ",$w_fields[$i]); 
  74.     } 
  75.      // add other checks as you need 
  76.     if ( $w_mykey ==  "") { 
  77.         $err = 1; 
  78.         echo  "ERROR : Key cannot be null\n"; 
  79.     } 
  80.   return $err; 
  81. } 
  82. /* 
  83.  * when we start, read the file and show all records 
  84.  * Each mykey has a link, which will lead to update/delete 
  85.  * At the bottom, there is a add new record form 
  86.  */ 
  87. function print_front_page($mydbm) { 
  88.      /* may be some header here? */ 
  89.     global $field_separator; 
  90.     global $fields; 
  91.     print( "<small><i>Click on # to  edit/delete.</i></small>\n"); 
  92.     print( "<TABLE WIDTH=\"100%\" BORDER=\"0\" CELLSPACING=\"1\"". 
  93.          "CELLPADDING=\"0\">\n"); 
  94.     print( "<TR><TH><B>#</B></TH><TH><B>Key</B></TH>\n"); 
  95.     for ($i=0;$i < count($fields) ; $i++) 
  96.         print( "<TH><B>$fields[$i]</B></TH>\n"); 
  97.     print( "</TR>\n"); 
  98.     $mykey = dbmfirstkey($mydbm); 
  99.     $recno=0; 
  100.     while ($mykey) { 
  101.         $record[$mykey]=dbmfetch($mydbm,$mykey); 
  102.         $mykey = dbmnextkey($mydbm,$mykey); 
  103.     } 
  104.     if ( count($record) > 0 ) { 
  105.     asort($record); 
  106.     for(reset($record);$mykey=key($record); next($record)){ 
  107.         $recno++; 
  108.         $w_fields= explode($field_separator,$record[$mykey]); 
  109.         print( "<TR><TH><A HREF=\"$PHP_SELF?mykey=$mykey\"><B>$recno</B></A></TH>\n"); 
  110.         print( "<TD><B>$mykey</B></TH>\n"); 
  111.       for ($i=0;$i < count($fields) ; $i++) 
  112.             print( "<TD> $w_fields[$i] </TD>\n"); 
  113.         print( "</TR>\n"); 
  114.     } 
  115.     } 
  116.     print( "</TABLE>\n"); 
  117.     print( "<A NAME=\"addit\"></A><BR><BR><BR><H3>Add Record</H3>\n"); 
  118.     print_one_record( "", ""); 
  119.     return; 
  120. } 
  121. // Main 
  122. // force page from outside cache 
  123. header( "Expires: Mon, 26 Jul 1997 05:00:00 GMT"); 
  124. header( "Last-Modified: " . gmdate( "D, d M Y H:i:s") .  "GMT"); 
  125. header( "Cache-Control: no-cache, must-revalidate"); 
  126. header( "Pragma: no-cache"); 
  127.  
  128. /* 
  129.  * if no mykey is there, read the database, print the add form 
  130.  * and exit 
  131.  * if mykey is there and action is none, fetch and show the form 
  132.  * if the mykey is there and action is update, 
  133.  *     update - then go to the front page 
  134.  * if the mykey is there and action is delete, 
  135.  *     delete - then go to the front page 
  136.  * if the mykey is there and action is add, check and add, front page 
  137.  */ 
  138.     $to_print_frontpage = 1; 
  139.     if ( $del ) $action =  "delete"; 
  140.     if ( $sub ==  "Add" ) $action =  "add"; 
  141.     if ( $sub ==  "Update" ) $action =  "update"; 
  142.     if( $mykey )  { 
  143.       for ($i=0;$i < count($fields) ; $i++) 
  144.             $w_fields[$i] = ${$fields[$i]}; 
  145.         if( $action== "update") { 
  146.              /* update database */ 
  147.             if (0==verify_data($mykey,$w_fields)) { 
  148.                 $record=implode($field_separator,$w_fields); 
  149.                 dbmreplace($dbm,$mykey,$record); 
  150.             } else { 
  151.                 print_one_record($mykey,$w_fields); 
  152.                 $to_print_frontpage=0; 
  153.             } 
  154.         } elseif ( $action== "delete") { 
  155.              /* delete from database */ 
  156.             if (dbmdelete($dbm,$mykey)){ 
  157.                 print( "<B>Record for $mykey could not be deleted</B>\n"); 
  158.             } 
  159.         } elseif ( $action== "add") { 
  160.              /* insert into database */ 
  161.              /* we better verify things here first*/ 
  162.             if (0==verify_data($mykey,$w_fields)) { 
  163.                 $record=implode($field_separator,$w_fields); 
  164.                 if (1==dbminsert($dbm,$mykey,$record)){ 
  165.                     print( "<B>Key $mykey already exists with these values</B>\n"); 
  166.                     $record=dbmfetch($dbm,$mykey); 
  167.                     $w_fields= explode($field_separator,$record); 
  168.                     print_one_record($mykey,$w_fields); 
  169.                     $to_print_frontpage=0; 
  170.                 } 
  171.             } else { 
  172.                 print_one_record($mykey,$w_fields); 
  173.                 $to_print_frontpage=0; 
  174.             } 
  175.         } else { 
  176.              /* no action, just do a fetch and display */ 
  177.             $record=dbmfetch($dbm,$mykey); 
  178.             $w_fields= explode($field_separator,$record); 
  179.             print_one_record($mykey,$w_fields); 
  180.             $to_print_frontpage=0; 
  181.         } 
  182.     } 
  183.     if( $to_print_frontpage==1 )print_front_page($dbm); 
  184.     dbmclose($dbm); 
  185. ?>
  186.