cb03ae9cc90eae2176dd6ef564bbbdc83a72dca5
bernd webinterface => /webinterface

bernd authored 17 years ago

1) <?php
Bernd Wurst Added license tags for CC0,...

Bernd Wurst authored 12 years ago

2) /*
3) This file belongs to the Webinterface of schokokeks.org Hosting
4) 
Bernd Wurst Copyright year update

Bernd Wurst authored 6 years ago

5) Written 2008-2018 by schokokeks.org Hosting, namely
Bernd Wurst Added license tags for CC0,...

Bernd Wurst authored 12 years ago

6)   Bernd Wurst <bernd@schokokeks.org>
7)   Hanno Böck <hanno@schokokeks.org>
8) 
9) To the extent possible under law, the author(s) have dedicated all copyright and related and neighboring rights to this software to the public domain worldwide. This software is distributed without any warranty.
10) 
11) You should have received a copy of the CC0 Public Domain Dedication along with this software. If not, see 
12) http://creativecommons.org/publicdomain/zero/1.0/
13) 
14) Nevertheless, in case you use a significant part of this code, we ask (but not require, see the license) that you keep the authors' names in place and return your changes to the public. We would be especially happy if you tell us what you're going to do with this code.
15) */
bernd webinterface => /webinterface

bernd authored 17 years ago

16) 
Bernd Wurst Umstellung auf PDO-Datenban...

Bernd Wurst authored 10 years ago

17) require_once('class/database.php');
bernd add a function to handle re...

bernd authored 15 years ago

18) require_once('inc/debug.php');
bernd sql-abfragen abstrahiert

bernd authored 17 years ago

19) 
schokokeks.org web services Ermögliche Socket-Angabe fü...

schokokeks.org web services authored 10 years ago

20) function config($key, $localonly = false)
bernd Mehr config-optionen und co...

bernd authored 15 years ago

21) {
22)   global $config;
bernd Erlaube subusers, die nur Z...

bernd authored 14 years ago

23) 
Bernd Wurst Lizenzinfos in eigenes Modu...

Bernd Wurst authored 10 years ago

24)   if ($key == "modules") {
25)     // Stelle sicher, dass das "index"-Modul immer aktiv ist!
26)     if (! in_array("index", $config['modules'])) {
27)       $config['modules'][] = "index";
28)     }
29)     // Stelle sicher, dass das "about"-Modul immer aktiv ist!
30)     if (! in_array("about", $config['modules'])) {
31)       $config['modules'][] = "about";
32)     }
33)   }
34) 
bernd Erlaube subusers, die nur Z...

bernd authored 14 years ago

35)   if ($key == 'modules' && isset($_SESSION['restrict_modules']))
36)   {
37)     $modules = array();
38)     foreach ($config['modules'] as $mod)
39)     {
40)       if (in_array($mod, $_SESSION['restrict_modules']))
41)         $modules[] = $mod;
42)     }
43)     return $modules;
44)   }
45) 
bernd config() liest die Datenban...

bernd authored 15 years ago

46)   if (array_key_exists($key, $config))
47)     return $config[$key];
48)   
schokokeks.org web services Ermögliche Socket-Angabe fü...

schokokeks.org web services authored 10 years ago

49)   if ($localonly) {
50)     return NULL;
51)   }  
52) 
bernd config() liest die Datenban...

bernd authored 15 years ago

53)   /* read configuration from database */
Bernd Wurst Umstellung auf PDO-Datenban...

Bernd Wurst authored 10 years ago

54)   $result = db_query( "SELECT `key`, value FROM misc.config" );
bernd config() liest die Datenban...

bernd authored 15 years ago

55)   
Bernd Wurst Umstellung auf PDO-Datenban...

Bernd Wurst authored 10 years ago

56)   while( $object = $result->fetch() ) {
schokokeks.org web services Config-File-Optionen werden...

schokokeks.org web services authored 11 years ago

57)     if (!array_key_exists($object['key'], $config)) {
Bernd Wurst Revert "Umstellung auf mysqli"

Bernd Wurst authored 11 years ago

58) 	    $config[$object['key']]=$object['value'];
schokokeks.org web services Config-File-Optionen werden...

