One Hat Cyber Team

Your IP: 216.73.216.13
Server IP: 109.199.105.153
Server: Linux connect.inboxifs.com 5.15.0-152-generic #162-Ubuntu SMP Wed Jul 23 09:48:42 UTC 2025 x86_64
Server Software: Apache
PHP Version: 8.2.29
Buat File | Buat Folder

View File Name : editor.pl

#!/usr/bin/perl
# editor.pl
# Called by chfn to edit freebsd user details

sleep(1);
open(FILE, $ARGV[0]);
@lines = <FILE>;
close(FILE);
open(FILE, ">$ARGV[0]");
foreach $l (@lines) {
	if ($l =~ /^(Shell):/i) {
		$l = "$1: $ENV{'EDITOR_SHELL'}\n";
		}
	elsif ($l =~ /^(Full Name):/i) {
		$l = "$1: $ENV{'EDITOR_REAL'}\n";
		}
	elsif ($l =~ /^(Office Location):/i) {
		$l = "$1: $ENV{'EDITOR_OFFICE'}\n";
		}
	elsif ($l =~ /^(Office Phone):/i) {
		$l = "$1: $ENV{'EDITOR_OPHONE'}\n";
		}
	elsif ($l =~ /^(Home Phone):/i) {
		$l = "$1: $ENV{'EDITOR_HPHONE'}\n";
		}
	print FILE $l;
	}
close(FILE);