CGI :: Framework. CGI :: Framework ist ein einfach zu bedienender, leichter Web-CGI-Framework.
Jetzt downloaden

CGI :: Framework. Ranking & Zusammenfassung

CGI :: Framework. Stichworte

Netz Rahmen Perl-Modul cgi. Webrahmen. CGI-Framework.

CGI :: Framework. Beschreibung

CGI :: Framework ist ein einfach zu verwendender, leichter Web-CGI-Framework. CGI :: Framework ist ein einfach zu verwendender, leichter Web-CGI-Framework. Es ist in erster Linie ein Kleber zwischen HTML :: Template, CGI :: Session, CGI, LOCALE :: MAKETEXT und einigen Magic.Synopsis Verwenden Sie CGI :: Framework; Verwenden Sie vars qw ($ f); # # Setup Die anfängliche Framework-Instanz # $ F = Neuer CGI :: Framework (SESSIONS_DIR => "/ TMP", Templates_DIR => "/ Home / Sachen / MyProject / Templates", Initial_Template => "EnterusName",) || Die "Fehler beim Erstellen einer neuen CGI :: Framework-Instanz: $ @ n"; # # Holen Sie sich die Instanz, um "Machen Sie", einschließlich der Überprüfung der Überprüfung des # Just-Submiting-Formulars, einschließlich der Vorbereitung der Daten für die anstehende Vorlage, die zu sendenden, und jede Bereinigung # $ f-> dispatch (); # # Dieser Sub wird automatisch aufgerufen, nachdem die Vorlage "EnterusName" vom Client # Sub validate_enterusername {My $ F = Shift eingereicht wird; if (! $ F-> -Form ("Benutzername")) {$ f-> add_error ("Sie müssen einen Benutzernamen eingeben"); } ELSIF (! $ F-> -Form ("Passwort")) {$ f-> add_error ("Sie müssen Ihr Passwort eingeben"); } else {if ($ f-> form ("username") EQ "Mina" $ f-> Form ("Passwort") EQ "SESTSECRET") {$ F-> Sitzung ("Benutzername", "Mina"); $ F-> Sitzung ("authentifiziert", "1"); } else {$ f-> add_error ("Authentication fehlgeschlagen"); }}} # # Dieser Sub wird automatisch aufgerufen, bevor die "MainMenu" -vorlage gesendet wird # Sub Pre_MainMenu {My $ f = Shift; $ F-> Assert_Session ("authenticiert"); $ F-> HTML (SomEvariable "," SomeValue "); $ F-> HTML ("Name", $ F-> Session ("Benutzername"); } # # Dieser Sub wird automatisch aufgerufen, nachdem die Vorlage "Logout" gesendet wird # SUB post_logout {My $ f = Shift; $ f-> clear_session (); } Anforderungen: · Perl.

CGI :: Framework. Zugehörige Software