schokokeks.org web services authored 11 years ago

59)     }
bernd config() liest die Datenban...

bernd authored 15 years ago

60)   }
bernd Passwort-Ändern geht jetzt...

bernd authored 14 years ago

61)   // Sonst wird das Passwort des webadmin-Users mit ausgegeben
62)   $debug_config = $config;
63)   unset($debug_config['db_pass']);
64)   DEBUG($debug_config);
bernd Mehr config-optionen und co...

bernd authored 15 years ago

65)   if (array_key_exists($key, $config))
66)     return $config[$key];
67)   else
bernd Logger mit Logleveln

bernd authored 15 years ago

68)     logger(LOG_ERR, "inc/base", "config", "Request to read nonexistant config option »{$key}«.");
bernd Einige Dummheiten repariert...

bernd authored 15 years ago

69)     return NULL;
bernd Mehr config-optionen und co...

bernd authored 15 years ago

70) }
71) 
Bernd Wurst Blende Aktionen aus, wenn d...

Bernd Wurst authored 6 years ago

72) function have_role($role) {
73)     $have = $_SESSION['role'] & $role;
74)     if ($have) {
75)         DEBUG("Current user has role ".$role);
76)     } else {
77)         DEBUG("Current user does not have role ".$role);
78)     }
79)     return $have;
80) }
81) 
bernd Info-Seite über Mail-Login-...

bernd authored 13 years ago

82) function get_server_by_id($id) {
83)   $id = (int) $id;
Bernd Wurst Weitere Prepared-Statement-...

Bernd Wurst authored 10 years ago

84)   $result = db_query("SELECT hostname FROM system.servers WHERE id=?", array($id));
Bernd Wurst Umstellung auf PDO-Datenban...

Bernd Wurst authored 10 years ago

85)   $ret = $result->fetch();
86)   return $ret['hostname'];
bernd Info-Seite über Mail-Login-...

bernd authored 13 years ago

87) }
88) 
bernd Mehr config-optionen und co...

bernd authored 15 years ago

89) 
bernd add a function to handle re...

bernd authored 15 years ago

90) function redirect($target)
91) {
92)   global $debugmode;
Bernd Wurst Session aufräumen, Weiterle...

Bernd Wurst authored 6 years ago

93)   if ($target == '') {
94)       $target = $_SERVER['REQUEST_URI'];
95)   }
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

96)   if (! $debugmode) {
bernd add a function to handle re...

bernd authored 15 years ago

97)     header("Location: {$target}");
Bernd Wurst Erste Vorbereitungen für Do...

Bernd Wurst authored 6 years ago

98)   } else {
99)       if (strpos($target, '?') === false) {
100)         print 'REDIRECT: '.internal_link($target, $target);
101)       } else {
102)           list($file, $qs) = explode('?', $target, 2);
103)           print 'REDIRECT: '.internal_link($file, $target, $qs);
104)       }
105)   }
bernd add a function to handle re...

bernd authored 15 years ago

106)   die();
107) }
108) 
109) 
bernd Hilfsfunktionen bzgl. mehre...

bernd authored 15 years ago

110) function my_server_id()
111) {
112)   $uid = (int) $_SESSION['userinfo']['uid'];
Bernd Wurst Einige Statements auf Prepa...

Bernd Wurst authored 10 years ago

113)   $result = db_query("SELECT server FROM system.useraccounts WHERE uid=?", array($uid));
Bernd Wurst Umstellung auf PDO-Datenban...

Bernd Wurst authored 10 years ago

114)   $r = $result->fetch();
bernd Hilfsfunktionen bzgl. mehre...

bernd authored 15 years ago

115)   DEBUG($r);
116)   return $r['server'];
117) }
118) 
119) 
120) function additional_servers()
121) {
122)   $uid = (int) $_SESSION['userinfo']['uid'];
Bernd Wurst Einige Statements auf Prepa...

Bernd Wurst authored 10 years ago

123)   $result = db_query("SELECT server FROM system.user_server WHERE uid=?", array($uid));
bernd Hilfsfunktionen bzgl. mehre...

