====== SDK Script transfer.are ====== /* DESC: This scripts stores the latest GNSS positions in a remote FTP file * Copyright (C) 2014 NetModule AG, Switzerland */ SITE = "ftp://x.x.x.x/test"; USR = "username"; PWD = "password"; DATA = "data"; /* list a directory */ files = nb_transfer_list(USR, PWD, SITE); /* dump(files); */ /* * delete all files starting with DATA, filesize greater 1k and older than 10 minutes */ for (i = 0; i < length(files); i++) { file = files[i]; name = struct_get(file, "name"); size = struct_get(file, "size"); tm = struct_get(file, "tm"); if (left(name, strlen(DATA)) != DATA) continue; if (size < 1024) continue; now = localtime(time()); age = mktime(now) - mktime(tm); if (age <= (60 * 10)) continue; nb_syslog("deleting '%s' (size %d, age %ds) from remote site", name, size, age); if (nb_transfer_delete(USR, PWD, sprintf("%s/%s", SITE, name)) != 0) { nb_syslog("unable to delete '%s'", name); } } /* * download data, modify and upload it */ if (nb_transfer_get(USR, PWD, sprintf("%s/%s", SITE, DATA), DATA) == 0) { fp = fopen(DATA, "a"); if (fp) { status = nb_status("gnss"); lat = struct_get(status, "GNSS1_LATITUDE"); lon = struct_get(status, "GNSS1_LONGITUDE"); now = localtime(time()); timestamp = strftime("%Y-%m-%d %H:%M:%S", now); fwrite(fp, sprintf("%s lat = %s, lon = %s\n", timestamp, lat, lon)); fclose(fp); nb_syslog("wrote down position (%s,%s) to local file", lat, lon); if (nb_transfer_put(USR, PWD, sprintf("%s/%s", SITE, DATA), DATA) == 0) { nb_syslog("stored '%s' on remote site", DATA); } else { nb_syslog("unable transfer '%s'", DATA); } unlink(DATA); } else { nb_syslog("cannot open local '%s'", DATA); } } else { nb_syslog("download of '%s' failed", DATA); } exit(0);