############################################################################### # Palette.pm # # $Date: 01.09.2026 $ # ############################################################################### # YaBB: Yet another Bulletin Board # # Open-Source Community Software for Webmasters # # Version: YaBBForum 3.1 # # Packaged: 01 Sep, 2026 # # Distributed by: https://yabbforum.nz # # =========================================================================== # # Copyright (c) 2000-2026 YaBB (yabbforum.nz) - All Rights Reserved. # # Software by: The YaBB Development Team # # with assistance from the YaBB community. # ############################################################################### use CGI::Carp qw(fatalsToBrowser); our $VERSION = '3.1'; $palettepmver = 'YaBBForum 3.1'; if ( $action eq 'detailedversion' ) { return 1; } sub ColorPicker { my $picktask = $INFO{'task'}; if ( $INFO{'palnr'} && $iamadmin ) { my @new_pal; for my $i ( 0 .. $#pallist ) { if ( $i == ( $INFO{'palnr'} - 1 ) && $INFO{'palcolor'} ) { push @new_pal, "#$INFO{'palcolor'}"; } else { push @new_pal, "$pallist[$i]"; } } @pallist = @new_pal; require Admin::NewSettings; SaveSettingsTo('Settings.pm'); } $gzcomp = 0; print_output_header(); print qq~ Palette
~ or croak "$croak{'print'} colorpicker"; foreach my $z ( 0 .. 255 ) { showcolor($z); } print q~                        
~ or croak "$croak{'print'} input"; if ( $iamadmin && $picktask eq 'post' ) { print qq~ ~ or croak "$croak{'print'} input"; } else { print q~ ~ or croak "$croak{'print'} input"; } print qq~
 
~ or croak "$croak{'print'} body"; return; } sub showcolor { #deep nest removed to sub# my ($z) = @_; if ( $z % 51 == 0 ) { my $c1 = sprintf '%02x', $z; foreach my $y ( 0 .. 255 ) { if ( $y % 51 == 0 ) { my $c2 = sprintf '%02x', $y; foreach my $x ( 0 .. 255 ) { if ( $x % 51 == 0 ) { my $c3 = sprintf '%02x', $x; print qq~\n  ~ or croak "$croak{'print'} span"; } } } } } return; } 1;