bernd authored 15 years ago

124)   $servers = array();
Bernd Wurst Umstellung auf PDO-Datenban...

Bernd Wurst authored 10 years ago

125)   while ($s = $result->fetch())
bernd Hilfsfunktionen bzgl. mehre...

bernd authored 15 years ago

126)     $servers[] = $s['server'];
127)   DEBUG($servers);
128)   return $servers;
129) }
130) 
131) 
132) function server_names()
133) {
Bernd Wurst Revert "Umstellung auf mysqli"

Bernd Wurst authored 11 years ago

134)   $result = db_query("SELECT id, hostname FROM system.servers");
bernd Hilfsfunktionen bzgl. mehre...

bernd authored 15 years ago

135)   $servers = array();
Bernd Wurst Umstellung auf PDO-Datenban...

Bernd Wurst authored 10 years ago

136)   while ($s = $result->fetch())
bernd Hilfsfunktionen bzgl. mehre...

bernd authored 15 years ago

137)     $servers[$s['id']] = $s['hostname'];
138)   DEBUG($servers);
139)   return $servers;
140) }
141) 
142) 
bernd Neues Modul für "Kunde werden"

bernd authored 17 years ago

143) function maybe_null($value)
144) {
Bernd Wurst Funktion maybe_null() umdef...

Bernd Wurst authored 6 years ago

145)   if (! $value)
146)     return NULL;
bernd maybe_null behandelt jetzt...

bernd authored 15 years ago

147) 
bernd Neues Modul für "Kunde werden"

bernd authored 17 years ago

148)   if (strlen( (string) $value ) > 0)
Bernd Wurst Funktion maybe_null() umdef...

Bernd Wurst authored 6 years ago

149)     return (string) $value;
bernd Neues Modul für "Kunde werden"

bernd authored 17 years ago

150)   else
Bernd Wurst Funktion maybe_null() umdef...

Bernd Wurst authored 6 years ago

151)     return NULL;
bernd Neues Modul für "Kunde werden"

bernd authored 17 years ago

152) }
153) 
Bernd Wurst Umstellung auf PDO-Datenban...

Bernd Wurst authored 10 years ago

154) 
bernd Logger mit Logleveln

bernd authored 15 years ago

155) #define('LOG_ERR', 3);
156) #define('LOG_WARNING', 4);
157) #define('LOG_INFO', 6);
bernd Neues Modul für "Kunde werden"

bernd authored 17 years ago

158) 
bernd Logger mit Logleveln

bernd authored 15 years ago

159) function logger($severity, $scriptname, $scope, $message)
bernd Logging aktiviert

bernd authored 17 years ago

160) {
Bernd Wurst Zuverlässigeres Logging bei...

Bernd Wurst authored 6 years ago

161)   if (config('logging') < $severity) {
162)     DEBUG("NOT LOGGING $scriptname:$scope:$message");
bernd Logging konfigurierbar

bernd authored 17 years ago

163)     return;
Bernd Wurst Zuverlässigeres Logging bei...

Bernd Wurst authored 6 years ago

164)   }
bernd Logging konfigurierbar

bernd authored 17 years ago

165) 
Bernd Wurst Zuverlässigeres Logging bei...

Bernd Wurst authored 6 years ago

166)   DEBUG("LOGGING $scriptname:$scope:$message");
Bernd Wurst * Weitere Module auf prepar...

Bernd Wurst authored 10 years ago

167)   $user = NULL;
Hanno Fix PHP warning when array...

Hanno authored 6 years ago

168)   if (array_key_exists("role", $_SESSION)) {
169)     if ($_SESSION['role'] & ROLE_SYSTEMUSER)
170)       $user = $_SESSION['userinfo']['username'];
171)     elseif ($_SESSION['role'] & ROLE_CUSTOMER)
172)       $user = $_SESSION['customerinfo']['customerno'];
173)   }
174) 
Bernd Wurst * Weitere Module auf prepar...

Bernd Wurst authored 10 years ago

175)   $args = array(":user" => $user,
176)                 ":remote" => $_SERVER['REMOTE_ADDR'],
177)                 ":scriptname" => $scriptname,
178)                 ":scope" => $scope,
179)                 ":message" => $message);
bernd Logging aktiviert

