1 | // =============================================================== // |
---|
2 | // // |
---|
3 | // File : AW_names_admin.cxx // |
---|
4 | // Purpose : // |
---|
5 | // // |
---|
6 | // Institute of Microbiology (Technical University Munich) // |
---|
7 | // http://www.arb-home.de/ // |
---|
8 | // // |
---|
9 | // =============================================================== // |
---|
10 | |
---|
11 | #include "AW_rename.hxx" |
---|
12 | |
---|
13 | #include <aw_window.hxx> |
---|
14 | #include <aw_advice.hxx> |
---|
15 | #include <aw_edit.hxx> |
---|
16 | #include <aw_awar.hxx> |
---|
17 | #include <aw_msg.hxx> |
---|
18 | #include <aw_root.hxx> |
---|
19 | #include <awt_sel_boxes.hxx> |
---|
20 | |
---|
21 | #include <arb_file.h> |
---|
22 | #include <aw_question.hxx> |
---|
23 | |
---|
24 | #define AWAR_NAMESERVER_STATUS "tmp/nameserver/status" |
---|
25 | |
---|
26 | static char *namesFilename(GBDATA *gb_main) { |
---|
27 | const char *field = AW_get_nameserver_addid(gb_main); |
---|
28 | const char *filename = field[0] ? GBS_global_string("names_%s.dat", field) : "names.dat"; |
---|
29 | char *fullname = nulldup(GB_path_in_ARBLIB("nas", filename)); |
---|
30 | |
---|
31 | return fullname; |
---|
32 | } |
---|
33 | |
---|
34 | inline bool continue_with_namesDat_destruction(const char *kindOfDestruction) { |
---|
35 | return aw_ask_sure("MOD_NAMES_DAT", |
---|
36 | GBS_global_string("This may DESTROY the name-consistency for ALL USERS of names.dat!\n" |
---|
37 | "Names will have to be regenerated for all databases.\n" |
---|
38 | "\n" |
---|
39 | "Are you REALLY sure you like to continue %s names.dat?", kindOfDestruction)); |
---|
40 | } |
---|
41 | |
---|
42 | static void awtc_delete_names_file(AW_window*, GBDATA *gb_main) { |
---|
43 | if (continue_with_namesDat_destruction("deleting")) { |
---|
44 | char *path = namesFilename(gb_main); |
---|
45 | char *newpath = GBS_string_eval(path, "*=*%", 0); |
---|
46 | GB_ERROR error = GB_rename_file(path, newpath); |
---|
47 | if (error) aw_message(error); |
---|
48 | free(newpath); |
---|
49 | free(path); |
---|
50 | } |
---|
51 | } |
---|
52 | |
---|
53 | static void awtc_edit_names_file(AW_window*, GBDATA *gb_main) { |
---|
54 | if (continue_with_namesDat_destruction("editing")) { |
---|
55 | char *path = namesFilename(gb_main); |
---|
56 | AW_edit(path); |
---|
57 | free(path); |
---|
58 | } |
---|
59 | } |
---|
60 | |
---|
61 | static void awtc_remove_arb_acc(AW_window*, GBDATA *gb_main) { |
---|
62 | if (continue_with_namesDat_destruction("filtering")) { |
---|
63 | char *path = namesFilename(gb_main); |
---|
64 | char *newpath = GBS_string_eval(path, "*=*%", 0); |
---|
65 | char *command = GBS_global_string_copy("cp %s %s;" |
---|
66 | "arb_replace -l '" |
---|
67 | "*ACC {}*=:" // remove entries w/o acc |
---|
68 | "*ACC {ARB*='" // remove entries with 'ARB_' prefix (Note: Nameserver does not store the '_'!) |
---|
69 | " %s", |
---|
70 | path, newpath, path); |
---|
71 | GB_ERROR error = GBK_system(command); |
---|
72 | if (error) aw_message(error); |
---|
73 | |
---|
74 | free(command); |
---|
75 | free(newpath); |
---|
76 | free(path); |
---|
77 | } |
---|
78 | } |
---|
79 | |
---|
80 | static void addid_changed_cb(AW_root *awr, GBDATA *gb_main, bool show_advice) { |
---|
81 | GB_ERROR error = AW_test_nameserver(gb_main); |
---|
82 | |
---|
83 | awr->awar(AWAR_NAMESERVER_STATUS)->write_string(error ? error : "ok"); |
---|
84 | if (!error && show_advice) { |
---|
85 | AW_advice("Calling 'Species/Synchronize IDs' is highly recommended", AW_ADVICE_TOGGLE_AND_HELP, 0, "namesadmin.hlp"); |
---|
86 | } |
---|
87 | } |
---|
88 | |
---|
89 | void AW_create_namesadmin_awars(AW_root *awr, GBDATA *gb_main) { |
---|
90 | awr->awar_string(AWAR_NAMESERVER_ADDID, "", gb_main); |
---|
91 | awr->awar_string(AWAR_NAMESERVER_STATUS, "<unchecked>", gb_main); |
---|
92 | } |
---|
93 | |
---|
94 | AW_window *AW_create_namesadmin_window(AW_root *root, GBDATA *gb_main) { |
---|
95 | AW_window_simple *aws = new AW_window_simple; |
---|
96 | aws->init(root, "NAME_SERVER_ADMIN", "NAME_SERVER ADMIN"); |
---|
97 | |
---|
98 | aws->load_xfig("awtc/names_admin.fig"); |
---|
99 | |
---|
100 | aws->at("help"); |
---|
101 | aws->callback(makeHelpCallback("namesadmin.hlp")); |
---|
102 | aws->create_button("HELP", "HELP", "H"); |
---|
103 | |
---|
104 | aws->at("close"); |
---|
105 | aws->callback(AW_POPDOWN); |
---|
106 | aws->create_button("CLOSE", "CLOSE", "C"); |
---|
107 | |
---|
108 | aws->button_length(30); |
---|
109 | |
---|
110 | aws->sens_mask(AWM_EXP); |
---|
111 | { |
---|
112 | aws->at("delete"); |
---|
113 | aws->callback(makeWindowCallback(awtc_delete_names_file, gb_main)); |
---|
114 | aws->create_button("DELETE_OLD_NAMES_FILE", "Delete old names file"); |
---|
115 | |
---|
116 | aws->at("edit"); |
---|
117 | aws->callback(makeWindowCallback(awtc_edit_names_file, gb_main)); |
---|
118 | aws->create_button("EDIT_NAMES_FILE", "Edit names file"); |
---|
119 | |
---|
120 | aws->at("remove_arb"); |
---|
121 | aws->callback(makeWindowCallback(awtc_remove_arb_acc, gb_main)); |
---|
122 | aws->create_button("REMOVE_SUPERFLUOUS_ENTRIES_IN_NAMES_FILE", |
---|
123 | "Remove all entries with an\n'ARB*' accession number\nfrom names file"); |
---|
124 | |
---|
125 | aws->at("config"); |
---|
126 | aws->callback(makeWindowCallback(awt_edit_arbtcpdat_cb, gb_main)); |
---|
127 | aws->create_button("CREATE_TEMPLATE", "Configure arb_tcp.dat"); |
---|
128 | } |
---|
129 | aws->sens_mask(AWM_ALL); |
---|
130 | |
---|
131 | AW_awar *awar_addid = root->awar(AWAR_NAMESERVER_ADDID); |
---|
132 | awar_addid->add_callback(makeRootCallback(addid_changed_cb, gb_main, true)); |
---|
133 | |
---|
134 | aws->at("add_field"); |
---|
135 | aws->create_input_field(AWAR_NAMESERVER_ADDID, 20); // (don't use field selection here atm; needs too many changes) |
---|
136 | |
---|
137 | aws->at("status"); |
---|
138 | aws->button_length(50); |
---|
139 | aws->create_button(NULL, AWAR_NAMESERVER_STATUS); |
---|
140 | |
---|
141 | addid_changed_cb(root, gb_main, false); // force status update |
---|
142 | |
---|
143 | return aws; |
---|
144 | } |
---|