| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/11585/root/usr/share/perl5/Debconf/FrontEnd/ |
Upload File : |
#!/usr/bin/perl -w
# This file was preprocessed, do not edit!
package Debconf::FrontEnd::ScreenSize;
use strict;
use Debconf::Gettext;
use base qw(Debconf::FrontEnd);
sub init {
my $this=shift;
$this->SUPER::init(@_);
$this->resize; # Get current screen size.
$SIG{WINCH}=sub {
if (defined $this) {
$this->resize;
}
};
}
sub resize {
my $this=shift;
if (exists $ENV{LINES}) {
$this->screenheight($ENV{'LINES'});
$this->screenheight_guessed(0);
}
else {
my ($rows)=`stty -a 2>/dev/null` =~ m/rows (\d+)/s;
if ($rows) {
$this->screenheight($rows);
$this->screenheight_guessed(0);
}
else {
$this->screenheight(25);
$this->screenheight_guessed(1);
}
}
if (exists $ENV{COLUMNS}) {
$this->screenwidth($ENV{'COLUMNS'});
}
else {
my ($cols)=`stty -a 2>/dev/null` =~ m/columns (\d+)/s;
$this->screenwidth($cols || 80);
}
}
1