ZConf-GUI

 view release on metacpan or  search on metacpan

bin/zcgui-get  view on Meta::CPAN

my %opts=();
getopts('s:m:', \%opts);

my $zg=ZConf::GUI->new({set=>$opts{s}});
if ($zg->error) {
	exit $zg->error;
}

$zg->readSet($opts{s});

my @prefs=$zg->getPreferred($opts{m});
if ($zg->error) {
	exit $zg->error;
}

#this is to only print 
if (defined($prefs[0])) {
	print join("\n", @prefs)."\n";
}else{
	exit 0;
}


=head1 NAME

zcgui-get - Gets the current preferred backends for a module.

=head1 SYNOPSIS

bin/zcgui-set  view on Meta::CPAN

	exit 254;
}

my $zg=ZConf::GUI->new({set=>$opts{s}});
if ($zg->error) {
	exit $zg->error;
}

$zg->readSet($opts{s});

my @prefs=split(/:/, $opts{p});

$zg->setPreferred($opts{m}, \@prefs);
if ($zg->error) {
	exit $zg->error;
}

=head1 NAME

zcgui-set - Set the preferred backends for a module.

=head1 SYNOPSIS

lib/ZConf/GUI.pm  view on Meta::CPAN

	}

	#return it's value
	return $vars{appendOthers}
}

=head2 getPreferred

This gets the preferred for a module.

    my @prefs=$zg->getPreferred('ZConf::Runner');
    if($zg->{error}){
        print "Error!\n";
    }

=cut

sub getPreferred{
	my $self=$_[0];
	my $module=$_[1];

lib/ZConf/GUI.pm  view on Meta::CPAN

	}

	return 1;
}

=head2 setPreferred

This sets the preferred GUI back ends. The first arguement is the module.
The second is a array reference of the prefences.

    my @prefs=('GUI', 'Curses');
    #set it for ZConf::BGSet
    my $zg->setPreferred('ZConf::BGSet', \@prefs);

=cut

sub setPreferred{
	my $self=$_[0];
	my $module=$_[1];
	my $prefs;
	if (defined($_[2])) {
		$prefs=$_[2];
	}

	if ( ! $self->errorblank ){
		return undef;
	}

	if (!defined($module)) {
		$self->{error}=2;
		$self->{errorString}='No module specified';
		$self->warn;
		return undef;
	}

	if (!defined(@{$prefs}[0])) {
		$self->{error}=3;
		$self->{errorString}='No prefs specified';
		$self->warn;
		return undef;
	}

	my $int=0;
	while (defined(@{$prefs}[$int])){
		if (@{$prefs}[$int] =~ /:/) {
			$self->{error}=4;
			$self->{errorString}='"'.@{$prefs}[$int].'" matched /:/';
			$self->warn;
			return undef;
		}

		$int++;
	}

	$module=~s/::/\//g;

	my $joinedprefs=join(':', @{$prefs});

	$self->{zconf}->setVar('gui', 'modules/'.$module, $joinedprefs);
	if($self->{zconf}->error){
		$self->{error}=1;
		$self->{errorString}='ZConf error listing sets for the config "gui".'.
			                 ' ZConf error="'.$self->{zconf}->error.'" '.
			                 'ZConf error string="'.$self->{zconf}->errorString.'"';
		$self->warn;
		return undef;
	}

	$self->{zconf}->writeSetFromLoadedConfig({config=>'gui'});

lib/ZConf/GUI.pm  view on Meta::CPAN

	if (!defined($module)) {
		$self->{error}=2;
		$self->{errorString}='No module specified';
		$self->warn;
		return undef;
	}

	if (!defined($useX)) {
		$self->{error}=3;
		$self->{errorString}='No prefs specified';
		$self->warn;
		return undef;
	}

	$module=~s/::/\//g;

	$self->{zconf}->setVar('gui', 'useX/'.$module, $useX);
	if($self->{zconf}->{error}){
		$self->{error}=1;
		$self->{errorString}='ZConf error listing sets for the config "gui".'.

lib/ZConf/GUI.pm  view on Meta::CPAN

		return undef;
	}

	if (!defined($module)) {
		$self->{error}=2;
		$self->{errorString}='No module specified';
		$self->warn;
		return undef;
	}

	my @prefs=$self->getPreferred($module);

	#checks if X and/or a terminal is available
	my $Xavailable=$self->Xavailable();
	my $termAvailable=$self->termAvailable();

	#gets usable modules
	my @available=$self->listAvailable($module);

	#this will be returned
	my @usable;