view release on metacpan or search on metacpan
lib/MARC/File/MARCMaker.pm view on Meta::CPAN
leader (the length) will be invalid. This function updates the
leader with the correct length of the record as it would be if
written out to a file.
sub update_leader() { #from USMARC
my $self = shift;
my (undef,undef,$reclen,$baseaddress) = $self->_build_tag_directory();
$self->_set_leader_lengths( $reclen, $baseaddress );
view release on metacpan or search on metacpan
lib/MARC/Field.pm view on Meta::CPAN
Returns the number of items modified.
=cut
sub update {
my $self = shift;
## tags 000 - 009 don't have indicators or subfields
if ( $self->is_control_field ) {
$self->{_data} = shift;
view release on metacpan or search on metacpan
lib/MARC/Transform.pm view on Meta::CPAN
}
}
return $outLUT;
}
sub update {
my ($field,$subfields)=@_;
transform ("update",$field,$subfields);
return 1;
}
sub forceupdate {
my ($field,$subfields)=@_;
transform ("forceupdate",$field,$subfields);
return 1;
}
sub updatefirst {
my ($field,$subfields)=@_;
transform ("updatefirst",$field,$subfields);
return 1;
}
sub forceupdatefirst {
view release on metacpan or search on metacpan
examples/tk_disp_reg.pl view on Meta::CPAN
print "unable to open TCP socket.\n";
exit(1);
}
# sub to update modbus_val (call by a tk timer)
sub update_modbus() {
my $words = $m->read_holding_registers(0, 1);
$modbus_val = $words->[0]."\n";
}
# init Tk
view release on metacpan or search on metacpan
lib/MDK/Common/System.pm view on Meta::CPAN
}
}
%h;
}
sub update_gnomekderc {
my ($file, $category, %subst_) = @_;
my %subst = map { lc($_) => [ $_, $subst_{$_} ] } keys %subst_;
my $s;
view release on metacpan or search on metacpan
contrib/mhastart.pl view on Meta::CPAN
}
}
##---------------------------------------------------------------------------
sub updatembox {
my $msgref = shift;
open FILE, ">> $mbox" or die "Couldn't open $mbox\n$!";
flock FILE, 2;
print FILE ($pop3 ? join '', @$msgref : $$msgref), "\n\n";
close FILE;
}
sub updatearchive {
@ARGV = (@_, '-outdir', $archive);
push @ARGV, $mbox unless $in{routine} eq 'remove';
require 'mhamain.pl' or die "Couldn't require mhamain.pl\n$!";
mhonarc::initialize(); # skipped the 'mhonarc' program file in
mhonarc::process_input(); # order to avoid the ending exit call
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
$examples =~ s/\r\n/\n/g;
update_file( $example_file, $examples );
};
};
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<:raw:encoding(UTF-8)', $filename
or die "Couldn't read '$filename': $!";
view release on metacpan or search on metacpan
lib/MOBY/Adaptor/moby/DataAdapterI.pm view on Meta::CPAN
Function : update an Object in mobycentral
Args :
Returns : 1 if the update was successful
0 otherwise
=cut
sub update{
die "update not implemented in the DataAdapterI Interface file.\n";
}
=head2 query
view release on metacpan or search on metacpan
lib/MOSES/MOBY/Cache/Central.pm view on Meta::CPAN
* There is a SOAP error calling the registry
* There were read/write errors on the cache directory or its contents
=cut
sub update_datatype_cache {
my ($self) = @_;
my %old_datatypes = ();
my %new_datatypes = ();
my @changed_datatypes = ();
lib/MOSES/MOBY/Cache/Central.pm view on Meta::CPAN
* There is a SOAP error calling the registry
* There were read/write errors on the cache directory or its contents
=cut
sub update_service_cache {
my ($self) = @_;
my %old_services = ();
my %new_services = ();
my %changed_services = ();
view release on metacpan or search on metacpan
lib/MP3/Find/DB.pm view on Meta::CPAN
database handle as C<dbh> or the filename of an SQLite database as C<db_file>.
=cut
# this is update_db and update_files (from Matt Dietrich) rolled into one
sub update {
my $self = shift;
my $args = shift;
my $dbh = _get_dbh($args) or croak "Please provide a DBI database handle, DSN, or SQLite database filename";
lib/MP3/Find/DB.pm view on Meta::CPAN
in the database, then it will only be updated if it has been modified
since the last time C<update_db> was run.
=cut
sub update_db {
my $self = shift;
my $db_file = shift or croak "Need the name of the database to update";
my $dirs = shift;
my $status_callback = $self->{status_callback} || $DEFAULT_STATUS_CALLBACK;
view release on metacpan or search on metacpan
lib/MP3/PodcastFetch.pm view on Meta::CPAN
MP3::PodcastFetch::Feed::Channel object (this object is generated by
podcast_fetch() in the course of downloading and parsing the RSS file.
=cut
sub update {
my $self = shift;
my $channel = shift;
my $title = $channel->title;
my $description = $channel->description;
my $dir = $self->generate_directory($channel);
view release on metacpan or search on metacpan
lib/MP3/Tag.pm view on Meta::CPAN
$data and call this method - no further tinkering with subtags is
needed.
=cut
sub update_tags {
my ($mp3, $data, $force2, $wr2) = (shift, shift, shift);
$mp3->get_tags;
$data = $mp3->autoinfo('from') unless defined $data;
view release on metacpan or search on metacpan
lib/MQUL.pm view on Meta::CPAN
See L<MQUL::Reference/"UPDATE STRUCTURE"> to learn about the structure of
update hash-refs.
=cut
sub update_doc {
my ( $doc, $obj ) = @_;
croak "MQUL::update_doc() requires a document hash-ref."
unless defined $doc && ref $doc && ref $doc eq 'HASH';
croak "MQUL::update_doc() requires an update hash-ref."
view release on metacpan or search on metacpan
lib/MSDOS/Descript.pm view on Meta::CPAN
} # end write
#---------------------------------------------------------------------
# Save changes to descriptions:
sub update
{
$_[0]->write if $_[0]->changed;
} # end update
#=====================================================================
view release on metacpan or search on metacpan
lib/MYDan/Agent/KeyUpdate.pm view on Meta::CPAN
}
return 0;
}
sub update
{
my $this = shift;
print "update ...\n";
view release on metacpan or search on metacpan
lib/Mackerel/ReleaseUtils.pm view on Meta::CPAN
$body .= sprintf "- %s #%s\n", $rel->{title}, $rel->{number};
}
$body;
}
sub update_versions {
my ($package_name, $current_version, $next_version) = @_;
### update versions
my $cur_ver_reg = quotemeta $current_version;
lib/Mackerel/ReleaseUtils.pm view on Meta::CPAN
my $p = quotemeta $packagen_name;
my ($debian_revision) = $content =~ /^$p \([0-9]+(?:\.[0-9]+){2}-([^)]+)\) stable;/ms;
$debian_revision;
}
sub update_changelog {
my ($package_name, $next_version, @releases) = @_;
my $email = 'mackerel-developers@hatena.ne.jp';
my $name = 'mackerel';
lib/Mackerel/ReleaseUtils.pm view on Meta::CPAN
$content =~ s/\A# Changelog/# Changelog$update/;
$content;
};
}
sub update_makefile {
my $next_version = shift;
replace 'Makefile' => sub {
my $content = shift;
$content =~ s/^VERSION( *:*= *).*?\n/VERSION$1$next_version\n/ms;
$content;
view release on metacpan or search on metacpan
lib/Magrathea/API/Emergency.pm view on Meta::CPAN
If Magrathea's validation fails, the update will croak.
=cut
sub update
{
my $self = shift;
my $info = $self->info;
unless ($self->postcode and $self->name) {
croak "Name and postcode are mandatory";
view release on metacpan or search on metacpan
#------------------------------#
# Alias::update() Method #
# Version 1.0 8/13/00#
#------------------------------#
sub update {
my ($self, $alias, $address_string) = @_;
my ($found_it, $alias_line);
undef $found_it;
view release on metacpan or search on metacpan
lib/Mail/Box/POP3.pm view on Meta::CPAN
sub openSubFolder($@) { undef } # fails
sub topFolderWithMessages() { 1 } # Yes: only top folder
sub update() { $_[0]->notImplemented }
#--------------------
sub popClient(%)
{ my ($self, %args) = @_;
view release on metacpan or search on metacpan
lib/Mail/Box.pm view on Meta::CPAN
sub size() { sum 0, map $_->size, $_[0]->messages('ACTIVE') }
sub update(@)
{ my $self = shift;
$self->updateMessages(
trusted => $self->isTrusted,
head_type => $self->{MB_head_type},
lib/Mail/Box.pm view on Meta::CPAN
sub readMessages(@) { $_[0]->notImplemented }
sub updateMessages(@) { $_[0] }
sub writeMessages(@) { $_[0]->notImplemented }
view release on metacpan or search on metacpan
lib/Mail/Chimp/List.pm view on Meta::CPAN
sub delete_interest_group {
my ( $self, $name ) = @_;
return $self->_call( 'listInterestGroupDel', $name );
}
sub update_interest_group {
my ( $self, $old_name, $new_name ) = @_;
return $self->_call( 'listInterestGroupDel', $old_name, $new_name );
}
sub interest_groups {
lib/Mail/Chimp/List.pm view on Meta::CPAN
sub delete_merge_var {
my ( $self, $name ) = @_;
return $self->_call( 'listMergeVarDel', uc $name );
}
sub update_merge_var {
my ( $self, $name ) = @_;
return $self->_call( 'listMergeVarUpdate', uc $name );
}
sub merge_vars {
lib/Mail/Chimp/List.pm view on Meta::CPAN
sub unsubscribe_address {
my ( $self, $email, $delete ) = @_;
return $self->_call( 'listUnsubscribe', $email, $delete );
}
sub update_member {
my ( $self, $email, $merge_vars, $email_type, $replace_interests ) = @_;
$merge_vars ||= {};
return $self->_call( 'listUpdateMember', $email, $merge_vars, $email_type, $replace_interests );
}
view release on metacpan or search on metacpan
lib/Mail/DMARC/Base.pm view on Meta::CPAN
return 1 if $public_suffixes->{$zone};
return 0;
}
sub update_psl_file {
my ($self, $dryrun) = @_;
my $psl_file = $self->find_psl_file();
die "No Public Suffix List file found\n" if ( ! $psl_file );
view release on metacpan or search on metacpan
lib/Mail/Decency/Core/SessionItem/ContentFilter.pm view on Meta::CPAN
Write store YAML file
=cut
sub update_store {
my ( $self ) = @_;
open my $fh, '>', $self->store
or die "Cannot open store file ". $self->store. " for write: $!";
my %create = ();
$create{ from } = $self->from if $self->from;
lib/Mail/Decency/Core/SessionItem/ContentFilter.pm view on Meta::CPAN
Update session from cached policy session
=cut
sub update_from_policy_cache {
my ( $self, $hash_ref ) = @_;
# update spam score
$self->spam_score( $self->spam_score + $hash_ref->{ spam_score } )
if $hash_ref->{ spam_score };
lib/Mail/Decency/Core/SessionItem/ContentFilter.pm view on Meta::CPAN
Update session from cached session
=cut
sub update_from_cache {
my ( $self, $hash_ref ) = @_;
$self->update_from_policy_cache( $hash_ref );
$self->virus( join( "; ", $self->virus, $hash_ref->{ virus } ) )
view release on metacpan or search on metacpan
lib/Mail/MtPolicyd/Plugin/Accounting.pm view on Meta::CPAN
$metrics->{'size_rcpt'} = $rcpt_cnt ? $size * $rcpt_cnt : $size;
return( $metrics );
}
sub update_accounting {
my ( $self, $field, $key, $metrics ) = @_;
eval {
$self->update_accounting_row($field, $key, $metrics);
};
lib/Mail/MtPolicyd/Plugin/Accounting.pm view on Meta::CPAN
$self->execute_sql($sql);
return;
}
sub update_accounting_row {
my ( $self, $field, $key, $metrics ) = @_;
my $dbh = $self->_db_handle;
my $table_name = $dbh->quote_identifier( $self->get_table_name($field) );
my $where = {
'key' => $key,
view release on metacpan or search on metacpan
lib/Mail/Salsa/Action/Admin.pm view on Meta::CPAN
if(/^($patterns[0]) +<($patterns[1])>\s+/) { return([lc($2), $1]); }
if(/^<?($patterns[1])>?\s+/) { return([lc($1), ""]); }
return(["", ""]);
}
sub update_file {
my $newfile = shift;
my $oldfile = shift;
open(NEW, "<", $newfile) or die("$!");
open(OLD, ">", $oldfile) or die("$!");
lib/Mail/Salsa/Action/Admin.pm view on Meta::CPAN
unlink($file) or die("$!");
return(\@error);
}
sub update_list {
my $list = shift;
my $hash = shift;
open(OLDLIST, "<", $list) or die("$!");
open(NEWLIST, ">", "$list\.new") or die("$!");
view release on metacpan or search on metacpan
lib/Mail/SpamAssassin/AICache.pm view on Meta::CPAN
$name = $self->canon($name);
return $self->{cache}->{$name};
}
sub update {
my ($self, $name, $date) = @_;
return unless $name;
$name = $self->canon($name);
view release on metacpan or search on metacpan
lib/Mail/Toaster/Darwin.pm view on Meta::CPAN
else {
print "ports_check_age: Ports file is current (enough).\n";
}
}
sub update_ports {
my $self = shift;
my $cvsbin = $self->util->find_bin( "cvs",fatal=>0, verbose=>0 );
unless ( -x $cvsbin ) {
die "FATAL: could not find cvs, please install Developer Tools!\n";
lib/Mail/Toaster/Darwin.pm view on Meta::CPAN
else {
$self->update_ports_init();
};
};
sub update_ports_init {
my $self = shift;
print <<'EO_NO_PORTS';
WARNING! I expect to find your dports dir in /usr/ports/dports. Please install
it there or add a symlink there pointing to where you have your Darwin ports
lib/Mail/Toaster/Darwin.pm view on Meta::CPAN
chdir("/usr/dports/base");
$self->util->syscmd( "./configure; make; make install", verbose=>0 );
}
}
sub update_ports_sync {
my $self = shift;
print "\n\nupdate_ports: You might want to update your ports tree!\n\n";
if ( ! $self->util->yes_or_no(
question=>"\n\nWould you like me to do it for you?" ) )
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
$examples =~ s/\r\n/\n/g;
update_file( $example_file, $examples );
};
};
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<', $filename
or die "Couldn't read '$filename': $!";
view release on metacpan or search on metacpan
lib/Mail/Webmail/Gmail.pm view on Meta::CPAN
}
}
return ( $self->{_logged_in} );
}
sub update_tokens {
my ( $self, $res ) = @_;
my $previous = $res->previous();
if ( $previous ) {
update_tokens( $self, $previous );
lib/Mail/Webmail/Gmail.pm view on Meta::CPAN
$self->{_err_str} .= "Error: While requesting attachment: '$res->{_request}->{_uri}'.\n";
return;
}
}
sub update_prefs {
my ( $self ) = shift;
my ( %args ) = (
view => 'tl',
act => 'prefs',
search => 'inbox',
view release on metacpan or search on metacpan
Mail/Folder.pm view on Meta::CPAN
=back
=cut
sub update_message {
my $self = shift;
my $key = shift;
my $mref = shift;
return 0 if (($self->foldername eq '') ||