One Hat Cyber Team

Your IP : 216.73.216.115
Server IP : 194.44.31.54
Server : Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64
Server Software : Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k
PHP Version : 5.6.40
Buat File | Buat Folder
Dir : ~/home/vo/perl/
View File Name : people.pl

#!/usr/bin/perl

open (passwd,"/etc/passwd");
while (<passwd>) {
   chomp;
    @fields = split(/:/);
    $user = $fields[0];
    $id = $fields[2];
    $fullname = $fields[4];
    @namefields = split(/,/,$fullname);
    $name = $namefields[0];
    
    # skip system users
    
    next if ($id < 500 ); 
    
    # now skip unwanted people
    next if ($id == 501) ;
    next if ($id == 502) ;
    next if ($id == 511) ;
    next if ($id == 529) ;
    next if ($id == 532) ;
    next if ($id == 539) ;
    next if ($id == 576) ;    
    next if ($id == 586) ;
    next if ($id == 590) ;
    next if ($id == 596) ;
    next if ($id == 601) ;
    next if ($id == 613) ;
    next if ($id == 616) ;
    next if ($id == 626) ;
    next if ($id == 629) ;
    next if ($id == 631) ;
    next if ($id == 652) ;
    next if ($id == 653) ;
    next if ($id == 659) ;
    next if ($id == 661) ;    
    next if ($id == 665) ;    
    next if ($id == 666) ;    
    next if ($id == 668) ;    
    next if ($id == 669) ;    
    next if ($id == 670) ;    
    next if ($id == 671) ;    
    next if ($id == 674) ;    
    next if ($id == 679) ;    
    next if ($id == 680) ;    
    next if ($id == 687) ;    
    next if ($id == 691) ;    
    next if ($id == 693) ;    
    next if ($id == 697) ;    
    next if ($id == 698) ;    
    next if ($id == 700) ;    
    next if ($id == 703) ;    
    next if ($id == 709) ;    
    next if ($id == 712) ;    

    @names = split(/ /,$name);

    $fname = "";

    if ($#names>=0)
       { $lname = $names[$#names];
         if ($#names>0)
           {for ($i=0; $i<$#names; $i++) {$fname = $fname.$names[$i]}}
       }

    if ($#names<0)
       {$lname = $user;};
#      {$lname = ucfirst $user;};  # in my version this function doesn't exist :(

    $sortkey = $lname." ".$fname;
    $username{$sortkey} = $user;
    $firstname{$sortkey} = $fname;
    $lastname{$sortkey} = $lname;

}

   @order = sort keys %username;

print "<HTML> \n <HEAD> \n";
print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=koi8-r\"> \n";
print "   <TITLE>People</TITLE> \n";
print "</HEAD> \n";
print "<BODY BACKGROUND=\"graphics/texture.gif\"> \n \n";
print "<H1>\n";
print "People of the Institute</H1> \n";
print "Below is the list of people who have personal accounts at our server.  \n";
print "If you seek \n";
print "for contacts with people from the Institute not listed below, write <A HREF=\"mailto:root\@imath.kiev.ua\">here</A>&nbsp; \n";
print "<HR ALIGN=LEFT SIZE=3 WIDTH=\"700\"> \n";

print "<TABLE WIDTH=\"85%\"> \n \n";

for ($i=0; $i <= $#order; $i++) {

print "<TR>";

print "<TD>\n";
print "<DIV ALIGN=right>".$firstname{$order[$i]}."</DIV> \n";
print "</TD>\n";

print "<TD>\n";
print "<DIV ALIGN=left><A HREF=\"~".$username{$order[$i]}."\" target=\"_top\">"
      .$lastname{$order[$i]}."</A></DIV>\n";
print "</TD>\n";

print "<TD>\n";
print "<DIV ALIGN=left><A HREF=\"mailto:".
      $username{$order[$i]}."\@imath.kiev.ua\">".
      $username{$order[$i]}."\@imath.kiev.ua</A></DIV>\n";
print "</TD>";

print "</TR>\n\n";

}

print "\n</TABLE></CENTER>\n";
print "\n<HR ALIGN=LEFT SIZE=3 WIDTH=\"700\">\n";

#($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$now=localtime;

print "<BR><FONT SIZE=-2>Last modified $now </FONT>\n";
#       $mday.".".$mon." ".$year.". 
#       </FONT>\n";

print "</BODY>\n";
print "</HTML>";

close passwd;