Blame

Date:
Message:
Initial revision
Actions:
History | Blob | Raw File
  1 76193d7c 2003-09-30 devnull #include <sys/types.h>

  2 76193d7c 2003-09-30 devnull #include <sys/stat.h>

  3 76193d7c 2003-09-30 devnull #include <sys/wait.h>

  4 76193d7c 2003-09-30 devnull #include <pwd.h>

  5 76193d7c 2003-09-30 devnull #include <signal.h>

  6 76193d7c 2003-09-30 devnull #include <fcntl.h>

  7 76193d7c 2003-09-30 devnull #include <errno.h>

  8 76193d7c 2003-09-30 devnull 

  9 76193d7c 2003-09-30 devnull #include "sam.h"

 10 76193d7c 2003-09-30 devnull 

 11 76193d7c 2003-09-30 devnull Rune    samname[] = { '~', '~', 's', 'a', 'm', '~', '~', 0 };

 12 76193d7c 2003-09-30 devnull  

 13 76193d7c 2003-09-30 devnull static Rune l1[] = { '{', '[', '(', '<', 0253, 0};

 14 76193d7c 2003-09-30 devnull static Rune l2[] = { '\n', 0};

 15 76193d7c 2003-09-30 devnull static Rune l3[] = { '\'', '"', '`', 0};

 16 76193d7c 2003-09-30 devnull Rune *left[]= { l1, l2, l3, 0};

 17 76193d7c 2003-09-30 devnull 

 18 76193d7c 2003-09-30 devnull static Rune r1[] = {'}', ']', ')', '>', 0273, 0};

 19 76193d7c 2003-09-30 devnull static Rune r2[] = {'\n', 0};

 20 76193d7c 2003-09-30 devnull static Rune r3[] = {'\'', '"', '`', 0};

 21 76193d7c 2003-09-30 devnull Rune *right[]= { r1, r2, r3, 0};

 22 76193d7c 2003-09-30 devnull 

 23 76193d7c 2003-09-30 devnull #ifndef SAMTERMNAME

 24 76193d7c 2003-09-30 devnull #define SAMTERMNAME "/usr/local/bin/samterm"

 25 76193d7c 2003-09-30 devnull #endif

 26 76193d7c 2003-09-30 devnull #ifndef TMPDIRNAME

 27 76193d7c 2003-09-30 devnull #define TMPDIRNAME "/tmp"

 28 76193d7c 2003-09-30 devnull #endif

 29 76193d7c 2003-09-30 devnull #ifndef SHNAME

 30 76193d7c 2003-09-30 devnull #define SHNAME "rc"

 31 76193d7c 2003-09-30 devnull #endif

 32 76193d7c 2003-09-30 devnull #ifndef SHPATHNAME

 33 76193d7c 2003-09-30 devnull #define SHPATHNAME "/bin/rc"

 34 76193d7c 2003-09-30 devnull #endif

 35 76193d7c 2003-09-30 devnull #ifndef RXNAME

 36 76193d7c 2003-09-30 devnull #define RXNAME "ssh"

 37 76193d7c 2003-09-30 devnull #endif

 38 76193d7c 2003-09-30 devnull #ifndef RXPATHNAME

 39 76193d7c 2003-09-30 devnull #define RXPATHNAME "/usr/local/bin/ssh"

 40 76193d7c 2003-09-30 devnull #endif

 41 76193d7c 2003-09-30 devnull #ifndef SAMSAVECMDNAME

 42 76193d7c 2003-09-30 devnull #define SAMSAVECMDNAME "/bin/rc\n/usr/local/bin/samsave"

 43 76193d7c 2003-09-30 devnull #endif

 44 76193d7c 2003-09-30 devnull 

 45 76193d7c 2003-09-30 devnull char	RSAM[] = "sam";

 46 76193d7c 2003-09-30 devnull char	SAMTERM[] = SAMTERMNAME;

 47 76193d7c 2003-09-30 devnull char	HOME[] = "HOME";

 48 76193d7c 2003-09-30 devnull char	TMPDIR[] = TMPDIRNAME;

 49 76193d7c 2003-09-30 devnull char	SH[] = SHNAME;

 50 76193d7c 2003-09-30 devnull char	SHPATH[] = SHPATHNAME;

 51 76193d7c 2003-09-30 devnull char	RX[] = RXNAME;

 52 76193d7c 2003-09-30 devnull char	RXPATH[] = RXPATHNAME;

 53 76193d7c 2003-09-30 devnull char	SAMSAVECMD[] = SAMSAVECMDNAME;

 54 76193d7c 2003-09-30 devnull 

 55 76193d7c 2003-09-30 devnull 

 56 76193d7c 2003-09-30 devnull void

 57 76193d7c 2003-09-30 devnull dprint(char *z, ...)

 58 76193d7c 2003-09-30 devnull {

 59 76193d7c 2003-09-30 devnull 	char buf[BLOCKSIZE];

 60 76193d7c 2003-09-30 devnull 	va_list arg;

 61 76193d7c 2003-09-30 devnull 

 62 76193d7c 2003-09-30 devnull 	va_start(arg, z);

 63 76193d7c 2003-09-30 devnull 	vseprint(buf, &buf[BLOCKSIZE], z, arg);

 64 76193d7c 2003-09-30 devnull 	va_end(arg);

 65 76193d7c 2003-09-30 devnull 	termwrite(buf);

 66 76193d7c 2003-09-30 devnull }

 67 76193d7c 2003-09-30 devnull 

 68 76193d7c 2003-09-30 devnull void

 69 76193d7c 2003-09-30 devnull print_ss(char *s, String *a, String *b)

 70 76193d7c 2003-09-30 devnull {

 71 76193d7c 2003-09-30 devnull 	dprint("?warning: %s: `%.*S' and `%.*S'\n", s, a->n, a->s, b->n, b->s);

 72 76193d7c 2003-09-30 devnull }

 73 76193d7c 2003-09-30 devnull 

 74 76193d7c 2003-09-30 devnull void

 75 76193d7c 2003-09-30 devnull print_s(char *s, String *a)

 76 76193d7c 2003-09-30 devnull {

 77 76193d7c 2003-09-30 devnull 	dprint("?warning: %s `%.*S'\n", s, a->n, a->s);

 78 76193d7c 2003-09-30 devnull }

 79 76193d7c 2003-09-30 devnull 

 80 76193d7c 2003-09-30 devnull char*

 81 76193d7c 2003-09-30 devnull getuser(void)

 82 76193d7c 2003-09-30 devnull {

 83 76193d7c 2003-09-30 devnull 	static char user[64];

 84 76193d7c 2003-09-30 devnull 	if(user[0] == 0){

 85 76193d7c 2003-09-30 devnull 		struct passwd *pw = getpwuid(getuid());

 86 76193d7c 2003-09-30 devnull 		strcpy(user, pw ? pw->pw_name : "nobody");

 87 76193d7c 2003-09-30 devnull 	}

 88 76193d7c 2003-09-30 devnull 	return user;

 89 76193d7c 2003-09-30 devnull }

 90 76193d7c 2003-09-30 devnull 

 91 76193d7c 2003-09-30 devnull int     

 92 76193d7c 2003-09-30 devnull statfile(char *name, ulong *dev, uvlong *id, long *time, long *length, long *appendonly) 

 93 76193d7c 2003-09-30 devnull {

 94 76193d7c 2003-09-30 devnull         struct stat dirb;

 95 76193d7c 2003-09-30 devnull 

 96 76193d7c 2003-09-30 devnull         if (stat(name, &dirb) == -1)

 97 76193d7c 2003-09-30 devnull                 return -1;

 98 76193d7c 2003-09-30 devnull         if (dev)

 99 76193d7c 2003-09-30 devnull                 *dev = dirb.st_dev;   

100 76193d7c 2003-09-30 devnull         if (id)

101 76193d7c 2003-09-30 devnull                 *id = dirb.st_ino;

102 76193d7c 2003-09-30 devnull         if (time)

103 76193d7c 2003-09-30 devnull                 *time = dirb.st_mtime;

104 76193d7c 2003-09-30 devnull         if (length)

105 76193d7c 2003-09-30 devnull                 *length = dirb.st_size;

106 76193d7c 2003-09-30 devnull         if(appendonly)

107 76193d7c 2003-09-30 devnull                 *appendonly = 0;

108 76193d7c 2003-09-30 devnull         return 1;

109 76193d7c 2003-09-30 devnull }

