sub make_menu($$) { #после выполнения этой функции появляются 3 хэша # 1 - menu_parent # 2 - menu_name # 3 - menu_link my ($cat, $file) = @_; my $menu = ''; return if( !$cat ); return if( !init_menu_relation($file) ); my $parent = $menu_parent{$cat}; while( $parent ) { my $link = $menu_link{$parent}; if( $link ) { if( $link =~ /\?/ ) { $link = "$link&ms=$parent"; } else { $link = "$link?ms=$parent"; } $menu = "$menu_name{$parent} \\ $menu"; } else { $menu .= "$menu_name{$parent} \\ "; } $parent = $menu_parent{$parent}; } $menu .= "$menu_name{$cat}"; $menu = "цКЮБМЮЪ \\ $menu"; return $menu; } sub make_menu($$) { #после выполнения этой функции появляются 3 хэша # 1 - menu_parent # 2 - menu_name # 3 - menu_link my ($cat, $file) = @_; my $menu = ''; return if( !$cat ); return if( !init_menu_relation($file) ); my $parent = $menu_parent{$cat}; while( $parent ) { my $link = $menu_link{$parent}; if( $link ) { if( $link =~ /\?/ ) { $link = "$link&ms=$parent"; } else { $link = "$link?ms=$parent"; } $menu = "$menu_name{$parent} \\ $menu"; } else { $menu .= "$menu_name{$parent} \\ "; } $parent = $menu_parent{$parent}; } $menu .= "$menu_name{$cat}"; $menu = "цКЮБМЮЪ \\ $menu"; return $menu; } sub make_cmenu($$) { my ($cat, $file) = @_; my $menu = ''; return if( !$cat ); return if( !init_menu_relation($file) ); my $parent = $menu_parent{$cat}; while( $parent ) { my $link = $menu_link{$parent}; if( $link ) { if( $link =~ /\?/ ) { $link = "$link&ms=$parent"; } else { $link = "$link?ms=$parent"; } $menu .= "$menu_name{$parent} \\ $menu"; } else { $menu .= "$menu_name{$parent} \\ "; } $parent = $menu_parent{$parent}; } $menu = "цКЮБМЮЪ \\ $menu"; return $menu; } sub init_menu_relation($) { my ( $file ) = @_; return if( !open( MENU, $file ) ); %menu_parent = (); %menu_name = (); %menu_link = (); while(