----- Original Message -----
From: "Jean-Francois Larente" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, February 16, 2001 12:19 PM
Subject: DBI error between 12:24am and 12:59am
> Hello all,
>
> I have joined the list today and I hope I will be able to share some
> experience with everyone.
>
> We have a problem here we can't seem to put our finger on:
>
>
> We are accessing a
>
>
> 1 #!/usr/bin/perl -w
> 2
> 3 package SURVEY;
> 4
> 5 use DBI;
> 6 use CONSTANTS;
> 7 use strict;
> 8
> 9 my $surveydb = CONSTANTS->Surveys;
> 10
> 11 sub getsurvey
> 12 {
> 13 my $count = 0;
> 14 my $survey_table = "";
> 15
> 16 #### The variable $rightnow holds the current time instance ####
> 17 #### of the cgi's execution in MySQL format ####
> 18
> 19 my $rightnow = sprintf("%.0d-%.0d-%.0d %.0d:%.0d:%.0d",
> 20
> (localtime)[5]+1900,(localtime)[4]+1,(localtime)[3],
> 21
> (localtime)[2],(localtime)[1],(localtime)[0]);
> 22
> 23 my $dbh = DBI->connect($surveydb, 'Joe', 'password') or
> &denial($DBI::errstr);
> 24
> 25 do
> 26 {
> 27 my $randnum = 0;
> 28 my $id = 0;
> 29 my $sumfound = 0;
> 30 my $tempid = 0;
> 31 my $sumpick = 0;
> 32 my $priority = 0;
> 33 my @tempid = ();
> 34 $count++;
> 35
> 36 #### pick a random number and set the priority level ####
> 37 #### of the survey to be displayed ####
> 38
> 39 $randnum = int(rand 16);
> 40
> 41 if($randnum > 1)
> 42 {
> 43 if($randnum > 3)
> 44 {
> 45 if($randnum > 10)
> 46 {
> 47 if($randnum > 12)
> 48 {
> 49 $priority = 3;
> 50 }
> 51 else
> 52 {
> 53 $priority = 4;
> 54 }
> 55 }
> 56 else
> 57 {
> 58 $priority = 5;
> 59 }
> 60 }
> 61 else
> 62 {
> 63 $priority = 2;
> 64 }
> 65 }
> 66 else
> 67 {
> 68 $priority = 1;
> 69 }
> 70
> 71 my $datainput = $dbh->prepare("SELECT SURVEY_ID FROM
> QUESTION WHERE PRIORITY_TYPE='$
> priority'")
> 72 or return &error($dbh->errstr);
> 73 if($datainput->execute())
> 74 { .....
>
>
> Line 73...
>
> DBD::mysql::st execute failed: Can't find file: './SURVEYS/QUESTION.frm'
> (errno: 13) at
> /usr/lib/perl5/site_perl/5.005/i386-linux/SURVEY.pm line 73.
>
> This problem is occuring on 3 different machines that are not really
similar
> in hardware but quite similar in software.
>
> Mysql 3.22
> perl 5.00503
>
>
> We use mysql manually and have no problems. We use it through a different
> module with no problems.
> It only happens for about 1/2 hour between midnight and 1am... (12:24 to
> 12:29)
>
> The great thing is that we can reproduce the problem anytime we want.
>
> Hopefully this is a known issue.
>
> Thanks,
>
> J.F. Larente
> DBA
> Moshpit Entertainment
>
>
