src/chanprog.c File Reference

#include "main.h"
#include "modules.h"
Include dependency graph for chanprog.c:

Go to the source code of this file.

Functions

void rmspace (char *s)
memberlist * ismember (struct chanset_t *chan, char *nick)
struct chanset_t * findchan (const char *name)
struct chanset_t * findchan_by_dname (const char *name)
struct userrec * check_chanlist (const char *host)
struct userrec * check_chanlist_hand (const char *hand)
void clear_chanlist (void)
void clear_chanlist_member (const char *nick)
void set_chanlist (const char *host, struct userrec *rec)
int expmem_chanprog ()
void tell_verbose_uptime (int idx)
void tell_verbose_status (int idx)
void tell_settings (int idx)
void reaffirm_owners ()
void chanprog ()
void reload ()
void rehash ()
unsigned long add_timer (tcl_timer_t **stack, int elapse, char *cmd, unsigned long prev_id)
int remove_timer (tcl_timer_t **stack, unsigned long id)
void do_check_timers (tcl_timer_t **stack)
void wipe_timers (Tcl_Interp *irp, tcl_timer_t **stack)
void list_timers (Tcl_Interp *irp, tcl_timer_t *stack)
int isowner (char *name)

Variables

struct userrec * userlist
log_t * logs
Tcl_Interp * interp
char ver []
char botnetnick []
char firewall []
char motdfile []
char userfile []
char helpdir []
char tempdir []
char moddir []
char notify_new []
char owner []
char configfile []
time_t now
time_t online_since
int backgrd
int term_z
int con_chan
int cache_hit
int cache_miss
int firewallport
int default_flags
int max_logs
int conmask
int protect_readonly
int make_userfile
int noshare
int ignore_time
int max_socks
tcl_timer_t * timer = NULL
tcl_timer_t * utimer = NULL
unsigned long timer_id = 1
struct chanset_t * chanset = NULL
char admin [121] = ""
char origbotname [NICKLEN+1]
char botname [NICKLEN+1]

Function Documentation

unsigned long add_timer ( tcl_timer_t **  stack,
int  elapse,
char *  cmd,
unsigned long  prev_id 
)

Definition at line 561 of file chanprog.c.

References timer_str::mins, nmalloc, return(), and timer_id.

Referenced by tcl_timer(), and tcl_utimer().

00563 {
00564   tcl_timer_t *old = (*stack);
00565 
00566   *stack = nmalloc(sizeof **stack);
00567   (*stack)->next = old;
00568   (*stack)->mins = elapse;
00569   (*stack)->cmd = nmalloc(strlen(cmd) + 1);
00570   strcpy((*stack)->cmd, cmd);
00571   /* If it's just being added back and already had an id,
00572    * don't create a new one.
00573    */
00574   if (prev_id > 0)
00575     (*stack)->id = prev_id;
00576   else
00577     (*stack)->id = timer_id++;
00578   return (*stack)->id;
00579 }

Here is the call graph for this function:

Here is the caller graph for this function:

void chanprog (  ) 

Definition at line 429 of file chanprog.c.

References admin, botnetnick, call_hook, check_tcl_event, log_t::chname, configfile, conmask, egg_snprintf, log_t::f, fatal, log_t::filename, log_t::flags, userrec::flags, HANDLEN, helpdir, HOOK_REHASH, LF_EXPIRING, make_rand_str, make_userfile, log_t::mask, max_logs, MISC_CANTWRITETEMP, MISC_NOCONFIGFILE, MISC_NOUSERFILE, MISC_NOUSERFILE2, MISC_USERFCREATE1, MISC_USERFCREATE2, MISC_USERFEXISTS, module_find, nfree, NULL, origbotname, protect_readonly, readtclprog, readuserfile, reaffirm_owners, strncpyz, tempdir, and userfile.

Referenced by main(), and rehash().

