#!/usr/bin/perl

# +-------------------------------------------------------+
# | FILE    :  oracleJavaTechnologies.cgi                 |
# | AUTHOR  :  Jeff Hunter                                |
# | DATE    :  02-14-2004                                 |
# +-------------------------------------------------------+


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

listDir(  "Java and Web Technologies in Oracle"
        , "/usr/home/jhunter/public_html/data/Oracle/DBA_tips/Java"
        , "../../Oracle/DBA_tips/Java");

listDir(  "Oracle9iAS Containers for J2EE (OC4J - 9.0.3)"
        , "/usr/home/jhunter/public_html/data/Oracle/DBA_tips/OC4J_903"
        , "../../Oracle/DBA_tips/OC4J_903");

listDir(  "Oracle9<i>i</i>AS"
        , "/usr/home/jhunter/public_html/data/Oracle/DBA_tips/Oracle9iAS"
        , "../../Oracle/DBA_tips/Oracle9iAS");


sub listDir {

    local($Title, $BaseDirName, $BaseURL) = @_;
    local(@tip_file_array, %tip_file_name_hash);

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

    print '
        <p>
        <u><b><font color="#990000">',$Title,'</font></b></u>
        <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="../../../../images/mini_explorer.gif"> &nbsp; <a class="noLinkBlue" href="',$BaseURL,'/',$tip_file_name,'">',$Description,'</a><br>';
        print "\n";
    }

    print '<p><br>';

}

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

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