Help for this page

Select Code to Download


  1. or download this
    if(exists $arg{I}) {

  my $hreplist = initialize_rep_file($username, $password, $filename);
...

  exit;
}
  2. or download this
    sub read_file {
  @_ == 2 or croak 'Incorrect number of parameters';

...

  return \%nodehash;
}
  3. or download this
    sub db_update {
  @_ == 2 or croak 'Incorrect number of parameters';

...
    $sth->execute(@{ $hreplist->{$nodeid} }{ @{&DB_COLUMNS} };
  }
}