00430 {
00431   int i;
00432   FILE *f;
00433   char s[161], rands[8];
00434 
00435   admin[0]   = 0;
00436   helpdir[0] = 0;
00437   tempdir[0] = 0;
00438   conmask    = 0;
00439 
00440   for (i = 0; i < max_logs; i++)
00441     logs[i].flags |= LF_EXPIRING;
00442 
00443   /* Turn off read-only variables (make them write-able) for rehash */
00444   protect_readonly = 0;
00445 
00446   /* Now read it */
00447   if (!readtclprog(configfile))
00448     fatal(MISC_NOCONFIGFILE, 0);
00449 
00450   for (i = 0; i < max_logs; i++) {
00451     if (logs[i].flags & LF_EXPIRING) {
00452       if (logs[i].filename != NULL) {
00453         nfree(logs[i].filename);
00454         logs[i].filename = NULL;
00455       }
00456       if (logs[i].chname != NULL) {
00457         nfree(logs[i].chname);
00458         logs[i].chname = NULL;
00459       }
00460       if (logs[i].f != NULL) {
00461         fclose(logs[i].f);
00462         logs[i].f = NULL;
00463       }
00464       logs[i].mask = 0;
00465       logs[i].flags = 0;
00466     }
00467   }
00468 
00469   /* We should be safe now */
00470   call_hook(HOOK_REHASH);
00471   protect_readonly = 1;
00472 
00473   if (!botnetnick[0])
00474     strncpyz(botnetnick, origbotname, HANDLEN + 1);
00475 
00476   if (!botnetnick[0])
00477     fatal("I don't have a botnet nick!!\n", 0);
00478 
00479   if (!userfile[0])
00480     fatal(MISC_NOUSERFILE2, 0);
00481 
00482   if (!readuserfile(userfile, &userlist)) {
00483     if (!make_userfile) {
00484       char tmp[178];
00485 
00486       egg_snprintf(tmp, sizeof tmp, MISC_NOUSERFILE, configfile);
00487       fatal(tmp, 0);
00488     }
00489     printf("\n\n%s\n", MISC_NOUSERFILE2);
00490     if (module_find("server", 0, 0))
00491       printf(MISC_USERFCREATE1, origbotname);
00492     printf("%s\n\n", MISC_USERFCREATE2);
00493   } else if (make_userfile) {
00494     make_userfile = 0;
00495     printf("%s\n", MISC_USERFEXISTS);
00496   }
00497 
00498   if (helpdir[0])
00499     if (helpdir[strlen(helpdir) - 1] != '/')
00500       strcat(helpdir, "/");
00501 
00502   if (tempdir[0])
00503     if (tempdir[strlen(tempdir) - 1] != '/')
00504       strcat(tempdir, "/");
00505 
00506   /* Test tempdir: it's vital. */
00507 
00508   /* Possible file race condition solved by using a random string
00509    * and the process id in the filename.
00510    * FIXME: This race is only partitially fixed. We could still be
00511    *        overwriting an existing file / following a malicious
00512    *        link.
00513    */
00514   make_rand_str(rands, 7); /* create random string */
00515   sprintf(s, "%s.test-%u-%s", tempdir, getpid(), rands);
00516   f = fopen(s, "w");
00517   if (f == NULL)
00518     fatal(MISC_CANTWRITETEMP, 0);
00519   fclose(f);
00520   unlink(s);
00521   reaffirm_owners();
00522   check_tcl_event("userfile-loaded");
00523 }

Here is the caller graph for this function:

struct userrec* check_chanlist ( const char *  host  )  [read]

Definition at line 131 of file chanprog.c.

References chanset_t::channel, egg_strcasecmp, chan_t::member, memstruct::next, chanset_t::next, memstruct::nick, NULL, rfc_casecmp, splitnick, strncpyz, UHOSTLEN, memstruct::user, and memstruct::userhost.

Referenced by global().

00132 {
00133   char *nick, *uhost, buf[UHOSTLEN];
00134   register memberlist *m;
00135   register struct chanset_t *chan;
00136 
00137   strncpyz(buf, host, sizeof buf);
00138   uhost = buf;
00139   nick = splitnick(&uhost);
00140   for (chan = chanset; chan; chan = chan->next)
00141     for (m = chan->channel.member; m && m->nick[0]; m = m->next)
00142       if (!rfc_casecmp(nick, m->nick) && !egg_strcasecmp(uhost, m->userhost))
00143         return m->user;
00144   return NULL;
00145 }

Here is the caller graph for this function:

