Changeset 81

Timestamp:

12/05/10 23:59:23 (13 years ago)

Author:

nanardon

Message:

• add initial page

File:

• server/trunk/admin/lib/Sophie/Cli.pm (modified) (4 diffs)

server/trunk/admin/lib/Sophie/Cli.pm

@@ -66 +66 @@
                 my ($self, $start, $media) = @_;
                 if ($media) {
-                    return (<$start*>)
+                    my $res = $self->xmlreq('admin.ls_local', $start);
+                    return @{ $res->value };
                 } else {
                 my $res = $self->xmlreq('distrib.struct',
@@ -76 +77 @@
         }
     );
+    $env->add_func('unsetpath', {
+            code => sub {
+                my ($self, $media, $path) = @_;
+                my $res = $self->xmlreq('admin.media_remove_path',
+                    $self->{dist},
+                    $media,
+                    $path,
+                );
+            },
+            completion => sub {
+                my ($self, $start, $media) = @_;
+                if ($media) {
+                    my $res = $self->xmlreq('admin.list_path',
+                        $self->{dist},
+                        $media,
+                    );
+                    return @{ $res->value };
+                } else {
+                my $res = $self->xmlreq('distrib.struct',
+                    $self->{dist},
+                );
+                return map { $_->{label} } @{ $res->value };
+                }
+            },
+        }
+    );
     $env->add_func('listpath', {
             code => sub {
@@ -98 +125 @@
                 my ($self, $media, $group) = @_;
                 my $res = $self->xmlreq('admin.add_media',$self->{dist},
-                    { dist_label => $media,
+                    { label => $media,
                       group_label => $group },
                 );
@@ -104 +131 @@
             },
             completion => sub {
-                my ($self) = @_;
-                my $res = $self->xmlreq('distrib.struct',
-                    $self->{dist},
-                );
-                return map { $_->{label} } @{ $res->value };
+                my ($self, $start, $label) = @_;
+                my $res = $self->xmlreq('distrib.struct',
+                    $self->{dist},
+                );
+                return ((map { $_->{label} } @{ $res->value }), $label ?
+                    ($label) : ())
             },
         }