r8337: - use 64 bit access functions in ejs calls
[ira/wip.git] / source4 / scripting / ejs / smbcalls_sys.c
1 /* 
2    Unix SMB/CIFS implementation.
3
4    provide access to system functions
5
6    Copyright (C) Andrew Tridgell 2005
7    
8    This program is free software; you can redistribute it and/or modify
9    it under the terms of the GNU General Public License as published by
10    the Free Software Foundation; either version 2 of the License, or
11    (at your option) any later version.
12    
13    This program is distributed in the hope that it will be useful,
14    but WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16    GNU General Public License for more details.
17    
18    You should have received a copy of the GNU General Public License
19    along with this program; if not, write to the Free Software
20    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21 */
22
23 #include "includes.h"
24 #include "scripting/ejs/smbcalls.h"
25 #include "lib/ejs/ejs.h"
26
27 /*
28   return the list of configured network interfaces
29 */
30 static int ejs_sys_interfaces(MprVarHandle eid, int argc, struct MprVar **argv)
31 {
32         int i, count = iface_count();
33         struct MprVar ret = mprObject("interfaces");
34         for (i=0;i<count;i++) {
35                 mprAddArray(&ret, i, mprString(iface_n_ip(i)));
36         }
37         mpr_Return(eid, ret);
38         return 0;       
39 }
40
41 /*
42   return the hostname from gethostname()
43 */
44 static int ejs_sys_hostname(MprVarHandle eid, int argc, struct MprVar **argv)
45 {
46         char name[200];
47         if (gethostname(name, sizeof(name)-1) == -1) {
48                 ejsSetErrorMsg(eid, "gethostname failed - %s", strerror(errno));
49                 return -1;
50         }
51         mpr_Return(eid, mprString(name));
52         return 0;       
53 }
54
55
56 /*
57   return current time as a 64 bit nttime value
58 */
59 static int ejs_sys_nttime(MprVarHandle eid, int argc, struct MprVar **argv)
60 {
61         struct timeval tv = timeval_current();
62         struct MprVar v = mprCreateNumberVar(timeval_to_nttime(&tv));
63         mpr_Return(eid, v);
64         return 0;
65 }
66
67 /*
68   return a ldap time string from a nttime
69 */
70 static int ejs_sys_ldaptime(MprVarHandle eid, int argc, struct MprVar **argv)
71 {
72         char *s;
73         time_t t;
74         if (argc != 1 || !mprVarIsNumber(argv[0]->type)) {
75                 ejsSetErrorMsg(eid, "sys_ldaptime invalid arguments");
76                 return -1;
77         }
78         t = nt_time_to_unix(mprVarToNumber(argv[0]));
79         s = ldap_timestring(mprMemCtx(), t);
80         mpr_Return(eid, mprString(s));
81         talloc_free(s);
82         return 0;
83 }
84
85
86 /*
87   setup C functions that be called from ejs
88 */
89 void smb_setup_ejs_system(void)
90 {
91         ejsDefineCFunction(-1, "sys_interfaces", ejs_sys_interfaces, NULL, MPR_VAR_SCRIPT_HANDLE);
92         ejsDefineCFunction(-1, "sys_hostname", ejs_sys_hostname, NULL, MPR_VAR_SCRIPT_HANDLE);
93         ejsDefineCFunction(-1, "sys_nttime", ejs_sys_nttime, NULL, MPR_VAR_SCRIPT_HANDLE);
94         ejsDefineCFunction(-1, "sys_ldaptime", ejs_sys_ldaptime, NULL, MPR_VAR_SCRIPT_HANDLE);
95 }