uawdijnntqw1x1x1
IP : 216.73.216.110
Hostname : xhost1.intravision.ru
Kernel : Linux xhost1.intravision.ru 3.16.0-7-amd64 #1 SMP Debian 3.16.59-1 (2018-10-03) x86_64
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
OS : Linux
PATH:
/
var
/
.
/
..
/
.
/
.
/
usr
/
.
/
share
/
webmin
/
WebminUI
/
JavascriptButton.pm
/
/
package WebminUI::JavascriptButton; use WebminUI::Input; use WebminCore; @ISA = ( "WebminUI::Input" ); =head2 new WebminUI::JavascriptButton(label, script, [disabled]) Create a button that runs some Javascript when clicked =cut sub new { if (defined(&WebminUI::Theme::JavascriptButton::new) && caller() !~ /WebminUI::Theme::JavascriptButton/) { return new WebminUI::Theme::JavascriptButton(@_[1..$#_]); } my ($self, $value, $script, $disabled) = @_; $self = { }; bless($self); $self->set_value($value); $self->set_script($script); $self->set_disabled($disabled) if ($disabled); return $self; } =head2 html() Returns the HTML for this text input =cut sub html { my ($self) = @_; return "<input type=button value=\""."e_escape($self->get_value())."\" ". "onClick=\"".$self->get_script()."\">"; } sub set_script { my ($self, $script) = @_; $self->{'script'} = $script; } sub get_script { my ($self) = @_; return $self->{'script'}; } 1;
/var/./../././usr/./share/webmin/WebminUI/JavascriptButton.pm