#!/usr/bin/perl
#-#############################################
# catalog.pl
# Version: 1.08
# Date: 04/30/2004
#-#############################################
# LICENSE-CONDITIONS:
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# See the GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#
#-#############################################
#
# In accordance with the GNU General Public License (GPL):
# - You may not use and/or distribute this code under a proprietary license!
# - You either may not distribute parts of this code under a proprietary license too! 
# - The following copyright notice and the further following copyright notices of this
#   software, MUST remain UNCHANGED and INTACT!
#
#-#############################################
#
# Copyright (2004) by Dieter Werner
# http://www.interwer.com
# eMail: [EMAIL=hdw@interwer.com]hdw@interwer.com[/EMAIL]
# All rights reserved by the author.
#
#-#############################################
# OK - here we go ...

#-#############################################
# Use-Section
#-#############################################
    use strict;
    use warnings;
    
#-#############################################
# Setup-Section
#-#############################################
    print "Content-type: text/html\n\n";
    $| = 1;
    my $catalog = {};

#-#############################################
# The Categories
# This will be the content of a text file.
#-#############################################
    my $categories = <<EO_CAT;
        ['Computer',
            ['Hardware',
                ['Monitor',
                    ['Eizo', 
                        [
                            '15 Zoll',
                            '17 Zoll',
                            '19 Zoll',
                            '20 Zoll',
                        ],
                    ],
                    ['Other', 
                        [
                            '15 Zoll',
                            '17 Zoll',
                            '19 Zoll',
                            '20 Zoll',
                        ],
                    ],
                ],
                ['CPU',
                    ['Intel',
                        [
                            'up to 300 MHz',
                            'up to 600 MHz',
                            'up to 900 MHz',
                        ],
                    ],
                    ['AMD',
                        [
                            'up to 300 MHz',
                            'up to 600 MHz',
                            'up to 900 MHz',
                        ],
                    ],
                    ['Other',
                        [
                            'up to 300 MHz',
                            'up to 600 MHz',
                            'up to 900 MHz',
                        ],
                    ],
                ],
            ],
            ['Software',
                ['Operating Systems',
                    [
                        'Windows',
                        'Linux',
                    ],
                ],
                ['Applications',
                    [
                        'Office-Software',
                        'Internet-Software',
                        'Games',
                    ],
                ],
            ],
        ],
        ['Electronics',
            ['Audio',
                ['Player',
                    [
                        'Akai',
                        'Sony',
                        'Panasonic',
                        'Other',
                    ],
                ],
                ['Recorder',
                    [
                        'Akai',
                        'Sony',
                        'Panasonic',
                        'Other',
                    ],
                ],
                ['HiFi',
                    [
                        'Akai',
                        'Sony',
                        'Panasonic',
                        'Other',
                    ],
                ],
            ],
            ['Video',
                ['Recorder',
                    ['Akai',
                        ['C25',
                            [
                                'Black',
                                'White',
                                'Green',
                            ],
                        ],
                        ['C35',
                            [
                                'Red',
                                'Blue',
                                'Yellow',
                            ],
                        ],
                        ['Other',
                            [
                                'Black',
                                'White',
                                'Green',
                            ],                        
                        ],
                    ],
                    ['Sony',
                        [
                            '5130',
                            '7710',
                            '8810',
                            'Other',
                        ],
                    ],
                    ['Panasonic',
                        [
                            'GD90',
                            'GD91',
                            'GD92',
                        ],
                    ],
                ],
                ['Player',
                    ['Akai',
                        [
                            'C25',
                            'C35',
                            'Other',
                        ],
                    ],
                    ['Sony',
                        [
                            '5130',
                            '7710',
                            '8810',
                            'Other',
                        ],
                    ],
                    ['Panasonic',
                        [
                            'GD90',
                            'GD91',
                            'GD92',
                        ],
                    ],
                ],
            ],
        ],
