1 files changed, 34 insertions, 0 deletions
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;
+