void Application::initPaths(const char *basename) { char temp[PATH_MAX]; if(realpath(basename, temp)) { //remove program name strtr(temp, "\\", "/"); for(signed i = strlen(temp) - 1; i >= 0; i--) { if(temp[i] == '/') { temp[i] = 0; break; } } if(strend(temp, "/") == false) strcat(temp, "/"); config().path.base = temp; } else { config().path.base = ""; } if(userpath(temp)) { strtr(temp, "\\", "/"); if(strend(temp, "/") == false) strcat(temp, "/"); config().path.user = temp; } else { config().path.user = ""; } char cwd[PATH_MAX]; config().path.startup = getcwd(cwd); }
static const char *domaintree_init_alias(cmd_parms *cmd, void *conf, const char *fake, const char *real) { char *f = strtr(apr_pstrdup(cmd->pool, fake), '.', '/'), *r = strtr(apr_pstrdup(cmd->pool, real), '.', '/'); apr_table_set(GET_MDT_CNF(cmd->server)->aliases.faketable, trim(f, strlen(f), '/', TRIM_BOTH), trim(r, strlen(r), '/', TRIM_BOTH)); return NULL; }
void chatlog_done() { FILE *chatlog=NULL; time_t tt;struct tm *t; char str[MAX_STRING]={0}; write_log("Chat closed"); if(rcpos)chatlog_write("\n",1); if(mcpos)chatlog_write("\n",0); if(cfgs(CFG_CHATLOG))chatlog=fopen(ccs,"at"); tt=time(NULL);t=localtime(&tt); strftime(str,MAX_STRING-1,"\n[--- Chat closed at %d %b %y %H:%M:%S ---]\n\n",t); if(chatlog){fwrite(str,strlen(str),1,chatlog);fclose(chatlog);} if(lemail)fwrite(str,strlen(str),1,lemail); if(cpkt) { if(cfgi(CFG_RECODEPKTS))recode_to_remote(str); strtr(str,'\n','\r'); fwrite(str,strlen(str)-1,1,cpkt); closeqpkt(cpkt,adr); snprintf(str,MAX_STRING-1,"%s/%s",cfgs(CFG_INBOUND),basename(pktname)); if(rename(pktname,str))write_log("can't rename %s to %s: %s",pktname,str,strerror(errno)); else chmod(str,cfgi(CFG_DEFPERM)); } if(lemail) { fclose(lemail); snprintf(str,MAX_STRING-1,"mail -s chatlog %s < /tmp/qlemail.%04lx",cfgs(CFG_CHATTOEMAIL),(long)getpid()); execsh(str); lunlink(strrchr(str,'<')+1); } }
int chatlog_init(char *remname,ftnaddr_t *ra,int side) { FILE *chatlog=NULL; time_t tt;struct tm *t; char str[MAX_STRING]={0}; write_log("Chat opened%s",side?" by remote side":""); adr=&cfgal(CFG_ADDRESS)->addr; if(cfgs(CFG_RUNONCHAT)&&side)execnowait("/bin/sh","-c",ccs,ftnaddrtoa(adr)); if(cfgi(CFG_CHATLOGNETMAIL)) { snprintf(pktname,MAX_PATH-1,"%s/tmp/%08lx.pkt",cfgs(CFG_INBOUND),sequencer()); cpkt=openpktmsg(adr,adr,"qico chat-log poster",xstrdup(cfgs(CFG_SYSOP)),"log of chat",NULL,pktname,137); if(!cpkt)write_log("can't open '%s' for writing",pktname); } if(cfgs(CFG_CHATTOEMAIL)) { snprintf(str,MAX_PATH,"/tmp/qlemail.%04lx",(long)getpid()); lemail=fopen(str,"wt"); if(!lemail)write_log("can't crearte temporary email-log file"); } if(cfgs(CFG_CHATLOG))chatlog=fopen(ccs,"at"); if(ccs&&!chatlog)write_log("can't open chat log %s",ccs); tt=time(NULL);t=localtime(&tt); snprintf(str,MAX_STRING,"[Chat with: %s (%u:%u/%u.%u) open by %s at ",remname,ra->z,ra->n,ra->f,ra->p,side?"remote":"my"); strftime(str+strlen(str),MAX_STRING-1,"%d %b %y %H:%M:%S]\n",t); if(chatlog){fwrite(str,strlen(str),1,chatlog);fclose(chatlog);} if(lemail)fwrite(str,strlen(str),1,lemail); if(cpkt) { if(cfgi(CFG_RECODEPKTS))recode_to_remote(str); strtr(str,'\n','\r'); fwrite(str,strlen(str),1,cpkt); runtoss=1; } mcpos=rcpos=0;*rchat=0;*mchat=0; return(cpkt!=NULL||chatlog!=NULL||lemail!=NULL); }
int main( int argc, char **argv ) { int c; int errflag = 0; int orb; int stop = 0; long nrecs; char *match = ".*/pf/st"; char *from = 0; char *statefile = 0; char *pfname = "orb2rrdc"; char *orbname; char *dbcache; char *rrdtool; char command[STRSZ]; char net[STRSZ]; char sta[STRSZ]; char rrdvar[STRSZ]; char key[STRSZ]; char path[FILENAME_MAX]; Dbptr db; Dbptr dbt; Pf *pf; char *Default_network; Tbl *dlslines; Arr *Dls_vars_dsparams; Arr *Dls_vars_rras; Tbl *Dls_vars_keys; char *line; char *dls_var; char *dsparams; Tbl *rras; int i; int j; OrbreapThr *ort; int pktid; char srcname[ORBSRCNAME_SIZE]; double time = 0; char *packet = 0; int nbytes = 0; int bufsize = 0; Packet *pkt = 0; int rc; char *s; Pf *dlspf; Tbl *dlspfkeys; char *element; Tbl *parts; double val; Pf *pfval = 0; elog_init( argc, argv ); while( ( c = getopt( argc, argv, "vVd:s:p:m:f:" ) ) != -1 ) { switch( c ) { case 'd': CacheDaemon = optarg; break; case 'f': from = optarg; break; case 'm': match = optarg; break; case 'p': pfname = optarg; break; case 's': statefile = optarg; break; case 'v': Verbose++; break; case 'V': VeryVerbose++; Verbose++; break; default: elog_complain( 0, "Unknown option '%c'\n", c ); errflag++; break; } } if( errflag || argc - optind != 2 ) { usage(); } if( Verbose ) { elog_notify( 0, "Starting at %s (%s $Revision$ $Date$)\n", zepoch2str( str2epoch( "now" ), "%D %T %Z", "" ), Program_Name ); } orbname = argv[optind++]; dbcache = argv[optind++]; pfread( pfname, &pf ); rrdtool = pfget_string( pf, "rrdtool" ); if( rrdtool == NULL || ! strcmp( rrdtool, "" ) ) { elog_die( 0, "Error: no rrdtool executable name specified in parameter file\n" ); } else if( ( rrdtool[0] == '/' && ! is_present( rrdtool ) ) || ( rrdtool[0] != '/' && ! datafile( "PATH", rrdtool ) ) ) { elog_die( 0, "Error: can't find rrdtool executable by name of '%s' (check PATH environment " "variable, or absolute path name if given)\n", rrdtool ); } else if( rrdtool[0] == '/' ) { sprintf( command, "%s -", rrdtool ); } else { sprintf( command, "rrdtool -" ); } Suppress_egrep = pfget_string( pf, "suppress_egrep" ); if( Suppress_egrep != NULL && strcmp( Suppress_egrep, "" ) ) { if( ! datafile( "PATH", "egrep" ) ) { elog_complain( 0, "Ignoring suppress_egrep parameter: can't find egrep on path\n" ); } else { sprintf( command, "%s 2>&1 | egrep -v '%s'", command, Suppress_egrep ); } } if( VeryVerbose ) { elog_notify( 0, "Executing command: %s\n", command ); } Rrdfp = popen( command, "w" ); if( Rrdfp == (FILE *) NULL ) { elog_die( 0, "Failed to open socket to rrdtool command\n" ); } orb = orbopen( orbname, "r&" ); if( orb < 0 ) { elog_die( 0, "Failed to open orb '%s' for reading. Bye.\n", orbname ); } orbselect( orb, match ); if( from != NULL && statefile == NULL ) { pktid = orbposition( orb, from ); if( Verbose ) { elog_notify( 0, "Positioned to packet %d\n", pktid ); } } else if( from != NULL ) { elog_complain( 0, "Ignoring -f in favor of existing state file\n" ); } if( statefile != NULL ) { stop = 0; exhume( statefile, &stop, 15, 0 ); orbresurrect( orb, &pktid, &time ); if( Verbose ) { elog_notify( 0, "Resurrecting state to pktid %d, time %s\n", pktid, s = strtime( time ) ); free( s ); } orbseek( orb, pktid ); } dbopen( dbcache, "r+", &db ); if( db.database < 0 ) { elog_die( 0, "Failed to open cache database '%s'. Bye.\n", dbcache ); } else { db = dblookup( db, "", "rrdcache", "", "" ); if( db.table < 0 ) { elog_die( 0, "Failed to lookup 'rrdcache' table in '%s'. Bye.\n", dbcache ); } } dbcrunch( db ); dbt = dbsubset( db, "endtime == NULL", NULL ); Rrd_files = newarr( 0 ); dbquery( dbt, dbRECORD_COUNT, &nrecs ); for( dbt.record = 0; dbt.record < nrecs; dbt.record++ ) { dbgetv( dbt, 0, "net", &net, "sta", &sta, "rrdvar", &rrdvar, NULL ); dbfilename( dbt, (char *) &path ); sprintf( key, "%s:%s:%s", net, sta, rrdvar ); if( ! is_present( path ) ) { elog_complain( 0, "WARNING: rrd file '%s', listed in database, does not exist. " "Removing database entry.\n", path ); dbmark( dbt ); } else { setarr( Rrd_files, key, strdup( path ) ); if( VeryVerbose ) { elog_notify( 0, "Re-using rrd file '%s' for '%s'\n", path, key ); } } } Rrdfile_pattern = pfget_string( pf, "rrdfile_pattern" ); Status_stepsize_sec = pfget_double( pf, "status_stepsize_sec" ); Default_network = pfget_string( pf, "default_network" ); dlslines = pfget_tbl( pf, "dls_vars" ); Dls_vars_dsparams = newarr( 0 ); Dls_vars_rras = newarr( 0 ); for( i = 0; i < maxtbl( dlslines ); i++ ) { line = gettbl( dlslines, i ); strtr( line, "\t", " " ); rras = split( line, ' ' ); dls_var = shifttbl( rras ); dsparams = shifttbl( rras ); setarr( Dls_vars_dsparams, dls_var, dsparams ); setarr( Dls_vars_rras, dls_var, rras ); } ort = orbreapthr_new( orb, -1., 0 ); for( ; stop == 0; ) { orbreapthr_get( ort, &pktid, srcname, &time, &packet, &nbytes, &bufsize ); if( statefile ) { rc = bury(); if( rc < 0 ) { elog_complain( 0, "Unexpected failure of bury command! " "(are there two orb2rrdc's running with the same state" "file?)\n" ); clear_register( 1 ); } } rc = unstuffPkt( srcname, time, packet, nbytes, &pkt ); if( rc == Pkt_pf ) { if( VeryVerbose ) { /* Parameter files generally too big for elog */ fprintf( stderr, "Received a parameter-file '%s' at %s\n%s\n\n", srcname, s = strtime( time ), pf2string( pkt->pf ) ); free( s ); } else if( Verbose ) { elog_notify( 0, "Received a parameter-file '%s' at %s\n", srcname, s = strtime( time ) ); free( s ); } pfmorph( pkt->pf ); if( VeryVerbose ) { fprintf( stderr, "Morphed parameter-file '%s' to interpret 'opt':\n%s\n\n", srcname, pf2string( pkt->pf ) ); } pfget( pkt->pf, "dls", (void **) &dlspf ); dlspfkeys = pfkeys( dlspf ); Dls_vars_keys = keysarr( Dls_vars_dsparams ); for( i = 0; i < maxtbl( dlspfkeys ); i++ ) { element = gettbl( dlspfkeys, i ); if( strcontains( element, "_", 0, 0, 0 ) ) { parts = split( (s = strdup( element )), '_' ); sprintf( net, "%s", (char *) gettbl( parts, 0 ) ); sprintf( sta, "%s", (char *) gettbl( parts, 1 ) ); free( s ); freetbl( parts, 0 ); } else { sprintf( net, "%s", Default_network ); sprintf( sta, "%s", element ); } for( j = 0; j < maxtbl( Dls_vars_keys ); j++ ) { dls_var = gettbl( Dls_vars_keys, j ); sprintf( key, "%s{%s}", element, dls_var ); if( pfresolve( dlspf, key, 0, &pfval ) < 0 ) { elog_complain( 0, "Unable to extract variable '%s' " "(not present or wrong type) from element '%s' " "in packet from '%s', timestamped '%s'; Skipping\n", key, element, srcname, s = strtime( time ) ); free( s ); pfval = 0; continue; } else if( pfval != (Pf *) NULL && pfval->value.s != (char *) NULL && ! strcmp( pfval->value.s, "-" ) ) { if( VeryVerbose ) { elog_notify( 0, "Non-floating point value '-' in variable '%s', " "in packet from '%s', timestamped '%s'; Skipping data point\n", key, srcname, s = strtime( time ) ); free( s ); } continue; } else { val = pfget_double( dlspf, key ); } archive_dlsvar( db, net, sta, dls_var, (char *) getarr( Dls_vars_dsparams, dls_var ), (Tbl *) getarr( Dls_vars_rras, dls_var ), time, val ); } } freetbl( dlspfkeys, 0 ); freetbl( Dls_vars_keys, 0 ); } else if( rc == Pkt_stash ) { ; /* Do nothing */ } else { if( Verbose ) { elog_notify( 0, "Received a packet that's not a parameter file " "(type '%d' from unstuffPkt); skipping\n", rc ); } } } }
//--------------------------------------------------------------------------- bool applychanges() { FILE *fh; char filename[256]; bool result; bool file_exists; TRegistry *myreg; result = false; file_exists = false; myreg = new TRegistry(); myreg->RootKey = HKEY_LOCAL_MACHINE; myreg->OpenKey( "Software\\Ampoliros", true ); myreg->WriteString( "PRIVATE_TREE", ampcfgform->privatetree->Text ); myreg->WriteString( "PUBLIC_TREE", ampcfgform->publictree->Text ); myreg->WriteString( "SITES_TREE", ampcfgform->sitestree->Text ); myreg->WriteString( "AMP_HOST", ampcfgform->hostname->Text ); myreg->WriteString( "AMP_URL", ampcfgform->ampurl->Text ); myreg->WriteString( "ADMIN_URL", ampcfgform->adminurl->Text ); myreg->WriteString( "ROOT_URL", ampcfgform->rooturl->Text ); myreg->WriteString( "CGI_URL", ampcfgform->cgiurl->Text ); strcpy( filename, ampcfgform->privatetree->Text.c_str() ); strcat( filename, "\\etc\\ampconfig.cfg" ); if ( access( filename, 0 ) == 0 ) file_exists = true; fh = fopen( filename, "w" ); if ( fh ) { fprintf( fh, "HTTPD_GROUP = nogroup\n" ); fprintf( fh, "HTTPD_USER = nobody\n" ); fprintf( fh, "AMP_HOST = %s\n", strtr( ampcfgform->hostname->Text.c_str(), "\\", "/" ) ); fprintf( fh, "AMP_URL = %s\n", strtr( ampcfgform->ampurl->Text.c_str(), "\\", "/" ) ); fprintf( fh, "AMP_ROOTURL = %s\n", strtr( ampcfgform->rooturl->Text.c_str(), "\\", "/" ) ); fprintf( fh, "ADMIN_URL = %s\n", strtr( ampcfgform->adminurl->Text.c_str(), "\\", "/" ) ); fprintf( fh, "CGI_URL = %s\n", strtr( ampcfgform->cgiurl->Text.c_str(), "\\", "/" ) ); fprintf( fh, "PUBLIC_TREE = %s/\n", strtr( ampcfgform->publictree->Text.c_str(), "\\", "/" ) ); fprintf( fh, "PRIVATE_TREE = %s/\n", strtr( ampcfgform->privatetree->Text.c_str(), "\\", "/" ) ); fprintf( fh, "SITES_TREE = %s/\n", strtr( ampcfgform->sitestree->Text.c_str(), "\\", "/" ) ); // :TODO: teg 010724: language // Language should be set only the first time, // using file_exists variable. fprintf( fh, "AMP_LANG = en\n" ); fclose( fh ); strcpy( filename, ampcfgform->privatetree->Text.c_str() ); strcat( filename, "\\etc\\ampdbconfig.cfg" ); fh = fopen( filename, "a" ); if ( fh ) { fclose( fh ); result = true; } strcpy( filename, strtr( ampcfgform->publictree->Text.c_str(), "\\", "/" ) ); strcat( filename, "\\cfgpath.php" ); makecfgpathfile( filename ); strcpy( filename, strtr( ampcfgform->publictree->Text.c_str(), "\\", "/" ) ); strcat( filename, "\\root\\cfgpath.php" ); makecfgpathfile( filename ); strcpy( filename, strtr( ampcfgform->publictree->Text.c_str(), "\\", "/" ) ); strcat( filename, "\\admin\\cfgpath.php" ); makecfgpathfile( filename ); strcpy( filename, strtr( ampcfgform->publictree->Text.c_str(), "\\", "/" ) ); strcat( filename, "\\cgi\\cfgpath.php" ); makecfgpathfile( filename ); } strcpy( filename, ampcfgform->privatetree->Text.c_str() ); strcat( filename, "\\etc\\ampconfigpath.php" ); fh = fopen( filename, "w" ); if ( fh ) { fprintf( fh, "<?php define( \"AMP_CONFIG\", \"%s/etc/ampconfig.cfg\" );?>\n", strtr( ampcfgform->privatetree->Text.c_str(), "\\", "/" ) ); fclose( fh ); } return result; }
int main(int argc, const char * argv[]) { const string_t s1 = "Created by Cator VeeVee on 10/22/13 (cator)"; const string_t s2 = "cator"; const string_t s3 = "Cator"; const string_t s4 = "Wei"; string_t str; printf("s1 = '%s' \n", s1); printf("s2 = '%s' \n", s2); printf("s3 = '%s' \n", s3); printf("s4 = '%s' \n", s4); __("strpos"); { printf("strpos(s1, s2): %ld \n", strpos(s1, s2)); printf("stripos(s1, s2): %ld \n", stripos(s1, s2)); printf("strrpos(s1, s3): %ld \n", strrpos(s1, s3)); printf("strripos(s1, s3): %ld \n", strripos(s1, s3)); printf("strpos(s1, s4): %ld \n", strpos(s1, s4)); printf("stripos(s1, s4): %ld \n", stripos(s1, s4)); printf("strrpos(s1, s4): %ld \n", strrpos(s1, s4)); printf("strripos(s1, s4): %ld \n", strripos(s1, s4)); } __("copy_substr"); { str = copy_substr(s1, 11, 5); printf("copy_substr(s1, 11, 5): '%s'\n", str); free(str); str = copy_substr(s1, -6, 5); printf("copy_substr(s1, -6, 5): '%s'\n", str); free(str); str = copy_substr(s1, -6, -1); printf("copy_substr(s1, -6, -1): '%s'\n", str); free(str); str = copy_substr(s1, 34, 10000); printf("copy_substr(s1, 34, 10000): '%s'\n", str); free(str); str = copy_substr(s1, 34, 0); printf("copy_substr(s1, 34, 0): '%s'\n", str); free(str); } __("substr_count"); { printf("substr_count(s1, \"Vee\"): %ld\n", substr_count(s1, "Vee")); printf("substr_count(s1, \"Cator\"): %ld\n", substr_count(s1, "Cator")); } __("strcase"); { str = copy_str(s1); printf("strtolowwer(s1): '%s'\n", strtolower(&str)); printf("strtoupper(s1): '%s'\n", strtoupper(&str)); printf("lcfirst(s1): '%s'\n", lcfirst(&str)); strtolower(&str); printf("ucfirst(s1): '%s'\n", ucfirst(&str)); strtolower(&str); printf("ucwords(s1): '%s'\n", ucwords(&str)); free(str); } __("trim"); { str = copy_str(" \t\v cator \r\n "); printf("ltrim(\" \\t\\v cator \\r\\n \"): '%s'\n", ltrim(&str)); free(str); str = copy_str(" \t\v cator \r\n "); printf("rtrim(\" \\t\\v cator \\r\\n \"): '%s'\n", rtrim(&str)); free(str); str = copy_str(" \t\v cator \r\n "); printf("trim(\" \\t\\v cator \\r\\n \"): '%s'\n", trim(&str)); free(str); } __("repeat"); { str = copy_repeat("-=", 10); printf("copy_repeat(\"-=\", 10): '%s'\n", str); free(str); str = copy_strpad(s2, 20, "-=", STR_PAD_LEFT); printf("copy_strpad(s2, 20, \"-=\", STR_PAD_LEFT): '%s'\n", str); free(str); str = copy_strpad(s2, 20, "-=", STR_PAD_RIGHT); printf("copy_strpad(s2, 20, \"-=\", STR_PAD_RIGHT): '%s'\n", str); free(str); str = copy_strpad(s2, 20, "-=", STR_PAD_BOTH); printf("copy_strpad(s2, 20, \"-=\", STR_PAD_BOTH): '%s'\n", str); free(str); } __("replace"); { str = copy_str(s1); printf("strtr(&str, \"ctr\", \"CTR\"): '%s'\n", strtr(&str, "ctr", "CTR")); free(str); str = copy_replace("cator", "*name*", s1); printf("copy_replace(\"cator\", \"*name*\", s1): '%s'\n", str); free(str); str = copy_ireplace("cator", "*name*", s1); printf("copy_ireplace(\"cator\", \"*name*\", s1): '%s'\n", str); free(str); } __("html"); { string_t html = "<p>Test 'paragraph'.</p><!-- Comment --> <a href=\"#fragment\">Other text</a>"; printf("html: ‘%s’\n", html); str = copy_str(html); printf("striptags(html): '%s'\n", striptags(&str)); free(str); str = copy_htmlencode(html, false); printf("copy_htmlencode(html, false): '%s'\n", str); free(str); str = copy_htmlencode(html, true); printf("copy_htmlencode(html, true): '%s'\n", str); free(str); str = copy_htmlencode(html, false); printf("htmldecode(encoded_html): '%s'\n", htmldecode(&str)); free(str); } __("url"); { string_t url = "http://*****:*****@catorv.com/index.html?name=cator&age=100#vee~"; printf("url: '%s'\n", url); str = copy_urlencode(url); printf("copy_urlencode(url): '%s'\n", str); printf("urldecode(copy_urlencode(url)): '%s'\n", urldecode(&str)); free(str); urlcompoments_t *components = copy_urlcompoments(url); if (components) { printf("copy_urlcompoments - scheme: '%s'\n", components->scheme); printf("copy_urlcompoments - user: '******'\n", components->user); printf("copy_urlcompoments - password: '******'\n", components->password); printf("copy_urlcompoments - host: '%s'\n", components->host); printf("copy_urlcompoments - port: %d\n", components->port); printf("copy_urlcompoments - path: '%s'\n", components->path); printf("copy_urlcompoments - query: '%s'\n", components->query); printf("copy_urlcompoments - fragment: '%s'\n", components->fragment); free_urlcomponents(components); } } __("base64"); { str = copy_base64encode(s1); printf("copy_base64encode(s1): '%s'\n", str); printf("base64decode(encoded_str): '%s'\n", base64decode(&str)); free(str); } __("md5"); { md5context_t md5; unsigned char decrypt[16]; size_t len = strlen(s2); int i; md5init(&md5); md5update(&md5, s2, len); md5final(decrypt, &md5); printf("copy_md5(s2): '"); for(i = 0; i < 16; i++) { printf("%02x", decrypt[i]); } printf("'\n"); // or str = copy_md5(s3); printf("copy_md5(s3): '%s'\n", str); free(str); } __("slashes"); { str = copy_addslashes("ab'cd\"dd\\..."); printf("copy_addslashes: '%s'\n", str); printf("stripslashes: '%s'\n", stripslashes(&str)); free(str); } return 0; }
string& strtr(string &dest, const char *before, const char *after) { strtr(dest(), before, after); return dest; }