EO_CAT
    
#-#############################################
# Only for Testing the Subroutine.
# Convert array to hash
# and print the list of categories ...
#-#############################################
    $categories = do 'categories.ini' || [eval $categories]; # Hi Randal;-))
    
    get_index(
        $_,
        $categories->[$_],
        $catalog
    ) foreach (0 .. $#$categories);    

    # Print it out

        foreach (sort keys %$catalog) {
            print $_, ' => ', $catalog->{$_}->[0];
            print '<br>Parent: ', $catalog->{$_}->[1] if $catalog->{$_}->[1];
            print '<br>';
            
            $catalog->{$_}->[2] && do {
                my @childs = @{$catalog->{$_}}[2 .. $#{$catalog->{$_}}]; 
                my $childs = join ' | ', @childs;
                print 'Childs: ', $childs, '<hr>';
            };
        }

#-#############################################
sub get_index {
#-#############################################
    my ($cnt, $cat, $catalog) = @_;
    my (@sub_cat, @parent, @index);
    local $_;
        
    # Dump Sub-Categories
    # Get index, parent, child(ren) of each Sub-Category
    
    my $dump = sub {
        my (
            $dump,
            $cat,
            $sub_cat,
            $catalog,
            $index,
            $parent
        ) = @_;
        
        my $cnt = $#$index;
        my $prev_last = $index->[-1];
        local $_;
        
        ($cat->[0] and !ref $cat->[0]) && push @$sub_cat, $cat->[0];
        
            foreach (0 .. $#$cat) {
                ref $cat->[$_]
                    ?   do {                            
                            $dump->(
                                $dump,
                                $cat->[$_],
                                $sub_cat,
                                $catalog,
                                $index,
                                $parent,
                            );
                            
                            pop @$sub_cat;
                            pop @$index;
                        }
                    :   do {
                            $_ == 0
                                ?   do {
                                        @$parent = (
                                            @$index[0 .. ($cnt - 1)],
                                            0
                                        );
                                        
                                        $#$index < 2
                                            ?   (
                                                    @$index = (
                                                        $index->[0],
                                                        ++$index->[1],
                                                        $_
                                                    )
                                                )
                                            :   do {
                                                    $prev_last++;
                                                    @$index = (
                                                        @$index[0 .. ($cnt - 1)],
                                                        $prev_last, $_
                                                    );
                                                };
                                    }
                                :   do {
                                        @$parent = (@$parent[0 .. ($cnt - 1)], 0);
                                        
                                        $#$index < 2
                                            ?   (@$index = (@$index[0 .. 1], $_))
                                            :   (@$index = (@$index[0 .. $cnt], $_));
                                    };
                            
                            my $index = join '_', @$index;
                            my $parent = join  '_', @$parent;
                            
                            my $the_cat = join "/", (
                                @$sub_cat[0 .. ($#$sub_cat - 1)],
                                $cat->[$_]
                            );

                            # Add the Title and the Parent
                            $catalog->{$index} = [
                                $the_cat,
                                $parent
                            ];

                            # Add the found Child
                            push @{$catalog->{$parent}}, $index;
                        };
            }
    };
    
    # Dump Main-Categories
    # Get the index of each Main-Category       

        foreach (0 .. $#$cat) {
            ref $cat->[$_]
                ?   do {                        
                        $dump->(
                            $dump,
                            $cat->[$_],
                            \@sub_cat,
                            $catalog,
                            \@index,
                            \@parent,
                        );
                        
                        pop @sub_cat,
                        pop @index;
                    }
                :   do {
                        push @sub_cat, $cat->[$_];
                        
                        @index = ($cnt, $_);
                        @parent = @index;

                        $catalog->{join('_', @index)} = [
                            join("/", (@sub_cat[0 .. ($#sub_cat - 1)], $cat->[$_])),
                            undef
                        ];
                    };
        }
}

#-#############################################
exit;