#!/usr/bin/perl #VER 1.11 #! размер пароля ограничен 8 символами, а в старом топе нет, не поодерживается! #! новый пароль ему показывать уже урезанный require "convinit.pl"; require "convlib.pl"; print "Content-type: text/html\n\n"; &parse_GETnPOST; if( $ENV{'REQUEST_METHOD'} eq 'POST' ) { &display_message; } else { &display_login; } sub display_login { my $msg=shift; my @cats=(); if( $CATS_ON ) { @cats=&Get_Cats(); #print "cats: @cats"; } print qq~ MEMBERS AREA


~; print qq~
   Members Area
Category:
Login:
Password:

$msg

Powered By DF™
~; exit(); } sub display_message { &Set_INFO($FORM{"unm"}, $CATS_ON?$FORM{"cat"}:""); $USER=$FORM["unm"]; $CAT=$FORM["cat"]; $ID="unknown"; if( !$INFO{id} ) { &display_login("Member Not Found (Login: ".$FORM{"unm"}.($CATS_ON?" Category: ".$FORM{"cat"}:"").")!"); } if( $INFO{pwd} ne $FORM{"pwd"}) { &display_login("Password Error!"); } print qq~ Information



   Message for you!

Hello Webmaster!
We have updated the software of ours top list $DOMAIN.

The link on topsite has changed:
Your new link: $IN_URL?id=$INFO{id}
It is better to use the new link, but the old link will work too.

New Members Area: $MEMBERS_URL
Your old id ($INFO{login}) for edit account and to look statistics changed also:
Your new id: $INFO{id}
Your password: $INFO{pwd}

I`m sorry for the given inconveniences.

Admin $DOMAIN        

    Goto to New member Area  

Powered By DF™
~; }