#!/usr/bin/perl
# ADMIN_restart_roll_logs.pl - script to roll the Asterisk logs on machine restart
# have this run on the astersik server 
#

package Asterisk::LCR::Dialer::MinTime;
use base qw /Asterisk::LCR::Dialer::MinCost/;
use warnings;

use ExtUtils::MakeMaker;
WriteMakefile (
        NAME          => 'asterisk-perl',
        VERSION_FROM     => 'lib/Asterisk.pm',
        AUTHOR          => 'James Golovich <james@gnuinter.net>',

use inc::Module::Install 0.46;
name('Asterisk-FastAGI');
license('perl');
perl_version('5.006');

# asterisk-base.pm
# Copyright (C) 2006-2007  Stephane Alnet
#

# the contents of the Makefile that is written.
WriteMakefile(
    'NAME'          => 'Asterisk::LCR',
    'VERSION_FROM'     => 'lib/Asterisk/LCR.pm', # finds $VERSION
    'EXE_FILES'         => [ qw (bin/asterisk-lcr-build bin/asterisk-lcr-import bin/asterisk-lcr-dialplan bin/asterisk-lcr-...  

=head1 NAME
Asterisk::LCR::Importer::CanonicalCSV
=head1 SYNOPSIS
  use Asterisk::LCR::Importer::CanonicalCSV;

# the contents of the Makefile that is written.
WriteMakefile(
    NAME              => 'Asterisk::Store::Queue',
    VERSION_FROM      => 'lib/Asterisk/Store/Queue.pm', # finds $VERSION
    PREREQ_PM         => {

package MyAGI;
use strict;
use base 'Asterisk::FastAGI';
sub agi_handler {
     my $self = shift;

package Asterisk::CDR;
use 5.008006;
#use strict; # Doesn't like constants below. Anybody know why?

#
# $Id: Asterisk.pm,v 1.12 2006/09/25 08:42:54 james Exp $
#
package Asterisk;

package Asterisk::LCR::Storage;
use base qw /Asterisk::LCR::Object/;
use warnings;

=head1 NAME
Asterisk::LCR::Comparer::Dummy - Dummy Route Comparer for Asterisk::LCR
=head1 SUMMARY
This is a very dumb comparer for Asterisk::LCR::Route object.

if( defined $CP_CLUSTER )
{
    UPGRADE "rm -rf /etc/asterisk.prev";
    UPGRADE "mv /etc/asterisk /etc/asterisk.prev";
    UPGRADE "mkdir -p /etc/asterisk";

package Asterisk::LCR;
use warnings;
use strict;

# asterisk-realtime.pm
# Copyright (C) 2006  Stephane Alnet
#

package Asterisk::Outgoing;
=head1 NAME
Asterisk::Outgoing - Create outgoing call queue file

package Asterisk::Outgoing;
=head1 NAME
Asterisk::Outgoing - Create outgoing call queue file

package Asterisk::Outgoing;
=head1 NAME
Asterisk::Outgoing - Create outgoing call queue file

package Asterisk::LCR::Storage::MyRoutes;
use base qw /Asterisk::LCR::Storage::DiskBlob/;
use warnings;

#!/usr/bin/perl
use Asterisk::AGI;
use File::Basename;
require Data::UUID;

# the contents of the Makefile that is written.
WriteMakefile(
    NAME              => 'Asterisk::CDR',
    VERSION_FROM      => 'lib/Asterisk/CDR.pm', # finds $VERSION
    PREREQ_PM         => {Class::DBI::Frozen::301}, # e.g., Module::Name => 1.1

package Asterisk;
require 5.004;
$VERSION = '0.08';

package Asterisk::LCR::Object;
use warnings;
use strict;

use IO::Socket::INET;  
use lib './lib', '../lib';
use Asterisk::Manager;
$|++;
my $astman = new Asterisk::Manager;