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
  
/* 
 * $Id: mysql.pike,v 1.5 1998/07/03 20:03:49 mast Exp $ 
 * 
 * Glue for the Mysql-module 
 */ 
 
//. 
//. File:     mysql.pike 
//. RCSID:    $Id: mysql.pike,v 1.5 1998/07/03 20:03:49 mast Exp $ 
//. Author:   Henrik Grubbström (grubba@idonex.se) 
//. 
//. Synopsis: Implements the glue to the Mysql-module. 
//. 
//. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
//. 
//. Implements the glue needed to access the Mysql-module from the generic 
//. SQL module. 
//. 
 
inherit Mysql.mysql; 
 
//. - quote 
//.   Quote a string so that it can safely be put in a query. 
//. > s - String to quote. 
string quote(string s) 
{ 
  return(replace(s, 
                 ({ "\\", "\"", "\0", "\'", "\n", "\r" }), 
                 ({ "\\\\", "\\\"", "\\0", "\\\'", "\\n", "\\r" }))); 
} 
 
// The following time conversion functions assumes the SQL server 
// handles time in this local timezone. They map the special zero 
// time/date spec to 0. 
 
private constant timezone = localtime (0)->timezone; 
 
//. - encode_time 
//.   Converts a system time value to an appropriately formatted time 
//.   spec for the database. 
//. > time - Time to encode. 
//. > date - If nonzero then time is taken as a "full" unix time spec 
//.   (where the date part is ignored), otherwise it's converted as a 
//.   seconds-since-midnight value. 
string encode_time (int time, void|int date) 
{ 
  if (date) { 
    if (!time) return "000000"; 
    mapping(string:int) ct = localtime (time); 
    return sprintf ("%02d%02d%02d", ct->hour, ct->min, ct->sec); 
  } 
  else return sprintf ("%02d%02d%02d", time / 3600 % 24, time / 60 % 60, time % 60); 
} 
 
//. - encode_date 
//.   Converts a system time value to an appropriately formatted 
//.   date-only spec for the database. 
//. > time - Time to encode. 
string encode_date (int time) 
{ 
  if (!time) return "00000000"; 
  mapping(string:int) ct = localtime (time); 
  return sprintf ("%04d%02d%02d", ct->year + 1900, ct->mon + 1, ct->mday); 
} 
 
//. - encode_datetime 
//.   Converts a system time value to an appropriately formatted 
//.   date and time spec for the database. 
//. > time - Time to encode. 
string encode_datetime (int time) 
{ 
  if (!time) return "00000000000000"; 
  mapping(string:int) ct = localtime (time); 
  return sprintf ("%04d%02d%02d%02d%02d%02d", 
                  ct->year + 1900, ct->mon + 1, ct->mday, 
                  ct->hour, ct->min, ct->sec); 
} 
 
//. - decode_time 
//.   Converts a database time spec to a system time value. 
//. > timestr - Time spec to decode. 
//. > date - Take the date part from this system time value. If zero, a 
//.   seconds-since-midnight value is returned. 
int decode_time (string timestr, void|int date) 
{ 
  int hour = 0, min = 0, sec = 0; 
  if (sscanf (timestr, "%d:%d:%d", hour, min, sec) <= 1) 
    sscanf (timestr, "%2d%2d%2d", hour, min, sec); 
  if (date && (hour || min || sec)) { 
    mapping(string:int) ct = localtime (date); 
    return mktime (sec, min, hour, ct->mday, ct->mon, ct->year, ct->isdst, ct->timezone); 
  } 
  else return (hour * 60 + min) * 60 + sec; 
} 
 
//. - decode_date 
//.   Converts a database date-only spec to a system time value. 
//.   Assumes 4-digit years. 
//. > datestr - Date spec to decode. 
int decode_date (string datestr) 
{ 
  int year = 0, mon = 0, mday = 0, n; 
  n = sscanf (datestr, "%d-%d-%d", year, mon, mday); 
  if (n <= 1) n = sscanf (datestr, "%4d%2d%2d", year, mon, mday); 
  if (year || mon || mday) 
    return mktime (0, 0, 0, n == 3 ? mday : 1, n >= 2 && mon - 1, year - 1900, 
                   -1, timezone); 
  else return 0; 
} 
 
//. - decode_datetime 
//.   Converts a database date and time spec to a system time value. 
//.   Can decode strings missing the time part. 
//. > datestr - Date and time spec to decode. 
int decode_datetime (string timestr) 
{ 
  array(string) a = timestr / " "; 
  if (sizeof (a) == 2) 
    return decode_date (a[0]) + decode_time (a[1]); 
  else { 
    int n = sizeof (timestr); 
    if (n >= 12) 
      return decode_date (timestr[..n-7]) + decode_time (timestr[n-6..n-1]); 
    else 
      return decode_date (timestr); 
  } 
}