Re: [tanya-jawab] program untuk buat web searching

arisg_ml Mon, 12 Jan 2004 01:13:32 -0800

Coba scriptku

--- ---------------------------------------ini buat mengindex ---------
<script language="php">
function startindex($dir,$site_id,$table)
{
   $sql="DELETE from $table WHERE site_id='$site_id'";
   mysql_query($sql);
   index($dir,$site_id,$table);
}
function index($dir,$site_id,$table)
{
   global $nondir;

   $handle=opendir($dir)  or die("error dir $dir");
   while (false !== ($file = readdir($handle)))
   {
       $file=trim($file);
       if ($file!="." && $file!=".." && !$nondir[$file])
       {
             $fullpath="$dir/$file";
             if (is_dir($fullpath))
             {
                 if (substr($file,0,1)!="_"  )
                 {
                     echo "<br>$fullpath";
                     index($fullpath,$site_id,$table);
                 }
             }
              else
             {
                 $exte = explode(".",$file);
               $ext=strtolower($exte[count($exte)-1]);
               if ($ext=="htm" || $ext=="html" )
                 {
                   echo "<br>$fullpath";
                     indexfile($fullpath,$site_id,$table);
                   //die();
                 }
             }
       }
   }
closedir($handle);
}

function indexfile($filename,$site_id,$table)
{
   $fd = fopen ($filename, "r");
   $isi_asli = fread ($fd, filesize ($filename));
       fclose ($fd);
       $isi=strtolower($isi_asli);
   $isi=ereg_replace("'"," ",$isi);
   $isi=ereg_replace("\""," ",$isi);
   $isi=ereg_replace("\r","",$isi);
   $isi=ereg_replace("\n","",$isi);
//    $isi=ereg_replace("\""," ",$isi);
//    $isi=ereg_replace(">"," ",$isi);
//    $isi=ereg_replace("<"," ",$isi);
   $title=get_title($isi);
//    echo "title=$title";
   $sql="INSERT INTO $table (site_id,filename,title,words)
   VALUES ('$site_id','$filename','$title','$isi')";

   mysql_query($sql) or die(" error <pre> $sql </pre>");
}

function get_title($isi)
{
   list ($title, $buang) = explode("</title>",$isi);
   list ($buang, $title) = explode("<title>",$title);
   return ucwords($title);

}
</script>

---------------------------------------------------- Contoh panggil
function untuk mengindex suatu directory----
<script language="php">
include "../include/database.php";
include "../include/index_func.php";

$site_id="hot_news";
$dir="../$site_id";
$table="myindex";

set_time_limit(600);
startindex($dir,$site_id,$table);
</script>

---------------------------------- Contoh pemakain search -----
echo "<form method=post>
<input type=text name=word value=\"$word\" size=40>
<input type=submit value=Search>
</form>
<br> Hasil search <b> $word </b> :";
$myword=trim($word);
$search_time=date("Y-m-d H:i:s",time());

$myword=ereg_replace(" ","%",$myword);
if ($myword!="" && strlen($myword)>2)
{
   $sql="SELECT filename,title FROM myindex WHERE
       words    like '%$myword%' ORDER BY site_id
   ";
   //echo $sql;
   $rs=mysql_query($sql);
   while ($row=mysql_fetch_array($rs))
   {
       $filename=$row['filename'];
       $title=$row['title'];

       $amydir=explode("/",$filename);
       $mydir="";
       for ($i=0;$i<count($amydir)-1;$i++)
       {
           $mydir=$mydir.$amydir[$i];
       }
       $mydir=ereg_replace("\.","",$mydir);
       $mydiru=strtoupper($mydir);
       if (trim($title)=="")
       {
           $title=$filename;
       }

       if ($mydir!=$mydir_old)
       {
           echo "
           <br><br><a href=$mydir/><b>$mydiru></b></a>";
       }
       echo "
       <br>
       <a href=$filename >$title</a>
       ";

       $mydir_old=$mydir;
   }
}

</script>

1. Program untuk baca list file

On Sun, Jan 11, 2004 at 06:50:59PM +0700, Indra Wahyudi wrote:
hi all program apa ya untuk bisa buat membuat websearching yach seperti google

or dll... yang diinstall pada linux dimana bisa d/l-nya
TO> PERL, kamu bisa search deh.
TO> THO
kalau mau searching, bisa pakai api nya Google. jadi bisa minjem
google buat search engine website kamu. cuma caranya saya blom tahu ..
bbrp site pakai cara gitu sih.
coba ke http://www.hdig.org/
www.htdig.org?;-)

--
Unsubscribe: kirim email kosong ke [EMAIL PROTECTED]
Arsip dan info di http://linux.or.id/milis.php
FAQ milis http://linux.or.id/faq.php

Re: [tanya-jawab] program untuk buat web searching

Kirim email ke