Branch: Tag:

2004-11-22

2004-11-22 11:34:27 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Cleanup code should now actually work.

Rev: server/bin/mk_wxs.pike:1.7

1:   /* -  * $Id: mk_wxs.pike,v 1.6 2004/11/16 12:06:49 grubba Exp $ +  * $Id: mk_wxs.pike,v 1.7 2004/11/22 11:34:27 grubba Exp $    *    * Make a Windows Installer XML Source file (wxs) suitable    * for a Roxen installer.
39:    if (stringp(opt[1])) {    version_str = opt[1];    } else { -  werror("$Id: mk_wxs.pike,v 1.6 2004/11/16 12:06:49 grubba Exp $\n"); +  werror("$Id: mk_wxs.pike,v 1.7 2004/11/22 11:34:27 grubba Exp $\n");    exit(0);    }    break;
108:       // Add cleanup.    root->uninstall_file(combine_path(server_dir, "bin/roxen*.exe")); +  feature_node->add_child(WixNode("ComponentRef", ([ +  "Id":"C_" + root->sub_dirs->bin->id, +  ])))-> +  add_child(line_feed);    root->uninstall_file(combine_path(server_dir, "pikelo*.txt")); -  +  feature_node->add_child(WixNode("ComponentRef", ([ +  "Id":"C_" + root->id, +  ])))-> +  add_child(line_feed);       // Generate the XML.    Parser.XML.Tree.SimpleRootNode root_node = Parser.XML.Tree.SimpleRootNode()->