Forum Debian Users Gang

echo "<table cellspacing='1' cellpadding='3' class='list'><tr><td class='listtitle'><a class='listtitle'><b>${PLUGIN_NAME}</b></a></td>"
echo "<table cellspacing='1' cellpadding='3' class='list'>";
echo "<fieldset style=\"border-color: blue; padding:8xp;text-align:justify; background-color:lightblue\">";

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(-no_xhtml -nosticky);
use utf8;

my $query = new CGI;

print $query->header(-type  => 'text/html',
        -charset => 'UTF-8'
);

if ($query->param('do_this')) {
        my $login = $query->param('hidden_name');
        print "<h1>$login</h1>\n";
        foreach my $name ($query->param) {
                next if ($name =~ m/do_this|hidden_name/);
                print $name . " -- " . $query->param($name) . '<br>' ."\n";
        }
}

print $query->start_multipart_form(-name => 'connect') . "\n";
print $query->hidden(-name => 'hidden_name', -default => ['jakis login']) . "\n";
foreach my $domena ('domena1', 'domena2', 'domena3') { # tutaj powinieneś działać na tablicy domen danego użytkownika
        print $query->checkbox(-name => $domena, -checked => 0, -label => $domena) . "\n";
}
print $query->submit(-name => 'do_this', -value => 'Wyślij') . "\n";
print $query->end_form . "\n";