bernd authored 17 years ago

180) 
Bernd Wurst * Weitere Module auf prepar...

Bernd Wurst authored 10 years ago

181)   db_query("INSERT INTO misc.scriptlog (remote, user,scriptname,scope,message) VALUES (:remote, :user, :scriptname, :scope, :message)", $args);
bernd Logging aktiviert

bernd authored 17 years ago

182) }
183) 
bernd Allow Header entries and AJAX

bernd authored 16 years ago

184) function html_header($arg)
185) {
186)   global $html_header;
187)   $html_header .= $arg;
188) }
bernd Logging aktiviert

bernd authored 17 years ago

189) 
bernd Umstellung auf Theme-Suppor...

bernd authored 14 years ago

190) function title($arg)
191) {
192)   global $title;
193)   $title = $arg;
194) }
195) 
196) function headline($arg)
197) {
198)   global $headline;
199)   $headline = $arg;
200) }
201) 
bernd webinterface => /webinterface

bernd authored 17 years ago

202) function output($arg)
203) {
204)   global $output;
205)   $output .= $arg;
206) }
207) 
Bernd Wurst Funktion für Fußnoten einge...

Bernd Wurst authored 6 years ago

208) function footnote($explaination)
209) {
210)     global $footnotes;
211)     if (!isset($footnotes) || !is_array($footnotes)) {
212)         $footnotes = array();
213)     }
214)     $fnid = array_search($explaination, $footnotes);
Bernd Wurst Bugfix für Fußnoten

Bernd Wurst authored 6 years ago

215)     DEBUG($footnotes);
216)     if ($fnid === FALSE) {
217)         DEBUG("Footnote »{$explaination}« is not in footnotes!");
Bernd Wurst Funktion für Fußnoten einge...

Bernd Wurst authored 6 years ago

218)         $footnotes[] = $explaination;
219)     }
220)     $fnid = array_search($explaination, $footnotes);
221)     return str_repeat('*', ($fnid+1));
222) }
bernd webinterface => /webinterface

bernd authored 17 years ago

223) 
Bernd Wurst random_string korrigiert, s...

Bernd Wurst authored 7 years ago

224) function random_string($len) 
Bernd Wurst random_string() verwendet u...

Bernd Wurst authored 7 years ago

225) {
Bernd Wurst random_string korrigiert, s...

Bernd Wurst authored 7 years ago

226)   $s = str_replace('+', '.', base64_encode(random_bytes(ceil($len*3/4))));
227)   return substr($s, 0, $len);
Bernd Wurst random_string() verwendet u...

Bernd Wurst authored 7 years ago

228) }
bernd webinterface => /webinterface

bernd authored 17 years ago

229) 
230) 
231) function are_you_sure($query_string, $question)
232) {
bernd * alle internen Links sinnv...

bernd authored 15 years ago

233)   $query_string = encode_querystring($query_string);
bernd webinterface => /webinterface

bernd authored 17 years ago

234)   $token = random_string(20);
bernd XSRF-kram fixed

bernd authored 17 years ago

235)   $_SESSION['are_you_sure_token'] = $token;
bernd Benutze überall title() sta...

bernd authored 14 years ago

236)   title('Sicherheitsabfrage');
237)   output("
bernd * alle internen Links sinnv...

bernd authored 15 years ago

238)     <form action=\"{$query_string}\" method=\"post\">
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

239)     <div class=\"confirmation\">
240)       <div class=\"question\">{$question}</div>
241)       <p class=\"buttons\">
242)         <input type=\"hidden\" name=\"random_token\" value=\"{$token}\" />
243)         <input type=\"submit\" name=\"really\" value=\"Ja\" />
bernd Entities repariert

bernd authored 17 years ago

244)         &#160; &#160;
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

245)         <input type=\"submit\" name=\"not_really\" value=\"Nein\" />
246)       </p>
247)     </div>");
bernd </form>

bernd authored 17 years ago

248)   output("</form>\n");
bernd webinterface => /webinterface

bernd authored 17 years ago

