#!/usr/local/bin/perl require "admin.cfg"; # require "cookie.lib"; require "gb.cfg"; # require "cookie.lib"; require "html.cfg"; # require "cookie.lib"; $targetfile = "log.txt"; open (NAMEFILE, "$targetfile"); read NAMEFILE, $filecont,"20000"; @users = split(/;/,$filecont); foreach $user (@users) { ($poh,$ip,$name) = split(/ /,$user); if($ip eq $ENV{'REMOTE_ADDR'}) { $logged=1; $nameuser=$name; } } if($logged==1) { print "Content-type:text/html\n\n"; print qq| Новая страница 1

we just need to learn ways of reading

and understanding it.

 

 

Welcome |; print $nameuser; print qq|

Now you have access to the advanced activities on this site.

Through this program you'll discover the world of poetry: bright and polyhedral.

Enjoy poetry!

 

 

About the project

Exit

|; } else { print "Content-type:text/html\n\n"; print qq| Новая страница 1

we just need to learn ways of reading

and understanding it.

 

Please, log in.

 

User name:           

Password:                    

You can't access some advanced functions if you haven't authorized. Click the link below if you're not registered.

Registration

|; } close (NAMEFILE);