| Server IP : 172.67.134.114 / Your IP : 104.23.197.122 Web Server : Apache/2.4.37 System : Linux almalinux.duckdns.org 4.18.0-553.111.1.el8_10.x86_64 #1 SMP Sun Mar 8 20:06:07 EDT 2026 x86_64 User : ricodeal ( 1046) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/libexec/usermin/chfn/ |
Upload File : |
#!/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);