welterde/l2tpns
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set a maximum time to wait for radius to be ready on shutdown

Browse source
This commit is contained in:
David Parrish 2004-08-26 04:43:52 +00:00
parent 8b14a0a8b1
commit abbc5c5fce
3 changed files with 129 additions and 64 deletions
Download patch file Download diff file Expand all files Collapse all files

170
l2tpns.c
View file

@ -4,7 +4,7 @@
// Copyright (c) 2002 FireBrick (Andrews & Arnold Ltd / Watchfront Ltd) - GPL licenced // Copyright (c) 2002 FireBrick (Andrews & Arnold Ltd / Watchfront Ltd) - GPL licenced
// vim: sw=8 ts=8 // vim: sw=8 ts=8
char const *cvs_id_l2tpns = "$Id: l2tpns.c,v 1.22 2004-08-13 00:02:50 fred_nerk Exp $"; char const *cvs_id_l2tpns = "$Id: l2tpns.c,v 1.23 2004-08-26 04:43:52 fred_nerk Exp $";
#include <arpa/inet.h> #include <arpa/inet.h>
#include <assert.h> #include <assert.h>
@ -540,17 +540,25 @@ int cmd_show_ipcache(struct cli_def *cli, char *command, char **argv, int argc)
cli_print(cli, "%7s %s", "Sess#", "IP Address"); cli_print(cli, "%7s %s", "Sess#", "IP Address");
for (i = 0; i < 256; ++i) { for (i = 0; i < 256; ++i)
if (!d[i]) continue; {
if (!d[i])
continue;
e = (char**) d[i]; e = (char**) d[i];
for (j = 0; j < 256; ++j) { for (j = 0; j < 256; ++j)
if (!e[j]) continue; {
if (!e[j])
continue;
f = (char**) e[j]; f = (char**) e[j];
for (k = 0; k < 256; ++k) { for (k = 0; k < 256; ++k)
if (!f[k]) continue; {
if (!f[k])
continue;
g = (char**)f[k]; g = (char**)f[k];
for (l = 0; l < 256; ++l) { for (l = 0; l < 256; ++l)
if (!g[l]) continue; {
if (!g[l])
continue;
cli_print(cli, "%7d %d.%d.%d.%d", (int) g[l], i, j, k, l); cli_print(cli, "%7d %d.%d.%d.%d", (int) g[l], i, j, k, l);
++count; ++count;
} }
@ -573,7 +581,8 @@ sessionidt sessionbyuser(char *username)
int s; int s;
CSTAT(call_sessionbyuser); CSTAT(call_sessionbyuser);
for (s = 1; s < MAXSESSION ; ++s) { for (s = 1; s < MAXSESSION ; ++s)
{
if (session[s].walled_garden) if (session[s].walled_garden)
continue; // Skip walled garden users. continue; // Skip walled garden users.
@ -742,7 +751,8 @@ void processipout(u8 * buf, int len)
static int rate = 0; // Number of ICMP packets we've sent this second. static int rate = 0; // Number of ICMP packets we've sent this second.
static int last = 0; // Last time we reset the ICMP packet counter 'rate'. static int last = 0; // Last time we reset the ICMP packet counter 'rate'.
if (last != time_now) { if (last != time_now)
{
last = time_now; last = time_now;
rate = 0; rate = 0;
} }
@ -782,7 +792,8 @@ void processipout(u8 * buf, int len)
// Add on L2TP header // Add on L2TP header
{ {
u8 *p = makeppp(b, sizeof(b), buf, len, t, s, PPPIP); u8 *p = makeppp(b, sizeof(b), buf, len, t, s, PPPIP);
if (!p) { if (!p)
{
log(3, session[s].ip, s, t, "failed to send packet in processipout.\n"); log(3, session[s].ip, s, t, "failed to send packet in processipout.\n");
return; return;
} }
@ -808,7 +819,8 @@ void send_ipout(sessionidt s, u8 *buf, int len)
u8 b[MAXETHER + 20]; u8 b[MAXETHER + 20];
if (len < 0 || len > MAXETHER) { if (len < 0 || len > MAXETHER)
{
log(1,0,0,0, "Odd size IP packet: %d bytes\n", len); log(1,0,0,0, "Odd size IP packet: %d bytes\n", len);
return; return;
} }
@ -833,7 +845,8 @@ void send_ipout(sessionidt s, u8 *buf, int len)
// Add on L2TP header // Add on L2TP header
{ {
u8 *p = makeppp(b, sizeof(b), buf, len, t, s, PPPIP); u8 *p = makeppp(b, sizeof(b), buf, len, t, s, PPPIP);
if (!p) { if (!p)
{
log(3, session[s].ip, s, t, "failed to send packet in send_ipout.\n"); log(3, session[s].ip, s, t, "failed to send packet in send_ipout.\n");
return; return;
} }
@ -963,8 +976,10 @@ int throttle_session(sessionidt s, int throttle)
if (!*session[s].user) if (!*session[s].user)
return 0; // User not logged in return 0; // User not logged in
if (throttle) { if (throttle)
if (session[s].tbf_in || session[s].tbf_out) { {
if (session[s].tbf_in || session[s].tbf_out)
{
if (throttle == session[s].throttle) if (throttle == session[s].throttle)
return 1; return 1;
@ -977,7 +992,9 @@ int throttle_session(sessionidt s, int throttle)
session[s].tbf_in = new_tbf(s, throttle*1024/4, throttle*1024/8, send_ipin); session[s].tbf_in = new_tbf(s, throttle*1024/4, throttle*1024/8, send_ipin);
session[s].tbf_out = new_tbf(s, throttle*1024/4, throttle*1024/8, send_ipout); session[s].tbf_out = new_tbf(s, throttle*1024/4, throttle*1024/8, send_ipout);
if (throttle != session[s].throttle) { // Changed. Flood to slaves. if (throttle != session[s].throttle)
{
// Changed. Flood to slaves.
session[s].throttle = throttle; session[s].throttle = throttle;
cluster_send_session(s); cluster_send_session(s);
} }
@ -996,7 +1013,9 @@ int throttle_session(sessionidt s, int throttle)
free_tbf(session[s].tbf_out); free_tbf(session[s].tbf_out);
session[s].tbf_out = 0; session[s].tbf_out = 0;
if (throttle != session[s].throttle) { // Changed. Flood to slaves. if (throttle != session[s].throttle)
{
// Changed. Flood to slaves.
session[s].throttle = throttle; session[s].throttle = throttle;
cluster_send_session(s); cluster_send_session(s);
} }
@ -1030,7 +1049,8 @@ void sessionshutdown(sessionidt s, char *reason)
} }
// RADIUS Stop message // RADIUS Stop message
if (session[s].opened && !walled_garden && !dead) { if (session[s].opened && !walled_garden && !dead)
{
u16 r = session[s].radius; u16 r = session[s].radius;
if (!r) if (!r)
{ {
@ -1105,7 +1125,8 @@ void sendipcp(tunnelidt t, sessionidt s)
} }
q = makeppp(buf,sizeof(buf), 0, 0, t, s, PPPIPCP); q = makeppp(buf,sizeof(buf), 0, 0, t, s, PPPIPCP);
if (!q) { if (!q)
{
log(3, session[s].ip, s, t, "failed to send packet in sendipcp.\n"); log(3, session[s].ip, s, t, "failed to send packet in sendipcp.\n");
return; return;
} }
@ -1287,7 +1308,8 @@ void processudp(u8 * buf, int len, struct sockaddr_in *addr)
char called[MAXTEL] = ""; // called number char called[MAXTEL] = ""; // called number
char calling[MAXTEL] = ""; // calling number char calling[MAXTEL] = ""; // calling number
if (!config->cluster_iam_master) { if (!config->cluster_iam_master)
{
master_forward_packet(buf, len, addr->sin_addr.s_addr, addr->sin_port); master_forward_packet(buf, len, addr->sin_addr.s_addr, addr->sin_port);
return; return;
} }
@ -1308,7 +1330,8 @@ void processudp(u8 * buf, int len, struct sockaddr_in *addr)
// //
// Is this a duplicate of the first packet? (SCCRQ) // Is this a duplicate of the first packet? (SCCRQ)
// //
for ( i = 1; i <= config->cluster_highest_tunnelid ; ++i) { for (i = 1; i <= config->cluster_highest_tunnelid ; ++i)
{
if (tunnel[i].state != TUNNELOPENING || if (tunnel[i].state != TUNNELOPENING ||
tunnel[i].ip != ntohl(*(ipt *) & addr->sin_addr) || tunnel[i].ip != ntohl(*(ipt *) & addr->sin_addr) ||
tunnel[i].port != ntohs(addr->sin_port) ) tunnel[i].port != ntohs(addr->sin_port) )
@ -1318,7 +1341,8 @@ void processudp(u8 * buf, int len, struct sockaddr_in *addr)
} }
} }
if (!t) { if (!t)
{
if (!(t = new_tunnel())) if (!(t = new_tunnel()))
{ {
log(1, ntohl(addr->sin_addr.s_addr), 0, 0, "No more tunnels\n"); log(1, ntohl(addr->sin_addr.s_addr), 0, 0, "No more tunnels\n");
@ -1457,17 +1481,21 @@ void processudp(u8 * buf, int len, struct sockaddr_in *addr)
{ {
u16 rescode = ntohs(*(u16 *)(b)); u16 rescode = ntohs(*(u16 *)(b));
const char* resdesc = "(unknown)"; const char* resdesc = "(unknown)";
if (message == 4) { /* StopCCN */ if (message == 4)
{ /* StopCCN */
if (rescode <= MAX_STOPCCN_RESULT_CODE) if (rescode <= MAX_STOPCCN_RESULT_CODE)
resdesc = stopccn_result_codes[rescode]; resdesc = stopccn_result_codes[rescode];
} else if (message == 14) { /* CDN */ }
else if (message == 14)
{ /* CDN */
if (rescode <= MAX_CDN_RESULT_CODE) if (rescode <= MAX_CDN_RESULT_CODE)
resdesc = cdn_result_codes[rescode]; resdesc = cdn_result_codes[rescode];
} }
log(4, ntohl(addr->sin_addr.s_addr), s, t, " Result Code %d: %s\n", log(4, ntohl(addr->sin_addr.s_addr), s, t, " Result Code %d: %s\n",
rescode, resdesc); rescode, resdesc);
if (n >= 4) { if (n >= 4)
{
u16 errcode = ntohs(*(u16 *)(b + 2)); u16 errcode = ntohs(*(u16 *)(b + 2));
const char* errdesc = "(unknown)"; const char* errdesc = "(unknown)";
if (errcode <= MAX_ERROR_CODE) if (errcode <= MAX_ERROR_CODE)
@ -2066,7 +2094,8 @@ int regular_cleanups(void)
u8 b[MAXCONTROL] = {0}; u8 b[MAXCONTROL] = {0};
u8 *q = makeppp(b, sizeof(b), 0, 0, session[s].tunnel, s, PPPLCP); u8 *q = makeppp(b, sizeof(b), 0, 0, session[s].tunnel, s, PPPLCP);
if (!q) { if (!q)
{
log(3, session[s].ip, s, t, "failed to send ECHO packet.\n"); log(3, session[s].ip, s, t, "failed to send ECHO packet.\n");
continue; continue;
} }
@ -2156,18 +2185,31 @@ int regular_cleanups(void)
int still_busy(void) int still_busy(void)
{ {
int i; int i;
static int last_talked = 0; static clockt last_talked = 0;
for (i = config->cluster_highest_tunnelid ; i > 0 ; --i) { static clockt start_busy_wait = 0;
if (start_busy_wait == 0)
start_busy_wait = TIME;
for (i = config->cluster_highest_tunnelid ; i > 0 ; --i)
{
if (!tunnel[i].controlc) if (!tunnel[i].controlc)
continue; continue;
if (last_talked != TIME) { if (last_talked != TIME)
{
log(2,0,0,0, "Tunnel %d still has un-acked control messages.\n", i); log(2,0,0,0, "Tunnel %d still has un-acked control messages.\n", i);
last_talked = TIME; last_talked = TIME;
} }
return 1; return 1;
} }
// We stop waiting for radius after BUSY_WAIT_TIMEOUT 1/10th seconds
if (abs(TIME - start_busy_wait) > BUSY_WAIT_TIMEOUT)
{
log(1, 0, 0, 0, "Giving up waiting for RADIUS to be empty. Shutting down anyway.\n");
return 0;
}
for (i = 1; i < MAXRADIUS; i++) for (i = 1; i < MAXRADIUS; i++)
{ {
if (radius[i].state == RADIUSNULL) if (radius[i].state == RADIUSNULL)
@ -2175,7 +2217,8 @@ int still_busy(void)
if (radius[i].state == RADIUSWAIT) if (radius[i].state == RADIUSWAIT)
continue; continue;
if (last_talked != TIME) { if (last_talked != TIME)
{
log(2,0,0,0, "Radius session %d is still busy (sid %d)\n", i, radius[i].session); log(2,0,0,0, "Radius session %d is still busy (sid %d)\n", i, radius[i].session);
last_talked = TIME; last_talked = TIME;
} }
@ -2300,7 +2343,8 @@ void mainloop(void)
for (i = 0; i < config->num_radfds; i++) for (i = 0; i < config->num_radfds; i++)
if (FD_ISSET(radfds[i], &r)) if (FD_ISSET(radfds[i], &r))
processrad(buf, recv(radfds[i], buf, sizeof(buf), 0), i); processrad(buf, recv(radfds[i], buf, sizeof(buf), 0), i);
if (FD_ISSET(cluster_sockfd, &r)) { if (FD_ISSET(cluster_sockfd, &r))
{
int size; int size;
size = recvfrom(cluster_sockfd, buf, sizeof(buf), MSG_WAITALL, (void *) &addr, &alen); size = recvfrom(cluster_sockfd, buf, sizeof(buf), MSG_WAITALL, (void *) &addr, &alen);
processcluster(buf, size, addr.sin_addr.s_addr); processcluster(buf, size, addr.sin_addr.s_addr);
@ -2350,7 +2394,8 @@ void mainloop(void)
// Runs on all machines both master and slave. // Runs on all machines both master and slave.
{ {
static clockt last_run = 0; static clockt last_run = 0;
if (last_run != TIME) { if (last_run != TIME)
{
last_run = TIME; last_run = TIME;
tbf_run_timer(); tbf_run_timer();
} }
@ -2360,10 +2405,15 @@ void mainloop(void)
* something to read, else under load this will never actually run.... * something to read, else under load this will never actually run....
* *
*/ */
if (config->cluster_iam_master && next_clean <= time_now) { if (config->cluster_iam_master && next_clean <= time_now)
if (regular_cleanups()) { // Did it finish? {
if (regular_cleanups())
{
// Did it finish?
next_clean = time_now + 1 ; // Didn't finish. Check quickly. next_clean = time_now + 1 ; // Didn't finish. Check quickly.
} else { }
else
{
next_clean = time_now + config->cleanup_interval; // Did. Move to next interval. next_clean = time_now + config->cleanup_interval; // Did. Move to next interval.
} }
} }
@ -2473,7 +2523,8 @@ void initdata(void)
memset(ip_address_pool, 0, sizeof(ippoolt) * MAXIPPOOL); memset(ip_address_pool, 0, sizeof(ippoolt) * MAXIPPOOL);
// Put all the sessions on the free list marked as undefined. // Put all the sessions on the free list marked as undefined.
for (i = 1; i < MAXSESSION - 1; i++) { for (i = 1; i < MAXSESSION - 1; i++)
{
session[i].next = i + 1; session[i].next = i + 1;
session[i].tunnel = T_UNDEF; // mark it as not filled in. session[i].tunnel = T_UNDEF; // mark it as not filled in.
} }
@ -2481,9 +2532,8 @@ void initdata(void)
sessionfree = 1; sessionfree = 1;
// Mark all the tunnels as undefined (waiting to be filled in by a download). // Mark all the tunnels as undefined (waiting to be filled in by a download).
for (i = 1; i < MAXTUNNEL- 1; i++) { for (i = 1; i < MAXTUNNEL- 1; i++)
tunnel[i].state = TUNNELUNDEF; // mark it as not filled in. tunnel[i].state = TUNNELUNDEF; // mark it as not filled in.
}
if (!*hostname) if (!*hostname)
{ {
@ -2605,7 +2655,8 @@ void rebuild_address_pool(void)
// //
// Zero the IP pool allocation, and build // Zero the IP pool allocation, and build
// a map from IP address to pool index. // a map from IP address to pool index.
for (i = 1; i < MAXIPPOOL; ++i) { for (i = 1; i < MAXIPPOOL; ++i)
{
ip_address_pool[i].assigned = 0; ip_address_pool[i].assigned = 0;
ip_address_pool[i].session = 0; ip_address_pool[i].session = 0;
if (!ip_address_pool[i].address) if (!ip_address_pool[i].address)
@ -2614,13 +2665,16 @@ void rebuild_address_pool(void)
cache_ipmap(ip_address_pool[i].address, -i); // Map pool IP to pool index. cache_ipmap(ip_address_pool[i].address, -i); // Map pool IP to pool index.
} }
for (i = 0; i < MAXSESSION; ++i) { for (i = 0; i < MAXSESSION; ++i)
{
int ipid; int ipid;
if (!session[i].ip || !session[i].tunnel) if (!session[i].ip || !session[i].tunnel)
continue; continue;
ipid = - lookup_ipmap(htonl(session[i].ip)); ipid = - lookup_ipmap(htonl(session[i].ip));
if (session[i].ip_pool_index < 0) { // Not allocated out of the pool. if (session[i].ip_pool_index < 0)
{
// Not allocated out of the pool.
if (ipid < 1) // Not found in the pool either? good. if (ipid < 1) // Not found in the pool either? good.
continue; continue;
@ -2631,7 +2685,8 @@ void rebuild_address_pool(void)
} }
if (ipid > MAXIPPOOL || ipid < 0) { if (ipid > MAXIPPOOL || ipid < 0)
{
log(0, 0, i, 0, "Session %d has a pool IP that's not found in the pool! (%d)\n", i, ipid); log(0, 0, i, 0, "Session %d has a pool IP that's not found in the pool! (%d)\n", i, ipid);
ipid = -1; ipid = -1;
session[i].ip_pool_index = ipid; session[i].ip_pool_index = ipid;
@ -2786,7 +2841,6 @@ void snoop_send_packet(char *packet, u16 size, ipt destination, u16 port)
} }
void dump_acct_info() void dump_acct_info()
{ {
char filename[1024]; char filename[1024];
char timestr[64]; char timestr[64];
@ -3441,7 +3495,8 @@ void read_config_file()
FILE *f; FILE *f;
if (!config->config_file) return; if (!config->config_file) return;
if (!(f = fopen(config->config_file, "r"))) { if (!(f = fopen(config->config_file, "r")))
{
fprintf(stderr, "Can't open config file %s: %s\n", config->config_file, strerror(errno)); fprintf(stderr, "Can't open config file %s: %s\n", config->config_file, strerror(errno));
return; return;
} }
@ -3554,7 +3609,8 @@ int load_session(sessionidt s, sessiont *new)
// Sanity checks. // Sanity checks.
if (new->ip_pool_index >= MAXIPPOOL || if (new->ip_pool_index >= MAXIPPOOL ||
new->tunnel >= MAXTUNNEL) { new->tunnel >= MAXTUNNEL)
{
log(0,0,s,0, "Strange session update received!\n"); log(0,0,s,0, "Strange session update received!\n");
// FIXME! What to do here? // FIXME! What to do here?
return 0; return 0;
@ -3585,7 +3641,9 @@ int load_session(sessionidt s, sessiont *new)
uncache_ipmap(session[s].ip); uncache_ipmap(session[s].ip);
} }
if (new->ip) { // If there's a new one, add it. if (new->ip)
{
// If there's a new one, add it.
if (new->ip_pool_index == -1) if (new->ip_pool_index == -1)
routeset(s, new->ip, 0, 0, 1); routeset(s, new->ip, 0, 0, 1);
else else
@ -3869,7 +3927,8 @@ void become_master(void)
int s; int s;
run_plugins(PLUGIN_BECOME_MASTER, NULL); run_plugins(PLUGIN_BECOME_MASTER, NULL);
for (s = 1; s <= config->cluster_highest_sessionid ; ++s) { for (s = 1; s <= config->cluster_highest_sessionid ; ++s)
{
if (!session[s].tunnel) // Not an in-use session. if (!session[s].tunnel) // Not an in-use session.
continue; continue;
@ -3891,7 +3950,8 @@ int cmd_show_hist_idle(struct cli_def *cli, char *command, char **argv, int argc
time(&time_now); time(&time_now);
for (i = 0; i < 64;++i) buckets[i] = 0; for (i = 0; i < 64;++i) buckets[i] = 0;
for (s = 1; s <= config->cluster_highest_sessionid ; ++s) { for (s = 1; s <= config->cluster_highest_sessionid ; ++s)
{
int idle; int idle;
if (!session[s].tunnel) if (!session[s].tunnel)
continue; continue;
@ -3907,7 +3967,8 @@ int cmd_show_hist_idle(struct cli_def *cli, char *command, char **argv, int argc
++buckets[idle]; ++buckets[idle];
} }
for (i = 0; i < 63; ++i) { for (i = 0; i < 63; ++i)
{
cli_print(cli, "%3d seconds : %7.2f%% (%6d)", i * 5, (double) buckets[i] * 100.0 / count , buckets[i]); cli_print(cli, "%3d seconds : %7.2f%% (%6d)", i * 5, (double) buckets[i] * 100.0 / count , buckets[i]);
} }
cli_print(cli, "lots of secs : %7.2f%% (%6d)", (double) buckets[63] * 100.0 / count , buckets[i]); cli_print(cli, "lots of secs : %7.2f%% (%6d)", (double) buckets[63] * 100.0 / count , buckets[i]);
@ -3927,7 +3988,8 @@ int cmd_show_hist_open(struct cli_def *cli, char *command, char **argv, int argc
time(&time_now); time(&time_now);
for (i = 0; i < 64;++i) buckets[i] = 0; for (i = 0; i < 64;++i) buckets[i] = 0;
for (s = 1; s <= config->cluster_highest_sessionid ; ++s) { for (s = 1; s <= config->cluster_highest_sessionid ; ++s)
{
int open = 0, d; int open = 0, d;
if (!session[s].tunnel) if (!session[s].tunnel)
continue; continue;
@ -3935,7 +3997,8 @@ int cmd_show_hist_open(struct cli_def *cli, char *command, char **argv, int argc
d = time_now - session[s].opened; d = time_now - session[s].opened;
if (d < 0) if (d < 0)
d = 0; d = 0;
while (d > 1 && open < 32) { while (d > 1 && open < 32)
{
++open; ++open;
d >>= 1; // half. d >>= 1; // half.
} }
@ -3944,7 +4007,8 @@ int cmd_show_hist_open(struct cli_def *cli, char *command, char **argv, int argc
} }
s = 1; s = 1;
for (i = 0; i < 30; ++i) { for (i = 0; i < 30; ++i)
{
cli_print(cli, " < %8d seconds : %7.2f%% (%6d)", s, (double) buckets[i] * 100.0 / count , buckets[i]); cli_print(cli, " < %8d seconds : %7.2f%% (%6d)", s, (double) buckets[i] * 100.0 / count , buckets[i]);
s <<= 1; s <<= 1;
} }

3
l2tpns.h
View file

@ -1,5 +1,5 @@
// L2TPNS Global Stuff // L2TPNS Global Stuff
// $Id: l2tpns.h,v 1.15 2004-08-02 05:40:21 fred_nerk Exp $ // $Id: l2tpns.h,v 1.16 2004-08-26 04:44:26 fred_nerk Exp $
#ifndef __L2TPNS_H__ #ifndef __L2TPNS_H__
#define __L2TPNS_H__ #define __L2TPNS_H__
@ -40,6 +40,7 @@
#define MAX_LOG_LENGTH 512 // Maximum size of log message #define MAX_LOG_LENGTH 512 // Maximum size of log message
#define ECHO_TIMEOUT 60 // Time between last packet sent and LCP ECHO generation #define ECHO_TIMEOUT 60 // Time between last packet sent and LCP ECHO generation
#define IDLE_TIMEOUT 240 // Time between last packet sent and LCP ECHO generation #define IDLE_TIMEOUT 240 // Time between last packet sent and LCP ECHO generation
#define BUSY_WAIT_TIMEOUT 3000 // 5 minutes in 1/10th seconds to wait for radius to cleanup on shutdown
// Constants // Constants
#include "config.h" #include "config.h"

2
ppp.c
View file

@ -1,6 +1,6 @@
// L2TPNS PPP Stuff // L2TPNS PPP Stuff
char const *cvs_id_ppp = "$Id: ppp.c,v 1.12 2004-08-13 00:02:50 fred_nerk Exp $"; char const *cvs_id_ppp = "$Id: ppp.c,v 1.13 2004-08-26 04:44:26 fred_nerk Exp $";
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>