7 typedef struct _FileListStruct {
20 int CompareFilelistByMime(const void *vFile1, const void *vFile2)
22 FileListStruct *File1 = (FileListStruct*) GetSearchPayload(vFile1);
23 FileListStruct *File2 = (FileListStruct*) GetSearchPayload(vFile2);
25 if (File1->IsPic != File2->IsPic)
26 return File1->IsPic > File2->IsPic;
27 return strcasecmp(File1->MimeType, File2->MimeType);
29 int CompareFilelistByMimeRev(const void *vFile1, const void *vFile2)
31 FileListStruct *File1 = (FileListStruct*) GetSearchPayload(vFile1);
32 FileListStruct *File2 = (FileListStruct*) GetSearchPayload(vFile2);
33 if (File1->IsPic != File2->IsPic)
34 return File1->IsPic < File2->IsPic;
35 return strcasecmp(File2->MimeType, File1->MimeType);
38 int CompareFilelistBySize(const void *vFile1, const void *vFile2)
40 FileListStruct *File1 = (FileListStruct*) GetSearchPayload(vFile1);
41 FileListStruct *File2 = (FileListStruct*) GetSearchPayload(vFile2);
42 if (File1->FileSize == File2->FileSize)
44 return (File1->FileSize > File2->FileSize);
47 int CompareFilelistBySizeRev(const void *vFile1, const void *vFile2)
49 FileListStruct *File1 = (FileListStruct*) GetSearchPayload(vFile1);
50 FileListStruct *File2 = (FileListStruct*) GetSearchPayload(vFile2);
51 if (File1->FileSize == File2->FileSize)
53 return (File1->FileSize < File2->FileSize);
56 int CompareFilelistByComment(const void *vFile1, const void *vFile2)
58 FileListStruct *File1 = (FileListStruct*) GetSearchPayload(vFile1);
59 FileListStruct *File2 = (FileListStruct*) GetSearchPayload(vFile2);
60 return strcasecmp(File1->Comment, File2->Comment);
62 int CompareFilelistByCommentRev(const void *vFile1, const void *vFile2)
64 FileListStruct *File1 = (FileListStruct*) GetSearchPayload(vFile1);
65 FileListStruct *File2 = (FileListStruct*) GetSearchPayload(vFile2);
66 return strcasecmp(File2->Comment, File1->Comment);
69 int CompareFilelistBySequence(const void *vFile1, const void *vFile2)
71 FileListStruct *File1 = (FileListStruct*) GetSearchPayload(vFile1);
72 FileListStruct *File2 = (FileListStruct*) GetSearchPayload(vFile2);
73 return (File2->Sequence > File1->Sequence);
76 HashList* LoadFileList(int *HavePic)
78 FileListStruct *Entry;
86 serv_getln(buf, sizeof buf);
88 Files = NewHash(1, NULL);
89 while (serv_getln(buf, sizeof buf), strcmp(buf, "000"))
91 Entry = (FileListStruct*) malloc(sizeof (FileListStruct));
93 Entry->FilenameLen = extract_token(
94 Entry->Filename, buf, 0, '|',
95 sizeof(Entry->Filename));
96 Entry->FileSize = extract_long(buf, 1);
97 Entry->MimeTypeLen = extract_token(
98 Entry->MimeType, buf, 2, '|',
99 sizeof(Entry->MimeType));
100 Entry->CommentLen = extract_token(
101 Entry->Comment, buf, 3, '|',
102 sizeof(Entry->Comment));
104 Entry->Sequence = sequence++;
105 Entry->IsPic = (strstr(Entry->MimeType, "image") != NULL);
106 if (!HavePics && Entry->IsPic) {
110 Put(Files, Entry->Filename,
114 Order = ibstr("SortOrder");
115 switch (ibstr("SortBy")){
117 SortByHashKey(Files,Order);
120 SortByPayload(Files, (Order)?
121 CompareFilelistBySize:
122 CompareFilelistBySizeRev);
125 SortByPayload(Files, (Order)?
126 CompareFilelistByMime:
127 CompareFilelistByMimeRev);
130 SortByPayload(Files, (Order)?
131 CompareFilelistByComment:
132 CompareFilelistByCommentRev);
135 SortByPayload(Files, CompareFilelistBySequence);
143 void FilePrintEntry(const char *FileName, void *vFile, int odd)
145 FileListStruct *File = (FileListStruct*) vFile;
147 wprintf("<tr bgcolor=\"#%s\">", (odd ? "DDDDDD" : "FFFFFF"));
149 "<a href=\"download_file/");
150 urlescputs(File->Filename);
151 wprintf("\"><img src=\"display_mime_icon?type=%s\" border=0 align=middle>\n",
153 escputs(File->Filename); wprintf("</a></td>");
154 wprintf("<td>%ld</td>", File->FileSize);
155 wprintf("<td>"); escputs(File->MimeType); wprintf("</td>");
156 wprintf("<td>"); escputs(File->Comment); wprintf("</td>");
160 void FilePrintTransition(void *vFile1, void *vFile2, int odd)
162 FileListStruct *File1 = (FileListStruct*) vFile1;
163 FileListStruct *File2 = (FileListStruct*) vFile2;
164 char StartChar[2] = "\0\0";
167 switch (ibstr("SortBy")){
169 if ((File2 != NULL) &&
171 (File1->Filename[0] != File2->Filename[0]))) {
172 StartChar[0] = File2->Filename[0];
173 SectionName = StartChar;
188 wprintf("<tr bgcolor=\"#%s\"><th colspan = 4>%s</th></tr>",
189 (odd ? "DDDDDD" : "FFFFFF"), SectionName);
193 void display_room_directory(void)
202 long SortDirections[5] = {2,2,2,2,2};
203 const char* SortIcons[3] = {
204 "static/up_pointer.gif",
205 "static/down_pointer.gif",
206 "static/sort_none.gif"};
207 char *RowNames[5] = {"",
213 Files = LoadFileList (&havepics);
214 output_headers(1, 1, 2, 0, 0, 0);
215 wprintf("<div id=\"banner\">\n");
217 snprintf(title, sizeof title, _("Files available for download in %s"), WC->wc_roomname);
222 wprintf("<div id=\"content\" class=\"service\">\n");
224 wprintf("<div class=\"fix_scrollbar_bug\">"
225 "<table class=\"downloads_background\"><tr><td>\n");
228 Order = ibstr("SortOrder");
229 if (!havebstr("SortOrder") || Order > 2)
230 Order = 2; /* <- Unsorted... */
231 SortRow = ibstr("SortBy");
233 SortDirections[SortRow] = Order;
236 for (i = 1; i < 5; i++) {
237 switch (SortDirections[i]) {
251 " <a href=\"display_room_directory?SortOrder=%d&SortBy=%d\"> \n"
252 " <img src=\"%s\" border=\"0\"></a>\n"
256 SortIcons[SortDirections[i]]
261 //<th>%s</th><th>%s</th><th>%s</th><th>%s</th></tr>\n",
265 PrintHash(Files, FilePrintTransition, FilePrintEntry);
268 wprintf("</table>\n");
270 /** Now offer the ability to upload files... */
271 if (WC->room_flags & QR_UPLOAD)
275 "enctype=\"multipart/form-data\" "
277 "accept-charset=\"UTF-8\" "
278 "action=\"upload_file\" "
279 "name=\"upload_file_form\""
282 wprintf("<input type=\"hidden\" name=\"nonce\" value=\"%d\">\n", WC->nonce);
284 wprintf(_("Upload a file:"));
285 wprintf(" <input NAME=\"filename\" SIZE=16 TYPE=\"file\"> \n");
286 wprintf(_("Description:"));
287 wprintf(" <input type=\"text\" name=\"description\" maxlength=\"64\" size=\"64\"> ");
288 wprintf("<input type=\"submit\" name=\"attach_button\" value=\"%s\">\n", _("Upload"));
290 wprintf("</form>\n");
295 wprintf("<div class=\"buttons\"><a href=\"display_pictureview&frame=1\">%s</a></div>", _("Slideshow"));
300 void display_pictureview(void)
311 if (lbstr("frame") == 1) {
313 output_headers(1, 1, 2, 0, 0, 0);
314 wprintf("<div id=\"banner\">\n");
316 snprintf(title, sizeof title, _("Pictures in %s"), WC->wc_roomname);
321 wprintf("<div id=\"content\" class=\"service\">\n");
323 wprintf("<div class=\"fix_scrollbar_bug\">"
324 "<table class=\"downloads_background\"><tr><td>\n");
328 wprintf("<script type=\"text/javascript\" language=\"JavaScript\" > \nvar fadeimages=new Array()\n");
331 serv_getln(buf, sizeof buf);
332 if (buf[0] == '1') while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
333 extract_token(filename, buf, 0, '|', sizeof filename);
334 extract_token(filesize, buf, 1, '|', sizeof filesize);
335 extract_token(mimetype, buf, 2, '|', sizeof mimetype);
336 extract_token(comment, buf, 3, '|', sizeof comment);
337 if (strstr(mimetype, "image") != NULL) {
338 wprintf("fadeimages[%d]=[\"download_file/", n);
340 wprintf("\", \"\", \"\"]\n");
344 escputs(filename); wprintf("</a></td>");
345 wprintf("<td>"); escputs(filesize); wprintf("</td>");
346 wprintf("<td>"); escputs(mimetype); wprintf("</td>");
347 wprintf("<td>"); escputs(comment); wprintf("</td>");
353 wprintf("</script>\n");
354 wprintf("<tr><td><script type=\"text/javascript\" src=\"static/fadeshow.js\">\n</script>\n");
355 wprintf("<script type=\"text/javascript\" >\n");
356 wprintf("new fadeshow(fadeimages, 500, 400, 0, 3000, 1, \"R\");\n");
357 wprintf("</script></td><th>\n");
365 extern char* static_dirs[];
366 void display_mime_icon(void)
369 const char *FileName;
373 MimeType = xbstr("type", &tlen);
374 FileName = GetIconFilename(MimeType, tlen);
376 if (FileName == NULL)
377 snprintf (FileBuf, SIZ, "%s%s", static_dirs[0], "/diskette_24x.gif");
379 snprintf (FileBuf, SIZ, "%s%s", static_dirs[3], FileName);
380 output_static(FileBuf);
384 void download_file(void)
388 char content_type[256];
389 char *content = NULL;
391 /* Setting to nonzero forces a MIME type of application/octet-stream */
392 int force_download = 1;
394 safestrncpy(buf, ChrPtr(WC->UrlFragment2), sizeof buf);
396 serv_printf("OPEN %s", buf);
397 serv_getln(buf, sizeof buf);
399 bytes = extract_long(&buf[4], 0);
400 content = malloc(bytes + 2);
401 if (force_download) {
402 strcpy(content_type, "application/octet-stream");
405 extract_token(content_type, &buf[4], 3, '|', sizeof content_type);
407 output_headers(0, 0, 0, 0, 0, 0);
408 read_server_binary(WC->WBuf, bytes);
410 serv_getln(buf, sizeof buf);
411 http_transmit_thing(content_type, 0);
414 hprintf("HTTP/1.1 404 %s\n", &buf[4]);
415 output_headers(0, 0, 0, 0, 0, 0);
416 hprintf("Content-Type: text/plain\r\n");
417 wprintf(_("An error occurred while retrieving this file: %s\n"), &buf[4]);
425 void upload_file(void)
427 const char *MimeType;
429 long bytes_transmitted = 0;
431 wcsession *WCC = WC; /* stack this for faster access (WC is a function) */
433 MimeType = GuessMimeType(WCC->upload, WCC->upload_length);
434 serv_printf("UOPN %s|%s|%s", WCC->upload_filename, MimeType, bstr("description"));
435 serv_getln(buf, sizeof buf);
438 strcpy(WCC->ImportantMessage, &buf[4]);
439 display_room_directory();
443 while (bytes_transmitted < WCC->upload_length)
446 if (blocksize > (WCC->upload_length - bytes_transmitted))
448 blocksize = (WCC->upload_length - bytes_transmitted);
450 serv_printf("WRIT %d", blocksize);
451 serv_getln(buf, sizeof buf);
454 blocksize = atoi(&buf[4]);
455 serv_write(&WCC->upload[bytes_transmitted], blocksize);
456 bytes_transmitted += blocksize;
461 serv_getln(buf, sizeof buf);
462 strcpy(WCC->ImportantMessage, &buf[4]);
463 display_room_directory();
469 * When the browser requests an image file from the Citadel server,
470 * this function is called to transmit it.
477 const char *MimeType;
479 serv_printf("OIMG %s|%s", bstr("name"), bstr("parm"));
480 serv_getln(buf, sizeof buf);
482 bytes = extract_long(&buf[4], 0);
484 /** Read it from the server */
486 if (read_server_binary(WCC->WBuf, bytes) > 0) {
488 serv_getln(buf, sizeof buf);
490 MimeType = GuessMimeType (ChrPtr(WCC->WBuf), StrLength(WCC->WBuf));
491 /** Write it to the browser */
492 if (!IsEmptyStr(MimeType))
494 http_transmit_thing(MimeType, 0);
498 /* hm... unknown mimetype? fallback to blank gif */
503 * Instead of an ugly 404, send a 1x1 transparent GIF
504 * when there's no such image on the server.
507 snprintf (blank_gif, SIZ, "%s%s", static_dirs[0], "/blank.gif");
508 output_static(blank_gif);
518 WebcitAddUrlHandler(HKEY("image"), output_image, 0);
519 WebcitAddUrlHandler(HKEY("display_mime_icon"), display_mime_icon , 0);
521 WebcitAddUrlHandler(HKEY("display_room_directory"), display_room_directory, 0);
522 WebcitAddUrlHandler(HKEY("display_pictureview"), display_pictureview, 0);
523 WebcitAddUrlHandler(HKEY("download_file"), download_file, NEED_URL);
524 WebcitAddUrlHandler(HKEY("upload_file"), upload_file, 0);