#!/usr/bin/perl
# SPDX-License-Identifier: BSD-3-Clause-CMU
# See COPYING file at the root of the distribution for more details.

use warnings;
use strict;

## Boilerplate added by Cyrus fixsearchpath.pl
use Cwd qw(abs_path);
use FindBin;

my $__cyrus_destdir;
BEGIN {
    $__cyrus_destdir = '';
    my $real_prefix = abs_path("$FindBin::Bin/..");
    my $configure_prefix = '/usr/local';
    my $len = length($real_prefix) - length($configure_prefix);
    # check if the real prefix ends in the configured prefix
    if (substr($real_prefix, $len) eq $configure_prefix) {
        # if so then the installed destdir is what remains
        $__cyrus_destdir = substr($real_prefix, 0, $len);
    }
}
use lib $__cyrus_destdir . '/usr/local';
use lib $__cyrus_destdir . '/usr/local';
use lib $__cyrus_destdir . '/usr/local/libdata/perl5/site_perl';
use lib $__cyrus_destdir . '/usr/local/libdata/perl5/site_perl/i386-openbsd';
##

use Cyrus::IMAP::Shell;
shell;
