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
