]> code.citadel.org Git - citadel.git/blob - webcit/auth.c
some html parsing for link rel tags
[citadel.git] / webcit / auth.c
1 /*
2  * $Id$
3  *
4  * WebcitAuth; Handles authentication of users to a Citadel server.
5  */
6
7 #include "webcit.h"
8 #include "webserver.h"
9
10 /*
11  * Access level definitions.  This is initialized from a function rather than a
12  * static array so that the strings may be localized.
13  */
14 char *axdefs[7]; 
15
16 void initialize_axdefs(void) {
17         axdefs[0] = _("Deleted");       /* an erased user */
18         axdefs[1] = _("New User");      /* a new user */
19         axdefs[2] = _("Problem User");  /* a trouble maker */
20         axdefs[3] = _("Local User");    /* user with normal privileges */
21         axdefs[4] = _("Network User");  /* a user that may access network resources */
22         axdefs[5] = _("Preferred User");/* a moderator */
23         axdefs[6] = _("Aide");          /* chief */
24 }
25
26
27
28
29 /* 
30  * Display the login screen
31  * mesg = the error message if last attempt failed.
32  */
33 void display_login(char *mesg)
34 {
35         char buf[SIZ];
36
37         output_headers(1, 1, 2, 0, 0, 0);
38         wprintf("<div id=\"login_screen\">\n");
39
40         if (mesg != NULL) if (!IsEmptyStr(mesg)) {
41                         stresc(buf, SIZ,  mesg, 0, 0);
42                         svprintf(HKEY("MESG"), WCS_STRING, "%s", buf);
43         }
44
45         svprintf(HKEY("LOGIN_INSTRUCTIONS"), WCS_STRING,
46                 _("<ul>"
47                 "<li><b>If you already have an account on %s</b>, "
48                 "enter your user name and password and click &quot;Login.&quot; "
49                 "<li><b>If you are a new user</b>, enter the name and password "
50                 "you wish to use, "
51                 "and click &quot;New User.&quot; "
52                 "<li>Please log off properly when finished. "
53                 "<li>You must use a browser that supports <i>frames</i> and "
54                 "<i>cookies</i>. "
55                 "<li>Also keep in mind that if your browser is "
56                 "configured to block pop-up windows, you will not be able "
57                 "to receive any instant messages.<br />"
58                 "</ul>"),
59                 serv_info.serv_humannode
60         );
61
62         svput("USERNAME_BOX", WCS_STRING, _("User name:"));
63         svput("PASSWORD_BOX", WCS_STRING, _("Password:"));
64         svput("LANGUAGE_BOX", WCS_STRING, _("Language:"));
65         svput("LOGIN_BUTTON", WCS_STRING, _("Login"));
66         svput("NEWUSER_BUTTON", WCS_STRING, _("New User"));
67         svput("EXIT_BUTTON", WCS_STRING, _("Exit"));
68         svput("HELLO", WCS_SERVCMD, "MESG hello");
69         svprintf(HKEY("BOXTITLE"), WCS_STRING, _("%s - powered by <a href=\"http://www.citadel.org\">Citadel</a>"),
70                 serv_info.serv_humannode);
71         svcallback("DO_LANGUAGE_BOX", offer_languages);
72         if (serv_info.serv_newuser_disabled) {
73                 svput("NEWUSER_BUTTON_PRE", WCS_STRING, "<div style=\"display:none;\">");
74                 svput("NEWUSER_BUTTON_POST", WCS_STRING, "</div>");
75         }
76         else {
77                 svput("NEWUSER_BUTTON_PRE", WCS_STRING, "");
78                 svput("NEWUSER_BUTTON_POST", WCS_STRING, "");
79         }
80
81 #ifdef TECH_PREVIEW
82                 svprintf(HKEY("OFFER_OPENID_LOGIN"), WCS_STRING,
83                         "<div align=center>"
84                         "<a href=\"display_openid_login\">"
85                         "<img src=\"static/openid-small.gif\" border=0 valign=middle>"
86                         "%s</a>"
87                         "</div>"
88                         ,
89                         "Log in using OpenID"
90                 );
91 #else
92                 svput("OFFER_OPENID_LOGIN", WCS_STRING, "");
93 #endif
94
95         do_template("login");
96
97         wDumpContent(2);
98 }
99
100
101
102
103 /* 
104  * Display the openid-enabled login screen
105  * mesg = the error message if last attempt failed.
106  */
107 void display_openid_login(char *mesg)
108 {
109         char buf[SIZ];
110
111         output_headers(1, 1, 2, 0, 0, 0);
112         wprintf("<div id=\"login_screen\">\n");
113
114         if (mesg != NULL) if (!IsEmptyStr(mesg)) {
115                         stresc(buf, SIZ,  mesg, 0, 0);
116                         svprintf(HKEY("MESG"), WCS_STRING, "%s", buf);
117         }
118
119         svprintf(HKEY("LOGIN_INSTRUCTIONS"), WCS_STRING,
120                 _("<ul>"
121                 "<li>Enter your OpenID URL and click &quot;Login&quot;."
122                 "<li>Please log off properly when finished. "
123                 "<li>You must use a browser that supports <i>frames</i> and "
124                 "<i>cookies</i>. "
125                 "<li>Also keep in mind that if your browser is "
126                 "configured to block pop-up windows, you will not be able "
127                 "to receive any instant messages.<br />"
128                 "</ul>")
129         );
130
131         svput("OPENID_BOX", WCS_STRING, _("OpenID URL:"));
132         svput("LANGUAGE_BOX", WCS_STRING, _("Language:"));
133         svput("LOGIN_BUTTON", WCS_STRING, _("Login"));
134         svput("EXIT_BUTTON", WCS_STRING, _("Exit"));
135         svput("HELLO", WCS_SERVCMD, "MESG hello");
136         svprintf(HKEY("BOXTITLE"), WCS_STRING, _("%s - powered by <a href=\"http://www.citadel.org\">Citadel</a>"),
137                 serv_info.serv_humannode);
138         svcallback("DO_LANGUAGE_BOX", offer_languages);
139
140         svprintf(HKEY("OFFER_CONVENTIONAL_LOGIN"), WCS_STRING,
141                 "<div align=center>"
142                 "<a href=\"display_login\">"
143                 "%s</a>"
144                 "</div>"
145                 ,
146                 "Log in using a user name and password"
147         );
148
149         do_template("openid_login");
150         wDumpContent(2);
151 }
152
153
154
155
156 /* Initialize the session
157  *
158  * This function needs to get called whenever the session changes from
159  * not-logged-in to logged-in, either by an explicit login by the user or
160  * by a timed-out session automatically re-establishing with a little help
161  * from the browser cookie.  Either way, we need to load access controls and
162  * preferences from the server.
163  *
164  * user                 the username
165  * pass                 his password
166  * serv_response        The parameters returned from a Citadel USER or NEWU command
167  */
168 void become_logged_in(char *user, char *pass, char *serv_response)
169 {
170         char buf[SIZ];
171
172         WC->logged_in = 1;
173         extract_token(WC->wc_fullname, &serv_response[4], 0, '|', sizeof WC->wc_fullname);
174         safestrncpy(WC->wc_username, user, sizeof WC->wc_username);
175         safestrncpy(WC->wc_password, pass, sizeof WC->wc_password);
176         WC->axlevel = extract_int(&serv_response[4], 1);
177         if (WC->axlevel >= 6) {
178                 WC->is_aide = 1;
179         }
180
181         load_preferences();
182
183         serv_puts("CHEK");
184         serv_getln(buf, sizeof buf);
185         if (buf[0] == '2') {
186                 WC->new_mail = extract_int(&buf[4], 0);
187                 WC->need_regi = extract_int(&buf[4], 1);
188                 WC->need_vali = extract_int(&buf[4], 2);
189                 extract_token(WC->cs_inet_email, &buf[4], 3, '|', sizeof WC->cs_inet_email);
190         }
191
192         get_preference("current_iconbar", buf, sizeof buf);
193         WC->current_iconbar = atoi(buf);
194
195         get_preference("floordiv_expanded", WC->floordiv_expanded, sizeof WC->floordiv_expanded);
196 }
197
198
199 /* 
200  * Perform authentication using a user name and password
201  */
202 void do_login(void)
203 {
204         char buf[SIZ];
205
206         if (havebstr("language")) {
207                 set_selected_language(bstr("language"));
208                 go_selected_language();
209         }
210
211         if (havebstr("exit_action")) {
212                 do_logout();
213                 return;
214         }
215         if (havebstr("login_action")) {
216                 serv_printf("USER %s", bstr("name"));
217                 serv_getln(buf, sizeof buf);
218                 if (buf[0] == '3') {
219                         serv_printf("PASS %s", bstr("pass"));
220                         serv_getln(buf, sizeof buf);
221                         if (buf[0] == '2') {
222                                 become_logged_in(bstr("name"),
223                                                  bstr("pass"), buf);
224                         } else {
225                                 display_login(&buf[4]);
226                                 return;
227                         }
228                 } else {
229                         display_login(&buf[4]);
230                         return;
231                 }
232         }
233         if (havebstr("newuser_action")) {
234                 if (!havebstr("pass")) {
235                         display_login(_("Blank passwords are not allowed."));
236                         return;
237                 }
238                 serv_printf("NEWU %s", bstr("name"));
239                 serv_getln(buf, sizeof buf);
240                 if (buf[0] == '2') {
241                         become_logged_in(bstr("name"), bstr("pass"), buf);
242                         serv_printf("SETP %s", bstr("pass"));
243                         serv_getln(buf, sizeof buf);
244                 } else {
245                         display_login(&buf[4]);
246                         return;
247                 }
248         }
249         if (WC->logged_in) {
250                 if (WC->need_regi) {
251                         display_reg(1);
252                 } else {
253                         do_welcome();
254                 }
255         } else {
256                 display_login(_("Your password was not accepted."));
257         }
258
259 }
260
261
262 /*
263
264 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
265 <html>
266 <head>
267   <link rel="openid.server" href="http://uncensored.citadel.org/~ajc/MyID.config.php">
268   <link rel="openid.delegate" href="http://uncensored.citadel.org/~ajc/MyID.config.php">
269   <title>IGnatius T Foobar</title>
270 </head>
271 <body text="#00ff00" bgcolor="#000000" link="#ffff00">
272
273 */
274
275
276
277 /* 
278  * Locate a <link> tag and, given its 'rel=' parameter, return its 'href' parameter
279  */
280 void extract_link(char *target_buf, int target_size, char *rel, char *source_buf)
281 {
282         char *ptr = source_buf;
283
284         while (ptr = bmstrcasestr(ptr, "<link"), ptr != NULL) {
285
286         lprintf(9, "Got something\n", ptr);             // FIXME
287
288         ++ptr;
289         }
290
291
292 }
293
294
295 /* 
296  * Perform authentication using OpenID
297  */
298 void do_openid_login(void)
299 {
300         int i;
301         char buf[4096];
302
303         if (havebstr("language")) {
304                 set_selected_language(bstr("language"));
305                 go_selected_language();
306         }
307
308         if (havebstr("exit_action")) {
309                 do_logout();
310                 return;
311         }
312         if (havebstr("login_action")) {
313                 i = fetch_http(bstr("openid_url"), buf, sizeof buf - 1);
314                 buf[sizeof buf - 1] = 0;
315                 if (i > 0) {
316                         char openid_server[1024];
317                         char openid_delegate[1024];
318                         
319                         extract_link(openid_server, sizeof openid_server, "openid.server", buf);
320                         extract_link(openid_delegate, sizeof openid_delegate, "openid.delegate", buf);
321
322                         lprintf(9, "  Server: %s\n", openid_server);
323                         lprintf(9, "Delegate: %s\n", openid_delegate);
324                         // FIXME finish this
325                 }
326         }
327         if (WC->logged_in) {
328                 if (WC->need_regi) {
329                         display_reg(1);
330                 } else {
331                         do_welcome();
332                 }
333         } else {
334                 display_openid_login(_("Your password was not accepted."));
335         }
336
337 }
338
339
340
341
342
343
344
345
346 /*
347  * display the user a welcome screen.
348  *
349  * if this is the first time login, and the web based setup is enabled, 
350  * lead the user through the setup routines
351  */
352 void do_welcome(void)
353 {
354         char buf[SIZ];
355 #ifdef XXX_NOT_FINISHED_YET_XXX
356         FILE *fp;
357         int i;
358
359         /**
360          * See if we have to run the first-time setup wizard
361          */
362         if (WC->is_aide) {
363                 if (!setup_wizard) {
364                         int len;
365                         sprintf(wizard_filename, "setupwiz.%s.%s",
366                                 ctdlhost, ctdlport);
367                         len = strlen(wizard_filename);
368                         for (i=0; i<len; ++i) {
369                                 if (    (wizard_filename[i]==' ')
370                                         || (wizard_filename[i] == '/')
371                                 ) {
372                                         wizard_filename[i] = '_';
373                                 }
374                         }
375         
376                         fp = fopen(wizard_filename, "r");
377                         if (fp != NULL) {
378                                 fgets(buf, sizeof buf, fp);
379                                 buf[strlen(buf)-1] = 0;
380                                 fclose(fp);
381                                 if (atoi(buf) == serv_info.serv_rev_level) {
382                                         setup_wizard = 1; /**< already run */
383                                 }
384                         }
385                 }
386
387                 if (!setup_wizard) {
388                         http_redirect("setup_wizard");
389                 }
390         }
391 #endif
392
393         /*
394          * Go to the user's preferred start page
395          */
396         get_preference("startpage", buf, sizeof buf);
397         if (IsEmptyStr(buf)) {
398                 safestrncpy(buf, "dotskip&room=_BASEROOM_", sizeof buf);
399                 set_preference("startpage", buf, 1);
400         }
401         if (buf[0] == '/') {
402                 strcpy(buf, &buf[1]);
403         }
404         http_redirect(buf);
405 }
406
407
408 /*
409  * Disconnect from the Citadel server, and end this WebCit session
410  */
411 void end_webcit_session(void) {
412         char buf[256];
413
414         if (WC->logged_in) {
415                 sprintf(buf, "%d", WC->current_iconbar);
416                 set_preference("current_iconbar", buf, 0);
417                 set_preference("floordiv_expanded", WC->floordiv_expanded, 1);
418         }
419
420         serv_puts("QUIT");
421         WC->killthis = 1;
422         /* close() of citadel socket will be done by do_housekeeping() */
423 }
424
425 /* 
426  * execute the logout
427  */
428 void do_logout(void)
429 {
430         char buf[SIZ];
431
432         safestrncpy(WC->wc_username, "", sizeof WC->wc_username);
433         safestrncpy(WC->wc_password, "", sizeof WC->wc_password);
434         safestrncpy(WC->wc_roomname, "", sizeof WC->wc_roomname);
435         safestrncpy(WC->wc_fullname, "", sizeof WC->wc_fullname);
436
437         /** Calling output_headers() this way causes the cookies to be un-set */
438         output_headers(1, 1, 0, 1, 0, 0);
439
440         wprintf("<div id=\"logout_screen\">");
441         wprintf("<div class=\"box\">");
442         wprintf("<div class=\"boxlabel\">");
443         wprintf(_("Log off"));
444         wprintf("</div><div class=\"boxcontent\">");    
445         serv_puts("MESG goodbye");
446         serv_getln(buf, sizeof buf);
447
448         if (WC->serv_sock >= 0) {
449                 if (buf[0] == '1') {
450                         fmout("CENTER");
451                 } else {
452                         wprintf("Goodbye\n");
453                 }
454         }
455         else {
456                 wprintf(_("This program was unable to connect or stay "
457                         "connected to the Citadel server.  Please report "
458                         "this problem to your system administrator.")
459                 );
460                 wprintf("<a href=\"http://www.citadel.org/doku.php/"
461                         "faq:mastering_your_os:net#netstat\">%s</a>", 
462                         _("Read More..."));
463         }
464
465         wprintf("<hr /><div class=\"buttons\"> "
466                 "<span class=\"button_link\"><a href=\".\">");
467         wprintf(_("Log in again"));
468         wprintf("</a></span>&nbsp;&nbsp;&nbsp;<span class=\"button_link\">"
469                 "<a href=\"javascript:window.close();\">");
470         wprintf(_("Close window"));
471         wprintf("</a></span></div></div></div></div>\n");
472         wDumpContent(2);
473         end_webcit_session();
474 }
475
476
477 /*
478  * validate new users
479  */
480 void validate(void)
481 {
482         char cmd[SIZ];
483         char user[SIZ];
484         char buf[SIZ];
485         int a;
486
487         output_headers(1, 1, 2, 0, 0, 0);
488         wprintf("<div id=\"banner\">\n");
489         wprintf("<h1>");
490         wprintf(_("Validate new users"));
491         wprintf("</h1>");
492         wprintf("</div>\n");
493
494         wprintf("<div id=\"content\" class=\"service\">\n");
495
496         /* If the user just submitted a validation, process it... */
497         safestrncpy(buf, bstr("user"), sizeof buf);
498         if (!IsEmptyStr(buf)) {
499                 if (havebstr("axlevel")) {
500                         serv_printf("VALI %s|%s", buf, bstr("axlevel"));
501                         serv_getln(buf, sizeof buf);
502                         if (buf[0] != '2') {
503                                 wprintf("<b>%s</b><br />\n", &buf[4]);
504                         }
505                 }
506         }
507
508         /* Now see if any more users require validation. */
509         serv_puts("GNUR");
510         serv_getln(buf, sizeof buf);
511         if (buf[0] == '2') {
512                 wprintf("<b>");
513                 wprintf(_("No users require validation at this time."));
514                 wprintf("</b><br />\n");
515                 wDumpContent(1);
516                 return;
517         }
518         if (buf[0] != '3') {
519                 wprintf("<b>%s</b><br />\n", &buf[4]);
520                 wDumpContent(1);
521                 return;
522         }
523
524         wprintf("<div class=\"fix_scrollbar_bug\">"
525                 "<table class=\"auth_validate\"><tr><td>\n");
526         wprintf("<center>");
527
528         safestrncpy(user, &buf[4], sizeof user);
529         serv_printf("GREG %s", user);
530         serv_getln(cmd, sizeof cmd);
531         if (cmd[0] == '1') {
532                 a = 0;
533                 do {
534                         serv_getln(buf, sizeof buf);
535                         ++a;
536                         if (a == 1)
537                                 wprintf("#%s<br /><H1>%s</H1>",
538                                         buf, &cmd[4]);
539                         if (a == 2)
540                                 wprintf("PW: %s<br />\n", buf);
541                         if (a == 3)
542                                 wprintf("%s<br />\n", buf);
543                         if (a == 4)
544                                 wprintf("%s<br />\n", buf);
545                         if (a == 5)
546                                 wprintf("%s, ", buf);
547                         if (a == 6)
548                                 wprintf("%s ", buf);
549                         if (a == 7)
550                                 wprintf("%s<br />\n", buf);
551                         if (a == 8)
552                                 wprintf("%s<br />\n", buf);
553                         if (a == 9)
554                                 wprintf(_("Current access level: %d (%s)\n"),
555                                         atoi(buf), axdefs[atoi(buf)]);
556                 } while (strcmp(buf, "000"));
557         } else {
558                 wprintf("<H1>%s</H1>%s<br />\n", user, &cmd[4]);
559         }
560
561         wprintf("<hr />");
562         wprintf(_("Select access level for this user:"));
563         wprintf("<br />\n");
564         for (a = 0; a <= 6; ++a) {
565                 wprintf("<a href=\"validate?nonce=%ld?user=", WC->nonce);
566                 urlescputs(user);
567                 wprintf("&axlevel=%d\">%s</A>&nbsp;&nbsp;&nbsp;\n",
568                         a, axdefs[a]);
569         }
570         wprintf("<br />\n");
571
572         wprintf("</CENTER>\n");
573         wprintf("</td></tr></table></div>\n");
574         wDumpContent(1);
575 }
576
577
578
579 /*
580  * Display form for registration.
581  *
582  * (Set during_login to 1 if this registration is being performed during
583  * new user login and will require chaining to the proper screen.)
584  */
585 void display_reg(int during_login)
586 {
587         long vcard_msgnum;
588
589         if (goto_config_room() != 0) {
590                 if (during_login) do_welcome();
591                 else display_main_menu();
592                 return;
593         }
594
595         vcard_msgnum = locate_user_vcard(WC->wc_fullname, -1);
596         if (vcard_msgnum < 0L) {
597                 if (during_login) do_welcome();
598                 else display_main_menu();
599                 return;
600         }
601
602         if (during_login) {
603                 do_edit_vcard(vcard_msgnum, "1", "do_welcome", USERCONFIGROOM);
604         }
605         else {
606                 do_edit_vcard(vcard_msgnum, "1", "display_main_menu", USERCONFIGROOM);
607         }
608
609 }
610
611
612
613
614 /*
615  * display form for changing your password
616  */
617 void display_changepw(void)
618 {
619         char buf[SIZ];
620
621         output_headers(1, 1, 1, 0, 0, 0);
622
623         svput("BOXTITLE", WCS_STRING, _("Change your password"));
624         do_template("beginbox");
625
626         if (!IsEmptyStr(WC->ImportantMessage)) {
627                 wprintf("<span class=\"errormsg\">"
628                         "%s</span><br />\n", WC->ImportantMessage);
629                 safestrncpy(WC->ImportantMessage, "", sizeof WC->ImportantMessage);
630         }
631
632         serv_puts("MESG changepw");
633         serv_getln(buf, sizeof buf);
634         if (buf[0] == '1') {
635                 fmout("CENTER");
636         }
637
638         wprintf("<form name=\"changepwform\" action=\"changepw\" method=\"post\">\n");
639         wprintf("<input type=\"hidden\" name=\"nonce\" value=\"%ld\">\n", WC->nonce);
640         wprintf("<table class=\"altern\" ");
641         wprintf("<tr class=\"even\"><td>");
642         wprintf(_("Enter new password:"));
643         wprintf("</td><td>");
644         wprintf("<input type=\"password\" name=\"newpass1\" value=\"\" maxlength=\"20\"></td></tr>\n");
645         wprintf("<tr class=\"odd\"><td>");
646         wprintf(_("Enter it again to confirm:"));
647         wprintf("</td><td>");
648         wprintf("<input type=\"password\" name=\"newpass2\" value=\"\" maxlength=\"20\"></td></tr>\n");
649         wprintf("</table>\n");
650
651         wprintf("<div class=\"buttons\">\n");
652         wprintf("<input type=\"submit\" name=\"change_action\" value=\"%s\">", _("Change password"));
653         wprintf("&nbsp;");
654         wprintf("<input type=\"submit\" name=\"cancel_action\" value=\"%s\">\n", _("Cancel"));
655         wprintf("</div>\n");
656         wprintf("</form>\n");
657
658         do_template("endbox");
659         wDumpContent(1);
660 }
661
662 /*
663  * change password
664  * if passwords match, propagate it to citserver.
665  */
666 void changepw(void)
667 {
668         char buf[SIZ];
669         char newpass1[32], newpass2[32];
670
671         if (!havebstr("change_action")) {
672                 safestrncpy(WC->ImportantMessage, 
673                         _("Cancelled.  Password was not changed."),
674                         sizeof WC->ImportantMessage);
675                 display_main_menu();
676                 return;
677         }
678
679         safestrncpy(newpass1, bstr("newpass1"), sizeof newpass1);
680         safestrncpy(newpass2, bstr("newpass2"), sizeof newpass2);
681
682         if (strcasecmp(newpass1, newpass2)) {
683                 safestrncpy(WC->ImportantMessage, 
684                         _("They don't match.  Password was not changed."),
685                         sizeof WC->ImportantMessage);
686                 display_changepw();
687                 return;
688         }
689
690         if (IsEmptyStr(newpass1)) {
691                 safestrncpy(WC->ImportantMessage, 
692                         _("Blank passwords are not allowed."),
693                         sizeof WC->ImportantMessage);
694                 display_changepw();
695                 return;
696         }
697
698         serv_printf("SETP %s", newpass1);
699         serv_getln(buf, sizeof buf);
700         sprintf(WC->ImportantMessage, "%s", &buf[4]);
701         if (buf[0] == '2') {
702                 safestrncpy(WC->wc_password, buf, sizeof WC->wc_password);
703                 display_main_menu();
704         }
705         else {
706                 display_changepw();
707         }
708 }
709
710
711
712 void InitModule_AUTH(void)
713 {
714         WebcitAddUrlHandler(HKEY("do_welcome"), do_welcome, 0);
715         return ;
716 }