1 /***************************************************************************
2 * Copyright (C) 2007-2010 by Øyvind Harboe *
4 * This program is free software; you can redistribute it and/or modify *
5 * it under the terms of the GNU General Public License as published by *
6 * the Free Software Foundation; either version 2 of the License, or *
7 * (at your option) any later version. *
9 * This program is distributed in the hope that it will be useful, *
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
12 * GNU General Public License for more details. *
14 * You should have received a copy of the GNU General Public License *
15 * along with this program; if not, write to the *
16 * Free Software Foundation, Inc., *
17 * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
18 ***************************************************************************/
20 /* this file contains various functionality useful to standalone systems */
27 #include "time_support.h"
29 #ifdef HAVE_ARPA_INET_H
30 #include <arpa/inet.h>
41 #ifdef HAVE_SYS_IOCTL_H
42 #include <sys/ioctl.h>
44 #ifdef HAVE_SYS_STAT_H
56 /* loads a file and returns a pointer to it in memory. The file contains
57 * a 0 byte(sentinel) after len bytes - the length of the file. */
58 int loadFile(const char *fileName, void **data, size_t *len)
60 /* ensure returned length is always sane */
64 pFile = fopen(fileName, "rb");
66 LOG_ERROR("Can't open %s", fileName);
69 if (fseek(pFile, 0, SEEK_END) != 0) {
70 LOG_ERROR("Can't open %s", fileName);
74 long fsize = ftell(pFile);
76 LOG_ERROR("Can't open %s", fileName);
82 if (fseek(pFile, 0, SEEK_SET) != 0) {
83 LOG_ERROR("Can't open %s", fileName);
87 *data = malloc(*len + 1);
89 LOG_ERROR("Can't open %s", fileName);
94 if (fread(*data, 1, *len, pFile) != *len) {
97 LOG_ERROR("Can't open %s", fileName);
102 /* 0-byte after buffer (not included in *len) serves as a sentinel */
103 char *buf = (char *)*data;
109 COMMAND_HANDLER(handle_cat_command)
112 return ERROR_COMMAND_SYNTAX_ERROR;
114 /* NOTE!!! we only have line printing capability so we print the entire file as a single
119 int retval = loadFile(CMD_ARGV[0], &data, &len);
120 if (retval == ERROR_OK) {
121 command_print(CMD_CTX, "%s", (char *)data);
124 command_print(CMD_CTX, "%s not found", CMD_ARGV[0]);
129 COMMAND_HANDLER(handle_trunc_command)
132 return ERROR_COMMAND_SYNTAX_ERROR;
134 FILE *config_file = NULL;
135 config_file = fopen(CMD_ARGV[0], "w");
136 if (config_file != NULL)
142 COMMAND_HANDLER(handle_meminfo_command)
145 struct mallinfo info;
148 return ERROR_COMMAND_SYNTAX_ERROR;
153 command_print(CMD_CTX, "Diff: %d", prev - info.fordblks);
154 prev = info.fordblks;
156 command_print(CMD_CTX, "Available ram: %d", info.fordblks);
162 COMMAND_HANDLER(handle_append_command)
165 return ERROR_COMMAND_SYNTAX_ERROR;
167 int retval = ERROR_FAIL;
168 FILE *config_file = NULL;
170 config_file = fopen(CMD_ARGV[0], "a");
171 if (config_file != NULL) {
172 fseek(config_file, 0, SEEK_END);
175 for (i = 1; i < CMD_ARGC; i++) {
176 if (fwrite(CMD_ARGV[i], 1, strlen(CMD_ARGV[i]),
177 config_file) != strlen(CMD_ARGV[i]))
179 if (i != CMD_ARGC - 1) {
180 if (fwrite(" ", 1, 1, config_file) != 1)
184 if ((i == CMD_ARGC) && (fwrite("\n", 1, 1, config_file) == 1))
193 COMMAND_HANDLER(handle_cp_command)
196 return ERROR_COMMAND_SYNTAX_ERROR;
198 /* NOTE!!! we only have line printing capability so we print the entire file as a single
203 int retval = loadFile(CMD_ARGV[0], &data, &len);
204 if (retval != ERROR_OK)
207 FILE *f = fopen(CMD_ARGV[1], "wb");
209 retval = ERROR_COMMAND_SYNTAX_ERROR;
213 size_t chunk = len - pos;
214 static const size_t maxChunk = 512 * 1024; /* ~1/sec */
215 if (chunk > maxChunk)
218 if ((retval == ERROR_OK) && (fwrite(((char *)data) + pos, 1, chunk, f) != chunk))
219 retval = ERROR_COMMAND_SYNTAX_ERROR;
221 if (retval != ERROR_OK)
224 command_print(CMD_CTX, "%zu", len - pos);
232 if (retval == ERROR_OK)
233 command_print(CMD_CTX, "Copied %s to %s", CMD_ARGV[0], CMD_ARGV[1]);
235 command_print(CMD_CTX, "copy failed");
242 if (retval != ERROR_OK)
248 #define SHOW_RESULT(a, b) LOG_ERROR(# a " failed %d\n", (int)b)
251 void copyfile(char *name2, char *name1)
259 fd1 = open(name1, O_WRONLY | O_CREAT, 0664);
261 SHOW_RESULT(open, fd1);
263 fd2 = open(name2, O_RDONLY);
265 SHOW_RESULT(open, fd2);
268 done = read(fd2, buf, IOSIZE);
270 SHOW_RESULT(read, done);
277 wrote = write(fd1, buf, done);
279 SHOW_RESULT(write, wrote);
287 SHOW_RESULT(close, err);
291 SHOW_RESULT(close, err);
294 /* utility fn to copy a directory */
295 void copydir(char *name, char *destdir)
300 dirp = opendir(destdir);
302 mkdir(destdir, 0777);
304 err = closedir(dirp);
306 dirp = opendir(name);
308 SHOW_RESULT(opendir, -1);
311 struct dirent *entry = readdir(dirp);
316 if (strcmp(entry->d_name, ".") == 0)
318 if (strcmp(entry->d_name, "..") == 0)
323 char fullPath[PATH_MAX];
324 strncpy(fullPath, name, PATH_MAX);
325 strcat(fullPath, "/");
326 strncat(fullPath, entry->d_name, PATH_MAX - strlen(fullPath));
328 if (stat(fullPath, &buf) == -1) {
329 LOG_ERROR("unable to read status from %s", fullPath);
332 isDir = S_ISDIR(buf.st_mode) != 0;
337 /* diag_printf("<INFO>: entry %14s",entry->d_name); */
338 char fullname[PATH_MAX];
339 char fullname2[PATH_MAX];
341 strcpy(fullname, name);
342 strcat(fullname, "/");
343 strcat(fullname, entry->d_name);
345 strcpy(fullname2, destdir);
346 strcat(fullname2, "/");
347 strcat(fullname2, entry->d_name);
348 /* diag_printf("from %s to %s\n", fullname, fullname2); */
349 copyfile(fullname, fullname2);
351 /* diag_printf("\n"); */
354 err = closedir(dirp);
356 SHOW_RESULT(stat, err);
359 COMMAND_HANDLER(handle_rm_command)
362 return ERROR_COMMAND_SYNTAX_ERROR;
365 if (rmdir(CMD_ARGV[0]) == 0)
367 else if (unlink(CMD_ARGV[0]) == 0)
370 return del ? ERROR_OK : ERROR_FAIL;
373 static int ioutil_Jim_Command_ls(Jim_Interp *interp,
375 Jim_Obj * const *argv)
378 Jim_WrongNumArgs(interp, 1, argv, "ls ?dir?");
382 char *name = (char *) Jim_GetString(argv[1], NULL);
385 dirp = opendir(name);
388 Jim_Obj *objPtr = Jim_NewListObj(interp, NULL, 0);
391 struct dirent *entry = NULL;
392 entry = readdir(dirp);
396 if ((strcmp(".", entry->d_name) == 0) || (strcmp("..", entry->d_name) == 0))
399 Jim_ListAppendElement(interp, objPtr,
400 Jim_NewStringObj(interp, entry->d_name, strlen(entry->d_name)));
404 Jim_SetResult(interp, objPtr);
409 static int ioutil_Jim_Command_peek(Jim_Interp *interp,
411 Jim_Obj *const *argv)
414 Jim_WrongNumArgs(interp, 1, argv, "peek ?address?");
419 if (Jim_GetLong(interp, argv[1], &address) != JIM_OK)
422 int value = *((volatile int *) address);
424 Jim_SetResult(interp, Jim_NewIntObj(interp, value));
429 static int ioutil_Jim_Command_poke(Jim_Interp *interp,
431 Jim_Obj *const *argv)
434 Jim_WrongNumArgs(interp, 1, argv, "poke ?address? ?value?");
439 if (Jim_GetLong(interp, argv[1], &address) != JIM_OK)
442 if (Jim_GetLong(interp, argv[2], &value) != JIM_OK)
445 *((volatile int *) address) = value;
450 /* not so pretty code to fish out ip number*/
451 static int ioutil_Jim_Command_ip(Jim_Interp *interp, int argc,
452 Jim_Obj *const *argv)
454 #if !defined(__CYGWIN__)
455 Jim_Obj *tclOutput = Jim_NewStringObj(interp, "", 0);
457 struct ifaddrs *ifa = NULL, *ifp = NULL;
459 if (getifaddrs(&ifp) < 0)
462 for (ifa = ifp; ifa; ifa = ifa->ifa_next) {
466 if (ifa->ifa_addr->sa_family == AF_INET)
467 salen = sizeof(struct sockaddr_in);
468 else if (ifa->ifa_addr->sa_family == AF_INET6)
469 salen = sizeof(struct sockaddr_in6);
473 if (getnameinfo(ifa->ifa_addr, salen, ip, sizeof(ip), NULL, 0,
477 Jim_AppendString(interp, tclOutput, ip, strlen(ip));
484 Jim_Obj *tclOutput = Jim_NewStringObj(interp, "fixme!!!", 0);
485 LOG_ERROR("NOT IMPLEMENTED!!!");
487 Jim_SetResult(interp, tclOutput);
492 /* not so pretty code to fish out eth0 mac address */
493 static int ioutil_Jim_Command_mac(Jim_Interp *interp, int argc,
494 Jim_Obj *const *argv)
496 struct ifreq *ifr, *ifend;
502 SockFD = socket(AF_INET, SOCK_DGRAM, 0);
506 ifc.ifc_len = sizeof(ifs);
508 if (ioctl(SockFD, SIOCGIFCONF, &ifc) < 0) {
513 ifend = ifs + (ifc.ifc_len / sizeof(struct ifreq));
514 for (ifr = ifc.ifc_req; ifr < ifend; ifr++) {
515 /* if (ifr->ifr_addr.sa_family == AF_INET) */
517 if (strcmp("eth0", ifr->ifr_name) != 0)
519 strncpy(ifreq.ifr_name, ifr->ifr_name, sizeof(ifreq.ifr_name));
520 if (ioctl(SockFD, SIOCGIFHWADDR, &ifreq) < 0) {
527 Jim_Obj *tclOutput = Jim_NewStringObj(interp, "", 0);
530 sprintf(buffer, "%02x-%02x-%02x-%02x-%02x-%02x",
531 ifreq.ifr_hwaddr.sa_data[0]&0xff,
532 ifreq.ifr_hwaddr.sa_data[1]&0xff,
533 ifreq.ifr_hwaddr.sa_data[2]&0xff,
534 ifreq.ifr_hwaddr.sa_data[3]&0xff,
535 ifreq.ifr_hwaddr.sa_data[4]&0xff,
536 ifreq.ifr_hwaddr.sa_data[5]&0xff);
538 Jim_AppendString(interp, tclOutput, buffer, strlen(buffer));
540 Jim_SetResult(interp, tclOutput);
551 static const struct command_registration ioutil_command_handlers[] = {
554 .handler = handle_cat_command,
556 .help = "display text file content",
557 .usage = "file_name",
561 .handler = handle_trunc_command,
563 .help = "truncate a file to zero length",
564 .usage = "file_name",
568 .handler = handle_cp_command,
570 .help = "copy a file",
571 .usage = "src_file_name dst_file_name",
574 .name = "append_file",
575 .handler = handle_append_command,
577 .help = "append a variable number of strings to a file",
578 .usage = "file_name [<string1>, [<string2>, ...]]",
582 .handler = handle_meminfo_command,
584 .help = "display free heap space",
589 .handler = handle_rm_command,
590 .help = "remove a directory or file",
591 .usage = "file_name",
595 * Peek and poke are security holes -- they manipulate
596 * server-internal addresses.
603 .jim_handler = ioutil_Jim_Command_peek,
604 .help = "peek at a memory address",
610 .jim_handler = ioutil_Jim_Command_poke,
611 .help = "poke at a memory address",
612 .usage = "address value",
617 .jim_handler = ioutil_Jim_Command_ls,
618 .help = "show a listing of files",
624 .jim_handler = ioutil_Jim_Command_mac,
625 .help = "show MAC address",
629 .jim_handler = ioutil_Jim_Command_ip,
631 .help = "show IP address",
633 COMMAND_REGISTRATION_DONE
636 int ioutil_init(struct command_context *cmd_ctx)
638 return register_commands(cmd_ctx, NULL, ioutil_command_handlers);