diff --git a/exec/mailinglist.R b/exec/mailinglist.R index bbcc357d..0d95f1c8 100755 --- a/exec/mailinglist.R +++ b/exec/mailinglist.R @@ -16,10 +16,10 @@ doc <- " USAGE: mailinglist.R parse help mailinglist.R parse - mailinglist.R download modmbox help - mailinglist.R download modmbox - mailinglist.R download pipermail help - mailinglist.R download pipermail + mailinglist.R refresh modmbox help + mailinglist.R refresh modmbox + mailinglist.R refresh pipermail help + mailinglist.R refresh pipermail mailinglist.R (-h | --help) mailinglist.R --version @@ -58,10 +58,10 @@ if (arguments[["parse"]] & arguments[["help"]]) { data.table::fwrite(parsed_mbox, save_path) cli::cli_alert_success(paste0("Parsed mbox file was saved at: ", save_path)) -} else if (arguments[["download"]] & arguments[["modmbox"]] & arguments[["help"]]) { - cli::cli_alert_info("Downloads mailing list archives from mod_mbox using download_mod_mbox().") +} else if (arguments[["refresh"]] & arguments[["modmbox"]] & arguments[["help"]]) { + cli::cli_alert_info("Refreshes mailing list archives from mod_mbox using refresh_mod_mbox().") -} else if (arguments[["download"]] & arguments[["modmbox"]]) { +} else if (arguments[["refresh"]] & arguments[["modmbox"]]) { conf_path <- arguments[[""]] project_key <- arguments[[""]] @@ -78,11 +78,11 @@ if (arguments[["parse"]] & arguments[["help"]]) { verbose = TRUE ) - cli::cli_alert_success(paste0("Downloaded mailing list archives were saved at: ", save_folder_path)) + cli::cli_alert_success(paste0("Refreshed mailing list archives were saved at: ", save_folder_path)) -} else if (arguments[["download"]] & arguments[["pipermail"]] & arguments[["help"]]) { - cli::cli_alert_info("Downloads mailing list archives from pipermail using download_pipermail().") -} else if (arguments[["download"]] & arguments[["pipermail"]]) { +} else if (arguments[["refresh"]] & arguments[["pipermail"]] & arguments[["help"]]) { + cli::cli_alert_info("Refreshes mailing list archives from pipermail using refresh_pipermail().") +} else if (arguments[["refresh"]] & arguments[["pipermail"]]) { conf_path <- arguments[[""]] project_key <- arguments[[""]] @@ -99,7 +99,7 @@ if (arguments[["parse"]] & arguments[["help"]]) { verbose = TRUE ) - cli::cli_alert_success(paste0("Downloaded mailing list archives were saved at: ", save_folder_path)) + cli::cli_alert_success(paste0("Refreshed mailing list archives were saved at: ", save_folder_path)) } else if (arguments[["-h"]] || arguments[["--help"]]) { cli::cli_alert_info(doc)