cgi-скрипт на Perl'e

@yaest · Регистрация: 12.04.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте все) Помогите, пожалуйста, сделать, так, чтобы при успешной авторизации, выходило сообщение "Неверный логин и/или пароль" (типа обманывалка) и снова выходила форма для авторизации, но на этот раз в случае правильного ввода, чтоб появлялось сообщение "Добро пожаловать", а иначе "Неверный логин и/или пароль"
Пытаюсь сделать, но только запутываюсь все больше и больше Помогите.

скрипт для обычной авторизации вот(помогите его исправить)=>

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl
print "Content-type:text/html\n\n";
use DBI;
$dbh=DBI->connect("DBI:mysql:test","","") or print "Error connect base";
use CGI;
my $q=CGI->new;
$step1=$q->param ("step1");
if ($step1) {
 $login=$q->param('login');
 $pas=$q->param('pas');
 $a=$dbh->prepare("SELECT login.id FROM login,pas where login.name=\"".$login."\" and pas.pas=\"".$pas."\" and login.id=pas.id;");
 $a->execute;
 $id=$a->fetchrow();
 if ($id)
 { print "Добро пожаловать" }
 else { print "Неверный логин или пароль
 <form>
 <input type=hidden name=step1 value=yes> <br>
 Логин <input type=text name=login> <br>
 Пароль <input type=text name=pas> <br>
 <input type=submit>
 </form>";};
 }
 
else {
print "<form>
<input type=hidden name=step1 value=yes> <br>
Авторизация <br>
 
Логин <input type=text name=login> <br>
Пароль <input type=text name=pas> <br>
<input type=submit>
</form>";
}

Спасибо заранее!

Добавлено через 2 часа 56 минут
Пытаюсь написать...по логике вроде построено правильно, но почему-то при втором разе ввода правильного пароля выдает не "добро подаловать", а заново "авторизация". Что я упустила??

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
#!/usr/bin/perl
print "Content-type:text/html\n\n";
use DBI;
$dbh=DBI->connect("DBI:mysql:test","","") or print "Error connect base";
use CGI;
my $q=CGI->new;
$step1=$q->param ("step1");
$step2=$q->param ("step2");
if ($step1) {
    $login=$q->param('login');
    $pas=$q->param('pas');
    $a=$dbh->prepare("SELECT login.id FROM login,pas where login.name=\"".$login."\" and pas.pas=\"".$pas."\" and login.id=pas.id;");
    $a->execute;
    $id=$a->fetchrow();
    if ($id)
    { 
      if ($step2) {
           $login=$q->param('login');
           $pas=$q->param('pas');
           $a=$dbh->prepare("SELECT login.id FROM login,pas where login.name=\"".$login."\" and pas.pas=\"".$pas."\" and login.id=pas.id;");
           $a->execute;
           $id=$a->fetchrow();
           if ($id)
              { print "Добро пожаловать" }
           else { print "Неверный логин или пароль
              <form>           
              Логин <input type=text name=login> <br>
              Пароль <input type=text name=pas> <br>
              <input type=submit>
              </form>";
              }
         }
        
       else   {
            print "Неверный логин или пароль
            <form>
            <input type=hidden name=step2 value=yes>
            Логин  <input type=text name=login> <br>
            Пароль <input type=text name=pas> <br>
            <input type=submit>
            </form>";
             }     
      } 
 
   else { 
      print "Неверный логин или пароль
      <form> 
      Логин <input type=text name=login> <br>
      Пароль <input type=text name=pas> <br>
      <input type=submit>
      </form>";
         }
}
       
else {
print "<form>
<input type=hidden name=step1 value=yes> <br>
Авторизация   <br>
Логин  <input type=text name=login> <br>
Пароль <input type=text name=pas> <br>
<input type=submit>
</form>";
}

02.06.2011, 14:04

В строке 10 ты проверяешь "а не первый ли это шаг?", а так как второй шаг тоже не первый, то и посылает тебя на авторизацию

Новые блоги и статьи Все статьи Все блоги /
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.

rovix
	02.06.2011, 14:04
	В строке 10 ты проверяешь "а не первый ли это шаг?", а так как второй шаг тоже не первый, то и посылает тебя на авторизацию