110 76193d7c 2003-09-30 devnull 

111 76193d7c 2003-09-30 devnull int

112 76193d7c 2003-09-30 devnull statfd(int fd, ulong *dev, uvlong *id, long *time, long *length, long *appendonly)

113 76193d7c 2003-09-30 devnull {

114 76193d7c 2003-09-30 devnull         struct stat dirb;

115 76193d7c 2003-09-30 devnull 

116 76193d7c 2003-09-30 devnull         if (fstat(fd, &dirb) == -1)   

117 76193d7c 2003-09-30 devnull                 return -1;

118 76193d7c 2003-09-30 devnull         if (dev)

119 76193d7c 2003-09-30 devnull                 *dev = dirb.st_dev;

120 76193d7c 2003-09-30 devnull         if (id) 

121 76193d7c 2003-09-30 devnull                 *id = dirb.st_ino;

122 76193d7c 2003-09-30 devnull         if (time)

123 76193d7c 2003-09-30 devnull                 *time = dirb.st_mtime;

124 76193d7c 2003-09-30 devnull         if (length)

125 76193d7c 2003-09-30 devnull                 *length = dirb.st_size;

126 76193d7c 2003-09-30 devnull         if(appendonly)

127 76193d7c 2003-09-30 devnull                 *appendonly = 0;

128 76193d7c 2003-09-30 devnull         return 1;

129 76193d7c 2003-09-30 devnull }

