/prog/ - Guess the snippet

Name: Anonymous 2010-05-22 9:26

I'll start



(defconst *path-delimiter* ">")

(defconst *type-delimiter* ".")

(defconst *version-delimiter* ".")

(defconst *directory-entry-file-type-max-length* 14.)

(defconst *lmfs-name-of-the-root* "The Root Directory")



(defflavor lmfs-mailbox-pathname-mixin () (mailbox-pathname-mixin)

  (:abstract-flavor)

  (:documentation :mixin "for ZMAIL's methods"))



(defflavor lmfs-pathname-mixin

    ()

    (lmfs-mailbox-pathname-mixin

     no-device-mixin

     hierarchical-directory-mixin

     meaningful-root-mixin

     both-cases-same-lower-preferred-mixin)

  (:required-flavors pathname)

  (:functions lmfs-pathname-fname-string))    ;This one is forward-referenced

Name: another one 2010-05-22 17:42

if ($_SERVER[REQUEST_METHOD] != 'GET') fancydie('I POSTed your mom in the ass last night.');



// settings file

$glob = file("globalsettings.txt") or fancydie("Eh? Couldn't fetch the global settings file?!");

foreach ($glob as $tmp){  $tmp = trim($tmp);   list ($name, $value) = explode("=", $tmp);  $setting[$name] = $value;  }





if($_SERVER[PATH_INFO]){

        $pairs = explode('/',$_SERVER[PATH_INFO]);

        $bbs = $pairs[1];

$local = @file("$bbs/localsettings.txt");

if ($local) { foreach ($local as $tmp){  $tmp = trim($tmp);   list ($name, $value) = explode("=", $tmp);  $setting[$name] = $value;  } }

        $key = $pairs[2];

if (!$pairs[3]) {$posts = array("1-"); $st = 1; $to = $setting[postsperpage]; }

        else {

             $posts = explode(',',$pairs[3]);

                 }

Guess the snippet

1 Name: Anonymous 2010-05-22 9:26

20 Name: another one 2010-05-22 17:42

Name: Anonymous 2010-05-22 9:26

Name: another one 2010-05-22 17:42