source: trunk/select_form.php

Last change on this file was 108, checked in by pinsard, 13 years ago

usage of option directive

  • Property svn:keywords set to Id
File size: 2.8 KB
Line 
1<?php
2
3/*
4module :
5++
6
7update :
8++
9$Id$
10fplod 2007-04-18T15:20:58Z aedon.locean-ipsl.upmc.fr (Darwin)
11creation
12d'après /usr/home/jv/WWW/Cirene/diary.php
13/usr/home/opatlod/NEMO/users/visu_nemo_users.php
14*/
15
16/*
17 Définit le fuseau horaire par défaut à utiliser. Disponible depuis PHP 5.1
18date_default_timezone_set('UTC'); ++
19*/
20/* ++ à décommenter
21*/
22error_reporting(E_ALL);
23
24/*
25retrieve global information
26*/
27$DATE_ISO8601_mod = 'Y-m-d\TH:i:s\Z'; /* +Z - fraction seconde */
28
29/* ++ str_split n'existe pas en 4.4. */
30if(!function_exists('str_split')){
31function str_split($str, $l=1) {
32    do {$ret[]=substr($str,0,$l); $str=substr($str,$l); }
33    while($str != "");
34    return $ret;
35}
36}
37
38$author_id = '';
39/*
40retrieve form data
41*/
42
43$personal_surname=$_POST['personal_surname'];
44$personal_firstname=$_POST['personal_firstname'];
45
46/*
47handle form data
48if personal_surname and personal_firstname are empty, go on error ++
49if personal_surname and personal_firstname are not empty we have to build
50an id (SURNAME_f), check if the file SURNAME_f.html exists.
51
52$tr_low_letters = str_split('abcdefghijklmnopqrstuvwxyz éèçàùëöñó');
53$tr_up_letters = str_split('ABCDEFGHIJKLMNOPQRSTUVWXYZ_EECAUEONO');
54
55$personal_surname_flat=str_replace($tr_low_letters, $tr_up_letters, $personal_surname);
56$personal_firstname_flat=str_replace($tr_up_letters, $tr_low_letters, $personal_firstname);
57
58$personal_surname_upper=strtoupper($personal_surname_flat);
59$personal_firstname_lower = strtolower($personal_firstname_flat);
60$personal_firstname_lower1 = substr($personal_firstname_lower,0,1);
61
62$author_id = $personal_surname_upper . '_' . $personal_firstname_lower1;
63echo ' author_id : ' . $author_id;
64
65$filename='../en/many/bibnemomaf04/' ;
66$filename='../en/many/bibnemomaf04/' . $author_id;
67$filename='../en/many/bibnemomaf04/' . $author_id . 'php';
68$filename='../en/many/bibnemomaf04/' . $author_id . '.php';
69$filename='../en/many/bibnemomaf04/' . $author_id . '\.php';
70echo 'filename'  . $filename;
71
72if (!file_exists($filename)) {
73  $template='../en/many/bibnemomaf04/new.php';
74  header('Location: ' . $template);
75}
76else
77{
78  header('Location: '. $filename);
79}
80
81/* si pb il faut afficher toutes les information succeptibles de comprendre
82et suggérer à l'utilisateur de nous les envoyer par mail
83*/
84echo 'date : ' . date($DATE_ISO8601_mod);
85echo ' author_id : ' . $author_id;
86echo $_SERVER['HTTP_USER_AGENT'];
87echo 'phpversion : ' . phpversion();
88echo $_POST['personal_surname'];
89echo "<p>personal_surname : $personal_surname</p>";
90echo 'personal_surname_upper : ' . $personal_surname_upper;
91echo 'personal_firstname : ' . $personal_firstname;
92echo "<p>personal_firstname_lower : $personal_firstname_lower</p>";
93echo "<p>personal_firstname_lower1 : $personal_firstname_lower1</p>";
94echo "<p>author_id : $author_id</p>";
95echo "<a href='$filename'>$filename</a>";
96
97?>
Note: See TracBrowser for help on using the repository browser.