admin/wiki_port1_0.php

   1 <!-- $Id: wiki_port1_0.php,v 1.1.2.1.2.1 2005-01-07 13:48:42 rurban Exp $ -->
   2
   3 <html>
   4 <head>
   5 <title>Importing phpwiki 1.0.x dbm files</title>
   6 </head>
   7 <body bgcolor="navajowhite">
   8
   9 <?php
  10    function port1_0RenderHash($dbi, $dbmh, $pagename) {
  11       $pagehash = unserialize(dbmfetch($dbmh, $pagename));
  12
  13         // array fields for pagehash 1.0
  14         // 'version', 'date' as string, 'author', 'text'
  15
  16       echo "$pagename<br>\n";
  17
  18       $newhash['version'] = isset($pagehash['version']) ?
  19                             $pagehash['version'] : 1;
  20       $newhash['author'] = isset($pagehash['author']) ?
  21                             $pagehash['author'] : '1.0 wiki setup page';
  22       $newhash['created'] = time();
  23       $newhash['lastmodified'] = time();
  24       $newhash['flags'] = 0;
  25       $newhash['pagename'] = $pagename;
  26       $newhash['refs'] = array();
  27       for ($i=1; $i <= 4; $i++) {
  28          if (isset($pagehash['r$i']))
  29             $newhash['refs'][$i] = $pagehash['r$i'];
  30       }
  31       $content = implode("\n", $pagehash['text']);
  32       $content = str_replace("[", "[[", $content);
  33       $newhash['content'] = explode("\n", $content);
  34
  35       InsertPage($dbi, $pagename, $newhash);
  36    }
  37
  38
  39    echo "opening dbm file: $portdbmfile ... \n";
  40
  41    if (! file_exists($portdbmfile)) {
  42       echo "File '$portdbmfile' does not exist.<br>\n";
  43       exit;
  44    }
  45
  46    if (! ($dbmh = dbmopen($portdbmfile, "r"))) {
  47       echo "Cannot open '$portdbmfile'<br>\n";
  48       exit;
  49    }
  50
  51    echo " ok ($dbmh)<p>\n";
  52
  53    $namelist = array();
  54    $ctr = 0;
  55
  56    $namelist[$ctr] = $key = dbmfirstkey($dbmh);
  57    port1_0renderhash($dbi, $dbmh, $key);
  58    while ($key = dbmnextkey($dbmh, $key)) {
  59       $ctr++;
  60       $namelist[$ctr] = $key;
  61       port1_0renderhash($dbi, $dbmh, $key);
  62    }
  63
  64    dbmclose($dbmh);
  65 ?>
  66
  67 <p><b>Done.</b>
  68 </body>
  69 </html>