struct userrec* check_chanlist_hand ( const char *  hand  )  [read]

Definition at line 149 of file chanprog.c.

References chanset_t::channel, egg_strcasecmp, userrec::handle, chan_t::member, memstruct::next, chanset_t::next, memstruct::nick, NULL, and memstruct::user.

Referenced by global().

00150 {
00151   register struct chanset_t *chan;
00152   register memberlist *m;
00153 
00154   for (chan = chanset; chan; chan = chan->next)
00155     for (m = chan->channel.member; m && m->nick[0]; m = m->next)
00156       if (m->user && !egg_strcasecmp(m->user->handle, hand))
00157         return m->user;
00158   return NULL;
00159 }

Here is the caller graph for this function:

void clear_chanlist ( void   ) 

Definition at line 166 of file chanprog.c.

References chanset_t::channel, chan_t::member, memstruct::next, chanset_t::next, memstruct::nick, NULL, memstruct::tried_getuser, and memstruct::user.

00167 {
00168   register memberlist *m;
00169   register struct chanset_t *chan;
00170 
00171   for (chan = chanset; chan; chan = chan->next)
00172     for (m = chan->channel.member; m && m->nick[0]; m = m->next) {
00173       m->user = NULL;
00174       m->tried_getuser = 0;
00175     }
00176 }

void clear_chanlist_member ( const char *  nick  ) 

Definition at line 183 of file chanprog.c.

References chanset_t::channel, chan_t::member, memstruct::next, chanset_t::next, memstruct::nick, NULL, rfc_casecmp, memstruct::tried_getuser, and memstruct::user.

00184 {
00185   register memberlist *m;
00186   register struct chanset_t *chan;
00187 
00188   for (chan = chanset; chan; chan = chan->next)
00189     for (m = chan->channel.member; m && m->nick[0]; m = m->next)
00190       if (!rfc_casecmp(m->nick, nick)) {
00191         m->user = NULL;
00192         m->tried_getuser = 0;
00193         break;
00194       }
00195 }

void do_check_timers ( tcl_timer_t **  stack  ) 

Definition at line 603 of file chanprog.c.

References do_tcl, egg_snprintf, timer_str::mins, timer_str::next, nfree, and NULL.

Referenced by core_minutely(), and core_secondly().

00604 {
00605   tcl_timer_t *mark = *stack, *old = NULL;
00606   char x[16];
00607 
00608   /* New timers could be added by a Tcl script inside a current timer
00609    * so i'll just clear out the timer list completely, and add any
00610    * unexpired timers back on.
00611    */
00612   *stack = NULL;
00613   while (mark) {
00614     if (mark->mins > 0)
00615       mark->mins--;
00616     old = mark;
00617     mark = mark->next;
00618     if (!old->mins) {
00619       egg_snprintf(x, sizeof x, "timer%lu", old->id);
00620       do_tcl(x, old->cmd);
00621       nfree(old->cmd);
00622       nfree(old);
00623     } else {
00624       old->next = *stack;
00625       *stack = old;
00626     }
00627   }
00628 }

Here is the caller graph for this function:

int expmem_chanprog (  ) 

Definition at line 216 of file chanprog.c.

References timer_str::cmd, and timer_str::next.

Referenced by debug_mem_to_dcc(), and expected_memory().

00217 {
00218   register int tot = 0;
00219   register tcl_timer_t *t;
00220 
00221   for (t = timer; t; t = t->next)
00222     tot += sizeof(tcl_timer_t) + strlen(t->cmd) + 1;
00223   for (t = utimer; t; t = t->next)
00224     tot += sizeof(tcl_timer_t) + strlen(t->cmd) + 1;
00225   return tot;
00226 }

Here is the caller graph for this function:

struct chanset_t* findchan ( const char *  name  )  [read]

Definition at line 101 of file chanprog.c.

References chanset_t::name, chanset_t::next, NULL, and rfc_casecmp.

00102 {
00103   register struct chanset_t *chan;
00104 
00105   for (chan = chanset; chan; chan = chan->next)
00106     if (!rfc_casecmp(chan->name, name))
00107       return chan;
00108   return NULL;
00109 }

struct chanset_t* findchan_by_dname ( const char *  name  )  [read]

