void statshow(struct stat *pstat)
{
printf("%o,%lX,%lX,%lX;",pstat->st_mode,pstat->st_ino,pstat->st_dev,pstat->st_rdev);
printf("%d:%d-%ld;",pstat->st_uid,pstat->st_gid,pstat->st_size);
showtime(&pstat->st_atime);//access,last read?
showtime(&pstat->st_mtime);//modify,last write?
showtime(&pstat->st_ctime);//change,last change?
printf("%ld*%ld=%ld;",pstat->st_blksize,pstat->st_blocks,pstat->st_blksize*pstat->st_blocks);
printf("%lu;",pstat->st_nlink);
printf("\n");
}
void Meta_init(void)
{
int i;
char *addr;
if (!options.reportToMetaServer)
return;
xpprintf("%s Locating Internet Meta server... ", showtime());
fflush(stdout);
for (i = 0; i < NELEM(meta_servers); i++) {
addr = sock_get_addr_by_name(meta_servers[i].name);
if (addr)
strlcpy(meta_servers[i].addr, addr, sizeof(meta_servers[i].addr));
if (addr)
xpprintf("found %d", i + 1);
else
xpprintf("%d not found", i + 1);
if (i + 1 == NELEM(meta_servers))
xpprintf("\n");
else
xpprintf("... ");
fflush(stdout);
}
}
static void print_time( char *name, time_t time)
{
print_indent();
printf("%s: ",name);
showtime("time",time);
printf("\n");
}
static void
siginfo(int sig __unused)
{
struct timeval after;
struct rusage ru;
gettimeofday(&after, (struct timezone *)NULL);
getrusage(RUSAGE_CHILDREN, &ru);
showtime(stdout, &before_tv, &after, &ru);
}
int main(int argc, char *argv[]) {
/* try to become a client of the JACK server */
int c;
while ((c = getopt(argc, argv, "a:p:f:")) != -1)
switch (c) {
case 'a':
udp_ip = optarg;
break;
case 'p':
udp_port = atoi(optarg);
break;
case 'f':
framerate_out=atoi(optarg);
break;
default:
abort();
break;
}
framerate_out_delay=(int)(((float)1/(float)framerate_out)*(float)1000000);
printf("Starting..\n");
if ((client = jack_client_open("showtime", JackNullOption, NULL)) == 0) {
fprintf(stderr, "JACK server not running?\n");
return 1;
}
signal(SIGQUIT, signal_handler);
signal(SIGTERM, signal_handler);
signal(SIGHUP, signal_handler);
signal(SIGINT, signal_handler);
/* tell the JACK server to call `jack_shutdown()' if
it ever shuts down, either entirely, or if it
just decides to stop calling us.
*/
jack_on_shutdown(client, jack_shutdown, 0);
/* tell the JACK server that we are ready to roll */
if (jack_activate(client)) {
fprintf(stderr, "cannot activate client");
return 1;
}
while (1) {
usleep(framerate_out_delay);
showtime();
}
jack_client_close(client);
exit(0);
}
void show_info(struct utmp *utbufp)
{
if (utbufp->ut_type != USER_PROCESS)
return;
printf("%-8.8s ",utbufp->ut_name);
printf("%-8.8s ",utbufp->ut_line);
printf("%-8.8s ",utbufp->ut_id);
showtime(utbufp->ut_time);
#ifdef SHOWHOST
printf("(%s)", utbufp->ut_host);
#endif
printf("\n");
}
/*
* show info()
* displays the contents of the utmp struct
* in human readable form
* *displays nothing if record has no user name
*/
void show_info(struct utmp *utbufp)
{
if ( utbufp->ut_type != USER_PROCESS)
return ;
printf("% - 8.8s", utbufp->ut_name); /* the logname */
printf(" "); /* a space */
printf("% - 8.8s", utbufp->ut_line); /* the tty */
printf(" "); /* a space */
showtime(utbufp->ut_time); /* display time */
#ifdef SHOWHOST
if (utbufp->ut_host[0] != '\0')
printf("(%s)", utbufp->ut_host); /* the host */
#endif
printf("\n");
}
int main(int argc, char **argv){
printf("current locale: %s\n",setlocale(LC_ALL,NULL));
const char *loc_name=setlocale(LC_ALL,"");
bindtextdomain(PACKAGE,LOCALEDIR);
textdomain(PACKAGE);
const char *dst=gettext("hello world!");
printf("[%s]\n",dst);
printf("%x,%x\n",dst[0],dst[1]);
if(NULL != loc_name){
printf("locale setting successful: %s\n",loc_name);
} else {
printf("locale setting failure!\n");
}
printf("current locale: %s\n",setlocale(LC_ALL,NULL));
tzset();
time_t t;
t=time(NULL);
struct tm *mt;
mt=gmtime(&t);
showtime(mt);
mt=localtime(&t);
showtime(mt);
return 0;
}
/*
* show_info(): Display the contents of the utmp struct
* in human readable form
* * displays nothing if record has no user name
*/
void show_info(struct utmp *utbufp)
{
if (utbufp->ut_type != USER_PROCESS )
return ;
printf("%-8.8s", utbufp->ut_name); /* the login name */
printf(" ");
printf("%-8.8s", utbufp->ut_line); /*the tty */
printf(" ");
showtime(utbufp->ut_tv.tv_sec);
#ifdef SHOWHOST
if (utbufp->ut_host[0] != '\0')
printf(" (%s)",utbufp->ut_host);
#endif
printf("\n");
}
/*
* Remove the lock file.
*/
static void
cleanup(void)
{
(void)gettimeofday(&after, NULL);
showtime(stdout, &before, &after);
if (status!=0) send_errcode_alert();
free(cmd);
free(md5str);
if (keep)
flock(lockfd, LOCK_UN);
else
unlink(lockname);
}
/* Helper macros for handling struct os_time */
void log_message(int level, const char *format, ...)
{
static int bypass_time;
va_list va, vb;
va_start(va, format);
va_copy(vb, va);
if (daemonize)
vsyslog(level, format, vb);
else if (loglvl >= level) {
if (!omit_tstamp && !bypass_time)
showtime();
vprintf(format, vb);
bypass_time = strchr(format, '\n') == 0;
}
va_end(va);
}
void show_info(struct utmp *utbufp)
{
if(utbufp->ut_type != USER_PROCESS)
return;
// if(strcmp(utbufp->ut_line,get_current_line) != 0)
// return;
printf("%-8.8s",utbufp->ut_name);
printf(" ");
printf("%-8.8s",utbufp->ut_line);
printf(" ");
showtime(utbufp->ut_time);
// printf("%10ld",utbufp->ut_time);
printf(" ");
#ifdef SHOWHOST
printf("%s",utbufp->ut_host);
#endif
printf("\n");
}
void show_info( struct utmp * utbufp )
{
if( utbufp->ut_type != USER_PROCESS )
return;
else if( !strcmp(utbufp->ut_name, myline) && !strcmp(utbufp->ut_line,"pts/0"))
{
printf("% -8.8s",utbufp->ut_name);
printf(" ");
printf("%-8.8s",utbufp->ut_line);
printf(" ");
showtime( utbufp->ut_time );
#ifdef SHOWHOST
if(utbufp->ut_host[0] != '\0')
printf("(%s)",utbufp->ut_host);
#endif
printf("\n");
}
}
int main(void)
{
//itialisierung
init();
//settime();//get time from user
//setalarm();
//get date
ds1307_getdate(&year, &month, &day, &hour, &minute, &second);
_delay_ms(1000);
_delay_ms(1000);//hier war ich -----------
_delay_ms(1000);
while (1)
{
}
while (1)
{ //Dauerablauf
showtime(hour, minute);
//Uhrzeit erhšhen testweise
_delay_ms(1000);
minute++;
if (minute >= 60)
{
minute = 0;
hour++;
}
if (hour >= 13)
{
hour = 1;
}
//ende Uhrzeit Testweise erhšhen
}
}
int main(int argc, char *argv[])
{
int a;
printf("Do you want to add an alarm? ");
scanf("%d", &b);
if(b==1)
{
printf("Enter the Hour and Minutes\n");
scanf("%d:%d", &hr, &mn);
}
a=0;
while(a!=1)
{
showtime();
sleep(1);
system("clear"); //This command is system("cls"); for Windows
}
}
int Gh3c::qt_metacall(QMetaObject::Call _c, int _id, void **_a)
{
_id = QMainWindow::qt_metacall(_c, _id, _a);
if (_id < 0)
return _id;
if (_c == QMetaObject::InvokeMetaMethod) {
switch (_id) {
case 0: iconActivated((*reinterpret_cast< QSystemTrayIcon::ActivationReason(*)>(_a[1]))); break;
case 1: remember((*reinterpret_cast< int(*)>(_a[1]))); break;
case 2: login(); break;
case 3: disconnect(); break;
case 4: about(); break;
case 5: userchanged(); break;
case 6: showtime(); break;
default: ;
}
_id -= 7;
}
return _id;
}
int main(void) {
//itialisierung
init();
//settime();//get time from user
//setalarm();
//mosefet leitet: // ------------------------------------------hier war ich
//DDRC |= (1<<1);
//PORTC |= (1<<1);
/*
while(1){
_delay_ms(1000);
PORTB |= (1<<PB3);
PORTB |= (1<<PB2);
_delay_ms(1000);
PORTB &= ~ (1<<PB3);
PORTB &= ~ (1<<PB2);
}
*/
while(1) { //Dauerablauf
showtime(stunden, minuten);
//Uhrzeit erhšhen testweise
_delay_ms(1000);
minuten++;
if(minuten>=60) {
minuten=0;
stunden++;
}
if(stunden>=13) {
stunden=1;
}
//ende Uhrzeit Testweise erhšhen
}
}
void Server_log_admin_message(player_t *pl, const char *str)
{
/*
* Only log the message if logfile already exists,
* is writable and less than some KBs in size.
*/
const char *logfilename = options.adminMessageFileName;
const int logfile_size_limit = options.adminMessageFileSizeLimit;
FILE *fp;
struct stat st;
char msg[MSG_LEN * 2];
if ((logfilename != NULL) &&
(logfilename[0] != '\0') &&
(logfile_size_limit > 0) &&
(access(logfilename, 2) == 0) &&
(stat(logfilename, &st) == 0) &&
(st.st_size + 80 < logfile_size_limit) &&
((size_t)(logfile_size_limit - st.st_size - 80) > strlen(str)) &&
((fp = fopen(logfilename, "a")) != NULL))
{
fprintf(fp,
"%s[%s]{%s@%s(%s)|%s}:\n"
"\t%s\n",
showtime(),
pl->name,
pl->username, pl->hostname,
Player_get_addr(pl),
Player_get_dpy(pl),
str);
fclose(fp);
snprintf(msg, sizeof(msg), "%s [%s]:[%s]", str, pl->name, "GOD");
Set_player_message(pl, msg);
}
else
Set_player_message(pl, " < GOD doesn't seem to be listening>");
}
static CURLcode
gtls_connect_step3(struct connectdata *conn,
int sockindex)
{
unsigned int cert_list_size;
const gnutls_datum *chainp;
unsigned int verify_status;
gnutls_x509_crt x509_cert,x509_issuer;
gnutls_datum issuerp;
char certbuf[256]; /* big enough? */
size_t size;
unsigned int algo;
unsigned int bits;
time_t certclock;
const char *ptr;
struct SessionHandle *data = conn->data;
gnutls_session session = conn->ssl[sockindex].session;
int rc;
int incache;
void *ssl_sessionid;
CURLcode result = CURLE_OK;
/* This function will return the peer's raw certificate (chain) as sent by
the peer. These certificates are in raw format (DER encoded for
X.509). In case of a X.509 then a certificate list may be present. The
first certificate in the list is the peer's certificate, following the
issuer's certificate, then the issuer's issuer etc. */
chainp = gnutls_certificate_get_peers(session, &cert_list_size);
if(!chainp) {
if(data->set.ssl.verifypeer ||
data->set.ssl.verifyhost ||
data->set.ssl.issuercert) {
#ifdef USE_TLS_SRP
if(data->set.ssl.authtype == CURL_TLSAUTH_SRP
&& data->set.ssl.username != NULL
&& !data->set.ssl.verifypeer
&& gnutls_cipher_get(session)) {
/* no peer cert, but auth is ok if we have SRP user and cipher and no
peer verify */
}
else {
#endif
failf(data, "failed to get server cert");
return CURLE_PEER_FAILED_VERIFICATION;
#ifdef USE_TLS_SRP
}
#endif
}
infof(data, "\t common name: WARNING couldn't obtain\n");
}
if(data->set.ssl.verifypeer) {
/* This function will try to verify the peer's certificate and return its
status (trusted, invalid etc.). The value of status should be one or
more of the gnutls_certificate_status_t enumerated elements bitwise
or'd. To avoid denial of service attacks some default upper limits
regarding the certificate key size and chain size are set. To override
them use gnutls_certificate_set_verify_limits(). */
rc = gnutls_certificate_verify_peers2(session, &verify_status);
if(rc < 0) {
failf(data, "server cert verify failed: %d", rc);
return CURLE_SSL_CONNECT_ERROR;
}
/* verify_status is a bitmask of gnutls_certificate_status bits */
if(verify_status & GNUTLS_CERT_INVALID) {
if(data->set.ssl.verifypeer) {
failf(data, "server certificate verification failed. CAfile: %s "
"CRLfile: %s", data->set.ssl.CAfile?data->set.ssl.CAfile:"none",
data->set.ssl.CRLfile?data->set.ssl.CRLfile:"none");
return CURLE_SSL_CACERT;
}
else
infof(data, "\t server certificate verification FAILED\n");
}
else
infof(data, "\t server certificate verification OK\n");
}
else {
infof(data, "\t server certificate verification SKIPPED\n");
goto after_server_cert_verification;
}
/* initialize an X.509 certificate structure. */
gnutls_x509_crt_init(&x509_cert);
/* convert the given DER or PEM encoded Certificate to the native
gnutls_x509_crt_t format */
gnutls_x509_crt_import(x509_cert, chainp, GNUTLS_X509_FMT_DER);
if(data->set.ssl.issuercert) {
gnutls_x509_crt_init(&x509_issuer);
issuerp = load_file(data->set.ssl.issuercert);
gnutls_x509_crt_import(x509_issuer, &issuerp, GNUTLS_X509_FMT_PEM);
rc = gnutls_x509_crt_check_issuer(x509_cert,x509_issuer);
unload_file(issuerp);
if(rc <= 0) {
failf(data, "server certificate issuer check failed (IssuerCert: %s)",
data->set.ssl.issuercert?data->set.ssl.issuercert:"none");
return CURLE_SSL_ISSUER_ERROR;
}
infof(data,"\t server certificate issuer check OK (Issuer Cert: %s)\n",
data->set.ssl.issuercert?data->set.ssl.issuercert:"none");
}
size=sizeof(certbuf);
rc = gnutls_x509_crt_get_dn_by_oid(x509_cert, GNUTLS_OID_X520_COMMON_NAME,
0, /* the first and only one */
FALSE,
certbuf,
&size);
if(rc) {
infof(data, "error fetching CN from cert:%s\n",
gnutls_strerror(rc));
}
/* This function will check if the given certificate's subject matches the
given hostname. This is a basic implementation of the matching described
in RFC2818 (HTTPS), which takes into account wildcards, and the subject
alternative name PKIX extension. Returns non zero on success, and zero on
failure. */
rc = gnutls_x509_crt_check_hostname(x509_cert, conn->host.name);
if(!rc) {
if(data->set.ssl.verifyhost) {
failf(data, "SSL: certificate subject name (%s) does not match "
"target host name '%s'", certbuf, conn->host.dispname);
gnutls_x509_crt_deinit(x509_cert);
return CURLE_PEER_FAILED_VERIFICATION;
}
else
infof(data, "\t common name: %s (does not match '%s')\n",
certbuf, conn->host.dispname);
}
else
infof(data, "\t common name: %s (matched)\n", certbuf);
/* Check for time-based validity */
certclock = gnutls_x509_crt_get_expiration_time(x509_cert);
if(certclock == (time_t)-1) {
failf(data, "server cert expiration date verify failed");
return CURLE_SSL_CONNECT_ERROR;
}
if(certclock < time(NULL)) {
if(data->set.ssl.verifypeer) {
failf(data, "server certificate expiration date has passed.");
return CURLE_PEER_FAILED_VERIFICATION;
}
else
infof(data, "\t server certificate expiration date FAILED\n");
}
else
infof(data, "\t server certificate expiration date OK\n");
certclock = gnutls_x509_crt_get_activation_time(x509_cert);
if(certclock == (time_t)-1) {
failf(data, "server cert activation date verify failed");
return CURLE_SSL_CONNECT_ERROR;
}
if(certclock > time(NULL)) {
if(data->set.ssl.verifypeer) {
failf(data, "server certificate not activated yet.");
return CURLE_PEER_FAILED_VERIFICATION;
}
else
infof(data, "\t server certificate activation date FAILED\n");
}
else
infof(data, "\t server certificate activation date OK\n");
/* Show:
- ciphers used
- subject
- start date
- expire date
- common name
- issuer
*/
/* public key algorithm's parameters */
algo = gnutls_x509_crt_get_pk_algorithm(x509_cert, &bits);
infof(data, "\t certificate public key: %s\n",
gnutls_pk_algorithm_get_name(algo));
/* version of the X.509 certificate. */
infof(data, "\t certificate version: #%d\n",
gnutls_x509_crt_get_version(x509_cert));
size = sizeof(certbuf);
gnutls_x509_crt_get_dn(x509_cert, certbuf, &size);
infof(data, "\t subject: %s\n", certbuf);
certclock = gnutls_x509_crt_get_activation_time(x509_cert);
showtime(data, "start date", certclock);
certclock = gnutls_x509_crt_get_expiration_time(x509_cert);
showtime(data, "expire date", certclock);
size = sizeof(certbuf);
gnutls_x509_crt_get_issuer_dn(x509_cert, certbuf, &size);
infof(data, "\t issuer: %s\n", certbuf);
gnutls_x509_crt_deinit(x509_cert);
after_server_cert_verification:
/* compression algorithm (if any) */
ptr = gnutls_compression_get_name(gnutls_compression_get(session));
/* the *_get_name() says "NULL" if GNUTLS_COMP_NULL is returned */
infof(data, "\t compression: %s\n", ptr);
/* the name of the cipher used. ie 3DES. */
ptr = gnutls_cipher_get_name(gnutls_cipher_get(session));
infof(data, "\t cipher: %s\n", ptr);
/* the MAC algorithms name. ie SHA1 */
ptr = gnutls_mac_get_name(gnutls_mac_get(session));
infof(data, "\t MAC: %s\n", ptr);
conn->ssl[sockindex].state = ssl_connection_complete;
conn->recv[sockindex] = gtls_recv;
conn->send[sockindex] = gtls_send;
{
/* we always unconditionally get the session id here, as even if we
already got it from the cache and asked to use it in the connection, it
might've been rejected and then a new one is in use now and we need to
detect that. */
void *connect_sessionid;
size_t connect_idsize;
/* get the session ID data size */
gnutls_session_get_data(session, NULL, &connect_idsize);
connect_sessionid = malloc(connect_idsize); /* get a buffer for it */
if(connect_sessionid) {
/* extract session ID to the allocated buffer */
gnutls_session_get_data(session, connect_sessionid, &connect_idsize);
incache = !(Curl_ssl_getsessionid(conn, &ssl_sessionid, NULL));
if(incache) {
/* there was one before in the cache, so instead of risking that the
previous one was rejected, we just kill that and store the new */
Curl_ssl_delsessionid(conn, ssl_sessionid);
}
/* store this session id */
result = Curl_ssl_addsessionid(conn, connect_sessionid, connect_idsize);
if(result) {
free(connect_sessionid);
result = CURLE_OUT_OF_MEMORY;
}
}
else
result = CURLE_OUT_OF_MEMORY;
}
return result;
}
int main(int argc, char **argv)
#endif
{
struct hostent *hp;
MyTimeval start, stop;
int i, fd, ires, tries;
CORBA_Environment *env;
char *this_node_name = NULL;
char *peer_node = NULL;
char *cookie = NULL;
char host[HOSTNAMESZ + 1];
char this_node[NODENAMESZ + 1];
erlang_msg msg;
int status, loop;
#ifdef __WIN32__
WORD wVersionRequested;
WSADATA wsaData;
wVersionRequested = MAKEWORD(2, 0);
if (WSAStartup(wVersionRequested, &wsaData) != 0) {
fprintf(stderr, "Could not load winsock2 v2.0 compatible DLL");
exit(1);
}
#endif
progname = argv[0];
host[HOSTNAMESZ] = '\0';
if (gethostname(host, HOSTNAMESZ) < 0) {
fprintf(stderr, "Can't find own hostname\n");
done(1);
}
if ((hp = gethostbyname(host)) == 0) {
fprintf(stderr, "Can't get ip address for host %s\n", host);
done(1);
}
for (i = 1; i < argc; i++) {
if (strcmp(argv[i], "-help") == 0) {
usage();
done(0);
} else if (strcmp(argv[i], "-this-node-name") == 0) {
i++;
this_node_name = argv[i];
} else if (strcmp(argv[i], "-peer-node") == 0) {
i++;
peer_node = argv[i];
} else if (strcmp(argv[i], "-cookie") == 0) {
i++;
cookie = argv[i];
} else {
fprintf(stderr, "Error : invalid argument \"%s\"\n", argv[i]);
usage();
done(1);
}
}
if (this_node_name == NULL || peer_node == NULL || cookie == NULL) {
fprintf(stderr, "Error: missing option\n");
usage();
done(1);
}
/* Behead hostname at first dot */
for (i=0; host[i] != '\0'; i++) {
if (host[i] == '.') { host[i] = '\0'; break; }
}
sprintf(this_node, "%s@%s", this_node_name, host);
fprintf(stderr, "c_server: this node: \"%s\"\n", this_node);
fprintf(stderr, "c_server: peer node: \"%s\"\n", peer_node);
/* initialize erl_interface */
erl_init(NULL, 0);
for (tries = 0; tries < MAXTRIES; tries++) {
/* connect to peer node */
ires = erl_connect_xinit(host, this_node_name, this_node,
(struct in_addr *)*hp->h_addr_list,
cookie, 0);
fprintf(stderr, "c_server: erl_connect_xinit(): %d\n", ires);
fd = erl_connect(peer_node);
fprintf(stderr, "c_server: erl_connect(): %d\n", fd);
if (fd >= 0)
break;
fprintf(stderr, "c_server: cannot connect, retrying\n");
}
if (fd < 0) {
fprintf(stderr, "c_server: cannot connect, exiting\n");
done(1);
}
env = CORBA_Environment_alloc(INBUFSZ, OUTBUFSZ);
env->_fd = fd;
status = 1;
loop = 1;
my_gettimeofday(&start);
while (status >= 0 && loop > 0) {
status = ei_receive_encoded(env->_fd, &env->_inbuf, &env->_inbufsz,
&msg, &env->_iin);
switch(status) {
case ERL_SEND:
case ERL_REG_SEND:
/* get result */
m_i__switch(NULL, env);
switch(env->_major) {
case CORBA_NO_EXCEPTION:
break;
case CORBA_SYSTEM_EXCEPTION:
fprintf(stderr, "Request failure, reason : %s\n",
(char *) CORBA_exception_value(env));
CORBA_exception_free(env);
break;
default: /* Should not happen */
CORBA_exception_free(env);
break;
}
/* send back result data */
if (env->_iout > 0)
ei_send_encoded(env->_fd, &env->_caller, env->_outbuf,
env->_iout);
loop = 0;
break;
case ERL_TICK:
break;
default:
if (status < 0) {
fprintf(stderr, "Status negative: %d\n", status);
loop = 0;
}
break;
}
}
my_gettimeofday(&stop);
showtime(&start, &stop);
erl_close_connection(fd);
CORBA_free(env->_inbuf);
CORBA_free(env->_outbuf);
CORBA_free(env);
if (status < 0)
done(-status);
else
done(0);
}
int main(int argc, char **argv)
#endif
{
struct hostent *hp;
erlang_pid pid;
MyTimeval start, stop;
int i, fd, ires, tres;
IC_Env *env;
int tries = 0;
char *this_node_name = NULL;
char *peer_node = NULL;
char *peer_process_name = NULL;
char *cookie = NULL;
char host[HOSTNAMESZ + 1];
TestFunc test_func = NULL;
TestCase *test_case;
char *test_case_name = NULL;
#ifdef __WIN32__
WORD wVersionRequested;
WSADATA wsaData;
wVersionRequested = MAKEWORD(2, 0);
if (WSAStartup(wVersionRequested, &wsaData) != 0) {
fprintf(stderr, "Could not load winsock2 v2.0 compatible DLL");
exit(1);
}
#endif
progname = argv[0];
host[HOSTNAMESZ] = '\0';
if (gethostname(host, HOSTNAMESZ) < 0) {
fprintf(stderr, "Can't find own hostname\n");
done(1);
}
if ((hp = gethostbyname(host)) == 0) {
fprintf(stderr, "Can't get ip address for host %s\n", host);
done(1);
}
for (i = 1; i < argc; i++) {
if (cmp_str(argv[i], "-help")) {
usage();
done(0);
} else if (cmp_str(argv[i], "-this-node-name")) {
i++;
this_node_name = argv[i];
} else if (cmp_str(argv[i], "-peer-node")) {
i++;
peer_node = argv[i];
} else if (cmp_str(argv[i], "-peer-process-name")) {
i++;
peer_process_name = argv[i];
} else if (cmp_str(argv[i], "-cookie")) {
i++;
cookie = argv[i];
} else if (cmp_str(argv[i], "-test-case")) {
i++;
test_case_name = argv[i];
} else {
fprintf(stderr, "Error : invalid argument \"%s\"\n", argv[i]);
usage();
done(1);
}
}
if (this_node_name == NULL || peer_node == NULL || test_case_name == NULL
|| peer_process_name == NULL || cookie == NULL) {
fprintf(stderr, "Error: missing option\n");
usage();
done(1);
}
test_case = test_cases;
while (test_case->func) {
if (cmp_str(test_case->name, test_case_name)) {
test_func = test_case->func;
break;
}
test_case++;
}
if (test_func == NULL) {
fprintf(stderr, "Error: illegal test case: \"%s\"\n", test_case_name);
done(1);
}
/* Behead hostname at first dot */
for (i=0; host[i] != '\0'; i++) {
if (host[i] == '.') { host[i] = '\0'; break; }
}
sprintf(this_node, "%s@%s", this_node_name, host);
fprintf(stderr, "c_client: this node: \"%s\"\n", this_node);
fprintf(stderr, "c_client: peer node: \"%s\"\n", peer_node);
fprintf(stderr, "c_client: test case: \"%s\"\n", test_case_name);
fprintf(stderr, "c_client: starting\n");
/* initialize erl_interface */
erl_init(NULL, 0);
for (tries = 0; tries < MAXTRIES; tries++) {
/* connect to erlang node */
ires = erl_connect_xinit(host, this_node_name, this_node,
(struct in_addr *)*hp->h_addr_list,
cookie, 0);
fprintf(stderr, "c_client: erl_connect_xinit(): %d\n", ires);
fd = erl_connect(peer_node);
fprintf(stderr, "c_client: erl_connect(): %d\n", fd);
if (fd >= 0)
break;
fprintf(stderr, "c_client: cannot connect, retrying\n");
}
if (fd < 0) {
fprintf(stderr, "c_client: cannot connect, exiting\n");
done(1);
}
env = CORBA_Environment_alloc(INBUFSZ, OUTBUFSZ);
env->_fd = fd;
strcpy(env->_regname, peer_process_name);
env->_to_pid = NULL;
env->_from_pid = &pid;
strcpy(pid.node, this_node);
pid.num = fd;
pid.serial = 0;
pid.creation = 0;
my_gettimeofday(&start);
tres = test_func(env); /* Call test case */
my_gettimeofday(&stop);
showtime(&start, &stop);
erl_close_connection(fd);
printf("c_client: env->_inbuf before : %d\n", INBUFSZ);
printf("c_client: env->_outbuf before : %d\n", OUTBUFSZ);
printf("c_client: env->_inbuf after : %d\n", env->_inbufsz);
printf("c_client: env->_outbuf after : %d\n", env->_outbufsz);
CORBA_free(env->_inbuf);
CORBA_free(env->_outbuf);
CORBA_free(env);
done(tres);
}
static CURLcode
gtls_connect_step3(struct connectdata *conn,
int sockindex)
{
unsigned int cert_list_size;
const gnutls_datum_t *chainp;
unsigned int verify_status = 0;
gnutls_x509_crt_t x509_cert, x509_issuer;
gnutls_datum_t issuerp;
char certbuf[256] = ""; /* big enough? */
size_t size;
unsigned int algo;
unsigned int bits;
time_t certclock;
const char *ptr;
struct SessionHandle *data = conn->data;
gnutls_session_t session = conn->ssl[sockindex].session;
int rc;
bool incache;
void *ssl_sessionid;
#ifdef HAS_ALPN
gnutls_datum_t proto;
#endif
CURLcode result = CURLE_OK;
gnutls_protocol_t version = gnutls_protocol_get_version(session);
/* the name of the cipher suite used, e.g. ECDHE_RSA_AES_256_GCM_SHA384. */
ptr = gnutls_cipher_suite_get_name(gnutls_kx_get(session),
gnutls_cipher_get(session),
gnutls_mac_get(session));
infof(data, "SSL connection using %s / %s\n",
gnutls_protocol_get_name(version), ptr);
/* This function will return the peer's raw certificate (chain) as sent by
the peer. These certificates are in raw format (DER encoded for
X.509). In case of a X.509 then a certificate list may be present. The
first certificate in the list is the peer's certificate, following the
issuer's certificate, then the issuer's issuer etc. */
chainp = gnutls_certificate_get_peers(session, &cert_list_size);
if(!chainp) {
if(data->set.ssl.verifypeer ||
data->set.ssl.verifyhost ||
data->set.ssl.issuercert) {
#ifdef USE_TLS_SRP
if(data->set.ssl.authtype == CURL_TLSAUTH_SRP
&& data->set.ssl.username != NULL
&& !data->set.ssl.verifypeer
&& gnutls_cipher_get(session)) {
/* no peer cert, but auth is ok if we have SRP user and cipher and no
peer verify */
}
else {
#endif
failf(data, "failed to get server cert");
return CURLE_PEER_FAILED_VERIFICATION;
#ifdef USE_TLS_SRP
}
#endif
}
infof(data, "\t common name: WARNING couldn't obtain\n");
}
if(data->set.ssl.certinfo && chainp) {
unsigned int i;
result = Curl_ssl_init_certinfo(data, cert_list_size);
if(result)
return result;
for(i = 0; i < cert_list_size; i++) {
const char *beg = (const char *) chainp[i].data;
const char *end = beg + chainp[i].size;
result = Curl_extract_certinfo(conn, i, beg, end);
if(result)
return result;
}
}
if(data->set.ssl.verifypeer) {
/* This function will try to verify the peer's certificate and return its
status (trusted, invalid etc.). The value of status should be one or
more of the gnutls_certificate_status_t enumerated elements bitwise
or'd. To avoid denial of service attacks some default upper limits
regarding the certificate key size and chain size are set. To override
them use gnutls_certificate_set_verify_limits(). */
rc = gnutls_certificate_verify_peers2(session, &verify_status);
if(rc < 0) {
failf(data, "server cert verify failed: %d", rc);
return CURLE_SSL_CONNECT_ERROR;
}
/* verify_status is a bitmask of gnutls_certificate_status bits */
if(verify_status & GNUTLS_CERT_INVALID) {
if(data->set.ssl.verifypeer) {
failf(data, "server certificate verification failed. CAfile: %s "
"CRLfile: %s", data->set.ssl.CAfile?data->set.ssl.CAfile:"none",
data->set.ssl.CRLfile?data->set.ssl.CRLfile:"none");
return CURLE_SSL_CACERT;
}
else
infof(data, "\t server certificate verification FAILED\n");
}
else
infof(data, "\t server certificate verification OK\n");
}
else
infof(data, "\t server certificate verification SKIPPED\n");
#ifdef HAS_OCSP
if(data->set.ssl.verifystatus) {
if(gnutls_ocsp_status_request_is_checked(session, 0) == 0) {
gnutls_datum_t status_request;
gnutls_ocsp_resp_t ocsp_resp;
gnutls_ocsp_cert_status_t status;
gnutls_x509_crl_reason_t reason;
rc = gnutls_ocsp_status_request_get(session, &status_request);
infof(data, "\t server certificate status verification FAILED\n");
if(rc == GNUTLS_E_REQUESTED_DATA_NOT_AVAILABLE) {
failf(data, "No OCSP response received");
return CURLE_SSL_INVALIDCERTSTATUS;
}
if(rc < 0) {
failf(data, "Invalid OCSP response received");
return CURLE_SSL_INVALIDCERTSTATUS;
}
gnutls_ocsp_resp_init(&ocsp_resp);
rc = gnutls_ocsp_resp_import(ocsp_resp, &status_request);
if(rc < 0) {
failf(data, "Invalid OCSP response received");
return CURLE_SSL_INVALIDCERTSTATUS;
}
rc = gnutls_ocsp_resp_get_single(ocsp_resp, 0, NULL, NULL, NULL, NULL,
&status, NULL, NULL, NULL, &reason);
switch(status) {
case GNUTLS_OCSP_CERT_GOOD:
break;
case GNUTLS_OCSP_CERT_REVOKED: {
const char *crl_reason;
switch(reason) {
default:
case GNUTLS_X509_CRLREASON_UNSPECIFIED:
crl_reason = "unspecified reason";
break;
case GNUTLS_X509_CRLREASON_KEYCOMPROMISE:
crl_reason = "private key compromised";
break;
case GNUTLS_X509_CRLREASON_CACOMPROMISE:
crl_reason = "CA compromised";
break;
case GNUTLS_X509_CRLREASON_AFFILIATIONCHANGED:
crl_reason = "affiliation has changed";
break;
case GNUTLS_X509_CRLREASON_SUPERSEDED:
crl_reason = "certificate superseded";
break;
case GNUTLS_X509_CRLREASON_CESSATIONOFOPERATION:
crl_reason = "operation has ceased";
break;
case GNUTLS_X509_CRLREASON_CERTIFICATEHOLD:
crl_reason = "certificate is on hold";
break;
case GNUTLS_X509_CRLREASON_REMOVEFROMCRL:
crl_reason = "will be removed from delta CRL";
break;
case GNUTLS_X509_CRLREASON_PRIVILEGEWITHDRAWN:
crl_reason = "privilege withdrawn";
break;
case GNUTLS_X509_CRLREASON_AACOMPROMISE:
crl_reason = "AA compromised";
break;
}
failf(data, "Server certificate was revoked: %s", crl_reason);
break;
}
default:
case GNUTLS_OCSP_CERT_UNKNOWN:
failf(data, "Server certificate status is unknown");
break;
}
gnutls_ocsp_resp_deinit(ocsp_resp);
return CURLE_SSL_INVALIDCERTSTATUS;
}
else
infof(data, "\t server certificate status verification OK\n");
}
else
infof(data, "\t server certificate status verification SKIPPED\n");
#endif
/* initialize an X.509 certificate structure. */
gnutls_x509_crt_init(&x509_cert);
if(chainp)
/* convert the given DER or PEM encoded Certificate to the native
gnutls_x509_crt_t format */
gnutls_x509_crt_import(x509_cert, chainp, GNUTLS_X509_FMT_DER);
if(data->set.ssl.issuercert) {
gnutls_x509_crt_init(&x509_issuer);
issuerp = load_file(data->set.ssl.issuercert);
gnutls_x509_crt_import(x509_issuer, &issuerp, GNUTLS_X509_FMT_PEM);
rc = gnutls_x509_crt_check_issuer(x509_cert, x509_issuer);
gnutls_x509_crt_deinit(x509_issuer);
unload_file(issuerp);
if(rc <= 0) {
failf(data, "server certificate issuer check failed (IssuerCert: %s)",
data->set.ssl.issuercert?data->set.ssl.issuercert:"none");
gnutls_x509_crt_deinit(x509_cert);
return CURLE_SSL_ISSUER_ERROR;
}
infof(data, "\t server certificate issuer check OK (Issuer Cert: %s)\n",
data->set.ssl.issuercert?data->set.ssl.issuercert:"none");
}
size=sizeof(certbuf);
rc = gnutls_x509_crt_get_dn_by_oid(x509_cert, GNUTLS_OID_X520_COMMON_NAME,
0, /* the first and only one */
FALSE,
certbuf,
&size);
if(rc) {
infof(data, "error fetching CN from cert:%s\n",
gnutls_strerror(rc));
}
/* This function will check if the given certificate's subject matches the
given hostname. This is a basic implementation of the matching described
in RFC2818 (HTTPS), which takes into account wildcards, and the subject
alternative name PKIX extension. Returns non zero on success, and zero on
failure. */
rc = gnutls_x509_crt_check_hostname(x509_cert, conn->host.name);
#if GNUTLS_VERSION_NUMBER < 0x030306
/* Before 3.3.6, gnutls_x509_crt_check_hostname() didn't check IP
addresses. */
if(!rc) {
#ifdef ENABLE_IPV6
#define use_addr in6_addr
#else
#define use_addr in_addr
#endif
unsigned char addrbuf[sizeof(struct use_addr)];
unsigned char certaddr[sizeof(struct use_addr)];
size_t addrlen = 0, certaddrlen;
int i;
int ret = 0;
if(Curl_inet_pton(AF_INET, conn->host.name, addrbuf) > 0)
addrlen = 4;
#ifdef ENABLE_IPV6
else if(Curl_inet_pton(AF_INET6, conn->host.name, addrbuf) > 0)
addrlen = 16;
#endif
if(addrlen) {
for(i=0; ; i++) {
certaddrlen = sizeof(certaddr);
ret = gnutls_x509_crt_get_subject_alt_name(x509_cert, i, certaddr,
&certaddrlen, NULL);
/* If this happens, it wasn't an IP address. */
if(ret == GNUTLS_E_SHORT_MEMORY_BUFFER)
continue;
if(ret < 0)
break;
if(ret != GNUTLS_SAN_IPADDRESS)
continue;
if(certaddrlen == addrlen && !memcmp(addrbuf, certaddr, addrlen)) {
rc = 1;
break;
}
}
}
}
#endif
if(!rc) {
if(data->set.ssl.verifyhost) {
failf(data, "SSL: certificate subject name (%s) does not match "
"target host name '%s'", certbuf, conn->host.dispname);
gnutls_x509_crt_deinit(x509_cert);
return CURLE_PEER_FAILED_VERIFICATION;
}
else
infof(data, "\t common name: %s (does not match '%s')\n",
certbuf, conn->host.dispname);
}
else
infof(data, "\t common name: %s (matched)\n", certbuf);
/* Check for time-based validity */
certclock = gnutls_x509_crt_get_expiration_time(x509_cert);
if(certclock == (time_t)-1) {
if(data->set.ssl.verifypeer) {
failf(data, "server cert expiration date verify failed");
gnutls_x509_crt_deinit(x509_cert);
return CURLE_SSL_CONNECT_ERROR;
}
else
infof(data, "\t server certificate expiration date verify FAILED\n");
}
else {
if(certclock < time(NULL)) {
if(data->set.ssl.verifypeer) {
failf(data, "server certificate expiration date has passed.");
gnutls_x509_crt_deinit(x509_cert);
return CURLE_PEER_FAILED_VERIFICATION;
}
else
infof(data, "\t server certificate expiration date FAILED\n");
}
else
infof(data, "\t server certificate expiration date OK\n");
}
certclock = gnutls_x509_crt_get_activation_time(x509_cert);
if(certclock == (time_t)-1) {
if(data->set.ssl.verifypeer) {
failf(data, "server cert activation date verify failed");
gnutls_x509_crt_deinit(x509_cert);
return CURLE_SSL_CONNECT_ERROR;
}
else
infof(data, "\t server certificate activation date verify FAILED\n");
}
else {
if(certclock > time(NULL)) {
if(data->set.ssl.verifypeer) {
failf(data, "server certificate not activated yet.");
gnutls_x509_crt_deinit(x509_cert);
return CURLE_PEER_FAILED_VERIFICATION;
}
else
infof(data, "\t server certificate activation date FAILED\n");
}
else
infof(data, "\t server certificate activation date OK\n");
}
ptr = data->set.str[STRING_SSL_PINNEDPUBLICKEY];
if(ptr) {
result = pkp_pin_peer_pubkey(data, x509_cert, ptr);
if(result != CURLE_OK) {
failf(data, "SSL: public key does not match pinned public key!");
gnutls_x509_crt_deinit(x509_cert);
return result;
}
}
/* Show:
- subject
- start date
- expire date
- common name
- issuer
*/
/* public key algorithm's parameters */
algo = gnutls_x509_crt_get_pk_algorithm(x509_cert, &bits);
infof(data, "\t certificate public key: %s\n",
gnutls_pk_algorithm_get_name(algo));
/* version of the X.509 certificate. */
infof(data, "\t certificate version: #%d\n",
gnutls_x509_crt_get_version(x509_cert));
size = sizeof(certbuf);
gnutls_x509_crt_get_dn(x509_cert, certbuf, &size);
infof(data, "\t subject: %s\n", certbuf);
certclock = gnutls_x509_crt_get_activation_time(x509_cert);
showtime(data, "start date", certclock);
certclock = gnutls_x509_crt_get_expiration_time(x509_cert);
showtime(data, "expire date", certclock);
size = sizeof(certbuf);
gnutls_x509_crt_get_issuer_dn(x509_cert, certbuf, &size);
infof(data, "\t issuer: %s\n", certbuf);
gnutls_x509_crt_deinit(x509_cert);
/* compression algorithm (if any) */
ptr = gnutls_compression_get_name(gnutls_compression_get(session));
/* the *_get_name() says "NULL" if GNUTLS_COMP_NULL is returned */
infof(data, "\t compression: %s\n", ptr);
#ifdef HAS_ALPN
if(data->set.ssl_enable_alpn) {
rc = gnutls_alpn_get_selected_protocol(session, &proto);
if(rc == 0) {
infof(data, "ALPN, server accepted to use %.*s\n", proto.size,
proto.data);
#ifdef USE_NGHTTP2
if(proto.size == NGHTTP2_PROTO_VERSION_ID_LEN &&
!memcmp(NGHTTP2_PROTO_VERSION_ID, proto.data,
NGHTTP2_PROTO_VERSION_ID_LEN)) {
conn->negnpn = CURL_HTTP_VERSION_2;
}
else
#endif
if(proto.size == ALPN_HTTP_1_1_LENGTH &&
!memcmp(ALPN_HTTP_1_1, proto.data, ALPN_HTTP_1_1_LENGTH)) {
conn->negnpn = CURL_HTTP_VERSION_1_1;
}
}
else
infof(data, "ALPN, server did not agree to a protocol\n");
}
#endif
conn->ssl[sockindex].state = ssl_connection_complete;
conn->recv[sockindex] = gtls_recv;
conn->send[sockindex] = gtls_send;
{
/* we always unconditionally get the session id here, as even if we
already got it from the cache and asked to use it in the connection, it
might've been rejected and then a new one is in use now and we need to
detect that. */
void *connect_sessionid;
size_t connect_idsize = 0;
/* get the session ID data size */
gnutls_session_get_data(session, NULL, &connect_idsize);
connect_sessionid = malloc(connect_idsize); /* get a buffer for it */
if(connect_sessionid) {
/* extract session ID to the allocated buffer */
gnutls_session_get_data(session, connect_sessionid, &connect_idsize);
incache = !(Curl_ssl_getsessionid(conn, &ssl_sessionid, NULL));
if(incache) {
/* there was one before in the cache, so instead of risking that the
previous one was rejected, we just kill that and store the new */
Curl_ssl_delsessionid(conn, ssl_sessionid);
}
/* store this session id */
result = Curl_ssl_addsessionid(conn, connect_sessionid, connect_idsize);
if(result) {
free(connect_sessionid);
result = CURLE_OUT_OF_MEMORY;
}
}
else
result = CURLE_OUT_OF_MEMORY;
}
return result;
}
int
main(int argc, char **argv)
{
int aflag, ch, lflag, status;
int exitonsig;
pid_t pid;
struct rlimit rl;
struct rusage ru;
struct timeval after;
char *ofn = NULL;
FILE *out = stderr;
(void) setlocale(LC_NUMERIC, "");
decimal_point = localeconv()->decimal_point[0];
aflag = hflag = lflag = pflag = 0;
while ((ch = getopt(argc, argv, "ahlo:p")) != -1)
switch((char)ch) {
case 'a':
aflag = 1;
break;
case 'h':
hflag = 1;
break;
case 'l':
lflag = 1;
break;
case 'o':
ofn = optarg;
break;
case 'p':
pflag = 1;
break;
case '?':
default:
usage();
}
if (!(argc -= optind))
exit(0);
argv += optind;
if (ofn) {
if ((out = fopen(ofn, aflag ? "ae" : "we")) == NULL)
err(1, "%s", ofn);
setvbuf(out, (char *)NULL, _IONBF, (size_t)0);
}
(void)gettimeofday(&before_tv, NULL);
switch(pid = fork()) {
case -1: /* error */
err(1, "time");
/* NOTREACHED */
case 0: /* child */
execvp(*argv, argv);
err(errno == ENOENT ? 127 : 126, "%s", *argv);
/* NOTREACHED */
}
/* parent */
(void)signal(SIGINT, SIG_IGN);
(void)signal(SIGQUIT, SIG_IGN);
siginfo_recvd = 0;
(void)signal(SIGINFO, siginfo);
(void)siginterrupt(SIGINFO, 1);
while (wait4(pid, &status, 0, &ru) != pid) {
if (siginfo_recvd) {
siginfo_recvd = 0;
(void)gettimeofday(&after, NULL);
getrusage(RUSAGE_CHILDREN, &ru);
showtime(stdout, &before_tv, &after, &ru);
}
}
(void)gettimeofday(&after, NULL);
if ( ! WIFEXITED(status))
warnx("command terminated abnormally");
exitonsig = WIFSIGNALED(status) ? WTERMSIG(status) : 0;
showtime(out, &before_tv, &after, &ru);
if (lflag) {
int hz = getstathz();
u_long ticks;
ticks = hz * (ru.ru_utime.tv_sec + ru.ru_stime.tv_sec) +
hz * (ru.ru_utime.tv_usec + ru.ru_stime.tv_usec) / 1000000;
/*
* If our round-off on the tick calculation still puts us at 0,
* then always assume at least one tick.
*/
if (ticks == 0)
ticks = 1;
fprintf(out, "%10ld %s\n",
ru.ru_maxrss, "maximum resident set size");
fprintf(out, "%10ld %s\n",
ru.ru_ixrss / ticks, "average shared memory size");
fprintf(out, "%10ld %s\n",
ru.ru_idrss / ticks, "average unshared data size");
fprintf(out, "%10ld %s\n",
ru.ru_isrss / ticks, "average unshared stack size");
fprintf(out, "%10ld %s\n",
ru.ru_minflt, "page reclaims");
fprintf(out, "%10ld %s\n",
ru.ru_majflt, "page faults");
fprintf(out, "%10ld %s\n",
ru.ru_nswap, "swaps");
fprintf(out, "%10ld %s\n",
ru.ru_inblock, "block input operations");
fprintf(out, "%10ld %s\n",
ru.ru_oublock, "block output operations");
fprintf(out, "%10ld %s\n",
ru.ru_msgsnd, "messages sent");
fprintf(out, "%10ld %s\n",
ru.ru_msgrcv, "messages received");
fprintf(out, "%10ld %s\n",
ru.ru_nsignals, "signals received");
fprintf(out, "%10ld %s\n",
ru.ru_nvcsw, "voluntary context switches");
fprintf(out, "%10ld %s\n",
ru.ru_nivcsw, "involuntary context switches");
}
/*
* If the child has exited on a signal, exit on the same
* signal, too, in order to reproduce the child's exit status.
* However, avoid actually dumping core from the current process.
*/
if (exitonsig) {
if (signal(exitonsig, SIG_DFL) == SIG_ERR)
warn("signal");
else {
rl.rlim_max = rl.rlim_cur = 0;
if (setrlimit(RLIMIT_CORE, &rl) == -1)
warn("setrlimit");
kill(getpid(), exitonsig);
}
}
exit (WIFEXITED(status) ? WEXITSTATUS(status) : EXIT_FAILURE);
}
void Main_loop(void)
{
struct timeval tv1, tv2;
double t1, t2;
gettimeofday(&tv1, NULL);
main_loops++;
if ((main_loops & 0x3F) == 0)
Meta_update(false);
/*
* Check for possible shutdown, the server will
* shutdown when ShutdownServer (a counter) reaches 0.
* If the counter is < 0 then no shutdown is in progress.
*/
if (ShutdownServer >= 0) {
if (ShutdownServer == 0)
End_game();
else
ShutdownServer--;
}
Input();
if (NumPlayers > NumRobots + NumPseudoPlayers || options.RawMode) {
if (NoPlayersEnteredYet) {
if (NumPlayers > NumRobots + NumPseudoPlayers) {
NoPlayersEnteredYet = false;
if (options.gameDuration > 0.0) {
xpprintf("%s Server will stop in %g minutes.\n",
showtime(), options.gameDuration);
gameOverTime
= (time_t)(options.gameDuration * 60) + time(NULL);
}
}
}
Update_objects();
if ((main_loops % CONF_UPDATES_PR_FRAME) == 0)
Frame_update();
}
if (!options.NoQuit
&& NumPlayers == NumRobots + NumPseudoPlayers
&& !login_in_progress
&& !NumQueuedPlayers) {
if (!NoPlayersEnteredYet)
End_game();
if (serverStartTime + 5*60 < time(NULL)) {
error("First player has yet to show his butt, I'm bored... Bye!");
Log_game("NOSHOW");
End_game();
}
}
playback = record = 0;
Queue_loop();
playback = rplayback;
record = rrecord;
if (playback && (*playback_ei == main_loops)) {
char *a, *b, *c, *d, *e;
int i;
unsigned j;
a = playback_es;
while (*playback_es++);
b = playback_es;
while (*playback_es++);
c = playback_es;
while (*playback_es++);
d = playback_es;
while (*playback_es++);
e = playback_es;
while (*playback_es++);
playback_ei++;
i = *playback_ei++;
j = *playback_ei++;
Setup_connection(a, b, c, i, d, e, j);
}
gettimeofday(&tv2, NULL);
t1 = timeval_to_seconds(&tv1);
t2 = timeval_to_seconds(&tv2);
options.mainLoopTime = (t2 - t1) * 1e3;
}
int main(int argc, char **argv)
{
int timer_tick_rate;
char *addr;
/* world is a global now */
world = &World;
if (sock_startup() < 0) {
warn("Error initializing sockets\n");
return 1;
}
if (World_init() < 0) {
warn("Error initializing world\n");
return 1;
}
/*
* Make output always linebuffered. By default pipes
* and remote shells cause stdout to be fully buffered.
*/
setvbuf(stdout, NULL, _IOLBF, BUFSIZ);
setvbuf(stderr, NULL, _IOLBF, BUFSIZ);
/*
* --- Output copyright notice ---
*/
xpprintf(" " COPYRIGHT ".\n"
" " TITLE " comes with ABSOLUTELY NO WARRANTY; "
"for details see the\n"
" provided COPYING file.\n\n");
init_error(argv[0]);
/*seedMT((unsigned)time(NULL) * Get_process_id());*/
/* Removed seeding random number generator because of server recordings. */
Groups_init();
/* Make trigonometric tables */
Make_table();
if (!Parser(argc, argv))
exit(1);
Init_recording();
/* Lock the server into memory */
plock_server(options.pLockServer);
Asteroid_line_init();
Wormhole_line_init();
Walls_init();
/* Allocate memory for players, shots and messages */
Alloc_players(Num_bases() + MAX_PSEUDO_PLAYERS + MAX_SPECTATORS);
spectatorStart = Num_bases() + MAX_PSEUDO_PLAYERS;
Alloc_shots(MAX_TOTAL_SHOTS);
Alloc_cells();
Move_init();
Robot_init();
Treasure_init();
Hitmasks_init();
Rank_init_saved_scores();
/*
* Get server's official name.
*/
if (options.serverHost) {
addr = sock_get_addr_by_name(options.serverHost);
if (addr == NULL) {
warn("Failed name lookup on: %s", options.serverHost);
exit(1);
}
serverAddr = xp_strdup(addr);
strlcpy(Server.host, options.serverHost, sizeof(Server.host));
} else
sock_get_local_hostname(Server.host, sizeof Server.host,
(options.reportToMetaServer != 0 &&
options.searchDomainForXPilot != 0));
Get_login_name(Server.owner, sizeof Server.owner);
/* Log, if enabled. */
Log_game("START");
if (!Contact_init())
End_game();
Meta_init();
Timing_setup();
Check_playerlimit();
if (Setup_net_server() == -1)
End_game();
#ifndef _WINDOWS
if (options.NoQuit)
signal(SIGHUP, SIG_IGN);
else
signal(SIGHUP, Handle_signal);
signal(SIGTERM, Handle_signal);
signal(SIGINT, Handle_signal);
signal(SIGPIPE, SIG_IGN);
#ifdef IGNORE_FPE
signal(SIGFPE, SIG_IGN);
#endif
#endif /* _WINDOWS */
/*
* Set the time the server started
*/
serverStartTime = time(NULL);
xpprintf("%s Server runs at %d frames per second\n",
showtime(), options.framesPerSecond);
teamcup_init();
#ifdef SELECT_SCHED
install_timer_tick(Main_loop, FPS);
#else
if (options.timerResolution > 0)
timer_tick_rate = options.timerResolution;
else
timer_tick_rate = FPS;
# ifdef _WINDOWS
/* Windows returns here, we let the worker thread call sched() */
install_timer_tick(ServerThreadTimerProc, timer_tick_rate);
# else
install_timer_tick(Main_loop, timer_tick_rate);
# endif
#endif
sched();
End_game();
/* NOT REACHED */
abort();
}
/*
* This function is called after the TCP connect has completed. Setup the TLS
* layer and do all necessary magic.
*/
CURLcode
Curl_gtls_connect(struct connectdata *conn,
int sockindex)
{
const int cert_type_priority[] = { GNUTLS_CRT_X509, 0 };
struct SessionHandle *data = conn->data;
gnutls_session session;
int rc;
unsigned int cert_list_size;
const gnutls_datum *chainp;
unsigned int verify_status;
gnutls_x509_crt x509_cert;
char certbuf[256]; /* big enough? */
size_t size;
unsigned int algo;
unsigned int bits;
time_t clock;
const char *ptr;
void *ssl_sessionid;
size_t ssl_idsize;
/* GnuTLS only supports TLSv1 (and SSLv3?) */
if(data->set.ssl.version == CURL_SSLVERSION_SSLv2) {
failf(data, "GnuTLS does not support SSLv2");
return CURLE_SSL_CONNECT_ERROR;
}
/* allocate a cred struct */
rc = gnutls_certificate_allocate_credentials(&conn->ssl[sockindex].cred);
if(rc < 0) {
failf(data, "gnutls_cert_all_cred() failed: %s", gnutls_strerror(rc));
return CURLE_SSL_CONNECT_ERROR;
}
if(data->set.ssl.CAfile) {
/* set the trusted CA cert bundle file */
gnutls_certificate_set_verify_flags(conn->ssl[sockindex].cred,
GNUTLS_VERIFY_ALLOW_X509_V1_CA_CRT);
rc = gnutls_certificate_set_x509_trust_file(conn->ssl[sockindex].cred,
data->set.ssl.CAfile,
GNUTLS_X509_FMT_PEM);
if(rc < 0) {
infof(data, "error reading ca cert file %s (%s)\n",
data->set.ssl.CAfile, gnutls_strerror(rc));
if (data->set.ssl.verifypeer)
return CURLE_SSL_CACERT_BADFILE;
}
else
infof(data, "found %d certificates in %s\n",
rc, data->set.ssl.CAfile);
}
/* Initialize TLS session as a client */
rc = gnutls_init(&conn->ssl[sockindex].session, GNUTLS_CLIENT);
if(rc) {
failf(data, "gnutls_init() failed: %d", rc);
return CURLE_SSL_CONNECT_ERROR;
}
/* convenient assign */
session = conn->ssl[sockindex].session;
/* Use default priorities */
rc = gnutls_set_default_priority(session);
if(rc < 0)
return CURLE_SSL_CONNECT_ERROR;
/* Sets the priority on the certificate types supported by gnutls. Priority
is higher for types specified before others. After specifying the types
you want, you must append a 0. */
rc = gnutls_certificate_type_set_priority(session, cert_type_priority);
if(rc < 0)
return CURLE_SSL_CONNECT_ERROR;
if(data->set.cert) {
if( gnutls_certificate_set_x509_key_file(
conn->ssl[sockindex].cred, data->set.cert,
data->set.key != 0 ? data->set.key : data->set.cert,
do_file_type(data->set.cert_type) ) ) {
failf(data, "error reading X.509 key or certificate file");
return CURLE_SSL_CONNECT_ERROR;
}
}
/* put the credentials to the current session */
rc = gnutls_credentials_set(session, GNUTLS_CRD_CERTIFICATE,
conn->ssl[sockindex].cred);
/* set the connection handle (file descriptor for the socket) */
gnutls_transport_set_ptr(session,
(gnutls_transport_ptr)conn->sock[sockindex]);
/* register callback functions to send and receive data. */
gnutls_transport_set_push_function(session, Curl_gtls_push);
gnutls_transport_set_pull_function(session, Curl_gtls_pull);
/* lowat must be set to zero when using custom push and pull functions. */
gnutls_transport_set_lowat(session, 0);
/* This might be a reconnect, so we check for a session ID in the cache
to speed up things */
if(!Curl_ssl_getsessionid(conn, &ssl_sessionid, &ssl_idsize)) {
/* we got a session id, use it! */
gnutls_session_set_data(session, ssl_sessionid, ssl_idsize);
/* Informational message */
infof (data, "SSL re-using session ID\n");
}
rc = handshake(conn, session, sockindex, TRUE);
if(rc)
/* handshake() sets its own error message with failf() */
return rc;
/* This function will return the peer's raw certificate (chain) as sent by
the peer. These certificates are in raw format (DER encoded for
X.509). In case of a X.509 then a certificate list may be present. The
first certificate in the list is the peer's certificate, following the
issuer's certificate, then the issuer's issuer etc. */
chainp = gnutls_certificate_get_peers(session, &cert_list_size);
if(!chainp) {
if(data->set.ssl.verifyhost) {
failf(data, "failed to get server cert");
return CURLE_SSL_PEER_CERTIFICATE;
}
infof(data, "\t common name: WARNING couldn't obtain\n");
}
/* This function will try to verify the peer's certificate and return its
status (trusted, invalid etc.). The value of status should be one or more
of the gnutls_certificate_status_t enumerated elements bitwise or'd. To
avoid denial of service attacks some default upper limits regarding the
certificate key size and chain size are set. To override them use
gnutls_certificate_set_verify_limits(). */
rc = gnutls_certificate_verify_peers2(session, &verify_status);
if (rc < 0) {
failf(data, "server cert verify failed: %d", rc);
return CURLE_SSL_CONNECT_ERROR;
}
/* verify_status is a bitmask of gnutls_certificate_status bits */
if(verify_status & GNUTLS_CERT_INVALID) {
if (data->set.ssl.verifypeer) {
failf(data, "server certificate verification failed. CAfile: %s",
data->set.ssl.CAfile?data->set.ssl.CAfile:"none");
return CURLE_SSL_CACERT;
}
else
infof(data, "\t server certificate verification FAILED\n");
}
else
infof(data, "\t server certificate verification OK\n");
/* initialize an X.509 certificate structure. */
gnutls_x509_crt_init(&x509_cert);
/* convert the given DER or PEM encoded Certificate to the native
gnutls_x509_crt_t format */
gnutls_x509_crt_import(x509_cert, chainp, GNUTLS_X509_FMT_DER);
size=sizeof(certbuf);
rc = gnutls_x509_crt_get_dn_by_oid(x509_cert, GNUTLS_OID_X520_COMMON_NAME,
0, /* the first and only one */
FALSE,
certbuf,
&size);
if(rc) {
infof(data, "error fetching CN from cert:%s\n",
gnutls_strerror(rc));
}
/* This function will check if the given certificate's subject matches the
given hostname. This is a basic implementation of the matching described
in RFC2818 (HTTPS), which takes into account wildcards, and the subject
alternative name PKIX extension. Returns non zero on success, and zero on
failure. */
rc = gnutls_x509_crt_check_hostname(x509_cert, conn->host.name);
if(!rc) {
if (data->set.ssl.verifyhost > 1) {
failf(data, "SSL: certificate subject name (%s) does not match "
"target host name '%s'", certbuf, conn->host.dispname);
gnutls_x509_crt_deinit(x509_cert);
return CURLE_SSL_PEER_CERTIFICATE;
}
else
infof(data, "\t common name: %s (does not match '%s')\n",
certbuf, conn->host.dispname);
}
else
infof(data, "\t common name: %s (matched)\n", certbuf);
/* Show:
- ciphers used
- subject
- start date
- expire date
- common name
- issuer
*/
/* public key algorithm's parameters */
algo = gnutls_x509_crt_get_pk_algorithm(x509_cert, &bits);
infof(data, "\t certificate public key: %s\n",
gnutls_pk_algorithm_get_name(algo));
/* version of the X.509 certificate. */
infof(data, "\t certificate version: #%d\n",
gnutls_x509_crt_get_version(x509_cert));
size = sizeof(certbuf);
gnutls_x509_crt_get_dn(x509_cert, certbuf, &size);
infof(data, "\t subject: %s\n", certbuf);
clock = gnutls_x509_crt_get_activation_time(x509_cert);
showtime(data, "start date", clock);
clock = gnutls_x509_crt_get_expiration_time(x509_cert);
showtime(data, "expire date", clock);
size = sizeof(certbuf);
gnutls_x509_crt_get_issuer_dn(x509_cert, certbuf, &size);
infof(data, "\t issuer: %s\n", certbuf);
gnutls_x509_crt_deinit(x509_cert);
/* compression algorithm (if any) */
ptr = gnutls_compression_get_name(gnutls_compression_get(session));
/* the *_get_name() says "NULL" if GNUTLS_COMP_NULL is returned */
infof(data, "\t compression: %s\n", ptr);
/* the name of the cipher used. ie 3DES. */
ptr = gnutls_cipher_get_name(gnutls_cipher_get(session));
infof(data, "\t cipher: %s\n", ptr);
/* the MAC algorithms name. ie SHA1 */
ptr = gnutls_mac_get_name(gnutls_mac_get(session));
infof(data, "\t MAC: %s\n", ptr);
if(!ssl_sessionid) {
/* this session was not previously in the cache, add it now */
/* get the session ID data size */
gnutls_session_get_data(session, NULL, &ssl_idsize);
ssl_sessionid = malloc(ssl_idsize); /* get a buffer for it */
if(ssl_sessionid) {
/* extract session ID to the allocated buffer */
gnutls_session_get_data(session, ssl_sessionid, &ssl_idsize);
/* store this session id */
return Curl_ssl_addsessionid(conn, ssl_sessionid, ssl_idsize);
}
}
return CURLE_OK;
}
void main()
{
clrscr();
cout<<"\t\t WELLCOME IN MEDICAL-BILLING SOFTWARE\n\n";
cout<<"\t\t HINDUSTAN ZINC LIMITED, DEBARI (VEDANTA GROUP OF COMPANIES)";
cout<<"\n\n\n\n\nPrepared by :\n\nNEERAJ SUTHAR";
getch();
ob.ini();
clrscr();
int i,n;
char ch,z,y,x;
ofstream o;
fflush(stdin);
do
{
ob.head();
cout<<"\t\t WELLCOME IN MEDICAL-BILLING SOFTWARE\n\n";
cout<<"HINDUSTAN ZINC LIMITED, DEBARI (VEDANTA GROUP)";
showtime();
for(int b=0;b<80;b++)
cout<<"-";
cout<<"\n\n\n\t\t\t * MAIN MENU *\t\n";
cout<<"\n\n\n\t\t\t 1. ENTER EMPLOYEE DATA.\n\n\n\t\t\t ";
cout<<"2. ENTER BILL AMOUNT.\n\n\n\t\t\t";
cout<<" 3. DISPLAY BILLWISE CHECKLIST.\n\n\n\t\t\t ";
cout<<"4. DISPLAY PAYMENT LIST OF BILLS.\n\n\n\t\t\t ";
cout<<"5. DISPLAY NOTICE BOARD.\n\n\n\t\t\t ";
cout<<"6. DISPLAY BANK ACCOUNT LIST.\n\n\n\t\t\t ";
cout<<"7. SEARCH THE EMPLOYEE.\n\n\n\t\t\t 8. EXIT.";
cout<<"\n\n\n\t\t\t ENTER YOUR CHOICE :\t";
cin>>n;
clrscr();
switch(n)
case 1:
{
ob.head();
cout<<"\n\t\t WORKMEN DATA ENTRY PAGE\n\n";
cout<<"DEBARI,ZINC SMELTER";
showtime();
for(int b=0;b<80;b++)
cout<<"-";
int i=0;
long ll;
do
{
cout<<"\n\n\t\tENTER EMPLOYEE CODE:-";
fflush(stdin);
cin>>ll;
if(ll<100000 || ll>999999)
cout<<"\n\n\n\t\t-*** INVALID EMPLOYEE CODE ***-\n\n\t"<<
"\t (PLEASE ENTER SIX DIGIT CODE)";
else
{
i=see(ll);
if(i==1)
{
cout<<"\n\n\n\t\tRECORD ALREADY PRESENT WITH THIS CODE";
cout<<"\n\n\t\t(PLEASE ENTER NEW CODE)";
}
else
{
time_t now=time(0);
tm *t1=localtime(&now);
asctime(t1);
ob.t.tm_sec=t1->tm_sec;
ob.t.tm_min=t1->tm_min;
ob.t.tm_hour=t1->tm_hour;
ob.t.tm_mday=t1->tm_mday;
ob.t.tm_mon=t1->tm_mon;
ob.t.tm_year=t1->tm_year;
ob.edata(ll);
ob.inc();
o.open("emp.txt",ios::app|ios::binary);
o.write((char*)&ob,sizeof(ob));
o.close();
}
}
cout<<"\n\n\t PRESS (Y/y) TO CONTINUE ELSE PRESS ANY OTHER KEY:-";
cin>>z;
}
while(z=='y'||z=='Y');
break;
case 2:
clrscr();
ob.head();
cout<<"\n\t\t BILL AMOUNT ENTRY LIST\n\n";
cout<<"DEBARI,ZINC SMELTER";
showtime();
for(int qq=0;qq<80;qq++)
cout<<"-";
fflush(stdin);
do
{
bill();
cout<<"\n\n\t PRESS (Y/y) TO CONTINUE ELSE PRESS ANY OTHER KEY:-";
cin>>y;
}
while(y=='y'||y=='Y');
break;
case 3:
clrscr();
ob.head();
cout<<"\t\t MEDICAL BILLWISE CHECKLIST OF WORKMEN";
cout<<" \n\nDEBARI,ZINC SMELTER";
showtime();
for(int q=0;q<80;q++)
cout<<"-";
cout<<"Slno"<<" "<<"Empcd"<<" "<<"EMPLOYEE NAME";
for(i=0;i<7;i++)
cout<<" ";
cout<<"Designation";
for(i=0;i<7;i++)
cout<<" ";
cout<<"BillNo"<<" "<<"Billamt"<<" "<<"Nrmt"<<" "<<"Dcode\n";
for(int v=0;v<80;v++)
cout<<"-";
cout<<"\n";
show();
break;
case 5:
clrscr();
ob.head();
cout<<"\n\t\t NOTICE BOARD\WORKMEN MEDICAL REIMBURSEMENT LIST\n\n";
cout<<"DEBARI,ZINC SMELTER";
showtime();
for(int h=0;h<80;h++)
cout<<"-";
cout<<"\tEMP.NO.\t"<<"\t"<<" RS.\t"<<"\tNR-RS\t";
// <<"\tDATE AND TIME\n" ;
for(int g=0;g<80;g++)
cout<<"-";
cout<<"\n";
notice();
break;
case 6:
clrscr();
ob.head();
cout<<"\n\t\t WORKMEN BANK ACCOUNT LIST\n\n";
cout<<"DEBARI,ZINC SMELTER";
showtime();
for(int z=0;z<80;z++)
cout<<"-";
cout<<"Slno"<<" "<<"Empcd"<<" "<<"EMPLOYEE NAME";
for(i=1;i<=10;i++)
cout<<" ";
cout<<"BANK NAME "<<" "<<"BANK a/c"<<" "<<"AMOUNT";
cout<<"\n";
for(int l=0;l<80;l++)
cout<<"-";
badisp();
break;
case 4:
clrscr();
ob.head();
cout<<"\n\t\t EMPLOYEEWISE PAYMENT LIST OF BILLS\n\n";
cout<<"DEBARI,ZINC SMELTER";
showtime();
for(int zx=0;zx<80;zx++)
cout<<"-";
cout<<"EMPCD"<<" "<<"EMPLOYEE NAME"<<" "<<"DEPARTMENT"
<<" "<<"NRMT"<<" "<<"DCODE"<<" "<<"BILLNO"
<<" "<<"BILLAMT"<<" "<<"PAY."<<" "<< "DATE"<<" "<<"SIGN.";
cout<<endl;
for( zx=0;zx<80;zx++)
cout<<"-";
ob.display();
break;
case 7:
clrscr();
ob.head();
cout<<"\n\t\t INFORMATION OF WORKMEN\n\n";
cout<<"DEBARI,ZINC SMELTER";
showtime();
for(int t=0;t<80;t++)
cout<<"-";
do
{
search();
cout<<"\n\n\t PRESS (Y/y) TO CONTINUE ELSE PRESS ANY OTHER KEY:--";
cin>>x;
}
while(x=='y'||x=='Y');
break;
case 8:
goto ll;
default:
ob.head();
for(int zz=0;zz<80;zz++)
cout<<"-";
cout<<"\n\n\n\n\t\t\t--*** WRONG CHOICE ***--\n\n\t";
}
do{
cout<<"\n\n\n\n\n\t\tIF YOU WANT TO GO TO MAIN MENU THEN PRESS (g/G)-- ";
cin>>ch;
if(ch!='g')
{ cout<<"\n WRONG CHOICE"; }
}while(ch!='g');
clrscr();
}while(ch=='g'|| ch=='G');
ll: cout<<" ";
clrscr();
cout<<"\nPrepared by:\n\nNEERAJ SUTHAR\nB.TECH-2nd YEAR(INFORMATION TECHNOLOGY)";
cout<<"\nCOLLEGE OF TECHNOLOGY AND ENGINEERING, UDAIPUR\n\n";
cout<<"\nPress Any Key to EXIT this program.\n\nThanks For VISIT.";
getch();
}
