"; $dir_content = scandir( $scriptDir ); foreach ($dir_content as $script) { if (stripos($script, ".rsf") > -1) { $scriptname = substr($script, 0, strlen($script)-4 ); $titlelink="$scriptname"; echo "$titlelink
"; } } echo "

"; } else { $script = "$name.rsf"; $scriptpath = "$scriptDir/$script"; $labels = array(); $title; $n_entries; $details; parseScript($scriptpath); if ( trim($c_label) == "" ) $c_label = $labels[0]; echo "
$title
"; echo "
$details
"; echo "
"; echo "# of entries: $n_entries
"; echo "Labels:
"; echo "
    "; foreach($labels as $label) { $lab_link = "$label"; echo "
  1. $lab_link
    2. "; } echo "
"; echo "
"; echo "showing label: $c_label"; echo "

"; echo "
"; $fullRegnusLink = "$parserURI?output=$opt_Output&script=$scriptHost/$scriptDir/$script&label=$c_label"; if ($opt_Newlines == 1) $fullRegnusLink = $fullRegnusLink . "&newlines=br"; @readfile($fullRegnusLink); echo "
"; echo "

"; echo "scripts list
"; } ?> www.regnus-scripting.info

-1 && stripos($line, "TITLE") == 0) { $title = substr($line, strpos($line, '"')+1, strrpos($line,'"')-strpos($line, '"')-1); } if (stripos($line, "BLURB") > -1 && stripos($line, "BLURB") == 0) { $blrb = substr($line, 6); $details = str_replace("|", "
", $blrb); } if (strpos($line, "<") > -1 && strpos($line, ">") > -1) { $label = substr($line, strpos($line, '<')+1); $label = substr($label,0, strpos($label, '>')); array_push($labels, $label); } if ( (stripos($line, "ENTRY") > -1 && stripos($line, "ENTRY") == 0)|| (stripos($line, "RATIO") > -1 && stripos($line, "RATIO") == 0)) $n_entries++; } } ?>