home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / perl5 / Debconf / DbDriver / Copy.pm < prev    next >
Encoding:
Perl POD Document  |  2006-07-24  |  950 b   |  42 lines
  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::DbDriver::Copy;
  6. use strict;
  7. use Debconf::Log qw{:all};
  8. use base 'Debconf::DbDriver';
  9.  
  10.  
  11. sub copy {
  12.     my $this=shift;
  13.     my $item=shift;
  14.     my $src=shift;
  15.     my $dest=shift;
  16.     
  17.     debug "db $this->{name}" => "copying $item from $src->{name} to $dest->{name}";
  18.     
  19.     my @owners=$src->owners($item);
  20.     if (! @owners) {
  21.         @owners=("unknown");
  22.     }
  23.     foreach my $owner (@owners) {
  24.         my $template = Debconf::Template->get($src->getfield($item, 'template'));
  25.         my $type="";
  26.         $type = $template->type if $template;
  27.         $dest->addowner($item, $owner, $type);
  28.     }
  29.     foreach my $field ($src->fields($item)) {
  30.         $dest->setfield($item, $field, $src->getfield($item, $field));
  31.     }
  32.     foreach my $flag ($src->flags($item)) {
  33.         $dest->setflag($item, $flag, $src->getflag($item, $flag));
  34.     }
  35.     foreach my $var ($src->variables($item)) {
  36.         $dest->setvariable($item, $var, $src->getvariable($item, $var));
  37.     }
  38. }
  39.  
  40.  
  41. 1
  42.