svn commit: samba r9383 - in branches/SAMBA_4_0/testprogs/ejs: .
tridge at samba.org
tridge at samba.org
Thu Aug 18 09:33:04 GMT 2005
Author: tridge
Date: 2005-08-18 09:33:03 +0000 (Thu, 18 Aug 2005)
New Revision: 9383
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=9383
Log:
remove unused file
Removed:
branches/SAMBA_4_0/testprogs/ejs/winreg.js
Changeset:
Deleted: branches/SAMBA_4_0/testprogs/ejs/winreg.js
===================================================================
--- branches/SAMBA_4_0/testprogs/ejs/winreg.js 2005-08-18 07:06:19 UTC (rev 9382)
+++ branches/SAMBA_4_0/testprogs/ejs/winreg.js 2005-08-18 09:33:03 UTC (rev 9383)
@@ -1,72 +0,0 @@
-#!/usr/bin/env smbscript
-/*
- test winreg calls from ejs
-*/
-
-libinclude("base.js");
-libinclude("winreg.js");
-
-var options = new Object();
-
-ok = GetOptions(ARGV, options,
- "POPT_AUTOHELP",
- "POPT_COMMON_SAMBA",
- "POPT_COMMON_CREDENTIALS");
-if (ok == false) {
- println("Failed to parse options: " + options.ERROR);
- return -1;
-}
-
-if (options.ARGV.length < 1) {
- println("Usage: winreg.js <BINDING>");
- return -1;
-}
-var binding = options.ARGV[0];
-reg = winreg_init();
-security_init(reg);
-
-print("Connecting to " + binding + "\n");
-status = reg.connect(binding);
-if (status.is_ok != true) {
- print("Failed to connect to " + binding + " - " + status.errstr + "\n");
- return -1;
-}
-
-function list_values(path) {
- var list = winreg_enum_values(reg, path);
- var i;
- if (list == undefined) {
- return;
- }
- for (i=0;i<list.length;i++) {
- printf("\ttype=%2d size=%4d '%s'\n", list[i].type, list[i].size, list[i].name);
- }
-}
-
-function list_path(path) {
- var list = winreg_enum_path(reg, path);
- var i;
- list_values(path);
- for (i=0;i<list.length;i++) {
- var npath;
- if (path) {
- npath = path + "\\" + list[i];
- } else {
- npath = list[i];
- }
- println(npath);
- list_path(npath);
- }
-}
-
-var root;
-
-if (options.ARGV.length > 1) {
- root = options.ARGV[1];
-} else {
- root = '';
-}
-
-printf("Listing registry tree '%s'\n", root);
-list_path(root);
-return 0;
More information about the samba-cvs
mailing list