#!/usr/bin/perl

use strict;
use warnings;

use DateTime;

use FreeRADIUS::Database;

my $radius  = FreeRADIUS::Database->new();

my $date    = DateTime->new( 
    
                            time_zone   => $radius->TIMEZONE(),
                            year        => 2009,
                            month       => 06,
                            day         => 01,
                        );

for ( 1..240 ) {

    my $day = $date->ymd();

    $radius->update_ras_name( { day => $day } );
    
    $date->add( days => 1 );
}

=head1 DESCRIPTION

This is an EXAMPLE FILE ONLY as to how to use the update_ras_name()
method.

=head1 AUTHOR

Steve Bertrand, E<lt>steveb@cpan.orgE<gt>

=head1 COPYRIGHT

Copyright (C) 2012 by Steve Bertrand

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.9 or,
at your option, any later version of Perl 5 you may have available.

