| (22:42 23/01/02) . רמי more ideas: |
|
Add some printout to see where it is fail, for example:
sub create_session(){
print "Content-type: text/html\n\n<tml><ead><head><ody>d1<r>";
#make a fresh session for a first-time visitor
print "d1.12<r>";
tie %session, 'Apache::Session::MySQL', undef, {
DataSource => 'dbi:mysql:sessions', #these arguments are
UserName => 'edi', #required when using
Password => ..........
LockDataSource => 'dbi:mysql:sessions',
LockUserName => 'edi',
LockPassword => 'edispss'
};
print "d1.2<r>";
# tie %session, 'Apache::Session::MySQL', undef, {
# DataSource => 'dbi::mysql::sessions', #these arguments are
# UserName => '$database_username', #required when using
# Password => '$database_password', #MySQL.pm
# LockDataSource => 'dbi::mysql::sessions',
# LockUserName => '$database_username',
# LockPassword => '$database_password'
# }or print("Couldn't tie session");
print "d2<r>";
#open(EDI,">debug.txt");
#print EDI "Test";
#close(EDI);
רשק רוצ  העדוה ספדה  רבחל חלש  הבוגת  :תויורשפא |
|
|
|
תועדוהה לכ תא חתפ
םיליימיא תחילש
:ץבוק ףרוצמ