From ff7b9de82908baf1d5f9af71e35dad2369bfdc2f Mon Sep 17 00:00:00 2001
From: Tobi Oetiker <tobi@oetiker.ch>
Date: Wed, 14 Nov 2007 17:33:19 +0000
Subject: initial qooxdoo drop for smokeping

---
 qooxdoo/source/perl/Qooxdoo/Services/Smokeping.pm | 34 +++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 qooxdoo/source/perl/Qooxdoo/Services/Smokeping.pm

(limited to 'qooxdoo/source/perl/Qooxdoo/Services')

diff --git a/qooxdoo/source/perl/Qooxdoo/Services/Smokeping.pm b/qooxdoo/source/perl/Qooxdoo/Services/Smokeping.pm
new file mode 100644
index 0000000..f40288d
--- /dev/null
+++ b/qooxdoo/source/perl/Qooxdoo/Services/Smokeping.pm
@@ -0,0 +1,34 @@
+package Qooxdoo::Services::Smokeping;
+use strict;
+
+sub GetAccessibility {
+        return "public";
+}
+
+sub method_get_tree
+{
+    my $error = shift;
+#    $error->set_error(101,$err);
+#    return $error;
+    # b = branche
+    # i = in
+    # l = leave
+    # o = out
+    return [ ['fk1','Folder 1',
+	  	'fk1/f1','File 1',
+	     	'fk1/f2','File 2',
+		 [ 'fk1/sf1','Sub Folder 2',
+		   'fk1/sf1/f3','File 3',	
+		   'fk1/sf1/f4','File 4',
+		 ], 
+               ],
+               [ 'fk2','Folder 2'],
+	       [ 'fk3','Folder 3',
+                      'fk3/f3','File 33',
+		      'fk3/f4','File 44' 
+	       ]		
+	   ]
+}
+
+1;
+
-- 
cgit v1.2.3-24-g4f1b