webForumDet fria alternativet

pastebin script

5 svar · 409 visningar · startad av kjelle

kjelleMedlem sedan jan. 200430 inlägg
#1

hay!

Nån som har nått pastebinscript liggande som dom vill dela med sej av til mej?

et som highlightar php kod..

/kjelle

sl0kMedlem sedan maj 2005562 inlägg
#2

Brukar använda mig av följande ..

<?php
error_reporting(E_ALL);
if (isset($_GET['file']) && is_readable(basename($_GET['file']))) {
    $filename = basename($_GET['file']);
    highlight_with_linenum($filename);
}
else {
    $dir = rec_scandir("."); // directory to list 
    array_ukmultisort($dir, "cmp");
    foreach ($dir as $file) {
        echo "<a href=\"?file=$file\">$file</a><br />\n";
    }
}

function highlight_with_linenum($file) {
    $count = 1;
    $lines = "";
    $filen = file($file);
    foreach ($filen as $line) {
        $lines .= $count . "<br />";
        $count++;
    }
    $contents = highlight_file($file, TRUE);
    echo '<table><tr><td><code>' .
            $lines . '</code></td><td>' .
            $contents . '</td></tr></table>';
    
}

function rec_scandir($dir)
{
    $files = array();
    if ( $handle = opendir($dir) ) {
        while ( ($file = readdir($handle)) !== false ) {
            if ( $file != ".." && $file != "." && $file{0} != ".") {
                if ( is_dir($dir . "/" . $file) ) {
                    // $files[$file] = rec_scandir($dir . "/" . $file);
                }else {
                    $files[] = $file;
                }
            }
        }
        closedir($handle);
        return $files;
    }
}

function cmp($a, $b)
{
    if ( is_string($a) && is_string($b) ) {
        return strcmp($a, $b) > 0 ? 1 : -1; 
    }elseif ( is_int($a) && is_int($b) ) {
        return $a > $b ? 1 : -1;
    }elseif ( is_int($a) && is_string($b) ) {
        return 1;
    }elseif ( is_string($a) && is_int($b) ) {
        return -1;
    }else {
        return 0;
    }
}

function array_ukmultisort(&$arr, $func) {
    uksort($arr, $func);
    while ( list($key, $val) = each($arr) ) {
        if ( is_array($val) ) {
            array_ukmultisort($arr[$key], $func);
        }
    }
}
?>
kjelleMedlem sedan jan. 200430 inlägg
#3

tjo på'rei!

ute efter nått komplett script..

nån?

FuelMedlem sedan okt. 20001 285 inlägg
#4

...

hightlighter.png
sl0kMedlem sedan maj 2005562 inlägg
#5

Fuel skrev:

du sl0k ... :q jag döpte filen till highlight.php .. då buggade det ur rejält :e

ok .. vad var det som inte fungerade? just filnamnet bör inte ha ngn betydelse

stevenetMedlem sedan juni 20001 251 inlägg
#6

Pastebin.com's kod finns för nedladdning här: http://pastebin.com/pastebin.php?help=1

128 ms totalt · 3 externa anrop · v20260731065814-full.3ab8d573
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)