130 76193d7c 2003-09-30 devnull 

131 76193d7c 2003-09-30 devnull void

132 76193d7c 2003-09-30 devnull hup(int sig)

133 76193d7c 2003-09-30 devnull {

134 76193d7c 2003-09-30 devnull         panicking = 1; // ???

135 76193d7c 2003-09-30 devnull         rescue();

136 76193d7c 2003-09-30 devnull         exit(1);

137 76193d7c 2003-09-30 devnull }

138 76193d7c 2003-09-30 devnull 

139 76193d7c 2003-09-30 devnull int

140 76193d7c 2003-09-30 devnull notify (void(*f)(void *, char *))

141 76193d7c 2003-09-30 devnull {

142 76193d7c 2003-09-30 devnull         signal(SIGINT, SIG_IGN);

143 76193d7c 2003-09-30 devnull         signal(SIGPIPE, SIG_IGN);  // XXX - bpipeok?

144 76193d7c 2003-09-30 devnull         signal(SIGHUP, hup);

145 76193d7c 2003-09-30 devnull         return 1;

146 76193d7c 2003-09-30 devnull }

147 76193d7c 2003-09-30 devnull 

148 76193d7c 2003-09-30 devnull void

149 76193d7c 2003-09-30 devnull notifyf(void *a, char *b)       /* never called; hup is instead */

150 76193d7c 2003-09-30 devnull {

151 76193d7c 2003-09-30 devnull }

152 76193d7c 2003-09-30 devnull 

153 76193d7c 2003-09-30 devnull static int

154 76193d7c 2003-09-30 devnull temp_file(char *buf, int bufsize)

