Author: jsuchome Date: Fri Aug 17 10:54:43 2007 New Revision: 40325 URL: http://svn.opensuse.org/viewcvs/yast?rev=40325&view=rev Log: - use Perl built-ins instead of SCR (patch by locilka, #266179) - 2.15.36 Modified: trunk/users/VERSION trunk/users/package/yast2-users.changes trunk/users/src/UsersPlugins.pm Modified: trunk/users/VERSION URL: http://svn.opensuse.org/viewcvs/yast/trunk/users/VERSION?rev=40325&r1=40324&r2=40325&view=diff ============================================================================== --- trunk/users/VERSION (original) +++ trunk/users/VERSION Fri Aug 17 10:54:43 2007 @@ -1 +1 @@ -2.15.35 +2.15.36 Modified: trunk/users/package/yast2-users.changes URL: http://svn.opensuse.org/viewcvs/yast/trunk/users/package/yast2-users.changes?rev=40325&r1=40324&r2=40325&view=diff ============================================================================== --- trunk/users/package/yast2-users.changes (original) +++ trunk/users/package/yast2-users.changes Fri Aug 17 10:54:43 2007 @@ -1,4 +1,10 @@ ------------------------------------------------------------------- +Fri Aug 17 10:45:29 CEST 2007 - jsuchome@suse.cz + +- use Perl built-ins instead of SCR (patch by locilka, #266179) +- 2.15.36 + +------------------------------------------------------------------- Thu Aug 9 14:40:49 CEST 2007 - jsuchome@suse.cz - if quota is not configured, tell user how to do it Modified: trunk/users/src/UsersPlugins.pm URL: http://svn.opensuse.org/viewcvs/yast/trunk/users/src/UsersPlugins.pm?rev=40325&r1=40324&r2=40325&view=diff ============================================================================== --- trunk/users/src/UsersPlugins.pm (original) +++ trunk/users/src/UsersPlugins.pm Fri Aug 17 10:54:43 2007 @@ -30,20 +30,17 @@ BEGIN { $TYPEINFO{Read} = ["function", "boolean"]; } sub Read { - my $find = "/usr/bin/find ".Directory->moduledir(); - $find .= " -name 'UsersPlugin*.*'"; #TODO use some variable for the name - my $out = SCR->Execute (".target.bash_output", $find); - my $modules = $out->{"stdout"} || ""; - - foreach my $module (split (/\n/, $modules)) { - my @mod = split (/\//, $module); - my $m = $mod[-1] || ""; - $m =~ s/\.ycp$//g; # YCP modules cannot be called as variables... - $m =~ s/\.pm$//g; - if ($m ne "" && $m ne "UsersPlugins") { - push @available_plugins, $m; + opendir (MODULEDIR, Directory->moduledir()) || do { + y2error ("Cannot open directory '".Directory->moduledir()."'"); + return 0; + }; + foreach my $module (readdir(MODULEDIR)) { + if ($module =~ s/^(UsersPlugin.+)\..+$/$1/ && + $module ne 'UsersPlugins') { + push @available_plugins, $module; } - } + }; + close (MODULEDIR); foreach my $module (@available_plugins) { y2milestone ("Available plugin: $module"); -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org