/* sets a date, mapping given date into standard form if needed */
int
set_date(
char * date)
{
char *cmd = NULL;
clear_dir_list();
cmd = stralloc2("DATE ", date);
if (converse(cmd) == -1)
exit(1);
/* if a host/disk/directory is set, then check if that directory
is still valid at the new date, and if not set directory to
mount_point */
if (disk_path != NULL) {
cmd = newstralloc2(cmd, "OISD ", disk_path);
if (exchange(cmd) == -1)
exit(1);
if (server_happy())
{
suck_dir_list_from_server();
}
else
{
g_printf(_("No index records for cwd on new date\n"));
g_printf(_("Setting cwd to mount point\n"));
disk_path = newstralloc(disk_path, "/"); /* fake it */
clear_dir_list();
}
}
amfree(cmd);
return 0;
}
void
set_storage(void)
{
char *qstorage = quote_string(storage_in);
char *cmd = g_strconcat("STORAGE ", qstorage, NULL);
storage_in = NULL;
g_free(qstorage);
if (exchange(cmd) == -1)
exit(1);
g_free(cmd);
if (!server_happy()) {
}
suck_dir_list_from_server(); /* get list of directory contents */
}
void
set_translate(
char *translate)
{
if (translate == NULL) {
translate_mode = TRUE;
} else if (strcasecmp(translate, "yes") == 0 ||
strcasecmp(translate, "true") == 0 ||
strcasecmp(translate, "on") == 0) {
translate_mode = TRUE;
} else {
translate_mode = FALSE;
}
suck_dir_list_from_server(); /* get list of directory contents */
}
void
set_directory(
char * dir,
int verbose)
{
char *cmd = NULL;
char *new_dir = NULL;
char *qnew_dir;
char *dp, *de;
char *ldir = NULL;
/* do nothing if "." */
if(strcmp(dir,".")==0) {
show_directory(); /* say where we are */
return;
/*NOTREACHED*/
}
if (disk_name == NULL) {
g_printf(_("Must select disk before setting directory\n"));
return;
/*NOTREACHED*/
}
ldir = stralloc(dir);
clean_pathname(ldir);
/* convert directory into absolute path relative to disk mount point */
if (ldir[0] == '/')
{
/* absolute path specified, must start with mount point */
if (strcmp(mount_point, "/") == 0)
{
new_dir = stralloc(ldir);
}
else
{
if (strncmp(mount_point, ldir, strlen(mount_point)) != 0)
{
g_printf(_("Invalid directory - Can't cd outside mount point \"%s\"\n"),
mount_point);
amfree(ldir);
return;
/*NOTREACHED*/
}
new_dir = stralloc(ldir+strlen(mount_point));
if (strlen(new_dir) == 0) {
new_dir = newstralloc(new_dir, "/");
/* i.e. ldir == mount_point */
}
}
}
else
{
new_dir = stralloc(disk_path);
dp = ldir;
/* strip any leading ..s */
while (strncmp(dp, "../", 3) == 0)
{
de = strrchr(new_dir, '/'); /* always at least 1 */
if (de == new_dir)
{
/* at top of disk */
*(de + 1) = '\0';
dp = dp + 3;
}
else
{
*de = '\0';
dp = dp + 3;
}
}
if (strcmp(dp, "..") == 0) {
if (strcmp(new_dir, "/") == 0) {
/* at top of disk */
g_printf(_("Invalid directory - Can't cd outside mount point \"%s\"\n"),
mount_point);
/*@ignore@*/
amfree(new_dir);
/*@end@*/
amfree(ldir);
return;
/*NOTREACHED*/
}
de = strrchr(new_dir, '/'); /* always at least 1 */
if (de == new_dir)
{
/* at top of disk */
*(de+1) = '\0';
}
else
{
*de = '\0';
}
} else {
/*@ignore@*/
if (strcmp(new_dir, "/") != 0) {
strappend(new_dir, "/");
}
strappend(new_dir, ldir);
/*@end@*/
}
}
qnew_dir = quote_string(new_dir);
cmd = stralloc2("OISD ", qnew_dir);
amfree(qnew_dir);
if (exchange(cmd) == -1) {
exit(1);
/*NOTREACHED*/
}
amfree(cmd);
if (server_happy())
{
disk_path = newstralloc(disk_path, new_dir);
suck_dir_list_from_server(); /* get list of directory contents */
if (verbose)
show_directory(); /* say where we moved to */
}
else
{
g_printf(_("Invalid directory - %s\n"), dir);
}
/*@ignore@*/
amfree(new_dir);
amfree(ldir);
/*@end@*/
}
void
set_disk(
char * dsk,
char * mtpt)
{
char *cmd = NULL;
char *qdsk;
char *uqdsk;
char *uqmtpt = NULL;
if (is_extract_list_nonempty())
{
g_printf(_("Must clear extract list before changing disk\n"));
return;
}
/* if mount point specified, check it is valid */
if (mtpt != NULL) {
uqmtpt = unquote_string(mtpt);
if (*mtpt != '/') {
g_printf(_("Mount point \"%s\" invalid - must start with /\n"), uqmtpt);
amfree(uqmtpt);
return;
}
}
clear_dir_list();
uqdsk = unquote_string(dsk);
qdsk = quote_string(uqdsk);
cmd = stralloc2("DISK ", qdsk);
amfree(qdsk);
if (converse(cmd) == -1)
exit(1);
amfree(cmd);
if (!server_happy()) {
amfree(uqmtpt);
amfree(uqdsk);
return;
}
disk_name = newstralloc(disk_name, uqdsk);
if (mtpt == NULL)
{
/* mount point not specified */
if (*uqdsk == '/')
{
/* disk specified by mount point, hence use it */
mount_point = newstralloc(mount_point, uqdsk);
}
else
{
/* device name given, use '/' because nothing better */
mount_point = newstralloc(mount_point, "/");
}
}
else
{
/* mount point specified */
mount_point = newstralloc(mount_point, uqmtpt);
}
/* set the working directory to the mount point */
/* there is the possibility that there are no index records for the
disk for the given date, hence setting the directory to the
mount point will fail. Preempt this by checking first so we can write
a more informative message. */
if (exchange("OISD /") == -1)
exit(1);
if (server_happy())
{
disk_path = newstralloc(disk_path, "/");
suck_dir_list_from_server(); /* get list of directory contents */
}
else
{
g_printf(_("No index records for disk for specified date\n"));
g_printf(_("If date correct, notify system administrator\n"));
disk_path = newstralloc(disk_path, "/"); /* fake it */
clear_dir_list();
}
amfree(uqmtpt);
amfree(uqdsk);
if (am_has_feature(indexsrv_features, fe_amindexd_DLE)) {
char *dle_str;
char *errmsg = NULL;
cmd = stralloc("DLE");
if (exchange(cmd) == -1)
exit(1);
amfree(cmd);
if (!server_happy())
return;
dle_str = reply_line();
if (BSTRNCMP(dle_str+4, "NODLE") == 0) {
dump_dle = NULL;
} else {
dle_str = unquote_string(dle_str+4);
dump_dle = amxml_parse_node_CHAR(dle_str, &errmsg);
amfree(dle_str);
}
}
}
void
set_disk(
char * dsk,
char * mtpt)
{
char *cmd = NULL;
char *uqdsk;
char *uqmtpt = NULL;
if (is_extract_list_nonempty())
{
g_printf(_("Must clear extract list before changing disk\n"));
return;
}
/* if mount point specified, check it is valid */
if (mtpt != NULL) {
uqmtpt = unquote_string(mtpt);
if (*mtpt != '/') {
g_printf(_("Mount point \"%s\" invalid - must start with /\n"), uqmtpt);
amfree(uqmtpt);
return;
}
}
clear_dir_list();
uqdsk = unquote_string(dsk);
cmd = g_strconcat("DISK ", uqdsk, NULL);
if (converse(cmd) == -1)
exit(1);
amfree(cmd);
if (!server_happy()) {
amfree(uqdsk);
amfree(uqmtpt);
return;
}
g_free(disk_name);
disk_name = g_strdup(uqdsk);
if (mtpt == NULL)
{
/* mount point not specified */
if (*uqdsk == '/')
{
/* disk specified by mount point, hence use it */
g_free(mount_point);
mount_point = g_strdup(uqdsk);
}
else
{
/* device name given, use '/' because nothing better */
g_free(mount_point);
mount_point = g_strdup("/");
}
}
else
{
/* mount point specified */
g_free(mount_point);
mount_point = g_strdup(uqmtpt);
}
/* set the working directory to the mount point */
/* there is the possibility that there are no index records for the
disk for the given date, hence setting the directory to the
mount point will fail. Preempt this by checking first so we can write
a more informative message. */
if (exchange("OISD /") == -1)
exit(1);
if (server_happy())
{
g_free(disk_path);
disk_path = g_strdup("/");
suck_dir_list_from_server(); /* get list of directory contents */
}
else
{
g_printf(_("No index records for disk for specified date\n"));
g_printf(_("If date correct, notify system administrator\n"));
g_free(disk_path);
disk_path = g_strdup("/"); /* fake it */
clear_dir_list();
}
amfree(uqmtpt);
amfree(uqdsk);
}