155 76193d7c 2003-09-30 devnull {

156 76193d7c 2003-09-30 devnull         char *tmp;

157 76193d7c 2003-09-30 devnull         int n, fd;

158 76193d7c 2003-09-30 devnull 

159 76193d7c 2003-09-30 devnull         tmp = getenv("TMPDIR");

160 76193d7c 2003-09-30 devnull         if (!tmp)

161 76193d7c 2003-09-30 devnull                 tmp = TMPDIR;

162 76193d7c 2003-09-30 devnull 

163 76193d7c 2003-09-30 devnull         n = snprint(buf, bufsize, "%s/sam.%d.XXXXXXX", tmp, getuid());

164 76193d7c 2003-09-30 devnull         if (bufsize <= n)

165 76193d7c 2003-09-30 devnull                 return -1;

166 76193d7c 2003-09-30 devnull         if ((fd = mkstemp(buf)) < 0)  /* SES - linux sometimes uses mode 0666 */

167 76193d7c 2003-09-30 devnull                 return -1;

168 76193d7c 2003-09-30 devnull         if (fcntl(fd, F_SETFD, fcntl(fd,F_GETFD,0) | FD_CLOEXEC) < 0)

169 76193d7c 2003-09-30 devnull                 return -1;

170 76193d7c 2003-09-30 devnull         return fd;

171 76193d7c 2003-09-30 devnull }

172 76193d7c 2003-09-30 devnull 

173 76193d7c 2003-09-30 devnull int

174 76193d7c 2003-09-30 devnull tempdisk(void)

175 76193d7c 2003-09-30 devnull {

176 76193d7c 2003-09-30 devnull         char buf[4096];

177 76193d7c 2003-09-30 devnull         int fd = temp_file(buf, sizeof buf);

178 76193d7c 2003-09-30 devnull         if (fd >= 0)

179 76193d7c 2003-09-30 devnull                 remove(buf);

180 76193d7c 2003-09-30 devnull         return fd; 

181 76193d7c 2003-09-30 devnull }

182 76193d7c 2003-09-30 devnull 

183 76193d7c 2003-09-30 devnull #undef wait

184 76193d7c 2003-09-30 devnull int     

185 76193d7c 2003-09-30 devnull waitfor(int pid)

186 76193d7c 2003-09-30 devnull {

187 76193d7c 2003-09-30 devnull         int wm; 

188 76193d7c 2003-09-30 devnull         int rpid;

189 76193d7c 2003-09-30 devnull                 

190 76193d7c 2003-09-30 devnull         do; while((rpid = wait(&wm)) != pid && rpid != -1);

191 76193d7c 2003-09-30 devnull         return (WEXITSTATUS(wm));

192 76193d7c 2003-09-30 devnull }       

193 76193d7c 2003-09-30 devnull 

194 76193d7c 2003-09-30 devnull void

195 76193d7c 2003-09-30 devnull samerr(char *buf)

196 76193d7c 2003-09-30 devnull {

197 76193d7c 2003-09-30 devnull 	sprint(buf, "%s/sam.%s.err", TMPDIR, getuser());

198 76193d7c 2003-09-30 devnull }

199 76193d7c 2003-09-30 devnull 

200 76193d7c 2003-09-30 devnull void*

201 76193d7c 2003-09-30 devnull emalloc(ulong n)

202 76193d7c 2003-09-30 devnull {

203 76193d7c 2003-09-30 devnull 	void *p;

204 76193d7c 2003-09-30 devnull 

205 76193d7c 2003-09-30 devnull 	p = malloc(n);

206 76193d7c 2003-09-30 devnull 	if(p == 0)

207 76193d7c 2003-09-30 devnull 		panic("malloc fails");

208 76193d7c 2003-09-30 devnull 	memset(p, 0, n);

209 76193d7c 2003-09-30 devnull 	return p;

210 76193d7c 2003-09-30 devnull }

211 76193d7c 2003-09-30 devnull 

212 76193d7c 2003-09-30 devnull void*

213 76193d7c 2003-09-30 devnull erealloc(void *p, ulong n)