Definition at line 113 of file chanprog.c.

References chanset_t::dname, chanset_t::next, NULL, and rfc_casecmp.

00114 {
00115   register struct chanset_t *chan;
00116 
00117   for (chan = chanset; chan; chan = chan->next)
00118     if (!rfc_casecmp(chan->dname, name))
00119       return chan;
00120   return NULL;
00121 }

memberlist* ismember ( struct chanset_t *  chan,
char *  nick 
)

Definition at line 89 of file chanprog.c.

References chanset_t::channel, chan_t::member, memstruct::next, memstruct::nick, NULL, and rfc_casecmp.

00090 {
00091   register memberlist *x;
00092 
00093   for (x = chan->channel.member; x && x->nick[0]; x = x->next)
00094     if (!rfc_casecmp(x->nick, nick))
00095       return x;
00096   return NULL;
00097 }

int isowner ( char *  name  ) 

Definition at line 667 of file chanprog.c.

References egg_isspace, NULL, and owner.

00668 {
00669   register char *ptr = NULL, *s = NULL, *n = NULL;
00670 
00671   if (!name)
00672     return 0;
00673 
00674   ptr = owner - 1;
00675 
00676   do {
00677     ptr++;
00678     if (*ptr && !egg_isspace(*ptr) && *ptr != ',') {
00679       if (!s)
00680         s = ptr;
00681     } else if (s) {
00682       for (n = name; *n && *s && s < ptr &&
00683            tolower((unsigned) *n) == tolower((unsigned) *s); n++, s++);
00684 
00685       if (s == ptr && !*n)
00686         return 1;
00687 
00688       s = NULL;
00689     }
00690   } while (*ptr);
00691 
00692   return 0;
00693 }

void list_timers ( Tcl_Interp *  irp,
tcl_timer_t *  stack 
)

Definition at line 647 of file chanprog.c.

References argv, timer_str::cmd, EGG_CONST, egg_snprintf, timer_str::id, timer_str::mins, timer_str::next, and Tcl_Free.

Referenced by tcl_timers(), and tcl_utimers().

00648 {
00649   char mins[10], id[16], *x;
00650   EGG_CONST char *argv[3];
00651   tcl_timer_t *mark;
00652 
00653   for (mark = stack; mark; mark = mark->next) {
00654     egg_snprintf(mins, sizeof mins, "%u", mark->mins);
00655     egg_snprintf(id, sizeof id, "timer%lu", mark->id);
00656     argv[0] = mins;
00657     argv[1] = mark->cmd;
00658     argv[2] = id;
00659     x = Tcl_Merge(3, argv);
00660     Tcl_AppendElement(irp, x);
00661     Tcl_Free((char *) x);
00662   }
00663 }

Here is the caller graph for this function:

void reaffirm_owners (  ) 

Definition at line 403 of file chanprog.c.

References userrec::flags, get_user_by_handle, owner, rmspace, sanity_check, strncpyz, and USER_OWNER.

00404 {
00405   char *p, *q, s[121];
00406   struct userrec *u;
00407 
00408   /* Please stop breaking this function. */
00409   if (owner[0]) {
00410     q = owner;
00411     p = strchr(q, ',');
00412     while (p) {
00413       strncpyz(s, q, (p - q) + 1);
00414       rmspace(s);
00415       u = get_user_by_handle(userlist, s);
00416       if (u)
00417         u->flags = sanity_check(u->flags | USER_OWNER);
00418       q = p + 1;
00419       p = strchr(q, ',');
00420     }
00421     strcpy(s, q);
00422     rmspace(s);
00423     u = get_user_by_handle(userlist, s);
00424     if (u)
00425       u->flags = sanity_check(u->flags | USER_OWNER);
00426   }
00427 }

void rehash (  ) 

Definition at line 545 of file chanprog.c.

References call_hook, chanprog(), clear_userlist, HOOK_PRE_REHASH, noshare, and NULL.

Referenced by mainloop().

00546 {
00547   call_hook(HOOK_PRE_REHASH);
00548   noshare = 1;
00549   clear_userlist(userlist);
00550   noshare = 0;
00551   userlist = NULL;
00552   chanprog();
00553 }

Here is the call graph for this function:

