blob: b11da400d6b45dac610c54fb578eac79ec707cf5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
/*
* Copyright (c) 1999 Olaf Flebbe o.flebbe@gmx.de
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
*/
#include <string.h>
char *environ = 0;
int getgid() {return 0;}
int getegid() {return 0;}
int geteuid() {return 0;}
int getuid() {return 0;}
int setgid() {return -1;}
int setuid() {return -1;}
int Perl_my_popen( int a, int b) {
return NULL;
}
int Perl_my_pclose( int a) {
return NULL;
}
int kill() {return -1;}
signal() { }
int execv() { return -1;}
int execvp() { return -1;}
void Perl_do_exec() {}
/*------------------------------------------------------------------*/
/* Two dummy functions implement getproto* */
/*------------------------------------------------------------------*/
#include <sys/types.h>
#include <netdb.h>
#include <netinet/in.h>
static struct protoent protos[2] = {
{"tcp", NULL, IPPROTO_TCP} ,
{"udp", NULL, IPPROTO_UDP}};
struct protoent *getprotobyname (const char *st) {
if (!strcmp( st, "tcp")) {
return &protos[0];
}
if (!strcmp( st, "udp")) {
return &protos[1];
}
return NULL;
}
struct protoent *getprotobynumber ( int i) {
if (i == IPPROTO_TCP) {
return &protos[0];
}
if (i == IPPROTO_UDP) {
return &protos[1];
}
return NULL;
}
|
