Mettre un script sur un serveur hébergeur

**paul7594** · 04/02/2017, 11h12

Bonjour à tous,

je suis tout nouveau dans le domaine et j'essaie de créer un site internet très basique.

J'ai pris un sous-domaine chez un hébergeur gratuit, j'ai déjà une page html qui est en ligne et j'ai un script CGI pour récupérer des données mais je ne sais absolument pas comment l'installer sur mon hébergeur.

Tout aide est la bienvenue, car je n'y connais pas grand chose en serveur !

Merci à tous.

**chrtophe** · 04/02/2017, 13h53

Il faut que ton hébergeur supporte les scripts CGI. (et en gratuit c'est pas gagné)

j'ai un script CGI pour récupérer des données

Pour récupérer quoi comme données ?

**paul7594** · 04/02/2017, 13h57

C'est un questionnaire et j'aimerais récupérer les résultats.

D'après ce que j'ai compris il me faut un interpréteur Perl, on ne peut pas en installer un sur l'herbergeur?

**chrtophe** · 04/02/2017, 14h08

Non, soit l'hébergeur te fourni la possibilité de faire des scripts CGI en Perl, soit il te faut changer de technologie ou d'hébergeur.
Orientes-toi plutôt sur l'utilisation de PHP.

**paul7594** · 04/02/2017, 14h12

Merci pour ces infos, étant donné que je n'y connais pas grand chose je vais plutôt changer d'hébergeur.

**paul7594** · 05/02/2017, 19h25

Bonjour à tous,

j'ai finalement trouvé un hébergeur avec les modules perl, j'ai envoyé un fichier htm qui est un questionnaire et qui fonctionne très bien, mais au moment de recueillir les résultats un script CGI .pl écrit en perl doit être exécuté mais il y a un message d'erreur qui s'affiche :

"Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator at [no address given] to inform them of the time this error occurred, and the actions you performed just before this error.
More information about this error may be available in the server error log.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request."

J'ai essayé plein de chose mais rien à faire, j'ai plus d'idée. Je peux poster le script si ça peut vous aider.

**chrtophe** · 06/02/2017, 07h23

Ton code doit effectuer quelque chose de non autorisé par le serveur que tu utilises.

Donnes effectivement le code, mais essayes aussi de cibler ce qui déclenche l'erreur.

**paul7594** · 06/02/2017, 15h12

Voici le script, sur la deuxième ligne il y avait " $file_path = '/'; " où il est censé enregistrer les résultats, j'ai essayé plein de nom de dossiers différents qui sont sur le serveur mais ça donne toujours le même résultat, du coup j'ai fini par l'enlever. IL y a deux fichiers .pl dont voici l'un d'entre eux, si ça peut aider je peux poster le deuxième. Encore merci pour votre aide !

Code perl :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
#!/usr/bin/perl
 
 
##############################################################################
# QmakeCGI.pl store quizzes results on archive file placed on web server.    #
# Each single quiz, that runs on a single PC in a Internet/Intranet,         #
# automatically sends its results through the net to web server.             #
# Then the server calls a script, called QmakeCGI.pl that collect this       # 
# results into a archive file.                                               #
# For each data sent from a single quiz, a text line is added to archive file#
# To inquire into an archive file, QuizFaber, for every quiz built,          #
# automatically generate a HTML form page that, when the page is opened,     #
# send a request to server.                                                  #
# Then the server calls the second script QmakeCGIQuery.pl that read the   #
# archive file and shows, as HTML page, the query results (in other words,   #
# the quiz results that satisfied the query criterion).                      #
#                                                                            #
##############################################################################
 
use CGI;
use Time::localtime;
 
$cgivars = new CGI(STDIN);
 
#---------------------------
# Constant declarations
#---------------------------
 
$QMAKECGI_CODE_VERS = 4;
$SEPARATOR = "\t";
 
$QMAKE_HIDDENQST = \0;
$QMAKE_MULTIANS  = \1;
$QMAKE_BOOLEAN   = \2;
$QMAKE_OPENANS   = \3;
$QMAKE_FILLGAP   = \4;
$QMAKE_MATCHING  = \5;
$QMAKE_MULTIANSPT = \101;
 
 
#---------------------------
# Subroutine SetLanguage() 
#---------------------------
sub SetLanguage
{
	my $lang = shift;
 
	if ($lang eq 'ita') 
	{
		$QMAKECGI_QUIZ_RES  = 'Risultati del quiz';
		$QMAKECGI_NUM_QUEST = 'Numero di domande';
		$QMAKECGI_USERNAME  = 'Nome esaminando';
		$QMAKECGI_RIGHT_ANS = 'Risposte corrette';
		$QMAKECGI_WRONG_ANS = 'Risposte errate';
		$QMAKECGI_NO_ANS    = 'Domande non valutate';
		$QMAKECGI_TIME      = 'Tempo impiegato';
		$QMAKECGI_MARK      = 'Voto';
		$QMAKECGI_CLOSE     = 'Chiudi';
		$QMAKECGI_DATA      = 'Data e ora';
		$QMAKECGI_MSG_OK    = 'I risultati del quiz sono stati memorizzati correttamente.';
 
		$QMAKECGI_SERVER_ERROR    = 'Errore script CGI';
		$QMAKECGI_STR_SERVER_ERR  = 'Lo script CGI QmakeCGI.pl ha generato il seguente errore';
		$QMAKECGI_NO_VERS         = "Attenzione: numero di versione del quiz e' piu' grande della versione $QMAKECGI_CODE_VERS di QmakeCGI.pl. E' necessario usare una versione piu' recente di QmakeCGI.pl e QmakeCGIQuery.pl sul vostro server.";
		$QMAKECGI_NO_LOGFILE      = 'impossibile determinare il nome del file di archivio';
		$QMAKECGI_NO_OPEN_LOGFILE = 'errore nella scrittura del file di archivio';
	}
	elsif ($lang eq 'fra') 
	{
		$QMAKECGI_QUIZ_RES  = 'R�sultats du quiz';
		$QMAKECGI_NUM_QUEST = 'Nombre de questions';
		$QMAKECGI_USERNAME  = 'Nom';
		$QMAKECGI_RIGHT_ANS = 'R�ponses correctes';
		$QMAKECGI_WRONG_ANS = 'Mauvaises r�ponses';
		$QMAKECGI_NO_ANS    = 'Questions non valoris�s';
		$QMAKECGI_TIME      = 'Dur�e du quiz';
		$QMAKECGI_MARK      = 'Note finale';
		$QMAKECGI_CLOSE     = 'Fermer';
		$QMAKECGI_DATA      = 'Date et heure';
		$QMAKECGI_MSG_OK    = 'Les r�sultats du quiz ont �t� stock�s correctement';
 
		$QMAKECGI_SERVER_ERROR    = 'Erreur de script CGI';
		$QMAKECGI_STR_SERVER_ERR  = "Le script CGI QmakeCGI.pl a g�n�r� l'erreur suivante";
		$QMAKECGI_NO_VERS         = "Remarque: le num�ro de version du questionnaire est sup�rieure � la version $QMAKECGI_CODE_VERS de QmakeCGI.pl. Et n�cessaire d'utiliser une version plus r�cente de QmakeCGI.pl et QmakeCGIQuery.pl sur votre serveur.";
		$QMAKECGI_NO_LOGFILE      = "impossible de d�terminer le nom du fichier d'archive";
		$QMAKECGI_NO_OPEN_LOGFILE = "erreur d'�criture du fichier d'archive";
	}
	else 
	{
		$QMAKECGI_QUIZ_RES  = 'Quiz result';
		$QMAKECGI_NUM_QUEST = 'Number of questions';
		$QMAKECGI_USERNAME  = 'Candidate name';
		$QMAKECGI_RIGHT_ANS = 'Right answers';
		$QMAKECGI_WRONG_ANS = 'Wrong answers';
		$QMAKECGI_NO_ANS    = 'Unmarked questions';
		$QMAKECGI_TIME      = 'Time elapsed';
		$QMAKECGI_MARK      = 'Mark';
		$QMAKECGI_CLOSE     = 'Close';
		$QMAKECGI_DATA      = 'Data and time';
		$QMAKECGI_MSG_OK    = 'Quiz result has been stored successfully';
 
		$QMAKECGI_SERVER_ERROR    = 'CGI Script error';
		$QMAKECGI_STR_SERVER_ERR  = 'The CGI script named QmakeCGI.pl has produced the follow error';
		$QMAKECGI_NO_VERS         = "Warning: quiz version number is greater than version $QMAKECGI_CODE_VERS of QmakeCGI.pl. You should update both QmakeCGI.pl and QmakeCGIQuery.pl on your server.";
		$QMAKECGI_NO_LOGFILE      = 'unable to retrive archive file name';
		$QMAKECGI_NO_OPEN_LOGFILE = 'writing error in archive file';
	}
}
 
#---------------------------
# Main   
#---------------------------
 
  $lang = $cgivars->param('lang');
  SetLanguage($lang);
 
  $vers = $cgivars->param('vers'); 
  if (($vers eq '')||($vers =~ m/v/)) {
    #old versions:
    $vers = 1;
  }
 
  $archive = $cgivars->param('logfile');
  if ($archive eq '') {
    printError($QMAKECGI_NO_LOGFILE);
    die();
  }
 
  $file_path_tmp = $cgivars->param('filepath');
  if ($file_path_tmp ne '') {
	$file_path = $file_path_tmp;
  }
 
  if (saveRecord()==0) {
    printError($QMAKECGI_NO_OPEN_LOGFILE);
    die();
  }
 
  printResults();
 
 
#---------------------------
# Subroutine printResults()   
#---------------------------
sub printResults
{
	my $valuation = $cgivars->param('valuation');
    my $replyMode= $cgivars->param('replyUsing');
 
    print "Content-type:text/html\r\n\r\n";
 
	print "<html>";
	printHeader($QMAKECGI_QUIZ_RES);
	print "<body>";
 
	if ($vers > $QMAKECGI_CODE_VERS) {
		print "<FONT FACE='Arial' SIZE='-2' COLOR='#FF0000'>$QMAKECGI_NO_VERS</FONT><BR><BR>";
	}
 
	if ($valuation) 
	{
		printResultsTable();
	}
	else {
	    # quiz without valuation
	    print "<p style='text-align:center; margin-top:100px;'>$QMAKECGI_MSG_OK</p>";
	}
 
	if ($replyMode ne 'HTML5') 
	{
		print "<P style='text-align:center'><a href='#' onclick='top.close()' class='btn_class'>$QMAKECGI_CLOSE</a></P>";
	}
 
	print '</body>';
	print '</html>';
}
 
 
#---------------------------
# Subroutine printRow()
#---------------------------
# It writes the results table
#---------------------------
sub printResultsTable
{
    my $userName     = $cgivars->param('user');
    my $nQuest       = $cgivars->param('nQuest');
    my $nHiddenQuest = $cgivars->param('nQHidden');
	my $validQuest   = $nQuest-$nHiddenQuest; 
	my $nc           = $cgivars->param('nc');
	my $ns           = $cgivars->param('ns');
	my $nr           = $cgivars->param('nr');
	my $mark         = $cgivars->param('mark');
	my $maxmark      = $cgivars->param('maxvoto');
	my $time         = $cgivars->param('time');
    my $encrypt      = $cgivars->param('encrypt');
 
    @keyname = split(/,/,$userName);
 
    if ($encrypt) {
        $nc = $ns = $mark = '-';
    }
 
	print "<table>";
    print "<tr><th colspan='2'>".$keyname[0]."</th></tr>";
 
    printRow($QMAKECGI_DATA,$todayDateAndTime);
    printRow($QMAKECGI_NUM_QUEST,$validQuest);
    printRow($QMAKECGI_RIGHT_ANS,$nc);
    printRow($QMAKECGI_WRONG_ANS,$ns);
    if ($nr>0) {
      printRow($QMAKECGI_NO_ANS,$nr);
    }
    printRow($QMAKECGI_TIME,$time);
    printRow($QMAKECGI_MARK,$mark / $maxmark);
 
	print "</table>";
}
 
 
#---------------------------
# Subroutine printRow()
#---------------------------
sub printRow
{
	my $text = shift;
	my $value = shift;
 
	print "<TR>";
	print "<TD ALIGN='RIGHT' NOWRAP>$text</TD>";
	print "<TD ALIGN='LEFT' NOWRAP>$value</TD>";
	print "</TR>";
}
 
#---------------------------
# Subroutine printHeader()   
#---------------------------
sub printHeader
{
	my $title = shift;
 
	print <<TEXT_HEADER
 
	<head>
	<title>$title</title>
 
	<style type='text/css'>
		body { 
			margin: 0; 
			padding: 0; 
		}
		body,p,th,td {
			font-family: Verdana,helvetica, arial, san-serif;
			font-size: 10pt; 
		}
		table {
			width:100%;
			border-width: 1px;
			border-spacing: 0px;
			border-style: none;
			border-color: gray;
			border-collapse: collapse;
			background-color: white;
		}
		table th {
			text-align: center;
			border-width: 1px;
			padding: 5px;
			border-style: inset;
			border-color: gray;
			background-color: rgb(0, 72, 106);
			color: rgb(255, 255, 255);
			-moz-border-radius: ;
		}
		table td {
			border-width: 1px;
			padding: 5px;
			border-style: inset;
			border-color: gray;
			background-color: white;
			-moz-border-radius: ;
		}
	    .btn_class {
			display: inline-block;
			color: rgb(255, 255, 255);
			background-color: rgb(0, 72, 106);
			border: 1px solid rgb(0, 72, 106);
			font-family: Verdana, helvetica, arial, san-serif;
			font-weight: bold;
			font-size: 14px;
			text-align: center;
			padding: 13px 15px 14px;
			text-decoration: none;
			margin-left: 0px;
			margin-top: 0px;
			margin-bottom: 5px;
			white-space: nowrap;
			border-radius: 5px;
		}		
	</style>
	</head>
TEXT_HEADER
;
 
}
 
#---------------------------
# Subroutine printError()   
#---------------------------
sub printError
{
	my $replyMode= $cgivars->param('replyUsing');
 
    print "Content-type:text/html\r\n\r\n";
 
	print "<html>";
	printHeader($QMAKECGI_SERVER_ERROR);
	print "<body>";
 
	print <<TEXT_ERR      
 
	<P style='text-align:center; margin-top:100px; margin-left:20px; margin-right:20px;'>
		$QMAKECGI_STR_SERVER_ERR:<BR>
        <B>$_[0]</B>
	</P>
 
TEXT_ERR
;
	if ($replyMode ne 'HTML5') 
	{
		print "<P style='text-align:center'><a href='#' onclick='top.close()' class='btn_class'>$QMAKECGI_CLOSE</a></P>";
	}
 
	print '</body>';
	print '</html>';
 
}
 
 
#---------------------------
# Subroutine saveRecord()
#---------------------------
sub saveRecord
{
  my $nQuest       = $cgivars->param('nQuest');
  my $nHiddenQuest = $cgivars->param('nQHidden');
  my $validQuest   = $nQuest-$nHiddenQuest; 
 
  mkdir "$file_path", 0777 unless -d "$file_path";
 
 $pathlen = length($file_path);
 $lastpathchar = substr($file_path, $pathlen-1);
 if ($lastpathchar ne '/')  {
   $file_path = $file_path."/";
 }
 
  $filename = $file_path.$archive;
 
  if (open (FP, "+>>$filename")==0) {
    return 0;
  }
 
  print FP ":$QMAKECGI_CODE_VERS".$SEPARATOR;
  print FP $cgivars->param('encrypt').$SEPARATOR;
  print FP $cgivars->param('title').$SEPARATOR;
  print FP $cgivars->param('titleQuiz').$SEPARATOR;
  print FP $cgivars->param('user').$SEPARATOR;
 
  $loctim = localtime();
  $day = (($loctim->mday()<10)?'0':'').$loctim->mday();
  $month = (($loctim->mon()+1<10)?'0':'').($loctim->mon()+1);
 
  $todayDate = $day."-".$month."-".($loctim->year + 1900);
 
  print FP $todayDate.$SEPARATOR;
 
  $hh = $loctim->hour;
  $mm = $loctim->min;
  $ss = $loctim->sec;
  $todayTime = $hh.":".$mm.":".$ss;
 
  $todayDateAndTime = $todayDate."  ".$todayTime;
 
  print FP $nQuest.$SEPARATOR;
  print FP $cgivars->param('maxvoto').$SEPARATOR;
  print FP $cgivars->param('timeout').$SEPARATOR;
  print FP $cgivars->param('time').$SEPARATOR;
  print FP $cgivars->param('nc').$SEPARATOR;
  print FP $cgivars->param('ns').$SEPARATOR;
  print FP $cgivars->param('nr').$SEPARATOR;
  print FP $cgivars->param('mark').$SEPARATOR;
  print FP $cgivars->param('author').$SEPARATOR;
  print FP $cgivars->param('argument').$SEPARATOR;
 
  for ($i=0; $i<$nQuest; $i++) {
    $name = "datastore".($i+1);
    $kind = $cgivars->param($name);
 
    if (($kind == $$QMAKE_MULTIANS)||
        ($kind == $$QMAKE_MULTIANSPT)||
        ($kind == $$QMAKE_BOOLEAN)||
        ($kind == $$QMAKE_MATCHING)||
        ($kind == $$QMAKE_FILLGAP)) {
 
        $name = "weight".($i+1);
        $weight = $cgivars->param($name);
        $name = "risposta".($i+1);
        $value = $cgivars->param($name);
        $name = "score".($i+1);
        $value2 = $cgivars->param($name);
 
        print FP $kind.$SEPARATOR.$weight.$SEPARATOR.$value.$SEPARATOR.$value2.$SEPARATOR;
    }
    elsif ($kind == $$QMAKE_OPENANS) {
 
        $name = "risposta".($i+1);
        $value = $cgivars->param($name);       
        $value =~ s/[\n]/<BR>/g;
        $value =~ s/[\r]/ /g;
        print FP $kind.$SEPARATOR.$weight.$SEPARATOR.$value.$SEPARATOR;
    }
    else {
        # QMAKE_HIDDENQST :
        print FP $kind.$SEPARATOR;
    }
  }
  print FP "\n";
  close(FP);
 
  return 1;
}

Mettre un script sur un serveur hébergeur

Administration système

Discussions similaires

Partager

Partager