#!/usr/bin/perl 

# Index Finger Pro v4.101
# Developed by Index Finger, Inc. - www.indexfinger.com
# Copyright 1998-99 Index Finger, Inc. - All rights reserved.

$thisprogram = "legend.cgi";
$operatingsystem = "unix";

if (($operatingsystem eq "nt") || ($operatingsystem eq "other")) { 
    $ifdirectory = "D:/home/indexfinger/";
    }

$filetorequire = "$ifdirectory" . "config.cgi";
require "$filetorequire";
$filetorequire = "$ifdirectory" . "config-admin.cgi";
require "$filetorequire";
$filetorequire = "$ifdirectory" . "variables/setup.cgi";
require "$filetorequire";
$filetorequire = "$ifdirectory" . "programs.cgi";
require "$filetorequire";
$filetorequire = "$ifdirectory" . "subroutes.cgi";
require "$filetorequire";


&nonhtmlmainmenu;

$output .= "<a href=\"$directoryurl/$frontpage\">Home</a> / <p>\n";

$dirtoopen = "icons";
opendir (DIR, "$dirtoopen"); 
@filedata = readdir(DIR);
closedir (DIR);

@sortedfiledata = sort(@filedata);
@sortedfiledata = grep(/cgi/,@sortedfiledata);

$output .= "<b>Icon Legend</b><p>\n";

$output .= "<dl>\n";

foreach $file (@sortedfiledata) {
    $filetoopen = "icons/$file";

    open(FILE,"$filetoopen");
    flock(FILE,2);
    @filedata = <FILE>;
    close(FILE);

    $iconid = @filedata[0];
    chomp($iconid);

    $title = @filedata[1];
    chomp($title);

    $status = @filedata[2];
    chomp($status);

    $image = @filedata[3];
    chomp($image);

    $description = @filedata[4];
    chomp($description);

    unless ($status eq "off") {
        $output .= "<dt><img src=\"$image\" border=\"0\"> <b>$title</b><br>\n";
        $output .= "<dd>$description<p>\n";
        }
    }

$output .= "</dl>\n";

&nonhtmlpoweredby;

if (-e $legendtemplate) {
    open(TEMPLATE,"$legendtemplate");
    flock(TEMPLATE,2);
    @template = <TEMPLATE>;
    close(TEMPLATE);
    foreach $line (@template) { $body = "$body$line"; }
    }



&template;