249) }
250) 
251) 
252) function user_is_sure()
253) {
254)   if (isset($_POST['really']))
255)   {
bernd XSRF-kram fixed

bernd authored 17 years ago

256)     if ($_POST['random_token'] == $_SESSION['are_you_sure_token'])
bernd webinterface => /webinterface

bernd authored 17 years ago

257)       return true;
258)     else
259)       system_failure("Possible Cross-site-request-forgery detected!");
260)   }
261)   elseif (isset($_POST['not_really']))
262)     return false;
263)   else
264)     return NULL;
265) }
266) 
267) 
268) 
bernd XSRF-kram fixed

bernd authored 17 years ago

269) function generate_form_token($form_id)
270) {
271)   require_once("inc/debug.php");
272)   $sessid = session_id();
273)   if ($sessid == "") 
274)   {
275)     DEBUG("Uh? Session not running? Wtf?");
bernd Neues Jabber-Modul (noch ni...

bernd authored 17 years ago

276)     system_failure("Internal error!");
bernd XSRF-kram fixed

bernd authored 17 years ago

277)   }
Bernd Wurst random_string() verwendet u...

Bernd Wurst authored 7 years ago

278)   if (! isset($_SESSION['session_token'])) {
bernd XSRF-kram fixed

bernd authored 17 years ago

279)     $_SESSION['session_token'] = random_string(10);
Bernd Wurst random_string() verwendet u...

Bernd Wurst authored 7 years ago

280)   }
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

281)   return hash('sha256', $sessid.$form_id.$_SESSION['session_token']);
bernd XSRF-kram fixed

bernd authored 17 years ago

282) }
283) 
284) 
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

285) function check_form_token($form_id, $formtoken = NULL)
bernd XSRF-kram fixed

bernd authored 17 years ago

286) {
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

287)   if ($formtoken == NULL)
Bernd Wurst Neue MySQL-Verwaltung

Bernd Wurst authored 11 years ago

288)     $formtoken = $_REQUEST['formtoken'];
bernd XSRF-kram fixed

bernd authored 17 years ago

289)   $sessid = session_id();
290)   if ($sessid == "") 
291)   {
292)     DEBUG("Uh? Session not running? Wtf?");
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

293)     system_failure("Internal error! (Session not running)");
bernd XSRF-kram fixed

bernd authored 17 years ago

294)   }
295) 
bernd Neues Jabber-Modul (noch ni...

bernd authored 17 years ago

296)   $correct_formtoken = hash('sha256', $sessid.$form_id.$_SESSION['session_token']);
bernd XSRF-kram fixed

bernd authored 17 years ago

297) 
298)   if (! ($formtoken == $correct_formtoken))
299)     system_failure("Possible cross-site-request-forgery!");
300) }
301) 
bernd Neues Jabber-Modul (noch ni...

bernd authored 17 years ago

302) 
bernd Zeige Links auf dem Startse...

bernd authored 15 years ago

303) function have_module($modname)
304) {
bernd Mehr config-optionen und co...

bernd authored 15 years ago

305)   return in_array($modname, config('modules'));
bernd Zeige Links auf dem Startse...

bernd authored 15 years ago

306) }
307) 
308) 
Bernd Wurst Rudimentäre Adressauswahl/D...

Bernd Wurst authored 6 years ago

309) function use_module($modname) 
310) {
Bernd Wurst Aktualisiere Domain- und In...

Bernd Wurst authored 6 years ago

311)     global $prefix, $needed_modules;
312)     if (! isset($needed_modules)) {
313)         $needed_modules = array();
314)     }
315)     if (in_array($modname, $needed_modules)) {
316)         return;
317)     }
318)     $needed_modules[] = $modname;
Bernd Wurst Rudimentäre Adressauswahl/D...

Bernd Wurst authored 6 years ago

319)     if (! have_module($modname)) {
320)         system_failure("Soll nicht verfügbares Modul laden!");
321)     }
322)     /* setup module include path */
323)     ini_set('include_path',ini_get('include_path').':./modules/'.$modname.'/include:');
324)     $style = 'modules/'.$modname.'/style.css';
325)     if (file_exists($style)) {
326)         html_header('<link rel="stylesheet" href="'.$prefix.$style.'" type="text/css" />'."\n");
327)     }
328) 
329) }
330) 
331) 
bernd * alle internen Links sinnv...

