view release on metacpan or search on metacpan
script/ecs_scan_mail view on Meta::CPAN
update_statistics(\@nodelist, $nodes);
}
# ----------------------------------------------------------------------
# Inspect "store" folder and compute message statistics
sub update_statistics
{
my $nodelist = shift;
my $nodes = shift;
# get sorted list of files in directory
view release on metacpan or search on metacpan
lib/ETLp/Audit/Browser/Controller/Schedule.pm view on Meta::CPAN
$self->conf->param('root_url') . '/schedule/edit/' . $schedule_id);
}
# Process ajax call to update the section list drop down if the config item
# changes
sub update_sections {
my $self = shift;
my $config_file = $self->query->param('config_file');
my $show_blank = $self->query->param('show_blank') || 0;
return $self->model->get_section_options(
lib/ETLp/Audit/Browser/Controller/Schedule.pm view on Meta::CPAN
return $self->redirect($self->conf->param('root_url') . '/schedule/');
}
# This runmode is used to return the chain of pipelines dependent on the one
# provided
sub update_dependencies {
my $self = shift;
my $config_file = $self->query->param('config');
my $section = $self->query->param('section');
if ($section =~ /^$config_file\-(.*)$/) {
view release on metacpan or search on metacpan
EasyDBAccess.pm view on Meta::CPAN
my $ra_param = build_array($filter, $rh_data, $ra);
return $self->execute($sql, $ra_param);
}
sub update {
my $self = shift;
my ($sql, $filter, $rh_data, $ra_param) = @_;
my ($item_str, $item_bind_param, $flag, $item_str2) = build_update($filter, $rh_data);
view release on metacpan or search on metacpan
lib/Echo/StreamServer/Users.pm view on Meta::CPAN
}
}
return $json_hash_ref;
}
sub update {
my ($self, $identity_url, $subject, $content) = @_;
unless (grep(m/^$subject$/, @USER_SUBJECTS)) {
die("Users API must update a valid subject (" . join(', ', @USER_SUBJECTS) . "), not '$subject'");
}
view release on metacpan or search on metacpan
lib/Echo360.pm view on Meta::CPAN
}
return XML::Simple->new()->XMLin($resp->content)
}
sub update {
my ($self, $uri, $xml) = @_;
$uri = "/$uri" unless $uri =~/^\//;
print "PUT URI: $uri\n" if $self->{DEBUG};
view release on metacpan or search on metacpan
lib/EEDB/Chrom.pm view on Meta::CPAN
Returntype : $self
Exceptions : none
=cut
sub update {
my $self = shift;
return undef unless($self->database and $self->id);
my $dbh = $self->database->get_connection;
view release on metacpan or search on metacpan
lib/Egg/Model/Session/Base/DBI.pm view on Meta::CPAN
my $self= shift;
my $data= shift || croak q{I want session data.};
my $id = shift || $self->session_id || croak q{I want session id.};
$self->_do($self->_insert, $id, $$data, localtime(time)->mysql_datetime);
}
sub update {
my $self= shift;
my $data= shift || croak q{I want session data.};
my $id = shift || $self->session_id || croak q{I want session id.};
$self->_do($self->_update, $$data, localtime(time)->mysql_datetime, $id);
}
view release on metacpan or search on metacpan
lib/Egg/Mod/EasyDBI.pm view on Meta::CPAN
$self->{es}->debug($sql);
$self->{es}->dbh->do($sql, undef, values %$a)
> 0 ? 1: 0;
}
*in= \&insert;
sub update {
my $self= shift;
my $a= $argc->_update(@_);
my $sql= qq{UPDATE $self->{dbname} SET }
. join(', ', keys %{$a->{up}}). qq{ WHERE $a->{st}};
$self->{es}->debug($sql);
$self->{es}->dbh->do($sql, undef, (values %{$a->{up}}), @{$a->{ex}})
> 0 ? 1: 0;
}
*up= \&update;
sub update_insert {
my $self= shift;
return "0E0" if $self->update(@_);
if (my $error= $self->{es}->dbh->errstr) { die $error }
$self->insert(@_);
}
view release on metacpan or search on metacpan
lib/Eixo/Queue/MongoDriver.pm view on Meta::CPAN
%{$job->to_hash}
});
}
sub updateJob{
my ($self, $job, $collection) = @_;
$self->getCollection($collection)->update(
{_id=>$job->id} ,
view release on metacpan or search on metacpan
examples/ekahau-events-example.pl view on Meta::CPAN
{
$ek->dispatch;
}
}
sub update_devices
{
my($resp)=@_;
foreach my $dev (grep { !$macaddr{$_} } keys %{$resp->{params}})
{
my $prop = $ek->request_device_properties($dev)
or die "Couldn't get properties for '$dev'\n";
}
}
sub update_device_properties
{
my($prop)=@_;
my $dev = $prop->{args}[0];
$macaddr{$dev}=$prop->{params}{'NETWORK.MAC'};
$ek->start_location_track($dev);
$ek->start_area_track({ 'EPE.NUMBER_OF_AREAS' => $num_guesses }, $dev);
}
sub update_areas
{
my($loc)=@_;
my $dev = $loc->{args}[0];
my $floor = $floor{$loc->{params}{contextId}};
examples/ekahau-events-example.pl view on Meta::CPAN
}
}
print "ISEE Ekahau.$macaddr{$dev} FROM $where$coord$relcoord AT ",time," CONFIDENCE ",$loc->{params}{probability},"$ormaybe\n";
}
sub update_locations
{
my($loc)=@_;
my $dev = $loc->{args}[0];
$lastloc{$dev}{x} = $loc->{params}{latestX};
$lastloc{$dev}{y} = $loc->{params}{latestY};
}
sub update_contexts
{
my($ctx)=@_;
my $ctx_id = $ctx->{args}[0];
$floor{$ctx_id}=$ctx->{params}{address};
view release on metacpan or search on metacpan
lib/Elastic/Model/Role/Index.pm view on Meta::CPAN
$self->model->store->$action( %args, index => $self->name );
return $self;
}
#===================================
sub update_settings {
#===================================
my $self = shift;
$self->model->store->update_index_settings(
index => $self->name,
settings => {@_}
);
return $self;
}
#===================================
sub update_analyzers {
#===================================
my $self = shift;
my $params = $self->index_config(@_);
delete $params->{mappings};
$self->model->store->update_index_settings(%$params);
lib/Elastic/Model/Role/Index.pm view on Meta::CPAN
my $indices = $self->model->store->get_aliases( index => $name );
return !!$indices->{$name};
}
#===================================
sub update_mapping {
#===================================
my $self = shift;
my %args = ref $_[-1] eq 'HASH' ? %{ pop() } : ();
my $mappings = $self->mappings(@_);
my $store = $self->model->store;
view release on metacpan or search on metacpan
lib/ElasticSearchX/Model/Bulk.pm view on Meta::CPAN
my ( $self, $action, $payload ) = ( shift, %{ $_[0] } );
$payload->{source} = delete $payload->{body};
$self->stash->add_action( $action => $payload );
}
sub update {
my ( $self, $doc, $qs ) = @_;
$self->add(
{
index => ref $doc eq 'HASH'
? $doc
view release on metacpan or search on metacpan
lib/Elive/DAO.pm view on Meta::CPAN
This method can be called from the class level. You will need to
supply the primary key and all mandatory fields.
=cut
sub update {
my ($self, $_update_data, %opt) = @_;
die "attempted to update deleted record"
if ($self->_deleted);
view release on metacpan or search on metacpan
t/02-base_me.t view on Meta::CPAN
});
};
done_testing();
sub update_options {
my $args = shift;
my $fields = Eliza::Chatbot->new($args->{options});
my $att = $args->{att};
# check its value
is($fields->$att, $args->{value}, "$att set with correct value");
view release on metacpan or search on metacpan
lib/Email/ExactTarget/SubscriberOperations.pm view on Meta::CPAN
\@subscribers
);
=cut
sub update_or_create
{
my ( $self, $subscribers ) = @_;
return $self->_update_create(
'subscribers' => $subscribers,
lib/Email/ExactTarget/SubscriberOperations.pm view on Meta::CPAN
\@subscribers
);
=cut
sub update
{
my ( $self, $subscribers ) = @_;
return $self->_update_create(
'subscribers' => $subscribers,
view release on metacpan or search on metacpan
lib/Email/LocalDelivery/Maildir.pm view on Meta::CPAN
return if $mail->header("Lines");
my @lines = split /\n/, $mail->body;
$mail->header_set("Lines", scalar @lines);
}
sub update_time {
if ($maildir_time != time) {
$maildir_time = time;
$maildir_counter = 0;
} else {
$maildir_counter++;
view release on metacpan or search on metacpan
DB/FileSystem.pm view on Meta::CPAN
sub cloneDistro {
}
#_______________________________________
sub updateDistro {
}
#_______________________________________
sub getComponentList {
view release on metacpan or search on metacpan
eg/web/db/epwebapp.pl view on Meta::CPAN
return $self -> redir_to_show ($r) ;
}
# ----------------------------------------------------------------------------
sub update_item
{
my $self = shift ;
my $r = shift ;
die "No category" if (!defined ($r->{category_set}{edit_level})) ;
eg/web/db/epwebapp.pl view on Meta::CPAN
}
# ----------------------------------------------------------------------------
sub update_user
{
my $self = shift ;
my $r = shift ;
if ($self -> checkuser_light($r) < 1)
view release on metacpan or search on metacpan
lib/Enterasys/NetSight.pm view on Meta::CPAN
my @params=qw(name snmpVersion read write maxAccess auth);
return _call($self, 'addProfileEx', \@params, $args);
}
# Methods for updating
sub updateAuth
{
my ($self, $args)=@_;
my @params=qw(username description loginPassword enablePassword configurationPassword type);
return _call($self, 'updateAuthCredentialEx', \@params, $args);
}
sub updateSnmp
{
my ($self, $args)=@_;
my @params=qw(name communityName userName authPassword authType privPassword privType);
return _call($self, 'updateCredentialEx', \@params, $args);
}
sub updateProfile
{
my ($self, $args)=@_;
my @params=qw(name read write maxAccess authCredName);
return _call($self, 'updateProfileEx', \@params, $args);
}
view release on metacpan or search on metacpan
lib/EntityModel/Web/Apache2/UploadHandler.pm view on Meta::CPAN
=head2 C<updateStatus>
=cut
sub updateStatus {
my ($class, $f, $bucket, $mode, $block, $bytesRead) = @_;
logError("Have %d bytes", $bytesRead);
unless($f->ctx) {
logError("New request, pid %d, URI %s", $$, $f->r->uri);
view release on metacpan or search on metacpan
lib/EntityModel/Web/Request.pm view on Meta::CPAN
return $self;
}
return $self->{uri};
}
sub update_uri_from {
my ($self, $uri) = @_;
$self->{uri} = $uri;
$self->hostname($uri->host);
$self->path($uri->path);
$self->get->set($_, $uri->query_param($_)) for sort $uri->query_param;
view release on metacpan or search on metacpan
lib/EntityModel/DB.pm view on Meta::CPAN
Update information
=cut
sub update {
my $self = shift;
my %args = @_;
$self->_fork_guard;
my $sql = $args{sql};
view release on metacpan or search on metacpan
lib/Etcd/Keys.pm view on Meta::CPAN
my ($self, $key, $value, %args) = @_;
croak 'usage: $etcd->create($key, $value, [%args])' if grep { !defined } ($key, $value);
$self->set($key, $value, %args, prevExist => 'false');
}
sub update {
my ($self, $key, $value, %args) = @_;
croak 'usage: $etcd->update($key, $value, [%args])' if grep { !defined } ($key, $value);
$self->set($key, $value, %args, prevExist => 'true');
}
view release on metacpan or search on metacpan
lib/Etsy/StatsD.pm view on Meta::CPAN
Update one of more stats counters by arbitrary amounts.
=cut
sub update {
my ( $self, $stats, $delta, $sample_rate ) = @_;
$delta = 1 unless defined $delta;
my %data;
if ( ref($stats) eq 'ARRAY' ) {
%data = map { $_ => "$delta|c" } @$stats;
view release on metacpan or search on metacpan
lib/Evo/EA/Agent.pm view on Meta::CPAN
$class = ref($class) || $class;
bless $self, $class;
}
sub update_with_agent {
my ($self, $agent) = @_;
$agent->update_once($self);
}
sub update_once {
my ($self, $agent) = @_;
$agent->interprete;
}
view release on metacpan or search on metacpan
lib/ExpenseTracker/Controllers/Base.pm view on Meta::CPAN
->create( $self->{_payload} );
return $self->render_json( $result->{_column_data} );
}
sub update{
my $self = shift;
my $result_rs = $self->app->model
->resultset( $self->{resource} )
->search_rs(
view release on metacpan or search on metacpan
INSTALL.perl view on Meta::CPAN
chdir 't'; # run from that directory
my $retcode= system ($^X, $testprog, "--quiet");
return $retcode == 0;
}
sub update_TOC
{
eval "use ActivePerl::DocTools; use Pod::Html;";
return if $@; # stop trying with no visible error if modules are not present.
# This is for ActiveState Perl. Attempting to load the module was a test to see if that's what I'm running on.
if (convertPod2html ($dest)) {
view release on metacpan or search on metacpan
$self->_seterror(undef);
return $self->setlist($list{'-dir'});
}
# == Update the current list ==
sub update {
my($self, $switches) = @_;
my($outhost, $inlocal);
# Do we have the command line switches
($self->_seterror(-1, 'nothing to update()') && return 0) unless(defined($switches));
view release on metacpan or search on metacpan
lib/FAQ/OMatic/Bags.pm view on Meta::CPAN
# Don't want user overwriting .desc files with binary bags -- YUK!
return '' if ($name =~ m/\.desc$/);
return $name;
}
sub updateDependents {
my $bagName = shift;
my $dependent;
foreach $dependent (FAQ::OMatic::Item::getDependencies("bags.".$bagName)) {
my $dependentItem = new FAQ::OMatic::Item($dependent);
view release on metacpan or search on metacpan
lib/FAST/Bio/Species.pm view on Meta::CPAN
sub genetic_code {shift->taxon->genetic_code(@_)}
sub mitochondrial_genetic_code {shift->taxon->mitochondrial_genetic_code(@_)}
sub create_date { shift->taxon->create_date(@_)}
sub pub_date { shift->taxon->pub_date(@_)}
sub update_date { shift->taxon->update_date(@_)}
sub db_handle { shift->taxon->db_handle(@_)}
sub parent_id { shift->taxon->parent_id(@_)}
sub parent_taxon_id { shift->taxon->parent_id(@_)}