X7ROOT File Manager
Current Path:
/usr/libexec/usermin/WebminUI
usr
/
libexec
/
usermin
/
WebminUI
/
📁
..
📄
All.pm
(969 B)
📄
Button.pm
(1.16 KB)
📄
Checkbox.pm
(1.19 KB)
📄
Checkboxes.pm
(2.49 KB)
📄
Columns.pm
(1.43 KB)
📄
ConfirmPage.pm
(1.14 KB)
📄
Date.pm
(2.11 KB)
📄
DynamicBar.pm
(2.35 KB)
📄
DynamicHTML.pm
(1.16 KB)
📄
DynamicText.pm
(2.42 KB)
📄
DynamicWait.pm
(2.49 KB)
📄
ErrorPage.pm
(565 B)
📄
File.pm
(1.57 KB)
📄
Form.pm
(7.94 KB)
📄
Group.pm
(1.44 KB)
📄
Icon.pm
(1.09 KB)
📄
Input.pm
(2.27 KB)
📄
InputTable.pm
(2.79 KB)
📄
JavascriptButton.pm
(970 B)
📄
LinkTable.pm
(6.38 KB)
📄
Menu.pm
(1.48 KB)
📄
Multiline.pm
(873 B)
📄
OptTextarea.pm
(2.85 KB)
📄
OptTextbox.pm
(1.94 KB)
📄
Page.pm
(8.41 KB)
📄
Password.pm
(639 B)
📄
PlainText.pm
(1.7 KB)
📄
Properties.pm
(2.6 KB)
📄
Radios.pm
(1.59 KB)
📄
ResultPage.pm
(520 B)
📄
Section.pm
(3.54 KB)
📄
Select.pm
(2.66 KB)
📄
Submit.pm
(788 B)
📄
Table.pm
(15.87 KB)
📄
TableAction.pm
(1.51 KB)
📄
Tabs.pm
(2.86 KB)
📄
Textarea.pm
(2.16 KB)
📄
Textbox.pm
(1.63 KB)
📄
Time.pm
(4.12 KB)
📄
TitleList.pm
(1.51 KB)
📄
Upload.pm
(1.48 KB)
📄
User.pm
(1.44 KB)
Editing: Group.pm
package WebminUI::Group; use WebminUI::Textbox; use WebminCore; @ISA = ( "WebminUI::Textbox" ); =head2 new WebminUI::Group(name, value, [multiple], [disabled]) A text box for entering or selecting one or many Unix groupnames =cut sub new { if (defined(&WebminUI::Theme::Group::new)) { return new WebminUI::Theme::Group(@_[1..$#_]); } my ($self, $name, $value, $multiple, $disabled) = @_; $self = new WebminUI::Textbox($name, $value, $multiple ? 40 : 15, $disabled); bless($self); $self->set_multiple($multiple); return $self; } =head2 html() Returns the HTML for this group input =cut sub html { my ($self) = @_; my $rv = WebminUI::Textbox::html($self); my $name = $self->get_name(); my $multiple = $self->get_multiple(); local $w = $multiple ? 500 : 300; $rv .= " <input type=button name=${name}_button onClick='ifield = form.$name; chooser = window.open(\"@{[&get_webprefix()]}/group_chooser.cgi?multi=$multiple&group=\"+escape(ifield.value), \"chooser\", \"toolbar=no,menubar=no,scrollbars=yes,width=$w,height=200\"); chooser.ifield = ifield; window.ifield = ifield' value=\"...\">\n"; return $rv; } sub set_multiple { my ($self, $multiple) = @_; $self->{'multiple'} = $multiple; } sub get_multiple { my ($self) = @_; return $self->{'multiple'}; } =head2 get_input_names() Returns the actual names of all HTML elements that make up this input =cut sub get_input_names { my ($self) = @_; return ( $self->{'name'}, $self->{'name'}."_button" ); } 1;
Upload File
Create Folder