bernd authored 15 years ago

332) function encode_querystring($querystring)
bernd Neues Jabber-Modul (noch ni...

bernd authored 17 years ago

333) {
334)   global $debugmode;
335)   if ($debugmode)
bernd * alle internen Links sinnv...

bernd authored 15 years ago

336)     $querystring = 'debug&'.$querystring;
337)   $query = explode('&', $querystring);
338)   $new_query = array();
339)   foreach ($query AS $item)
340)     if ($item != '')
341)     {
bernd fix a warning

bernd authored 15 years ago

342)       $split = explode('=', $item, 2);
343)       if (count($split) == 1)
344)         $new_query[] = $split[0];
bernd Bug im Client-Zertfikat-Man...

bernd authored 15 years ago

345)       else
bernd fix a warning

bernd authored 15 years ago

346)         $new_query[] = $split[0].'='.urlencode($split[1]);
bernd * alle internen Links sinnv...

bernd authored 15 years ago

347)     }
348)   $querystring = implode('&amp;', $new_query);
349)   if ($querystring)
350)     $querystring = '?'.$querystring;
351)   return $querystring;
352) }
bernd Neues Jabber-Modul (noch ni...

bernd authored 17 years ago

353) 
bernd * alle internen Links sinnv...

bernd authored 15 years ago

354) 
Bernd Wurst Beta-Hinweis eingefügt

Bernd Wurst authored 6 years ago

355) function beta_notice()
356) {
357)     output('<div class="beta"><h4>Achtung: Testbetrieb</h4><p>Diese Funktion ist im Testbetrieb. Bei Fehlfunktionen, Unklarheiten oder Verbesserungsvorschlägen bitten wir um kurze Nachricht an <a href="mailto:root@schokokeks.org">root@schokokeks.org</a></p></div>');
358) }
359) 
360) 
Bernd Wurst Google-Auth-Token setzen un...

Bernd Wurst authored 12 years ago

361) function addnew($file, $label, $querystring = '', $attribs = '')
bernd addnew() eingeführt

bernd authored 15 years ago

362) {
Bernd Wurst Google-Auth-Token setzen un...

Bernd Wurst authored 12 years ago

363)   output('<p class="addnew">'.internal_link($file, $label, $querystring, $attribs).'</p>');
bernd addnew() eingeführt

bernd authored 15 years ago

364) }
365) 
bernd * alle internen Links sinnv...

bernd authored 15 years ago

366) 
367) function internal_link($file, $label, $querystring = '', $attribs = '')
368) {
bernd Erlaube absolute Links

bernd authored 15 years ago

369)   global $prefix;
bernd Das böse ==0

bernd authored 15 years ago

370)   if (strpos($file, '/') === 0)
bernd Erlaube absolute Links

bernd authored 15 years ago

371)   {
372)     $file = $prefix.substr($file, 1);
373)   }
bernd * alle internen Links sinnv...

bernd authored 15 years ago

374)   $querystring = encode_querystring($querystring);
375)   return "<a href=\"{$file}{$querystring}\" {$attribs} >{$label}</a>";
bernd Neues Jabber-Modul (noch ni...

bernd authored 17 years ago

376) }
377) 
378) 
379) function html_form($form_id, $scriptname, $querystring, $content)
380) {
bernd * alle internen Links sinnv...

bernd authored 15 years ago

381)   $querystring = encode_querystring($querystring);
bernd Neues Jabber-Modul (noch ni...

bernd authored 17 years ago

382)   $ret = '';
Bernd Wurst Domain-Nutzung mit Deeplink...

Bernd Wurst authored 6 years ago

383)   $ret .= '<form id="'.$form_id.'" action="'.$scriptname.$querystring.'" method="post">'."\n";
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

