#!/usr/bin/perl

# +-------------------------------------------------------+
# | FILE    :  ReadLDAPOnOracle.cgi                       |
# | AUTHOR  :  Jeff Hunter                                |
# | DATE    :  12-13-2003                                 |
# +-------------------------------------------------------+

print "Content-type: text/html\n\n";

$BaseDirName = "/usr/home/jhunter/public_html/data/Oracle/DBA_tips/OracleSCM_9024";
$BaseURL     = "../../../Oracle/DBA_tips/OracleSCM_9024";

opendir(BASEDIR, "$BaseDirName");
@tip_file_name_array = grep(!/^\.\.?$/, readdir(BASEDIR));
closedir(BASEDIR);


print '<p>';

foreach $tip_file_name_temp (@tip_file_name_array) {
  if ($tip_file_name_temp =~ /\.shtml$/ ) {
    ($fname, $ext) = split(/\./, $tip_file_name_temp);
    ($dummy1, $tip_number) = split(/_/, $fname);
    $tempDescription = `grep iDevelopment_DOCUMENT_TITLE $BaseDirName/$directory_name/$tip_file_name_temp`;
    ($dummy2, $Description) = split(/=/, $tempDescription);
    chop ($Description);
    $tip_file_name_hash{$tip_number} = "$tip_file_name_temp\t$Description";
  }
}


# +--------------------------------------------+
# | WALK THROUGH EACH < FILE > IN THE HASH ... |
# +--------------------------------------------+
foreach $tip_number (sort byNumberReverse keys(%tip_file_name_hash)) {

  ($tip_file_name, $Description) = split(/\t/, $tip_file_name_hash{$tip_number});

  print '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="../../../../gifs/mini_black_arrow2.gif"> &nbsp; <a class="noLinkBlue" href="../../Oracle/DBA_tips/OracleSCM_9024/',$tip_file_name,'">',$Description,'</a><br>';
  print "\n";

}

sub byNumber {
  $a <=> $b;
}

sub byNumberReverse {
  $b <=> $a;
}