OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl5
/
Sys
/
Hostname
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/28/2024 06:50:33 AM
rwxr-xr-x
📄
Long.pm
10.45 KB
05/10/2015 11:17:20 PM
rw-r--r--
📄
testall.pl
731 bytes
04/10/2009 04:14:31 AM
rwxr-xr-x
Editing: testall.pl
Close
#!/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; }