fig16_13.pl

来自「PERL语言资料 可以用于PERL程序设计」· PL 代码 · 共 45 行

#!/usr/bin/perl
# Fig 16.13: fig16_13.pl
# Web page used to sign user out.

use strict;
use warnings;
use CGI qw( :standard );

# Erase the user's cart information
writeCookie();

print( header() );
print( start_html( -title => 'Logged out' ) );
print( "You are now logged out." );
print( br(), "You will be billed accordingly." );

print( br(), "To login again, " );
print( "<a href = \"fig16_10.pl\">click here</a>." );

print( end_html() );

sub writeCookie
{
   my $expires = "Monday, 11-JUN-01 16:00:00 GMT";
   print( "Set-Cookie: " );
   print( "CART=", join( "\t", @_ ), "; expires=$expires\n" );
   return;
}

###########################################################################
#  (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
#  All Rights Reserved.                                                   #
#                                                                         #
#  DISCLAIMER: The authors and publisher of this book have used their     #
#  best efforts in preparing the book. These efforts include the          #
#  development, research, and testing of the theories and programs        #
#  to determine their effectiveness. The authors and publisher make       #
#  no warranty of any kind, expressed or implied, with regard to these    #
#  programs or to the documentation contained in these books. The authors #
#  and publisher shall not be liable in any event for incidental or       #
#  consequential damages in connection with, or arising out of, the       #
#  furnishing, performance, or use of these programs.                     #
###########################################################################