Lines Matching refs:result
66 my $result;
86 $result = $destination->add($source);
87 if ($result)
89 print("$result.\n");
189 "result in undelivered mail!\n");
208 $result = add_source(\%sources, $source_name);
209 if ($result)
211 print("$result.\n");
223 $result = $conditions->check_move($source, $destination);
224 if ($result)
226 $result = &{$action}($source, $destination);
227 if ($result)
229 print("$result\n");
282 my $result;
329 $result = $queue->read();
330 if ($result)
332 return $result;
367 my $result;
387 $result = sysopen(FILE_TO_LOCK, $file_name, Fcntl::O_RDWR);
388 if (!$result)
393 $result = flock(FILE_TO_LOCK, Fcntl::LOCK_EX | Fcntl::LOCK_NB);
394 if (!$result)
427 my $result;
429 $result = flock($file, Fcntl::LOCK_UN);
430 if (!$result)
432 return "Unlock failed on '$result': $!";
439 return (undef, "Fcntl unlock failed on '$result': $!");
464 my $result;
466 $result = File::Copy::move($src_name, $dst_name);
467 if (!$result)
650 my $result;
658 ($lock_handle, $result) = ::lock_file($self->{file_name});
661 return $result;
672 my $result;
680 $result = ::unlock_file($self->{lock_handle});
684 return $result;
690 my $result;
691 my @result;
693 $result = open(QUEUE_FILE, $self->{file_name});
694 if (!$result)
698 @result = stat(QUEUE_FILE);
699 if (!@result)
703 $self->{control_size} = $result[7];
704 $self->{control_last_mod_time} = $result[9];
717 my $result;
719 $result = unlink($self->{file_name});
720 if (!$result)
770 my $result;
771 my @result;
773 $result = open(QUEUE_FILE, $self->{file_name});
774 if (!$result)
778 @result = stat(QUEUE_FILE);
779 if (!@result)
783 $self->{body_size} = $result[7];
784 $self->{body_last_mod_time} = $result[9];
790 my $result;
792 $result = unlink($self->{file_name});
793 if (!$result)
844 my @result;
845 @result = stat($self->{data_file}->{file_name});
846 return $result[9];
894 my $result;
896 $result = $self->lock();
897 if ($result)
899 return $result;
919 $result = "There is already a queued message with id '$self->{id}' in '$destination'";
922 if (!$result)
924 $result = ::move_file($self->{data_file}->{file_name},
928 if (!$result)
930 $result = ::move_file($self->{control_file}->{file_name},
936 return $result;
965 my $result;
967 $result = $self->{control_file}->delete();
968 if ($result)
970 return $result;
972 $result = $self->{data_file}->delete();
973 if ($result)
975 return $result;
1032 my $result;
1052 $result = opendir(QUEUE_DIR, $control_dir);
1053 if (!$result)
1083 my $result;
1085 $result = $queued_message->move($self->{queue_dir});
1086 if ($result)
1088 return $result;
1093 return $result;
1109 my $result;
1113 $result = $self->add_queued_message($queued_message);
1114 if ($result)
1116 print("$result.\n");
1132 my $result;
1157 $result = $queued_message->delete();
1158 if ($result)
1160 print("$result.\n");
1173 $result = $queued_message->bounce();
1174 if ($result)
1176 print("$result.\n");
1272 my $result;
1316 my $result;
1321 $result = eval($self->{expression});
1323 return $result;