Here is the caller graph for this function:

void reload (  ) 

Definition at line 527 of file chanprog.c.

References call_hook, check_tcl_event, clear_userlist, fatal, file_readable, HOOK_READ_USERFILE, LOG_MISC, MISC_CANTRELOADUSER, MISC_MISSINGUSERF, noshare, NULL, putlog, readuserfile, reaffirm_owners, and userfile.

Referenced by cmd_reload(), and tcl_reload().

00528 {
00529   if (!file_readable(userfile)) {
00530     putlog(LOG_MISC, "*", MISC_CANTRELOADUSER);
00531     return;
00532   }
00533 
00534   noshare = 1;
00535   clear_userlist(userlist);
00536   noshare = 0;
00537   userlist = NULL;
00538   if (!readuserfile(userfile, &userlist))
00539     fatal(MISC_MISSINGUSERF, 0);
00540   reaffirm_owners();
00541   check_tcl_event("userfile-loaded");
00542   call_hook(HOOK_READ_USERFILE);
00543 }

Here is the caller graph for this function:

int remove_timer ( tcl_timer_t **  stack,
unsigned long  id 
)

Definition at line 583 of file chanprog.c.

References timer_str::cmd, and nfree.

Referenced by tcl_killtimer(), and tcl_killutimer().

00584 {
00585   tcl_timer_t *old;
00586   int ok = 0;
00587 
00588   while (*stack) {
00589     if ((*stack)->id == id) {
00590       ok++;
00591       old = *stack;
00592       *stack = ((*stack)->next);
00593       nfree(old->cmd);
00594       nfree(old);
00595     } else
00596       stack = &((*stack)->next);
00597   }
00598   return ok;
00599 }

Here is the caller graph for this function:

void rmspace ( char *  s  ) 

Definition at line 68 of file chanprog.c.

References egg_isspace, and NULL.

00069 {
00070   register char *p = NULL, *q = NULL;
00071 
00072   if (!s || !*s)
00073     return;
00074 
00075   /* Remove trailing whitespaces. */
00076   for (q = s + strlen(s) - 1; q >= s && egg_isspace(*q); q--);
00077   *(q + 1) = 0;
00078 
00079   /* Remove leading whitespaces. */
00080   for (p = s; egg_isspace(*p); p++);
00081 
00082   if (p != s)
00083     memmove(s, p, q - p + 2);
00084 }

void set_chanlist ( const char *  host,
struct userrec *  rec 
)

Definition at line 199 of file chanprog.c.

References chanset_t::channel, egg_strcasecmp, chan_t::member, memstruct::next, chanset_t::next, memstruct::nick, rfc_casecmp, splitnick, strncpyz, UHOSTLEN, memstruct::user, and memstruct::userhost.

Referenced by global().

00200 {
00201   char *nick, *uhost, buf[UHOSTLEN];
00202   register memberlist *m;
00203   register struct chanset_t *chan;
00204 
00205   strncpyz(buf, host, sizeof buf);
00206   uhost = buf;
00207   nick = splitnick(&uhost);
00208   for (chan = chanset; chan; chan = chan->next)
00209     for (m = chan->channel.member; m && m->nick[0]; m = m->next)
00210       if (!rfc_casecmp(nick, m->nick) && !egg_strcasecmp(uhost, m->userhost))
00211         m->user = rec;
00212 }

Here is the caller graph for this function:

void tell_settings ( int  idx  ) 

Definition at line 366 of file chanprog.c.

References botnetnick, build_flags, default_flags, dprintf, firewall, firewallport, FR_GLOBAL, flag_record::global, helpdir, ignore_time, maskname(), masktype, max_logs, MISC_NEWUSERFLAGS, MISC_NOTIFY, MISC_PERMOWNER, moddir, motdfile, notify_new, NULL, owner, tempdir, and userfile.

Referenced by cmd_status().

