3 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
sub read_plugins { my $plugins_file = io(shift); my @plugins = grep { s/^([\+\-]?[\w\:]+)\s*$/Å©/; } $plugins_file->slurp; return @plugins unless grep /^[\+\-]/, @plugins or not @plugins; my $filename = $plugins_file->filename; die "Can't create plugins list" #Zeile 46 unless -e "../$filename"; my $updir = io->updir->chdir; my @parent_plugins = $self->read_plugins($filename); for (@plugins) { my $remove = $_; $remove =~ s/^\-// or next; @parent_plugins = grep {$_ ne $remove} @parent_plugins; } my %have; @have{@parent_plugins} = ('1') x @parent_plugins; return @parent_plugins, grep { not /^\-/ and do { s/^\+//; not $have{$_}; } } @plugins; }
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
format_c@boston ~/public_html/cgi-bin $ ls -l kwiki
insgesamt 80K
drwxr-xr-x 2 format_c users 4,0K 13. Jul 10:57 config
-rw-r--r-- 1 format_c users 334 13. Jul 10:57 config.yaml
drwxr-xr-x 2 format_c users 4,0K 13. Jul 10:57 css
drwxrwxrwx 2 format_c users 4,0K 25. Jul 14:48 database
drwxr-xr-x 4 format_c users 4,0K 13. Jul 10:57 icons
drwxr-xr-t 2 format_c users 4,0K 13. Jul 10:57 images
-rwxr-xr-x 1 format_c users 109 13. Jul 10:57 index.cgi
drwxr-xr-x 2 format_c users 4,0K 13. Jul 10:57 javascript
drwxr-xr-x 12 format_c users 4,0K 13. Jul 10:49 kwiki-orig
-rw-r--r-- 1 format_c users 6,2K 13. Jul 10:57 palm90.png
drwxrwxrwx 9 format_c users 4,0K 13. Jul 10:57 plugin
-rw-r--r-- 1 format_c users 12K 25. Jul 15:30 plugins
drwxr-xr-x 2 format_c users 4,0K 13. Jul 10:57 private
-rw-r--r-- 1 format_c users 989 13. Jul 10:57 README
-rw-r--r-- 1 format_c users 657 25. Jul 15:36 registry.dd
drwxr-xr-x 3 format_c users 4,0K 13. Jul 10:48 template
drwxr-xr-x 7 format_c users 4,0K 13. Jul 10:57 theme
format_c@boston ~/public_html/cgi-bin $
format_c@boston ~/public_html/cgi-bin/kwiki $ chmod 777 plugins
3 Einträge, 1 Seite |