384)   $ret .= '<p style="display: none;"><input type="hidden" name="formtoken" value="'.generate_form_token($form_id).'" /></p>'."\n";
bernd Neues Jabber-Modul (noch ni...

bernd authored 17 years ago

385)   $ret .= $content;
386)   $ret .= '</form>';
387)   return $ret;  
388) }
389) 
390) 
bernd * wie viele Reihen wurden a...

bernd authored 15 years ago

391) function html_select($name, $options, $default='', $free='')
bernd Neues Modul für "Kunde werden"

bernd authored 17 years ago

392) {
393)   require_once('inc/security.php');
bernd * wie viele Reihen wurden a...

bernd authored 15 years ago

394)   $ret = "<select name=\"{$name}\" id=\"{$name}\" size=\"1\" {$free} >\n";
bernd Neues Modul für "Kunde werden"

bernd authored 17 years ago

395)   foreach ($options as $key => $value)
396)   {
397)     $selected = '';
398)     if ($default == $key)
399)       $selected = ' selected="selected" ';
400)     $key = filter_input_general($key);
401)     $value = filter_input_general($value);
402)     $ret .= "  <option value=\"{$key}\"{$selected}>{$value}</option>\n";
403)   }
404)   $ret .= '</select>';
405)   return $ret;
406) }
407) 
bernd Neues Jabber-Modul (noch ni...

bernd authored 17 years ago

408) 
bernd Neue Funktion zur Anzeige e...

bernd authored 12 years ago

409) function html_datepicker($nameprefix, $timestamp)
410) {
411)   $valid_days = array( 1 =>  1,  2 =>  2,  3 =>  3,  4 =>  4,  5 =>  5,
412)                        6 =>  6,  7 =>  7,  8 =>  8,  9 =>  9, 10 => 10,
413)                       11 => 11, 12 => 12, 13 => 13, 14 => 14, 15 => 15,
414)                       16 => 16, 17 => 17, 18 => 18, 19 => 19, 20 => 20,
415)                       21 => 21, 22 => 22, 23 => 23, 24 => 24, 25 => 25,
416)                       26 => 26, 27 => 27, 28 => 28, 29 => 29, 30 => 30,
417)                       31 => 31);
418)   $valid_months = array( 1 =>  1,  2 =>  2,  3 =>  3,  4 =>  4,  5 =>  5,
419)                          6 =>  6,  7 =>  7,  8 =>  8,  9 =>  9, 10 => 10,
420)                         11 => 11, 12 => 12);
bernd Datums-Check und Daten in u...

bernd authored 12 years ago

421)   $current_year = (int) date('Y');
422)   $valid_years = array($current_year => $current_year, 
423)                        $current_year+1 => $current_year+1,
424)                        $current_year+2 => $current_year+2,
425)                        $current_year+3 => $current_year+3,
426)                        $current_year+4 => $current_year+4);
427)               
bernd Neue Funktion zur Anzeige e...

bernd authored 12 years ago

428)   $selected_day = date('d', $timestamp);
429)   $selected_month = date('m', $timestamp);
430)   $selected_year = date('Y', $timestamp);
431)   $ret = '';
432)   $ret .= html_select($nameprefix.'_day', $valid_days, $selected_day, 'style="text-align: right;"').". ";
433)   $ret .= html_select($nameprefix.'_month', $valid_months, $selected_month, 'style="text-align: right;"').". ";
bernd Datums-Check und Daten in u...

bernd authored 12 years ago

434)   $ret .= html_select($nameprefix.'_year', $valid_years, $selected_year);
bernd Neue Funktion zur Anzeige e...

bernd authored 12 years ago

435)   return $ret;
436) }
437) 
bernd Index-Blöcke werden jetzt v...

bernd authored 12 years ago

438) function get_modules_info() 
439) {
440)   $modules = config('modules');
441)   $modconfig = array();
442)   foreach ($modules AS $name) {
443)     $modconfig[$name] = NULL;
444)     if (file_exists('modules/'.$name.'/module.info')) {
445)       $modconfig[$name] = parse_ini_file('modules/'.$name.'/module.info');
446)     }
447)   }
448)   return $modconfig;
449) }
450) 
451) 
bernd Neues Jabber-Modul (noch ni...

bernd authored 17 years ago

452)