00367 {
00368   char s[1024];
00369   int i;
00370   struct flag_record fr = { FR_GLOBAL, 0, 0, 0, 0, 0 };
00371 
00372   dprintf(idx, "Botnet nickname: %s\n", botnetnick);
00373   if (firewall[0])
00374     dprintf(idx, "Firewall: %s:%d\n", firewall, firewallport);
00375   dprintf(idx, "Userfile: %s\n", userfile);
00376   dprintf(idx, "Motd: %s\n",  motdfile);
00377   dprintf(idx, "Directories:\n");
00378 #ifndef STATIC
00379   dprintf(idx, "  Help   : %s\n", helpdir);
00380   dprintf(idx, "  Temp   : %s\n", tempdir);
00381   dprintf(idx, "  Modules: %s\n", moddir);
00382 #else
00383   dprintf(idx, "  Help: %s\n", helpdir);
00384   dprintf(idx, "  Temp: %s\n", tempdir);
00385 #endif
00386   fr.global = default_flags;
00387 
00388   build_flags(s, &fr, NULL);
00389   dprintf(idx, "%s [%s], %s: %s\n", MISC_NEWUSERFLAGS, s,
00390           MISC_NOTIFY, notify_new);
00391   if (owner[0])
00392     dprintf(idx, "%s: %s\n", MISC_PERMOWNER, owner);
00393   for (i = 0; i < max_logs; i++)
00394     if (logs[i].filename != NULL) {
00395       dprintf(idx, "Logfile #%d: %s on %s (%s: %s)\n", i + 1,
00396               logs[i].filename, logs[i].chname,
00397               masktype(logs[i].mask), maskname(logs[i].mask));
00398     }
00399   dprintf(idx, "Ignores last %d minute%s.\n", ignore_time,
00400           (ignore_time != 1) ? "s" : "");
00401 }

Here is the call graph for this function:

Here is the caller graph for this function:

void tell_verbose_status ( int  idx  ) 

Definition at line 265 of file chanprog.c.

References admin, backgrd, botnetnick, cache_hit, cache_miss, con_chan, configfile, count_users, dprintf, expected_memory, int, interp, max_socks, MISC_BACKGROUND, MISC_CACHEHIT, MISC_LOGMODE, MISC_ONLINEFOR, MISC_STATMODE, MISC_TCLHVERSION, MISC_TCLLIBRARY, MISC_TCLVERSION, MISC_TERMMODE, now, online_since, TCL_PATCH_LEVEL, tcl_resultstring(), tcl_threaded(), term_z, threaddata(), time_t, and ver.

Referenced by cmd_status(), and core_secondly().

