poolparty 0.2.84 → 1.2.2
Sign up to get free protection for your applications and to get access to all the features.
- data/History.txt +7 -0
- data/License.txt +1 -1
- data/PostInstall.txt +1 -1
- data/README.txt +13 -22
- data/Rakefile +26 -35
- data/VERSION.yml +4 -0
- data/bin/cloud +24 -3
- data/bin/cloud-bootstrap +31 -0
- data/bin/cloud-configure +36 -20
- data/bin/{pool-console → cloud-console} +0 -0
- data/bin/cloud-contract +7 -7
- data/bin/cloud-describe +28 -0
- data/bin/cloud-expand +13 -6
- data/bin/cloud-handle-load +3 -3
- data/bin/cloud-list +9 -14
- data/bin/cloud-osxcopy +6 -5
- data/bin/cloud-provision +17 -22
- data/bin/cloud-setup-dev +11 -11
- data/bin/cloud-show +28 -0
- data/bin/cloud-spec +2 -2
- data/bin/cloud-ssh +10 -3
- data/bin/cloud-start +21 -23
- data/bin/cloud-terminate +15 -7
- data/bin/cloud-verify +32 -0
- data/bin/install-poolparty +216 -0
- data/bin/server-butterfly +25 -0
- data/bin/server-cloud-elections +37 -0
- data/bin/server-ensure-provisioning +33 -0
- data/bin/server-get-load +9 -12
- data/bin/server-list-active +25 -12
- data/bin/server-manage-election +67 -0
- data/bin/server-monitor.ru +42 -0
- data/bin/server-query-agent +15 -0
- data/bin/server-rerun +1 -1
- data/bin/server-write-new-nodes +2 -2
- data/config/jeweler.rb +52 -0
- data/config/requirements.rb +1 -9
- data/examples/basic.rb +10 -10
- data/examples/deploy.rb +5 -0
- data/examples/fairchild.rb +28 -0
- data/examples/fairchild_chef.rb +19 -0
- data/examples/maize.rb +37 -0
- data/examples/paparazzi.conf.erb +21 -0
- data/generators/poolspec/poolspec_generator.rb +1 -9
- data/generators/poolspec/templates/pool_spec_template.erb +0 -1
- data/lib/poolparty/{aska/aska.rb → aska.rb} +19 -28
- data/lib/poolparty/base_packages/haproxy.rb +48 -31
- data/lib/poolparty/base_packages/heartbeat.rb +6 -62
- data/lib/poolparty/base_packages/poolparty.rb +5 -105
- data/lib/poolparty/base_packages/ruby.rb +4 -4
- data/lib/poolparty/base_packages/runit.rb +1 -1
- data/lib/poolparty/core/array.rb +21 -3
- data/lib/poolparty/core/hash.rb +45 -10
- data/lib/poolparty/core/kernel.rb +30 -8
- data/lib/poolparty/core/nil.rb +8 -0
- data/lib/poolparty/core/object.rb +34 -25
- data/lib/poolparty/core/ordered_hash.rb +99 -0
- data/lib/poolparty/core/string.rb +112 -15
- data/lib/poolparty/core/symbol.rb +10 -0
- data/lib/poolparty/dependencies.rb +49 -0
- data/lib/poolparty/dependency_resolver/chef_resolver.rb +237 -0
- data/lib/poolparty/dependency_resolver/dependency_resolver.rb +42 -0
- data/lib/poolparty/dependency_resolver/dependency_resolver_cloud_extensions.rb +29 -0
- data/lib/poolparty/{dependency_resolutions → dependency_resolver}/puppet.rb +34 -29
- data/lib/poolparty/dependency_resolver/puppet_resolver.rb +188 -0
- data/lib/poolparty/exceptions/MasterException.rb +2 -2
- data/lib/poolparty/exceptions/RemoteException.rb +1 -1
- data/lib/poolparty/exceptions/dependency_resolver_exception.rb +5 -0
- data/lib/poolparty/exceptions/package_exception.rb +7 -0
- data/lib/poolparty/extra/deployments.rb +7 -7
- data/lib/poolparty/helpers/binary.rb +26 -32
- data/lib/poolparty/helpers/console.rb +1 -1
- data/lib/poolparty/helpers/display.rb +1 -5
- data/lib/poolparty/helpers/hash_printer.rb +44 -0
- data/lib/poolparty/helpers/loading.rb +4 -0
- data/lib/poolparty/helpers/optioner.rb +39 -25
- data/lib/poolparty/lite.rb +30 -0
- data/lib/poolparty/modules/callbacks.rb +44 -0
- data/lib/poolparty/modules/cloud_dsl.rb +38 -8
- data/lib/poolparty/modules/cloud_resourcer.rb +67 -97
- data/lib/poolparty/modules/daemonizable.rb +141 -0
- data/lib/poolparty/modules/definable_resource.rb +8 -14
- data/lib/poolparty/modules/file_writer.rb +25 -17
- data/lib/poolparty/modules/pinger.rb +28 -0
- data/lib/poolparty/modules/pretty_printer.rb +1 -1
- data/lib/poolparty/modules/resourcing_dsl.rb +55 -40
- data/lib/poolparty/modules/searchable_paths.rb +91 -0
- data/lib/poolparty/modules/thread_pool.rb +107 -106
- data/lib/poolparty/modules/user_helpers.rb +20 -0
- data/lib/poolparty/monitors/base_monitor.rb +18 -75
- data/lib/poolparty/monitors/monitor_rack.rb +123 -0
- data/lib/poolparty/monitors/monitors/favicon_monitor.rb +12 -0
- data/lib/poolparty/monitors/monitors/load_monitor.rb +9 -0
- data/lib/poolparty/monitors/monitors/memory_monitor.rb +9 -9
- data/lib/poolparty/monitors/monitors/neighborhood_monitor.rb +77 -0
- data/lib/poolparty/monitors/monitors/stats_monitor.rb +187 -0
- data/lib/poolparty/monitors/monitors/time_monitor.rb +15 -0
- data/lib/poolparty/net/init.rb +10 -0
- data/lib/poolparty/net/remote_bases.rb +20 -0
- data/lib/poolparty/net/remote_instance.rb +26 -44
- data/lib/poolparty/net/remoter/cloud_control.rb +24 -0
- data/lib/poolparty/net/remoter/connections.rb +172 -0
- data/lib/poolparty/net/remoter/interactive.rb +45 -0
- data/lib/poolparty/net/remoter_base.rb +116 -111
- data/lib/poolparty/net/remoter_bases/ec2/ec2.rb +245 -0
- data/lib/poolparty/net/remoter_bases/ec2/ec2_remote_instance.rb +53 -0
- data/lib/poolparty/net/{remote_bases → remoter_bases}/ec2/ec2_response_object.rb +2 -4
- data/lib/poolparty/net/remoter_bases/vmrun/utilities/vm_disk.rb +12 -0
- data/lib/poolparty/net/remoter_bases/vmrun/utilities/vmx.rb +33 -0
- data/lib/poolparty/net/remoter_bases/vmrun/utilities/vmx_file.rb +117 -0
- data/lib/poolparty/net/remoter_bases/vmrun/vmrun.rb +158 -0
- data/lib/poolparty/net/remoter_bases/vmrun/vmrun_instance.rb +71 -0
- data/lib/poolparty/plugins/apache2/apache.rb +340 -0
- data/lib/poolparty/plugins/bind.rb +11 -0
- data/lib/poolparty/plugins/chef.rb +173 -0
- data/lib/poolparty/plugins/chef_deploy.rb +58 -0
- data/lib/poolparty/plugins/deploy_directory.rb +49 -0
- data/lib/poolparty/plugins/gem_package.rb +61 -0
- data/lib/poolparty/plugins/git.rb +41 -24
- data/lib/poolparty/plugins/line_in_file.rb +30 -0
- data/lib/poolparty/plugins/nanite.rb +41 -0
- data/lib/poolparty/plugins/rails_deploy.rb +76 -0
- data/lib/poolparty/plugins/svn.rb +56 -39
- data/lib/poolparty/poolparty/cloud.rb +137 -167
- data/lib/poolparty/poolparty/{base.rb → default.rb} +62 -25
- data/lib/poolparty/poolparty/key.rb +78 -0
- data/lib/poolparty/poolparty/loggable.rb +28 -27
- data/lib/poolparty/poolparty/neighborhoods.rb +102 -0
- data/lib/poolparty/poolparty/plugin.rb +53 -18
- data/lib/poolparty/poolparty/plugin_model.rb +20 -23
- data/lib/poolparty/poolparty/pool.rb +34 -26
- data/lib/poolparty/poolparty/poolparty_base_class.rb +190 -0
- data/lib/poolparty/poolparty/resource.rb +92 -178
- data/lib/poolparty/poolparty/script.rb +32 -20
- data/lib/poolparty/poolparty/service.rb +44 -0
- data/lib/poolparty/poolparty/template.rb +27 -0
- data/lib/poolparty/provision/boot_strapper.rb +164 -0
- data/lib/poolparty/provision/configurations/chef.rb +26 -0
- data/lib/poolparty/provision/configurations/puppet.rb +28 -0
- data/lib/poolparty/provision/dr_configure.rb +142 -0
- data/lib/poolparty/resources/cron.rb +51 -0
- data/lib/poolparty/resources/directory.rb +36 -0
- data/lib/poolparty/resources/exec.rb +47 -0
- data/lib/poolparty/resources/file.rb +73 -0
- data/lib/poolparty/resources/host.rb +37 -0
- data/lib/poolparty/resources/mount.rb +45 -0
- data/lib/poolparty/resources/package.rb +41 -0
- data/lib/poolparty/resources/remote_file.rb +52 -0
- data/lib/poolparty/resources/service.rb +41 -0
- data/lib/poolparty/resources/sshkey.rb +49 -0
- data/lib/poolparty/resources/symlink.rb +43 -0
- data/lib/poolparty/{poolparty/resources/remote_user.rb → resources/user.rb} +1 -5
- data/lib/poolparty/resources/variable.rb +34 -0
- data/lib/poolparty/resources.rb +42 -0
- data/lib/poolparty/schema.rb +79 -0
- data/lib/poolparty/templates/apache2/apache2.conf +14 -0
- data/lib/poolparty/templates/apache2/base.conf.erb +168 -0
- data/lib/poolparty/templates/apache2/browser_fixes.conf.erb +26 -0
- data/lib/poolparty/templates/apache2/debian.conf.erb +675 -0
- data/lib/poolparty/templates/apache2/default-site.conf.erb +41 -0
- data/lib/poolparty/templates/apache2/directory_indexes.conf.erb +101 -0
- data/lib/poolparty/templates/apache2/logging-syslog.conf.erb +42 -0
- data/lib/poolparty/templates/apache2/mime-extras.conf.erb +211 -0
- data/lib/poolparty/templates/apache2/mime-minimal.conf.erb +15 -0
- data/lib/poolparty/templates/apache2/mpm-worker.conf.erb +20 -0
- data/lib/poolparty/templates/apache2/mpm-worker.erb +20 -0
- data/lib/poolparty/templates/apache2/passenger.conf.erb +20 -0
- data/lib/poolparty/templates/apache2/php.ini.erb +1253 -0
- data/lib/poolparty/templates/apache2/server-status.erb +19 -0
- data/lib/poolparty/templates/erlang_cookie_maker +6 -0
- data/lib/poolparty/templates/gemrc_template +11 -0
- data/lib/poolparty/templates/ha.cf +1 -1
- data/lib/poolparty/templates/haproxy.conf +29 -27
- data/lib/poolparty/templates/haresources +2 -2
- data/lib/poolparty/templates/monitor.ru +16 -0
- data/lib/poolparty/templates/php.ini.erb +1253 -0
- data/lib/poolparty/templates/puppet/add_puppet_to_hosts +6 -0
- data/lib/poolparty/templates/puppet/puppet.conf +2 -0
- data/lib/poolparty/templates/puppet/puppetrunner +14 -0
- data/lib/poolparty/templates/puppet/site.pp +4 -0
- data/lib/poolparty/templates/puppetrunner +11 -5
- data/lib/poolparty/verification/verifier_base.rb +17 -0
- data/lib/poolparty/verification/verifiers/http_match.rb +43 -0
- data/lib/poolparty/verification/verifiers/http_status.rb +59 -0
- data/lib/poolparty/verification/verifiers/ping.rb +34 -0
- data/lib/poolparty/verification/verify.rb +76 -0
- data/lib/poolparty.rb +76 -22
- data/lib/poolpartycl.rb +66 -1
- data/script/destroy +1 -1
- data/script/generate +1 -1
- data/spec/bin/bin_spec_helper.rb +7 -0
- data/spec/bin/fixtures/bin_cloud_for_test.rb +13 -0
- data/spec/bin/server-list-active_spec.rb +24 -0
- data/spec/poolparty/aska/aska_spec.rb +5 -5
- data/spec/poolparty/base_packages/haproxy_spec.rb +2 -8
- data/spec/poolparty/base_packages/heartbeat_spec.rb +3 -26
- data/spec/poolparty/bin/console_spec.rb +11 -29
- data/spec/poolparty/core/array_spec.rb +20 -3
- data/spec/poolparty/core/hash_spec.rb +30 -28
- data/spec/poolparty/core/object_spec.rb +2 -3
- data/spec/poolparty/core/ordered_hash_spec.rb +48 -0
- data/spec/poolparty/core/string_spec.rb +1 -27
- data/spec/poolparty/dependencies_spec.rb +11 -0
- data/spec/poolparty/dependency_resolver/chef_resolver_spec.rb +107 -0
- data/spec/poolparty/dependency_resolver/dependency_resolver_cloud_extensions_spec.rb +122 -0
- data/spec/poolparty/dependency_resolver/dependency_resolver_spec.rb +16 -0
- data/spec/poolparty/dependency_resolver/puppet_resolver_spec.rb +121 -0
- data/spec/poolparty/extra/deployments_spec.rb +9 -5
- data/spec/poolparty/fixtures/clouds.json +128 -0
- data/spec/poolparty/fixtures/test_template.erb +1 -0
- data/spec/poolparty/helpers/binary_spec.rb +1 -1
- data/spec/poolparty/helpers/hash_printer_spec.rb +34 -0
- data/spec/poolparty/helpers/optioner_spec.rb +1 -1
- data/spec/poolparty/id_rsa +27 -0
- data/spec/poolparty/modules/cloud_resourcer_spec.rb +26 -111
- data/spec/poolparty/modules/definable_resource.rb +1 -1
- data/spec/poolparty/modules/file_writer_spec.rb +10 -4
- data/spec/poolparty/modules/searchable_paths_spec.rb +76 -0
- data/spec/poolparty/monitors/base_monitor_spec.rb +112 -111
- data/spec/poolparty/monitors/monitors/cpu_monitor_spec.rb +18 -16
- data/spec/poolparty/monitors/monitors/memory_monitor_spec.rb +48 -47
- data/spec/poolparty/net/remote_instance_spec.rb +9 -73
- data/spec/poolparty/net/remote_spec.rb +287 -310
- data/spec/poolparty/net/remoter_base_spec.rb +3 -56
- data/spec/poolparty/net/remoter_bases/ec2_mocks_and_stubs.rb +24 -0
- data/spec/poolparty/net/remoter_bases/ec2_remote_instance_spec.rb +114 -0
- data/spec/poolparty/net/{remote_bases → remoter_bases}/ec2_spec.rb +51 -53
- data/spec/poolparty/net/remoter_spec.rb +96 -86
- data/spec/poolparty/plugins/chef_spec.rb +7 -0
- data/spec/poolparty/plugins/deploydirectory_spec.rb +51 -52
- data/spec/poolparty/plugins/git_spec.rb +16 -20
- data/spec/poolparty/plugins/line_spec.rb +14 -8
- data/spec/poolparty/poolparty/cloud_spec.rb +85 -183
- data/spec/poolparty/poolparty/configurers/files/ruby_basic.rb +3 -4
- data/spec/poolparty/poolparty/configurers/ruby_spec.rb +7 -23
- data/spec/poolparty/poolparty/{base_spec.rb → default_spec.rb} +44 -41
- data/spec/poolparty/poolparty/example_spec.rb +43 -11
- data/spec/poolparty/poolparty/key_spec.rb +42 -0
- data/spec/poolparty/poolparty/neighborhoods_spec.rb +65 -0
- data/spec/poolparty/poolparty/plugin_model_spec.rb +14 -24
- data/spec/poolparty/poolparty/plugin_spec.rb +25 -96
- data/spec/poolparty/poolparty/pool_spec.rb +3 -1
- data/spec/poolparty/poolparty/resource_spec.rb +70 -270
- data/spec/poolparty/poolparty/script_spec.rb +30 -53
- data/spec/poolparty/poolparty/service_spec.rb +5 -0
- data/spec/poolparty/poolparty/template_spec.rb +26 -0
- data/spec/poolparty/poolparty/test_plugins/webserver.rb +8 -25
- data/spec/poolparty/poolparty_base_class_spec.rb +84 -0
- data/spec/poolparty/poolparty_spec.rb +7 -4
- data/spec/poolparty/resources/cron_spec.rb +44 -0
- data/spec/poolparty/resources/directory_spec.rb +40 -0
- data/spec/poolparty/resources/exec_spec.rb +37 -0
- data/spec/poolparty/resources/file_spec.rb +64 -0
- data/spec/poolparty/resources/gem_spec.rb +7 -0
- data/spec/poolparty/resources/host_spec.rb +35 -0
- data/spec/poolparty/resources/package_spec.rb +26 -0
- data/spec/poolparty/resources/service_spec.rb +29 -0
- data/spec/poolparty/resources/sshkey_spec.rb +40 -0
- data/spec/poolparty/resources/symlink_spec.rb +29 -0
- data/spec/poolparty/resources/user_spec.rb +48 -0
- data/spec/poolparty/resources/variable_spec.rb +26 -0
- data/spec/poolparty/schema_spec.rb +53 -0
- data/spec/poolparty/spec_helper.rb +107 -23
- data/spec/poolparty/test_spec_helper.rb +13 -0
- data/tasks/development.rake +85 -69
- data/tasks/poolparty.rake +54 -0
- data/tasks/server.rake +41 -39
- data/tasks/spec.rake +35 -1
- data/test/fixtures/test_template.erb +1 -0
- data/test/poolparty/core/array_test.rb +21 -0
- data/test/poolparty/core/hash_test.rb +34 -0
- data/test/poolparty/core/string_test.rb +29 -0
- data/test/poolparty/dependency_resolver/puppet_resolver_test.rb +90 -0
- data/test/poolparty/modules/callbacks_test.rb +40 -0
- data/test/poolparty/modules/cloud_dsl_test.rb +60 -0
- data/test/poolparty/net/remoter_bases/vmrun/vmrun_test.rb +54 -0
- data/test/poolparty/net/remoter_test.rb +14 -0
- data/test/poolparty/poolparty/neighborhood_test.rb +23 -0
- data/test/poolparty/poolparty/poolparty_base_class_test.rb +84 -0
- data/test/poolparty/poolparty/template_test.rb +31 -0
- data/test/poolparty/provision/boot_strapper_test.rb +6 -0
- data/test/poolparty/provision/dr_configure_test.rb +6 -0
- data/test/poolparty/verification/verify_test.rb +49 -0
- data/test/test_helper.rb +8 -2
- data/test/test_poolparty.rb +6 -5
- data/vendor/chef/apache2/README.rdoc +59 -0
- data/vendor/chef/apache2/attributes/apache.rb +72 -0
- data/vendor/chef/apache2/definitions/apache_module.rb +36 -0
- data/vendor/chef/apache2/definitions/apache_site.rb +36 -0
- data/vendor/chef/apache2/definitions/web_app.rb +45 -0
- data/vendor/chef/apache2/files/default/apache2_module_conf_generate.pl +41 -0
- data/vendor/chef/apache2/recipes/default.rb +132 -0
- data/vendor/chef/apache2/recipes/mod_alias.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_auth_basic.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_auth_digest.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_authn_file.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_authnz_ldap.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_authz_default.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_authz_groupfile.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_authz_host.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_authz_user.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_autoindex.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_cgi.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_dav.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_dav_svn.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_deflate.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_dir.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_env.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_expires.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_fcgid.rb +35 -0
- data/vendor/chef/apache2/recipes/mod_headers.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_ldap.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_log_config.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_mime.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_negotiation.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_php5.rb +27 -0
- data/vendor/chef/apache2/recipes/mod_proxy.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_proxy_http.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_python.rb +22 -0
- data/vendor/chef/apache2/recipes/mod_rewrite.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_setenvif.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_ssl.rb +20 -0
- data/vendor/chef/apache2/recipes/mod_status.rb +20 -0
- data/vendor/chef/apache2/templates/default/a2dismod.erb +22 -0
- data/vendor/chef/apache2/templates/default/a2dissite.erb +29 -0
- data/vendor/chef/apache2/templates/default/a2enmod.erb +37 -0
- data/vendor/chef/apache2/templates/default/a2ensite.erb +38 -0
- data/vendor/chef/apache2/templates/default/apache2.conf.erb +630 -0
- data/vendor/chef/apache2/templates/default/default-site.erb +45 -0
- data/vendor/chef/apache2/templates/default/port_apache.erb +2 -0
- data/vendor/chef/apache2/templates/default/ports.conf.erb +6 -0
- data/vendor/chef/apache2/templates/default/web_app.conf.erb +43 -0
- data/vendor/chef/chef-deploy/LICENSE +201 -0
- data/vendor/chef/chef-deploy/README.rdoc +24 -0
- data/vendor/chef/chef-deploy/Rakefile +57 -0
- data/vendor/chef/chef-deploy/TODO +4 -0
- data/vendor/chef/chef-deploy/lib/chef-deploy/cached_deploy.rb +230 -0
- data/vendor/chef/chef-deploy/lib/chef-deploy/git.rb +132 -0
- data/vendor/chef/chef-deploy/lib/chef-deploy/subversion.rb +98 -0
- data/vendor/chef/chef-deploy/lib/chef-deploy.rb +183 -0
- data/vendor/gems/butterfly/History.txt +4 -0
- data/vendor/gems/butterfly/PostInstall.txt +2 -0
- data/vendor/gems/butterfly/README.rdoc +48 -0
- data/vendor/gems/butterfly/Rakefile +62 -0
- data/vendor/gems/butterfly/VERSION.yml +4 -0
- data/vendor/gems/butterfly/bin/flutter +4 -0
- data/vendor/gems/butterfly/butterfly.gemspec +37 -0
- data/vendor/gems/butterfly/examples/config.ru +15 -0
- data/vendor/gems/butterfly/examples/my_app.rb +12 -0
- data/vendor/gems/butterfly/lib/butterfly.rb +14 -0
- data/vendor/gems/butterfly/lib/handler.rb +48 -0
- data/vendor/gems/butterfly/lib/request.rb +29 -0
- data/vendor/gems/butterfly/lib/response.rb +49 -0
- data/vendor/gems/butterfly/script/console +10 -0
- data/vendor/gems/butterfly/script/destroy +14 -0
- data/vendor/gems/butterfly/script/generate +14 -0
- data/vendor/gems/butterfly/test/test_adapter_base.rb +23 -0
- data/vendor/gems/butterfly/test/test_butterfly_request.rb +46 -0
- data/vendor/gems/butterfly/test/test_butterfly_response.rb +43 -0
- data/vendor/gems/butterfly/test/test_butterfly_server.rb +16 -0
- data/vendor/gems/butterfly/test/test_default.rb +12 -0
- data/vendor/gems/butterfly/test/test_helper.rb +6 -0
- data/vendor/gems/dslify/History.txt +4 -0
- data/vendor/gems/dslify/Manifest.txt +25 -0
- data/vendor/gems/dslify/PostInstall.txt +5 -0
- data/vendor/gems/dslify/README.txt +60 -0
- data/vendor/gems/dslify/Rakefile +56 -0
- data/{config → vendor/gems/dslify/config}/hoe.rb +12 -55
- data/vendor/gems/dslify/config/requirements.rb +15 -0
- data/vendor/gems/dslify/dslify.gemspec +40 -0
- data/vendor/gems/dslify/lib/dslify/dslify.rb +76 -0
- data/vendor/gems/dslify/lib/dslify/version.rb +10 -0
- data/vendor/gems/dslify/lib/dslify.rb +7 -0
- data/vendor/gems/dslify/script/console +10 -0
- data/vendor/gems/dslify/script/destroy +14 -0
- data/vendor/gems/dslify/script/generate +14 -0
- data/{script → vendor/gems/dslify/script}/txt2html +4 -4
- data/{setup.rb → vendor/gems/dslify/setup.rb} +3 -3
- data/{tasks → vendor/gems/dslify/tasks}/deployment.rake +4 -18
- data/vendor/gems/dslify/tasks/environment.rake +7 -0
- data/{tasks → vendor/gems/dslify/tasks}/website.rake +0 -0
- data/vendor/gems/dslify/test/test_dslify.rb +138 -0
- data/vendor/gems/dslify/website/index.html +86 -0
- data/vendor/gems/dslify/website/index.txt +83 -0
- data/{website → vendor/gems/dslify/website}/javascripts/rounded_corners_lite.inc.js +0 -0
- data/{website → vendor/gems/dslify/website}/stylesheets/screen.css +18 -27
- data/{website → vendor/gems/dslify/website}/template.html.erb +1 -2
- data/vendor/gems/parenting/History.txt +4 -0
- data/vendor/gems/parenting/Manifest.txt +14 -0
- data/vendor/gems/parenting/PostInstall.txt +2 -0
- data/vendor/gems/parenting/README.rdoc +47 -0
- data/vendor/gems/parenting/Rakefile +28 -0
- data/vendor/gems/parenting/lib/parenting/parenting.rb +61 -0
- data/vendor/gems/parenting/lib/parenting.rb +10 -0
- data/vendor/gems/parenting/parenting.gemspec +39 -0
- data/vendor/gems/parenting/script/console +10 -0
- data/vendor/gems/parenting/script/destroy +14 -0
- data/vendor/gems/parenting/script/generate +14 -0
- data/vendor/gems/parenting/test/file_to_eval.rb +9 -0
- data/vendor/gems/parenting/test/test_helper.rb +5 -0
- data/vendor/gems/parenting/test/test_parenting.rb +117 -0
- data/vendor/gems/suitcase/LICENSE +20 -0
- data/vendor/gems/suitcase/README.rdoc +31 -0
- data/vendor/gems/suitcase/Rakefile +57 -0
- data/vendor/gems/suitcase/VERSION.yml +4 -0
- data/vendor/gems/suitcase/lib/suitcase/unzipper.rb +15 -0
- data/vendor/gems/suitcase/lib/suitcase/zipper.rb +119 -0
- data/vendor/gems/suitcase/lib/suitcase.rb +5 -0
- data/vendor/gems/suitcase/suitcase.gemspec +32 -0
- data/vendor/gems/suitcase/test/suitcase_test.rb +102 -0
- data/vendor/gems/suitcase/test/test_dir/box.rb +1 -0
- data/vendor/gems/suitcase/test/test_dir/test.txt +1 -0
- data/vendor/gems/suitcase/test/test_helper.rb +12 -0
- metadata +370 -343
- data/Capfile +0 -1
- data/Manifest.txt +0 -414
- data/bin/cloud-add-keypair +0 -28
- data/bin/cloud-ensure-provisioning +0 -39
- data/bin/cloud-maintain +0 -30
- data/bin/cloud-refresh +0 -17
- data/bin/cloud-run +0 -18
- data/bin/cloud-stats +0 -17
- data/bin/messenger-get-current-nodes +0 -14
- data/bin/pool +0 -31
- data/bin/pool-describe +0 -8
- data/bin/pool-generate +0 -18
- data/bin/pool-init +0 -28
- data/bin/pool-list +0 -30
- data/bin/pool-start +0 -26
- data/bin/server-build-messenger +0 -27
- data/bin/server-clean-cert-for +0 -15
- data/bin/server-list-responding +0 -24
- data/bin/server-start-client +0 -29
- data/bin/server-start-master +0 -26
- data/bin/server-start-node +0 -32
- data/bin/server-stop-client +0 -3
- data/bin/server-stop-master +0 -3
- data/bin/server-stop-node +0 -3
- data/bin/server-update-hosts +0 -49
- data/lib/erlang/messenger/Emakefile +0 -1
- data/lib/erlang/messenger/Makefile +0 -15
- data/lib/erlang/messenger/README +0 -5
- data/lib/erlang/messenger/Rakefile +0 -72
- data/lib/erlang/messenger/control +0 -11
- data/lib/erlang/messenger/ebin/client.app +0 -19
- data/lib/erlang/messenger/ebin/client_app.beam +0 -0
- data/lib/erlang/messenger/ebin/client_server.beam +0 -0
- data/lib/erlang/messenger/ebin/erl_crash.dump +0 -10326
- data/lib/erlang/messenger/ebin/master.app +0 -19
- data/lib/erlang/messenger/ebin/master_app.beam +0 -0
- data/lib/erlang/messenger/ebin/node.app +0 -19
- data/lib/erlang/messenger/ebin/node_app.beam +0 -0
- data/lib/erlang/messenger/ebin/packager.app +0 -19
- data/lib/erlang/messenger/ebin/pm_client.beam +0 -0
- data/lib/erlang/messenger/ebin/pm_client_old.beam +0 -0
- data/lib/erlang/messenger/ebin/pm_client_rel-0.1.rel +0 -1
- data/lib/erlang/messenger/ebin/pm_client_supervisor.beam +0 -0
- data/lib/erlang/messenger/ebin/pm_cluster.beam +0 -0
- data/lib/erlang/messenger/ebin/pm_event_manager.beam +0 -0
- data/lib/erlang/messenger/ebin/pm_master.beam +0 -0
- data/lib/erlang/messenger/ebin/pm_master_event_handler.beam +0 -0
- data/lib/erlang/messenger/ebin/pm_master_rel-0.1.rel +0 -1
- data/lib/erlang/messenger/ebin/pm_master_supervisor.beam +0 -0
- data/lib/erlang/messenger/ebin/pm_node.beam +0 -0
- data/lib/erlang/messenger/ebin/pm_node_rel-0.1.rel +0 -1
- data/lib/erlang/messenger/ebin/pm_node_supervisor.beam +0 -0
- data/lib/erlang/messenger/ebin/pm_packager.beam +0 -0
- data/lib/erlang/messenger/ebin/pm_spawner.beam +0 -0
- data/lib/erlang/messenger/ebin/pm_strings.beam +0 -0
- data/lib/erlang/messenger/ebin/utils.beam +0 -0
- data/lib/erlang/messenger/include/defines.hrl +0 -27
- data/lib/erlang/messenger/lib/eunit/AUTHORS +0 -2
- data/lib/erlang/messenger/lib/eunit/CHANGELOG +0 -14
- data/lib/erlang/messenger/lib/eunit/COPYING +0 -504
- data/lib/erlang/messenger/lib/eunit/Makefile +0 -28
- data/lib/erlang/messenger/lib/eunit/NOTES +0 -276
- data/lib/erlang/messenger/lib/eunit/README +0 -3
- data/lib/erlang/messenger/lib/eunit/doc/edoc-info +0 -3
- data/lib/erlang/messenger/lib/eunit/doc/erlang.png +0 -0
- data/lib/erlang/messenger/lib/eunit/doc/eunit.html +0 -172
- data/lib/erlang/messenger/lib/eunit/doc/index.html +0 -17
- data/lib/erlang/messenger/lib/eunit/doc/modules-frame.html +0 -12
- data/lib/erlang/messenger/lib/eunit/doc/overview-summary.html +0 -984
- data/lib/erlang/messenger/lib/eunit/doc/overview.edoc +0 -980
- data/lib/erlang/messenger/lib/eunit/doc/packages-frame.html +0 -11
- data/lib/erlang/messenger/lib/eunit/doc/stylesheet.css +0 -55
- data/lib/erlang/messenger/lib/eunit/ebin/autoload.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/code_monitor.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit.app +0 -21
- data/lib/erlang/messenger/lib/eunit/ebin/eunit.appup +0 -1
- data/lib/erlang/messenger/lib/eunit/ebin/eunit.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_autoexport.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_data.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_lib.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_proc.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_serial.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_server.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_striptests.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_test.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_tests.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_tty.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/file_monitor.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/examples/eunit_examples.erl +0 -339
- data/lib/erlang/messenger/lib/eunit/examples/fib.erl +0 -19
- data/lib/erlang/messenger/lib/eunit/examples/tests.txt +0 -1
- data/lib/erlang/messenger/lib/eunit/include/eunit.hrl +0 -313
- data/lib/erlang/messenger/lib/eunit/src/Makefile +0 -46
- data/lib/erlang/messenger/lib/eunit/src/autoload.erl +0 -388
- data/lib/erlang/messenger/lib/eunit/src/code_monitor.erl +0 -243
- data/lib/erlang/messenger/lib/eunit/src/eunit.app.src +0 -21
- data/lib/erlang/messenger/lib/eunit/src/eunit.appup.src +0 -1
- data/lib/erlang/messenger/lib/eunit/src/eunit.erl +0 -196
- data/lib/erlang/messenger/lib/eunit/src/eunit_autoexport.erl +0 -102
- data/lib/erlang/messenger/lib/eunit/src/eunit_data.erl +0 -798
- data/lib/erlang/messenger/lib/eunit/src/eunit_internal.hrl +0 -48
- data/lib/erlang/messenger/lib/eunit/src/eunit_lib.erl +0 -682
- data/lib/erlang/messenger/lib/eunit/src/eunit_proc.erl +0 -552
- data/lib/erlang/messenger/lib/eunit/src/eunit_serial.erl +0 -157
- data/lib/erlang/messenger/lib/eunit/src/eunit_server.erl +0 -340
- data/lib/erlang/messenger/lib/eunit/src/eunit_striptests.erl +0 -64
- data/lib/erlang/messenger/lib/eunit/src/eunit_test.erl +0 -334
- data/lib/erlang/messenger/lib/eunit/src/eunit_tests.erl +0 -45
- data/lib/erlang/messenger/lib/eunit/src/eunit_tty.erl +0 -272
- data/lib/erlang/messenger/lib/eunit/src/file_monitor.erl +0 -409
- data/lib/erlang/messenger/lib/eunit/sys.config +0 -9
- data/lib/erlang/messenger/lib/eunit/vsn.mk +0 -1
- data/lib/erlang/messenger/pm_client_rel-0.1.boot +0 -0
- data/lib/erlang/messenger/pm_client_rel-0.1.script +0 -238
- data/lib/erlang/messenger/pm_master_rel-0.1.boot +0 -0
- data/lib/erlang/messenger/pm_master_rel-0.1.script +0 -239
- data/lib/erlang/messenger/pm_node_rel-0.1.boot +0 -0
- data/lib/erlang/messenger/pm_node_rel-0.1.script +0 -237
- data/lib/erlang/messenger/src/client_app.erl +0 -39
- data/lib/erlang/messenger/src/client_server.erl +0 -60
- data/lib/erlang/messenger/src/master_app.erl +0 -39
- data/lib/erlang/messenger/src/node_app.erl +0 -39
- data/lib/erlang/messenger/src/pm_client.erl +0 -49
- data/lib/erlang/messenger/src/pm_client_supervisor.erl +0 -38
- data/lib/erlang/messenger/src/pm_cluster.erl +0 -61
- data/lib/erlang/messenger/src/pm_event_manager.erl +0 -27
- data/lib/erlang/messenger/src/pm_master.erl +0 -215
- data/lib/erlang/messenger/src/pm_master_event_handler.erl +0 -72
- data/lib/erlang/messenger/src/pm_master_supervisor.erl +0 -39
- data/lib/erlang/messenger/src/pm_node.erl +0 -200
- data/lib/erlang/messenger/src/pm_node_supervisor.erl +0 -38
- data/lib/erlang/messenger/src/pm_packager.erl +0 -76
- data/lib/erlang/messenger/src/pm_spawner.erl +0 -213
- data/lib/erlang/messenger/src/pm_strings.erl +0 -11
- data/lib/erlang/messenger/src/utils.erl +0 -73
- data/lib/erlang/messenger/useful_snippets +0 -17
- data/lib/poolparty/capistrano.rb +0 -18
- data/lib/poolparty/config/postlaunchmessage.txt +0 -5
- data/lib/poolparty/dependency_resolutions/base.rb +0 -12
- data/lib/poolparty/modules/configurable.rb +0 -36
- data/lib/poolparty/modules/method_missing_sugar.rb +0 -58
- data/lib/poolparty/monitors/monitors/cpu_monitor.rb +0 -15
- data/lib/poolparty/monitors/monitors/web_monitor.rb +0 -18
- data/lib/poolparty/net/messenger.rb +0 -72
- data/lib/poolparty/net/remote.rb +0 -38
- data/lib/poolparty/net/remote_bases/ec2.rb +0 -190
- data/lib/poolparty/net/remoter.rb +0 -343
- data/lib/poolparty/plugins/deploydirectory.rb +0 -71
- data/lib/poolparty/plugins/line.rb +0 -77
- data/lib/poolparty/plugins/rsyncmirror.rb +0 -26
- data/lib/poolparty/poolparty/custom_resource.rb +0 -45
- data/lib/poolparty/poolparty/resources/class_package.rb +0 -105
- data/lib/poolparty/poolparty/resources/conditional.rb +0 -67
- data/lib/poolparty/poolparty/resources/cron.rb +0 -14
- data/lib/poolparty/poolparty/resources/custom_service.rb +0 -30
- data/lib/poolparty/poolparty/resources/directory.rb +0 -26
- data/lib/poolparty/poolparty/resources/exec.rb +0 -28
- data/lib/poolparty/poolparty/resources/file.rb +0 -23
- data/lib/poolparty/poolparty/resources/gem_package.rb +0 -52
- data/lib/poolparty/poolparty/resources/host.rb +0 -14
- data/lib/poolparty/poolparty/resources/mount.rb +0 -22
- data/lib/poolparty/poolparty/resources/package.rb +0 -24
- data/lib/poolparty/poolparty/resources/remote_file.rb +0 -26
- data/lib/poolparty/poolparty/resources/service.rb +0 -21
- data/lib/poolparty/poolparty/resources/sshkey.rb +0 -23
- data/lib/poolparty/poolparty/resources/symlink.rb +0 -25
- data/lib/poolparty/poolparty/resources/variable.rb +0 -32
- data/lib/poolparty/provisioners/capistrano/capistrano.rb +0 -127
- data/lib/poolparty/provisioners/capistrano/capistrano_configurer.rb +0 -58
- data/lib/poolparty/provisioners/capistrano/recipies/base.rb +0 -104
- data/lib/poolparty/provisioners/capistrano/recipies/master.rb +0 -121
- data/lib/poolparty/provisioners/capistrano/recipies/slave.rb +0 -12
- data/lib/poolparty/provisioners/provisioner_base.rb +0 -204
- data/lib/poolparty/spec/core/string.rb +0 -16
- data/lib/poolparty/spec/matchers/a_spec_extensions_base.rb +0 -26
- data/lib/poolparty/spec/matchers/have_cron.rb +0 -28
- data/lib/poolparty/spec/matchers/have_deploydirectory.rb +0 -15
- data/lib/poolparty/spec/matchers/have_directory.rb +0 -31
- data/lib/poolparty/spec/matchers/have_exec.rb +0 -28
- data/lib/poolparty/spec/matchers/have_file.rb +0 -28
- data/lib/poolparty/spec/matchers/have_gempackage.rb +0 -28
- data/lib/poolparty/spec/matchers/have_git.rb +0 -28
- data/lib/poolparty/spec/matchers/have_host.rb +0 -28
- data/lib/poolparty/spec/matchers/have_mount.rb +0 -28
- data/lib/poolparty/spec/matchers/have_package.rb +0 -28
- data/lib/poolparty/spec/matchers/have_remotefile.rb +0 -28
- data/lib/poolparty/spec/matchers/have_rsyncmirror.rb +0 -28
- data/lib/poolparty/spec/matchers/have_service.rb +0 -28
- data/lib/poolparty/spec/matchers/have_sshkey.rb +0 -28
- data/lib/poolparty/spec/matchers/have_symlink.rb +0 -28
- data/lib/poolparty/spec/matchers/have_variable.rb +0 -32
- data/lib/poolparty/spec/spec/dynamic_matchers.rb +0 -63
- data/lib/poolparty/spec/spec/ensure_matchers_exist.rb +0 -7
- data/lib/poolparty/spec/templates/have_base.rb +0 -28
- data/lib/poolparty/templates/puppet.conf +0 -26
- data/lib/poolparty/templates/puppetcleaner +0 -12
- data/lib/poolparty/templates/puppetrerun +0 -22
- data/lib/poolparty/version.rb +0 -9
- data/lib/poolpartyspec.rb +0 -34
- data/log/pool.log +0 -0
- data/poolparty.gemspec +0 -580
- data/spec/poolparty/dependency_resolutions/base_spec.rb +0 -11
- data/spec/poolparty/modules/configurable_spec.rb +0 -29
- data/spec/poolparty/net/log/pool.log +0 -0
- data/spec/poolparty/net/messenger_spec.rb +0 -16
- data/spec/poolparty/plugins/svn_spec.rb +0 -16
- data/spec/poolparty/poolparty/custom_resource_spec.rb +0 -120
- data/spec/poolparty/poolparty/resources/class_package_spec.rb +0 -120
- data/spec/poolparty/poolparty/resources/conditional_spec.rb +0 -77
- data/spec/poolparty/poolparty/resources/cron_spec.rb +0 -50
- data/spec/poolparty/poolparty/resources/directory_spec.rb +0 -40
- data/spec/poolparty/poolparty/resources/exec_spec.rb +0 -37
- data/spec/poolparty/poolparty/resources/file_spec.rb +0 -40
- data/spec/poolparty/poolparty/resources/gem_spec.rb +0 -46
- data/spec/poolparty/poolparty/resources/host_spec.rb +0 -28
- data/spec/poolparty/poolparty/resources/package_spec.rb +0 -44
- data/spec/poolparty/poolparty/resources/remote_file_spec.rb +0 -40
- data/spec/poolparty/poolparty/resources/service_spec.rb +0 -45
- data/spec/poolparty/poolparty/resources/sshkey_spec.rb +0 -48
- data/spec/poolparty/poolparty/resources/symlink_spec.rb +0 -22
- data/spec/poolparty/poolparty/resources/user_spec.rb +0 -38
- data/spec/poolparty/poolparty/resources/variable_spec.rb +0 -24
- data/spec/poolparty/provisioners/capistrano/capistrano_spec.rb +0 -27
- data/spec/poolparty/provisioners/provisioner_base_spec.rb +0 -120
- data/spec/poolparty/spec/core/string_spec.rb +0 -57
- data/website/index.html +0 -107
- data/website/index.txt +0 -95
- data/website/stylesheets/code.css +0 -29
@@ -1,388 +0,0 @@
|
|
1
|
-
%% This library is free software; you can redistribute it and/or modify
|
2
|
-
%% it under the terms of the GNU Lesser General Public License as
|
3
|
-
%% published by the Free Software Foundation; either version 2 of the
|
4
|
-
%% License, or (at your option) any later version.
|
5
|
-
%%
|
6
|
-
%% This library is distributed in the hope that it will be useful, but
|
7
|
-
%% WITHOUT ANY WARRANTY; without even the implied warranty of
|
8
|
-
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
9
|
-
%% Lesser General Public License for more details.
|
10
|
-
%%
|
11
|
-
%% You should have received a copy of the GNU Lesser General Public
|
12
|
-
%% License along with this library; if not, write to the Free Software
|
13
|
-
%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
|
14
|
-
%% USA
|
15
|
-
%%
|
16
|
-
%% $Id: autoload.erl 238 2007-11-15 10:23:54Z mremond $
|
17
|
-
%%
|
18
|
-
%% @private (for now)
|
19
|
-
%% @author Richard Carlsson <richardc@it.uu.se>
|
20
|
-
%% @copyright 2006 Richard Carlsson
|
21
|
-
%% @doc Erlang automatic code loading service
|
22
|
-
|
23
|
-
-module(autoload).
|
24
|
-
|
25
|
-
-export([start/0, start/1, stop/0, stop/1,
|
26
|
-
watch_module/1, watch_module/2, watch_module/3,
|
27
|
-
watch_file/1, watch_file/2, watch_file/3,
|
28
|
-
watch_dir/1, watch_dir/2, watch_dir/3
|
29
|
-
]).
|
30
|
-
|
31
|
-
-include_lib("kernel/include/file.hrl").
|
32
|
-
|
33
|
-
-define(SERVER, autoload).
|
34
|
-
-define(ZERO_TIMESTAMP, {0,0,0}).
|
35
|
-
|
36
|
-
%% TODO: un-watching functionality
|
37
|
-
|
38
|
-
%% We're not trying to provide strong guarantees here. The autoloader is
|
39
|
-
%% supposed to behave like a human assistant might - race conditions may
|
40
|
-
%% cause modules to be reloaded twice, or cause a reload from the wrong
|
41
|
-
%% file (if paths are suddenly changed).
|
42
|
-
|
43
|
-
|
44
|
-
watch_dir(Path) ->
|
45
|
-
watch_dir(Path, []).
|
46
|
-
|
47
|
-
watch_dir(Path, Opts) ->
|
48
|
-
watch_dir(?SERVER, Path, Opts).
|
49
|
-
|
50
|
-
watch_dir(Server, Path, Opts) ->
|
51
|
-
command(Server, {watch, {dir, filename:flatten(Path)}, Opts}).
|
52
|
-
|
53
|
-
watch_file(Path) ->
|
54
|
-
watch_file(Path, []).
|
55
|
-
|
56
|
-
watch_file(Path, Opts) ->
|
57
|
-
watch_file(?SERVER, Path, Opts).
|
58
|
-
|
59
|
-
watch_file(Server, Path, Opts) ->
|
60
|
-
command(Server, {watch, {file, filename:flatten(Path)}, Opts}).
|
61
|
-
|
62
|
-
watch_module(Module) ->
|
63
|
-
watch_module(Module, []).
|
64
|
-
|
65
|
-
watch_module(Module, Opts) ->
|
66
|
-
watch_module(?SERVER, Module, Opts).
|
67
|
-
|
68
|
-
watch_module(Server, Module, Opts) when is_atom(Module) ->
|
69
|
-
command(Server, {watch, {module, Module}, Opts}).
|
70
|
-
|
71
|
-
|
72
|
-
command(Server, Msg) ->
|
73
|
-
ServerPid = ensure_started(Server),
|
74
|
-
ServerPid ! {command, self(), Msg},
|
75
|
-
receive
|
76
|
-
{ServerPid, Result} -> Result
|
77
|
-
end.
|
78
|
-
|
79
|
-
stop() ->
|
80
|
-
stop(?SERVER).
|
81
|
-
|
82
|
-
stop(Server) ->
|
83
|
-
Server ! stop,
|
84
|
-
ok.
|
85
|
-
|
86
|
-
ensure_started(Name) when is_atom(Name) ->
|
87
|
-
start(Name);
|
88
|
-
ensure_started(Pid) when is_pid(Pid) ->
|
89
|
-
Pid.
|
90
|
-
|
91
|
-
|
92
|
-
start() ->
|
93
|
-
start(?SERVER).
|
94
|
-
|
95
|
-
start(Name) ->
|
96
|
-
case whereis(Name) of
|
97
|
-
undefined ->
|
98
|
-
Parent = self(),
|
99
|
-
Pid = spawn(fun () -> server_init(Name, Parent) end),
|
100
|
-
receive
|
101
|
-
{Pid, ok} -> Pid;
|
102
|
-
{Pid, error} -> throw(no_server)
|
103
|
-
end;
|
104
|
-
Pid -> Pid
|
105
|
-
end.
|
106
|
-
|
107
|
-
-record(state, {name, modules, files, dirs}).
|
108
|
-
|
109
|
-
-record(module, {time = ?ZERO_TIMESTAMP, file, opts = []}).
|
110
|
-
|
111
|
-
server_init(Name, Parent) ->
|
112
|
-
Self = self(),
|
113
|
-
case catch register(Name, Self) of
|
114
|
-
true ->
|
115
|
-
Parent ! {Self, ok},
|
116
|
-
code_monitor:monitor(self()),
|
117
|
-
server(#state{name = Name,
|
118
|
-
modules = dict:new(),
|
119
|
-
files = dict:new(),
|
120
|
-
dirs = dict:new()});
|
121
|
-
_ ->
|
122
|
-
init_failure(Parent)
|
123
|
-
end.
|
124
|
-
|
125
|
-
init_failure(Parent) ->
|
126
|
-
Parent ! {self(), error},
|
127
|
-
exit(failed).
|
128
|
-
|
129
|
-
server(St) ->
|
130
|
-
receive
|
131
|
-
{file_monitor, _Ref, Msg} ->
|
132
|
-
file_event(Msg, St);
|
133
|
-
{code_monitor, Msg} ->
|
134
|
-
code_event(Msg, St);
|
135
|
-
{command, From, Cmd} ->
|
136
|
-
server_command(From, Cmd, St);
|
137
|
-
stop ->
|
138
|
-
exit(normal);
|
139
|
-
Msg ->
|
140
|
-
erlang:display({autoload_unexpected, Msg}),
|
141
|
-
server(St)
|
142
|
-
end.
|
143
|
-
|
144
|
-
server_command_reply(From, Msg) ->
|
145
|
-
From ! {self(), Msg}.
|
146
|
-
|
147
|
-
server_command(From, {watch, {dir, Path}, Opts}, St) ->
|
148
|
-
server_command_reply(From, ok),
|
149
|
-
server(monitor_dir(Path, Opts, St));
|
150
|
-
server_command(From, {watch, {file, Path}, Opts}, St) ->
|
151
|
-
server_command_reply(From, ok),
|
152
|
-
server(monitor_file(Path, Opts, St));
|
153
|
-
server_command(From, {watch, {module, M}, Opts}, St) ->
|
154
|
-
server_command_reply(From, ok),
|
155
|
-
server(monitor_module(M, Opts, St)).
|
156
|
-
|
157
|
-
file_event({exists, Path, dir, _Info, Files}, St) ->
|
158
|
-
%%erlang:display({autoload_saw_exists, dir, Path}),
|
159
|
-
server(monitor_objs(Path, Files, St));
|
160
|
-
file_event({exists, Path, file, Info, _}, St) ->
|
161
|
-
%%erlang:display({autoload_saw_exists, file, Path}),
|
162
|
-
%% treat file-exists messages just like file-changed messages
|
163
|
-
server(changed_file(Path, Info#file_info.mtime, St));
|
164
|
-
file_event({changed, Path, dir, _Info, Files}, St) ->
|
165
|
-
%%erlang:display({autoload_saw_changed, dir, Path}),
|
166
|
-
server(monitor_objs(Path, Files, St));
|
167
|
-
file_event({changed, Path, file, #file_info{}=Info, _}, St) ->
|
168
|
-
%%erlang:display({autoload_saw_changed, file, Path}),
|
169
|
-
server(changed_file(Path, Info#file_info.mtime, St));
|
170
|
-
file_event({error, _Path, file, _ErrorAtom}=_Msg, St) ->
|
171
|
-
%%erlang:display({autoload_ignoring, _Msg}),
|
172
|
-
%% just consider the files as being temporarily unavailable
|
173
|
-
server(St);
|
174
|
-
file_event(_Msg, St) ->
|
175
|
-
erlang:display({autoload_unexpected_file_event, _Msg}),
|
176
|
-
server(St).
|
177
|
-
|
178
|
-
code_event({loaded, M, Time}, St) ->
|
179
|
-
%%erlang:display({autoload_saw_loaded, M, Time}),
|
180
|
-
server(loaded_module(M, Time, St));
|
181
|
-
code_event(_Msg, St) ->
|
182
|
-
erlang:display({autoload_unexpected_code_event, _Msg}),
|
183
|
-
server(St).
|
184
|
-
|
185
|
-
|
186
|
-
%% called when asked to watch a module M
|
187
|
-
|
188
|
-
monitor_module(M, Opts, St) ->
|
189
|
-
ensure_loaded(M, "", Opts),
|
190
|
-
case code:which(M) of
|
191
|
-
non_existing ->
|
192
|
-
%% no module loaded or found in path (e.g., the user has not
|
193
|
-
%% run 'make' yet, or has not updated the path): store
|
194
|
-
%% mapping from M to undefined file, for late binding
|
195
|
-
store_record(M, #module{opts = Opts}, St);
|
196
|
-
File when is_list(File) ->
|
197
|
-
%% existing file found (already loaded or in path): monitor
|
198
|
-
%% the file and map M to that file (even if the first load
|
199
|
-
%% might turn out to be from another file)
|
200
|
-
store_record(M, #module{file = File},
|
201
|
-
monitor_file(File, Opts, St));
|
202
|
-
_ ->
|
203
|
-
%% preloaded or cover-compiled module - ignore
|
204
|
-
St
|
205
|
-
end.
|
206
|
-
|
207
|
-
%% called when a monitored directory is detected as new or changed
|
208
|
-
|
209
|
-
monitor_objs(Path, Files, St) ->
|
210
|
-
Opts = get_dir_opts(Path, St),
|
211
|
-
ObjExt = file:objfile_extension(),
|
212
|
-
Objs = [F || {added, F} <- Files, filename:extension(F) == ObjExt],
|
213
|
-
lists:foldl(
|
214
|
-
fun (F, St) ->
|
215
|
-
F1 = filename:absname(filename:join(Path, F)),
|
216
|
-
%%erlang:display({autoload_monitoring, file, F1}),
|
217
|
-
monitor_file(F1, Opts, St)
|
218
|
-
end,
|
219
|
-
St,
|
220
|
-
Objs).
|
221
|
-
|
222
|
-
get_dir_opts(Path, St) ->
|
223
|
-
case dict:find(Path, St#state.dirs) of
|
224
|
-
{ok, {_Ref, Opts}} -> Opts;
|
225
|
-
error -> []
|
226
|
-
end.
|
227
|
-
|
228
|
-
%% called when a module was detected as loaded or reloaded (either
|
229
|
-
%% caused by an auto-load or by someone else)
|
230
|
-
|
231
|
-
loaded_module(M, Time, St) ->
|
232
|
-
case find_record(M, St) of
|
233
|
-
{ok, R} ->
|
234
|
-
File = code:which(M),
|
235
|
-
case R#module.file of
|
236
|
-
undefined when is_list(File) ->
|
237
|
-
%% a watched module gets a late binding to a file
|
238
|
-
%%erlang:display({autoload_late_binding, M, File}),
|
239
|
-
Opts = R#module.opts,
|
240
|
-
update_record(M, R, Time, File,
|
241
|
-
monitor_file(File, Opts, St));
|
242
|
-
File when is_list(File) ->
|
243
|
-
%% loaded from watched file - update the load time
|
244
|
-
update_record(M, R, Time, File, St);
|
245
|
-
_ ->
|
246
|
-
St %% not loaded from the watched file
|
247
|
-
end;
|
248
|
-
error ->
|
249
|
-
St %% uninteresting module
|
250
|
-
end.
|
251
|
-
|
252
|
-
|
253
|
-
%% called whenever a file has changed and exists
|
254
|
-
|
255
|
-
changed_file(File, Time, St) ->
|
256
|
-
%% always reread the module name from the file
|
257
|
-
case obj_module(File) of
|
258
|
-
{module, M} ->
|
259
|
-
case find_record(M, St) of
|
260
|
-
{ok, R} ->
|
261
|
-
check_reload(M, File, Time, R),
|
262
|
-
St;
|
263
|
-
error ->
|
264
|
-
%% first time we see this module: map to file
|
265
|
-
%% and don't try to reload
|
266
|
-
R = #module{file = File},
|
267
|
-
store_record(M, R, St)
|
268
|
-
end;
|
269
|
-
error ->
|
270
|
-
St %% bad file - ignore until changed again
|
271
|
-
end.
|
272
|
-
|
273
|
-
|
274
|
-
%% check if a module needs to be reloaded, when its file has changed
|
275
|
-
|
276
|
-
check_reload(M, File, Time, R) ->
|
277
|
-
%%erlang:display({autoload_checking, M, File, Time, R}),
|
278
|
-
case ((R#module.file == File)
|
279
|
-
andalso is_loaded(M)
|
280
|
-
andalso (code:which(M) == File)
|
281
|
-
andalso is_newer(Time, R#module.time))
|
282
|
-
of
|
283
|
-
true ->
|
284
|
-
reload(M);
|
285
|
-
false ->
|
286
|
-
ok
|
287
|
-
end.
|
288
|
-
|
289
|
-
|
290
|
-
reload(M) ->
|
291
|
-
erlang:display({autoload_loading, M}),
|
292
|
-
code:purge(M),
|
293
|
-
code:load_file(M).
|
294
|
-
|
295
|
-
update_record(M, R, Time, File, St) ->
|
296
|
-
store_record(M, R#module{time = Time, file = File}, St).
|
297
|
-
|
298
|
-
find_record(M, St) ->
|
299
|
-
dict:find(M, St#state.modules).
|
300
|
-
|
301
|
-
store_record(M, R, St) ->
|
302
|
-
St#state{modules = dict:store(M, R, St#state.modules)}.
|
303
|
-
|
304
|
-
%% we must remember watched files/dirs, so we don't set up more than one
|
305
|
-
%% file monitor for the same path, and so we can cancel monitors; for
|
306
|
-
%% dirs, we also remember options
|
307
|
-
|
308
|
-
monitor_file(Path, Opts, St) ->
|
309
|
-
ensure_loaded([], Path, Opts),
|
310
|
-
case dict:is_key(Path, St#state.files) of
|
311
|
-
true ->
|
312
|
-
%%erlang:display({autoload_already_watching, Path}),
|
313
|
-
St;
|
314
|
-
false ->
|
315
|
-
{ok, _, Ref} = file_monitor:monitor_file(Path, self()),
|
316
|
-
St#state{files = dict:store(Path, Ref, St#state.files)}
|
317
|
-
end.
|
318
|
-
|
319
|
-
monitor_dir(Path, Opts, St) ->
|
320
|
-
case dict:is_key(Path, St#state.dirs) of
|
321
|
-
true ->
|
322
|
-
%%erlang:display({autoload_already_watching, Path}),
|
323
|
-
St;
|
324
|
-
false ->
|
325
|
-
{ok, _, Ref} = file_monitor:monitor_dir(Path, self()),
|
326
|
-
St#state{dirs = dict:store(Path, {Ref, Opts},
|
327
|
-
St#state.dirs)}
|
328
|
-
end.
|
329
|
-
|
330
|
-
%% try to ensure that a module/file is loaded (M is [] if unknown;
|
331
|
-
%% File is "" if unknown)
|
332
|
-
|
333
|
-
ensure_loaded(M, File, Opts) ->
|
334
|
-
case proplists:get_bool(load, Opts) of
|
335
|
-
true when is_atom(M) ->
|
336
|
-
ensure_loaded_1(M, File); %% known module name
|
337
|
-
true when M == [] ->
|
338
|
-
case obj_module(File) of
|
339
|
-
{module, Module} ->
|
340
|
-
ensure_loaded_1(Module, File);
|
341
|
-
error ->
|
342
|
-
ok %% couldn't load
|
343
|
-
end;
|
344
|
-
false -> ok
|
345
|
-
end.
|
346
|
-
|
347
|
-
ensure_loaded_1(M, File) ->
|
348
|
-
%% always try to load using the path first
|
349
|
-
case code:ensure_loaded(M) of
|
350
|
-
{module, _} ->
|
351
|
-
ok;
|
352
|
-
{error, _} when File == [] ->
|
353
|
-
ok; %% ignore error
|
354
|
-
{error, _} ->
|
355
|
-
%% try loading directly from the file
|
356
|
-
code:load_abs(File) %% ignore result
|
357
|
-
end.
|
358
|
-
|
359
|
-
%% find name of module stored in an object file
|
360
|
-
|
361
|
-
obj_module(File) ->
|
362
|
-
case beam_lib:info(File) of
|
363
|
-
List when is_list(List) ->
|
364
|
-
case lists:keysearch(module, 1, List) of
|
365
|
-
{value, {module, M}} ->
|
366
|
-
{module, M};
|
367
|
-
_ ->
|
368
|
-
error
|
369
|
-
end;
|
370
|
-
_ ->
|
371
|
-
error
|
372
|
-
end.
|
373
|
-
|
374
|
-
%% check if the file timestamp (on DateTime format) is newer than
|
375
|
-
%% the module load-time (on Now-format)
|
376
|
-
|
377
|
-
is_newer(DateTime, LoadTime) ->
|
378
|
-
calendar:datetime_to_gregorian_seconds(DateTime) >
|
379
|
-
calendar:datetime_to_gregorian_seconds(
|
380
|
-
calendar:now_to_local_time(LoadTime)).
|
381
|
-
|
382
|
-
%% wrapper for code:is_loaded/1
|
383
|
-
|
384
|
-
is_loaded(Module) ->
|
385
|
-
case code:is_loaded(Module) of
|
386
|
-
{file, _} -> true;
|
387
|
-
false -> false
|
388
|
-
end.
|
@@ -1,243 +0,0 @@
|
|
1
|
-
%% This library is free software; you can redistribute it and/or modify
|
2
|
-
%% it under the terms of the GNU Lesser General Public License as
|
3
|
-
%% published by the Free Software Foundation; either version 2 of the
|
4
|
-
%% License, or (at your option) any later version.
|
5
|
-
%%
|
6
|
-
%% This library is distributed in the hope that it will be useful, but
|
7
|
-
%% WITHOUT ANY WARRANTY; without even the implied warranty of
|
8
|
-
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
9
|
-
%% Lesser General Public License for more details.
|
10
|
-
%%
|
11
|
-
%% You should have received a copy of the GNU Lesser General Public
|
12
|
-
%% License along with this library; if not, write to the Free Software
|
13
|
-
%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
|
14
|
-
%% USA
|
15
|
-
%%
|
16
|
-
%% $Id: code_monitor.erl 238 2007-11-15 10:23:54Z mremond $
|
17
|
-
%%
|
18
|
-
%% @private (for now)
|
19
|
-
%% @author Richard Carlsson <richardc@it.uu.se>
|
20
|
-
%% @copyright 2006 Richard Carlsson
|
21
|
-
%% @doc Erlang code monitoring service
|
22
|
-
|
23
|
-
-module(code_monitor).
|
24
|
-
|
25
|
-
-export([start/0, start/1, stop/0, stop/1, monitor/1, monitor/2,
|
26
|
-
demonitor/1, demonitor/2, install_codespy/1, wiretap/3]).
|
27
|
-
|
28
|
-
-export([main/1]). %% private
|
29
|
-
|
30
|
-
|
31
|
-
-define(SERVER, code_monitor).
|
32
|
-
|
33
|
-
monitor(Pid) ->
|
34
|
-
monitor(?SERVER, Pid).
|
35
|
-
|
36
|
-
monitor(Server, Pid) when is_pid(Pid) ->
|
37
|
-
ensure_started(Server),
|
38
|
-
Server ! {monitor, Pid},
|
39
|
-
ok.
|
40
|
-
|
41
|
-
demonitor(Pid) ->
|
42
|
-
demonitor(?SERVER, Pid).
|
43
|
-
|
44
|
-
demonitor(Server, Pid) when is_pid(Pid) ->
|
45
|
-
ensure_started(Server),
|
46
|
-
Server ! {demonitor, Pid},
|
47
|
-
ok.
|
48
|
-
|
49
|
-
stop() ->
|
50
|
-
stop(?SERVER).
|
51
|
-
|
52
|
-
stop(Server) ->
|
53
|
-
Server ! stop,
|
54
|
-
ok.
|
55
|
-
|
56
|
-
ensure_started(Name) when is_atom(Name) ->
|
57
|
-
start(Name);
|
58
|
-
ensure_started(Pid) when is_pid(Pid) ->
|
59
|
-
Pid.
|
60
|
-
|
61
|
-
start() ->
|
62
|
-
start(?SERVER).
|
63
|
-
|
64
|
-
start(Name) ->
|
65
|
-
case whereis(Name) of
|
66
|
-
undefined ->
|
67
|
-
Parent = self(),
|
68
|
-
Pid = spawn(fun () -> server_init(Name, Parent) end),
|
69
|
-
receive
|
70
|
-
{Pid, ok} -> Pid;
|
71
|
-
{Pid, error} -> throw(no_server)
|
72
|
-
end;
|
73
|
-
Pid -> Pid
|
74
|
-
end.
|
75
|
-
|
76
|
-
server_init(undefined = Name, Parent) ->
|
77
|
-
%% anonymous server
|
78
|
-
server_init_1(Name, Parent);
|
79
|
-
server_init(Name, Parent) ->
|
80
|
-
case catch register(Name, self()) of
|
81
|
-
true ->
|
82
|
-
server_init_1(Name, Parent);
|
83
|
-
_ ->
|
84
|
-
init_failure(Parent)
|
85
|
-
end.
|
86
|
-
|
87
|
-
server_init_1(Name, Parent) ->
|
88
|
-
case install_codespy(self()) of
|
89
|
-
{ok, _Spy} ->
|
90
|
-
Parent ! {self(), ok},
|
91
|
-
server(Name, sets:new());
|
92
|
-
{error, _} ->
|
93
|
-
init_failure(Parent)
|
94
|
-
end.
|
95
|
-
|
96
|
-
init_failure(Parent) ->
|
97
|
-
Parent ! {self(), error},
|
98
|
-
exit(failed).
|
99
|
-
|
100
|
-
server(Name, Listeners) ->
|
101
|
-
?MODULE:main({Name, Listeners}).
|
102
|
-
|
103
|
-
%% @private
|
104
|
-
main({Name, Listeners}) ->
|
105
|
-
receive
|
106
|
-
{code_server, {module, M}} ->
|
107
|
-
cast({loaded, M, erlang:now()}, Listeners),
|
108
|
-
server(Name, Listeners);
|
109
|
-
{monitor, Pid} when is_pid(Pid) ->
|
110
|
-
server(Name, sets:add_element(Pid, Listeners));
|
111
|
-
{demonitor, Pid} ->
|
112
|
-
server(Name, sets:del_element(Pid, Listeners));
|
113
|
-
stop ->
|
114
|
-
exit(normal);
|
115
|
-
_ ->
|
116
|
-
server(Name, Listeners)
|
117
|
-
end.
|
118
|
-
|
119
|
-
cast(M, Listeners) ->
|
120
|
-
sets:fold(fun (L, M) -> L ! M end, {code_monitor, M}, Listeners).
|
121
|
-
|
122
|
-
|
123
|
-
%% code server spy process using generic wiretap functionality
|
124
|
-
|
125
|
-
install_codespy(To) ->
|
126
|
-
wiretap(code_server, To, fun code_spy/3).
|
127
|
-
|
128
|
-
code_spy({code_call,From,{load_file,_}=Req}, Server, To) ->
|
129
|
-
handle_load(Req, From, Req, Server, To);
|
130
|
-
code_spy({code_call,From,{ensure_loaded,M}=Req}=Msg, Server, To) ->
|
131
|
-
case erlang:module_loaded(M) of
|
132
|
-
true -> Server ! Msg;
|
133
|
-
false -> handle_load(Req, From, Req, Server, To)
|
134
|
-
end;
|
135
|
-
code_spy({code_call,From,{load_abs,_,_}=Req}, Server, To) ->
|
136
|
-
handle_load(Req, From, Req, Server, To);
|
137
|
-
code_spy({code_call,From,{load_binary,_,_,_}=Req}, Server, To) ->
|
138
|
-
handle_load(Req, From, Req, Server, To);
|
139
|
-
code_spy({code_call,From,{load_native_partial,_,_}=Req}, Server, To) ->
|
140
|
-
handle_load(Req, From, Req, Server, To);
|
141
|
-
code_spy({code_call,From,{load_native_sticky,_,_,_}=Req}, Server, To) ->
|
142
|
-
handle_load(Req, From, Req, Server, To);
|
143
|
-
code_spy(Msg, Server, _To) ->
|
144
|
-
Server ! Msg.
|
145
|
-
|
146
|
-
handle_load(Req, From, Req, Server, To) ->
|
147
|
-
ReplyTo = spawn(fun () -> reply_handler(Server, From, To) end),
|
148
|
-
Server ! {code_call, ReplyTo, Req}.
|
149
|
-
|
150
|
-
%% one-shot processes - receive, pass on and die
|
151
|
-
reply_handler(Server, Client, To) ->
|
152
|
-
link(Server),
|
153
|
-
receive
|
154
|
-
{code_server, _Reply} = M ->
|
155
|
-
To ! Client ! M
|
156
|
-
end.
|
157
|
-
|
158
|
-
%% basic wiretapping of registered processes (it should be possible to
|
159
|
-
%% have several wiretaps attached to the same registered name; they will
|
160
|
-
%% transparently form a chain, without knowing about each other)
|
161
|
-
|
162
|
-
wiretap(Name, To, F) when is_atom(Name), is_pid(To), is_function(F) ->
|
163
|
-
Parent = self(),
|
164
|
-
Pid = spawn(fun () -> wiretap_init(Name, To, F, Parent) end),
|
165
|
-
receive
|
166
|
-
{Pid, Result} -> Result
|
167
|
-
end.
|
168
|
-
|
169
|
-
wiretap_init(Name, To, F, Parent) ->
|
170
|
-
case whereis(Name) of
|
171
|
-
undefined ->
|
172
|
-
Parent ! {self(), {error, undefined}},
|
173
|
-
exit(error);
|
174
|
-
Pid ->
|
175
|
-
catch unregister(Name),
|
176
|
-
catch register(Name, self()),
|
177
|
-
Self = self(),
|
178
|
-
case whereis(Name) of
|
179
|
-
Self ->
|
180
|
-
process_flag(trap_exit, true),
|
181
|
-
link(Pid),
|
182
|
-
link(To),
|
183
|
-
Parent ! {self(), {ok, self()}},
|
184
|
-
wiretap_loop(Name, To, Pid, F);
|
185
|
-
_ ->
|
186
|
-
Parent ! {self(), {error, register_failed}},
|
187
|
-
exit(error)
|
188
|
-
end
|
189
|
-
end.
|
190
|
-
|
191
|
-
wiretap_loop(Name, To, Pid, F) ->
|
192
|
-
receive
|
193
|
-
{'EXIT', Pid, _} ->
|
194
|
-
wiretap_dropped(Name, To, F);
|
195
|
-
{'EXIT', To, _} ->
|
196
|
-
wiretap_exit(Name, Pid);
|
197
|
-
Msg ->
|
198
|
-
F(Msg, Pid, To),
|
199
|
-
wiretap_loop(Name, To, Pid, F)
|
200
|
-
end.
|
201
|
-
|
202
|
-
%% note that the registered name might get stolen from the spy process,
|
203
|
-
%% e.g., by another active wiretap
|
204
|
-
|
205
|
-
wiretap_exit(Name, Pid) ->
|
206
|
-
%% the receiver died - restore things and go away invisibly
|
207
|
-
unlink(Pid),
|
208
|
-
Self = self(),
|
209
|
-
%% sadly, this is not atomic...
|
210
|
-
case whereis(Name) of
|
211
|
-
Self ->
|
212
|
-
catch unregister(Name),
|
213
|
-
catch register(Name, Pid);
|
214
|
-
_ -> ok
|
215
|
-
end,
|
216
|
-
exit(normal).
|
217
|
-
|
218
|
-
%% if the real server goes away, make sure to unregister, and keep watch
|
219
|
-
%% in order to restart the wiretap when the server comes up again
|
220
|
-
|
221
|
-
wiretap_dropped(Name, To, F) ->
|
222
|
-
Self = self(),
|
223
|
-
case whereis(Name) of
|
224
|
-
Self -> (catch unregister(Name));
|
225
|
-
_ -> ok
|
226
|
-
end,
|
227
|
-
wiretap_watch(Name, To, F).
|
228
|
-
|
229
|
-
wiretap_watch(Name, To, F) ->
|
230
|
-
receive
|
231
|
-
{'EXIT', To, _} ->
|
232
|
-
exit(normal)
|
233
|
-
after 1000 ->
|
234
|
-
case whereis(Name) of
|
235
|
-
Pid when is_pid(Pid) ->
|
236
|
-
%% this process will terminate after starting the
|
237
|
-
%% new wiretap (even it that call fails)
|
238
|
-
wiretap(Name, To, F),
|
239
|
-
exit(normal);
|
240
|
-
_ ->
|
241
|
-
wiretap_watch(Name, To, F)
|
242
|
-
end
|
243
|
-
end.
|
@@ -1,21 +0,0 @@
|
|
1
|
-
% This is an -*- erlang -*- file.
|
2
|
-
|
3
|
-
{application, eunit,
|
4
|
-
[{description, "EUnit"},
|
5
|
-
{vsn, "%VSN%"},
|
6
|
-
{modules, [eunit,
|
7
|
-
eunit_autoexport,
|
8
|
-
eunit_striptests,
|
9
|
-
eunit_server,
|
10
|
-
eunit_proc,
|
11
|
-
eunit_serial,
|
12
|
-
eunit_test,
|
13
|
-
eunit_lib,
|
14
|
-
eunit_data,
|
15
|
-
eunit_tty,
|
16
|
-
code_monitor,
|
17
|
-
file_monitor,
|
18
|
-
autoload]},
|
19
|
-
{registered,[]},
|
20
|
-
{applications, [stdlib]},
|
21
|
-
{env, []}]}.
|
@@ -1 +0,0 @@
|
|
1
|
-
{"%VSN%",[],[]}.
|