/usr/share/perl5/SyncUtil/PilotMgrHost.pm is in syncbbdb 2.6-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 | #------------------------------------------------------------------------------
# $Date: 2004/12/15 19:39:21 $
# RCS: $Id: PilotMgrHost.pm,v 1.2 2004/12/15 19:39:21 aaronkaplan Exp $
#------------------------------------------------------------------------------
package PilotMgrHost;
require 5.000;
use strict;
use SyncUtil::ConduitHost;
use FileHandle;
my @ISA = qw(ConduitHost);
sub new {
my $type = shift;
my $self = ConduitHost->new();
bless($self, $type);
$self->{'name'} = shift;
$self->{'dlp'} = shift;
$self->{'info'} = shift;
$self->{'last status msg'} = "";
$self->{'last status percent'} = 0;
$self->{'last status time'} = 0;
return $self;
}
sub init {
}
sub finish {
}
sub output {
my $self = shift;
my $str = shift;
PilotMgr::msg($self->{'prefix'} . $str);
}
sub status {
my $self = shift;
my $msg = shift;
my $done = shift;
my $ctime = time;
# Every 1 sec or 5 percent...
if (($self->{'last status msg'} ne $msg) ||
($self->{'last status percent'}+5 < $done) ||
($self->{'last status time'}+1 < $ctime)) {
PilotMgr::status($msg, $done);
$self->{'last status msg'} = $msg;
$self->{'last status percent'} = $done;
$self->{'last status time'} = $ctime;
}
}
sub getUserID {
my $self = shift;
return $self->{'info'}->{'userID'};
}
sub getUserName {
my $self = shift;
return $self->{'info'}->{'name'};
}
sub getConduitDir {
my $self = shift;
return $self->{'name'};
}
sub update {
my $self = shift;
$self->{'dlp'}->tickle();
}
|