00266 {
00267   char s[256], s1[121], s2[81];
00268   char *vers_t, *uni_t;
00269   int i;
00270   time_t now2 = now - online_since, hr, min;
00271 #ifdef HAVE_GETRUSAGE
00272   struct rusage ru;
00273 #else
00274 #  ifdef HAVE_CLOCK
00275   clock_t cl;
00276 #  endif
00277 #endif
00278 #ifdef HAVE_UNAME
00279   struct utsname un;
00280 
00281   if (!uname(&un) < 0) {
00282 #endif
00283     vers_t = " ";
00284     uni_t  = "*unknown*";
00285 #ifdef HAVE_UNAME
00286   } else {
00287     vers_t = un.release;
00288     uni_t  = un.sysname;
00289   }
00290 #endif
00291 
00292   i = count_users(userlist);
00293   dprintf(idx, "I am %s, running %s: %d user%s (mem: %uk).\n",
00294           botnetnick, ver, i, i == 1 ? "" : "s",
00295           (int) (expected_memory() / 1024));
00296 
00297   s[0] = 0;
00298   if (now2 > 86400) {
00299     /* days */
00300     sprintf(s, "%d day", (int) (now2 / 86400));
00301     if ((int) (now2 / 86400) >= 2)
00302       strcat(s, "s");
00303     strcat(s, ", ");
00304     now2 -= (((int) (now2 / 86400)) * 86400);
00305   }
00306   hr = (time_t) ((int) now2 / 3600);
00307   now2 -= (hr * 3600);
00308   min = (time_t) ((int) now2 / 60);
00309   sprintf(&s[strlen(s)], "%02d:%02d", (int) hr, (int) min);
00310   s1[0] = 0;
00311   if (backgrd)
00312     strcpy(s1, MISC_BACKGROUND);
00313   else {
00314     if (term_z)
00315       strcpy(s1, MISC_TERMMODE);
00316     else if (con_chan)
00317       strcpy(s1, MISC_STATMODE);
00318     else
00319       strcpy(s1, MISC_LOGMODE);
00320   }
00321 #ifdef HAVE_GETRUSAGE
00322   getrusage(RUSAGE_SELF, &ru);
00323   hr = (int) ((ru.ru_utime.tv_sec + ru.ru_stime.tv_sec) / 60);
00324   min = (int) ((ru.ru_utime.tv_sec + ru.ru_stime.tv_sec) - (hr * 60));
00325   sprintf(s2, "CPU: %02d:%02d", (int) hr, (int) min);    /* Actally min/sec */
00326 #else
00327 #  ifdef HAVE_CLOCK
00328   cl = (clock() / CLOCKS_PER_SEC);
00329   hr = (int) (cl / 60);
00330   min = (int) (cl - (hr * 60));
00331   sprintf(s2, "CPU: %02d:%02d", (int) hr, (int) min);    /* Actually min/sec */
00332 #  else
00333   sprintf(s2, "CPU: unknown");
00334 #  endif
00335 #endif
00336   dprintf(idx, "%s %s (%s) - %s - %s: %4.1f%%\n", MISC_ONLINEFOR,
00337           s, s1, s2, MISC_CACHEHIT,
00338           100.0 * ((float) cache_hit) / ((float) (cache_hit + cache_miss)));
00339 
00340   dprintf(idx, "Configured with: " EGG_AC_ARGS "\n");
00341   if (admin[0])
00342     dprintf(idx, "Admin: %s\n", admin);
00343 
00344   dprintf(idx, "Config file: %s\n", configfile);
00345   dprintf(idx, "OS: %s %s\n", uni_t, vers_t);
00346 
00347   /* info library */
00348   dprintf(idx, "%s %s\n", MISC_TCLLIBRARY,
00349           ((interp) && (Tcl_Eval(interp, "info library") == TCL_OK)) ?
00350           tcl_resultstring() : "*unknown*");
00351 
00352   /* info tclversion/patchlevel */
00353   dprintf(idx, "%s %s (%s %s)\n", MISC_TCLVERSION,
00354           ((interp) && (Tcl_Eval(interp, "info patchlevel") == TCL_OK)) ?
00355           tcl_resultstring() : (Tcl_Eval(interp, "info tclversion") == TCL_OK) ?
00356           tcl_resultstring() : "*unknown*", MISC_TCLHVERSION,
00357           TCL_PATCH_LEVEL ? TCL_PATCH_LEVEL : "*unknown*");
00358 
00359   if (tcl_threaded())
00360     dprintf(idx, "Tcl is threaded.\n");
00361   dprintf(idx, "Socket table: %d/%d\n", threaddata()->MAXSOCKS, max_socks);
00362 }

Here is the call graph for this function:

Here is the caller graph for this function:

void tell_verbose_uptime ( int  idx  ) 

Definition at line 230 of file chanprog.c.

References backgrd, con_chan, dprintf, int, MISC_BACKGROUND, MISC_LOGMODE, MISC_ONLINEFOR, MISC_STATMODE, MISC_TERMMODE, now, online_since, term_z, and time_t.

Referenced by cmd_uptime().

00231 {
00232   char s[256], s1[121];
00233   time_t now2, hr, min;
00234 
00235   now2 = now - online_since;
00236   s[0] = 0;
00237   if (now2 > 86400) {
00238     /* days */
00239     sprintf(s, "%d day", (int) (now2 / 86400));
00240     if ((int) (now2 / 86400) >= 2)
00241       strcat(s, "s");
00242     strcat(s, ", ");
00243     now2 -= (((int) (now2 / 86400)) * 86400);
00244   }
00245   hr = (time_t) ((int) now2 / 3600);
00246   now2 -= (hr * 3600);
00247   min = (time_t) ((int) now2 / 60);
00248   sprintf(&s[strlen(s)], "%02d:%02d", (int) hr, (int) min);
00249   s1[0] = 0;
00250   if (backgrd)
00251     strcpy(s1, MISC_BACKGROUND);
00252   else {
00253     if (term_z)
00254       strcpy(s1, MISC_TERMMODE);
00255     else if (con_chan)
00256       strcpy(s1, MISC_STATMODE);
00257     else
00258       strcpy(s1, MISC_LOGMODE);
00259   }
00260   dprintf(idx, "%s %s  (%s)\n", MISC_ONLINEFOR, s, s1);
00261 }

