Skip to content

Instantly share code, notes, and snippets.

@lucas1
Last active April 24, 2016 16:37

Revisions

  1. lucas1 revised this gist Apr 24, 2016. 1 changed file with 36 additions and 0 deletions.
    36 changes: 36 additions & 0 deletions iRedAdmin::Domain.pod
    Original file line number Diff line number Diff line change
    @@ -69,6 +69,42 @@ B<enable>

    1 to enable, 0 to disable, without set not change domain

    =head2 Enable

    Method to enable Domains.

    B<Example>

    $iredadmin->Domain->Enable(
    'foo.com',
    'bar.com',
    'baz.com'
    );

    =head2 Disable

    Method to disable Domains.

    B<Example>

    $iredadmin->Domain->Disable(
    'foo.com',
    'bar.com',
    'baz.com'
    );

    =head2 Delete

    Method to delete Domains.

    B<Example>

    $iredadmin->Domain->Delete(
    'foo.com',
    'bar.com',
    'baz.com'
    );

    =head1 AUTHOR

    Lucas Tiago de Moraes, C<< <lucastiagodemoraes@gmail.com> >>
  2. lucas1 revised this gist Apr 24, 2016. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion iRedAdmin::Domain.pod
    Original file line number Diff line number Diff line change
    @@ -67,7 +67,7 @@ Change Company/Organization Name

    B<enable>

    1 to enable, 0 to disable, without set not change account
    1 to enable, 0 to disable, without set not change domain

    =head1 AUTHOR

  3. lucas1 revised this gist Apr 24, 2016. 1 changed file with 16 additions and 0 deletions.
    16 changes: 16 additions & 0 deletions iRedAdmin::Domain.pod
    Original file line number Diff line number Diff line change
    @@ -53,6 +53,22 @@ B<name>

    Company/Organization Name

    =head2 Edit

    Method to edit Admin.

    =cut

    =head4 Arguments

    B<name>

    Change Company/Organization Name

    B<enable>

    1 to enable, 0 to disable, without set not change account

    =head1 AUTHOR

    Lucas Tiago de Moraes, C<< <lucastiagodemoraes@gmail.com> >>
  4. lucas1 revised this gist Apr 24, 2016. 1 changed file with 5 additions and 6 deletions.
    11 changes: 5 additions & 6 deletions iRedAdmin::Domain.pod
    Original file line number Diff line number Diff line change
    @@ -39,20 +39,19 @@ Version 0.01

    =head2 Add

    Method to add Admin.
    Method to add Domain.

    =cut

    =head4 Arguments

    B<email>
    B<domain>

    Email of Admin
    Address of Domain

    B<name>

    B<password>

    Password of Admin
    Company/Organization Name

    =head1 AUTHOR

  5. lucas1 revised this gist Apr 24, 2016. 1 changed file with 19 additions and 0 deletions.
    19 changes: 19 additions & 0 deletions iRedAdmin::Domain.pod
    Original file line number Diff line number Diff line change
    @@ -35,6 +35,25 @@ Version 0.01

    =cut

    =head1 METHODS

    =head2 Add

    Method to add Admin.

    =cut

    =head4 Arguments

    B<email>

    Email of Admin


    B<password>

    Password of Admin

    =head1 AUTHOR

    Lucas Tiago de Moraes, C<< <lucastiagodemoraes@gmail.com> >>
  6. lucas1 revised this gist Apr 24, 2016. No changes.
  7. lucas1 revised this gist Apr 24, 2016. 1 changed file with 21 additions and 0 deletions.
    21 changes: 21 additions & 0 deletions iRedAdmin::Domain.pod
    Original file line number Diff line number Diff line change
    @@ -14,6 +14,27 @@ Version 0.01

    =cut

    =head1 SYNOPSIS

    use iRedAdmin;

    my $iredadmin = iRedAdmin->new(
    url => 'https://hostname.mydomain.com/iredadmin',
    username => 'postmaster@mydomain.com',
    password => 'your_password',
    cookie => '/home/user/cookie.txt',
    lang => 3
    );

    my $admin = $iredadmin->Domain->Add(
    domain => 'foo.com',
    name => 'Company Foo',
    );

    print $iredadmin->error unless $admin; # print error if $admin is equal 0

    =cut

    =head1 AUTHOR

    Lucas Tiago de Moraes, C<< <lucastiagodemoraes@gmail.com> >>
  8. lucas1 revised this gist Apr 24, 2016. 1 changed file with 12 additions and 0 deletions.
    12 changes: 12 additions & 0 deletions iRedAdmin::Domain.pod
    Original file line number Diff line number Diff line change
    @@ -12,4 +12,16 @@ iRedAdmin::Domain - API for add, edit, delete, enable and disable Domain

    Version 0.01

    =cut

    =head1 AUTHOR

    Lucas Tiago de Moraes, C<< <lucastiagodemoraes@gmail.com> >>

    =cut

    =head1 COPYRIGHT AND 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.8 or, at your option, any later version of Perl 5 you may have available.

    =cut
  9. lucas1 created this gist Apr 24, 2016.
    15 changes: 15 additions & 0 deletions iRedAdmin::Domain.pod
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,15 @@
    __END__

    =encoding utf8

    =head1 NAME

    iRedAdmin::Domain - API for add, edit, delete, enable and disable Domain

    =cut

    =head1 VERSION

    Version 0.01

    =cut