wwwdb_state_admin.pl

来自「使用perl和C写的基于Web的管理数据库表的程序」· PL 代码 · 共 22 行

sub PreCreateForm ()
{
   if(!&SessionIdGetState("ActualLogin") ||
      !&SessionIdGetState("IsAdmin"))
   {
      &OkForm("ERROR",
              sprintf(i18n("Sorry, please %s first as WWWdb-admin!"),
                      "<A HREF=" .
                      &CreateReference(&GetAttr("SessionId"),
                                       "Login") .
                      ">" .
                      i18n("login") .
                      "</A>"),
              "BtnExit");
      &MyExit();
   }
}


1;