Here is the caller graph for this function:

void wipe_timers ( Tcl_Interp *  irp,
tcl_timer_t **  stack 
)

Definition at line 632 of file chanprog.c.

References timer_str::next, nfree, and NULL.

Referenced by cmd_restart().

00633 {
00634   tcl_timer_t *mark = *stack, *old;
00635 
00636   while (mark) {
00637     old = mark;
00638     mark = mark->next;
00639     nfree(old->cmd);
00640     nfree(old);
00641   }
00642   *stack = NULL;
00643 }

Here is the caller graph for this function:

Variable Documentation

char admin[121] = ""

Definition at line 61 of file chanprog.c.

int backgrd

Definition at line 106 of file main.c.

char botname[NICKLEN+1]

Definition at line 63 of file chanprog.c.

char botnetnick[]

Definition at line 45 of file botnet.c.

int cache_hit

Definition at line 47 of file userrec.c.

Referenced by global(), main(), and tell_verbose_status().

int cache_miss

Definition at line 47 of file userrec.c.

Referenced by global(), main(), and tell_verbose_status().

struct chanset_t* chanset = NULL

Definition at line 60 of file chanprog.c.

int con_chan

Definition at line 107 of file main.c.

Referenced by core_secondly(), do_arg(), putlog(), tell_verbose_status(), and tell_verbose_uptime().

char configfile[]

Definition at line 111 of file main.c.

Referenced by chanprog(), do_arg(), and tell_verbose_status().

int conmask

Definition at line 66 of file misc.c.

Referenced by chanprog(), check_dcc_attrs(), check_dcc_chanattrs(), cmd_su(), dcc_chat_pass(), main(), and tcl_eggint().

int default_flags

Definition at line 103 of file main.c.

char firewall[]

Definition at line 63 of file net.c.

Referenced by tcl_eggstr(), and tell_settings().

int firewallport

Definition at line 64 of file net.c.

Referenced by tcl_eggstr(), and tell_settings().

char helpdir[]

Definition at line 113 of file main.c.

int ignore_time
Tcl_Interp* interp
log_t* logs

Definition at line 61 of file misc.c.

int make_userfile

Definition at line 122 of file main.c.

int max_logs

Definition at line 62 of file misc.c.

Referenced by chanprog(), check_logsize(), core_secondly(), expmem_misc(), expmem_tclmisc(), flushlogs(), init_misc(), logsuffix_change(), putlog(), tcl_eggint(), tcl_logfile(), and tell_settings().

int max_socks

Definition at line 81 of file tcl.c.

Referenced by increase_socks_max(), tcl_eggint(), and tell_verbose_status().

char moddir[]

Definition at line 109 of file modules.c.

Referenced by tell_settings().

char motdfile[]

Definition at line 43 of file dccutil.c.

int noshare
char notify_new[]

Definition at line 102 of file main.c.

time_t now

Definition at line 88 of file main.c.

time_t online_since

Definition at line 120 of file main.c.

char origbotname[NICKLEN+1]

Definition at line 62 of file chanprog.c.

char owner[]

Definition at line 123 of file main.c.

Referenced by isowner(), reaffirm_owners(), and tell_settings().

int protect_readonly
char tempdir[]

Definition at line 48 of file dcc.c.

int term_z

Definition at line 108 of file main.c.

Referenced by do_arg(), main(), putlog(), tell_verbose_status(), and tell_verbose_uptime().

tcl_timer_t* timer = NULL

Definition at line 56 of file chanprog.c.

Referenced by answer_local_whom(), and dump_links().

unsigned long timer_id = 1

Definition at line 58 of file chanprog.c.

Referenced by add_timer().

char userfile[]
struct userrec* userlist
tcl_timer_t* utimer = NULL

Definition at line 57 of file chanprog.c.

char ver[]

Definition at line 129 of file main.c.

Generated on 7 Sep 2016 for Eggdrop by  doxygen 1.6.1