214 76193d7c 2003-09-30 devnull {

215 76193d7c 2003-09-30 devnull 	p = realloc(p, n);

216 76193d7c 2003-09-30 devnull 	if(p == 0)

217 76193d7c 2003-09-30 devnull 		panic("realloc fails");

218 76193d7c 2003-09-30 devnull 	return p;

219 76193d7c 2003-09-30 devnull }

220 76193d7c 2003-09-30 devnull 

221 76193d7c 2003-09-30 devnull #if 0

222 76193d7c 2003-09-30 devnull char *

223 76193d7c 2003-09-30 devnull strdup(const char *s)

224 76193d7c 2003-09-30 devnull {

225 76193d7c 2003-09-30 devnull 	return strcpy(emalloc(strlen(s)), s);

226 76193d7c 2003-09-30 devnull }

227 76193d7c 2003-09-30 devnull #endif

228 76193d7c 2003-09-30 devnull 

229 76193d7c 2003-09-30 devnull /*

230 76193d7c 2003-09-30 devnull void exits(const char *s)

231 76193d7c 2003-09-30 devnull {

232 76193d7c 2003-09-30 devnull     if (s) fprint(2, "exit: %s\n", s);

233 76193d7c 2003-09-30 devnull     exit(s != 0);

234 76193d7c 2003-09-30 devnull }

235 76193d7c 2003-09-30 devnull 

236 76193d7c 2003-09-30 devnull void

237 76193d7c 2003-09-30 devnull _exits(const char *s)

238 76193d7c 2003-09-30 devnull {

239 76193d7c 2003-09-30 devnull     if (s) fprint(2, "exit: %s\n", s);

240 76193d7c 2003-09-30 devnull     _exit(s != 0);

241 76193d7c 2003-09-30 devnull }

242 76193d7c 2003-09-30 devnull 

243 76193d7c 2003-09-30 devnull int errstr(char *buf, int size)

244 76193d7c 2003-09-30 devnull {

245 76193d7c 2003-09-30 devnull     extern int errno;

246 76193d7c 2003-09-30 devnull                 

247 76193d7c 2003-09-30 devnull     snprint(buf, size, "%s", strerror(errno));

248 76193d7c 2003-09-30 devnull     return 1;       

249 76193d7c 2003-09-30 devnull }                       

250 76193d7c 2003-09-30 devnull */

251 76193d7c 2003-09-30 devnull                     

252 76193d7c 2003-09-30 devnull int create(char *name, int omode, int perm)

253 76193d7c 2003-09-30 devnull {

254 76193d7c 2003-09-30 devnull     int mode;

255 76193d7c 2003-09-30 devnull     int fd; 

256 76193d7c 2003-09-30 devnull         

257 76193d7c 2003-09-30 devnull     if (omode & OWRITE) mode = O_WRONLY;

258 76193d7c 2003-09-30 devnull     else if (omode & OREAD) mode = O_RDONLY;

259 76193d7c 2003-09-30 devnull     else mode = O_RDWR;

260 76193d7c 2003-09-30 devnull 

261 76193d7c 2003-09-30 devnull     if ((fd = open(name, mode|O_CREAT|O_TRUNC, perm)) < 0)

262 76193d7c 2003-09-30 devnull 	return fd;

263 76193d7c 2003-09-30 devnull 

264 76193d7c 2003-09-30 devnull     if (omode & OCEXEC)

265 76193d7c 2003-09-30 devnull 	fcntl(fd, F_SETFD, fcntl(fd,F_GETFD,0) | FD_CLOEXEC);

266 76193d7c 2003-09-30 devnull 

267 76193d7c 2003-09-30 devnull     /* SES - not exactly right, but hopefully good enough. */

268 76193d7c 2003-09-30 devnull     if (omode & ORCLOSE)

269 76193d7c 2003-09-30 devnull 	remove(name);

270 76193d7c 2003-09-30 devnull 

271 76193d7c 2003-09-30 devnull     return fd;                          

272 76193d7c 2003-09-30 devnull }