The Community Forums

Interact with an entire community of cPanel & WHM users!
  1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Issues With Automatic MySQL creation re. postwwwacct

Discussion in 'cPanel Developers' started by TopNotchContet, Jan 19, 2011.

  1. TopNotchContet

    TopNotchContet Registered

    Joined:
    Jan 19, 2011
    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    1
    Hi

    I have been trying to get all the new accounts that I create to automatically have a MySQL database ready to go with a user added, but I have not been able to do it. The tutorial I have been following is here:

    Frequently Asked Scripts: "How do I automate XYZ after creating an account?" - cPanel Integration

    I got the script uploaded to the right place, but I have been experiencing some issues.

    1st - The script needs to call a user called "root" at /var/cpanel/users/root? The problem is, I don't have a user named root. Is this normal? I just substituted the "root" for a username that was owner by root.

    2nd - When I run the script and check my error log, I get this issue -

    [19-Jan-2011 11:51:34] PHP Fatal error: Uncaught exception 'Exception' with message 'non integer or negative integer passed to set_port' in /home/cpanelscripthelpers/xmlapi.php:298
    Stack trace:
    #0 /scripts/postwwwacct(163): xmlapi->set_port('2087')
    #1 {main}
    thrown in /home/cpanelscripthelpers/xmlapi.php on line 298

    Any ideas on how to fix these issues? It is probably something small that I cannot figure out, and any help would be appreciated!
     
  2. MattDees

    MattDees cPanel Product Owner
    Staff Member

    Joined:
    Apr 29, 2005
    Messages:
    417
    Likes Received:
    1
    Trophy Points:
    18
    Location:
    Houston, TX
    cPanel Access Level:
    Root Administrator
    PHP:
    xmlapi->set_port('2087')
    should be
    PHP:
    xmlapi->set_port(2087)
     
  3. TopNotchContet

    TopNotchContet Registered

    Joined:
    Jan 19, 2011
    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    1
    Hi

    Thanks for the reply. I made the change, and this is the error I get...

    "pty_allocate(nonfatal): posix_openpt(): No such file or directory at /usr/lib/perl5/site_perl/5.8.8/i686-linux/IO/Pty.pm line 24.
    proftpd: no process killed"

    Ideas?

    Thanks again.

    EDIT:

    Just checked - the file mentioned above (/usr/lib/perl5/site_perl/5.8.8/i686-linux/IO/Pty.pm) is actually there - the contents are below...I don't know if this helps at all - I am very new at this...

    Contents of Pty.pm

    # Documentation at the __END__

    package IO::Pty;

    use strict;
    use Carp;
    use IO::Tty qw(TIOCSCTTY TCSETCTTY TIOCNOTTY);
    use IO::File;
    require POSIX;

    use vars qw(@ISA $VERSION);

    $VERSION = '1.10'; # keep same as in Tty.pm

    @ISA = qw(IO::Handle);
    eval { local $^W = 0; undef local $SIG{__DIE__}; require IO::Stty };
    push @ISA, "IO::Stty" if (not $@); # if IO::Stty is installed

    sub new {
    my ($class) = $_[0] || "IO::Pty";
    $class = ref($class) if ref($class);
    @_ <= 1 or croak 'usage: new $class';

    my ($ptyfd, $ttyfd, $ttyname) = pty_allocate();

    croak "Cannot open a pty" if not defined $ptyfd;

    my $pty = $class->SUPER::new_from_fd($ptyfd, "r+");
    croak "Cannot create a new $class from fd $ptyfd: $!" if not $pty;
    $pty->autoflush(1);
    bless $pty => $class;

    my $slave = IO::Tty->new_from_fd($ttyfd, "r+");
    croak "Cannot create a new IO::Tty from fd $ttyfd: $!" if not $slave;
    $slave->autoflush(1);

    ${*$pty}{'io_pty_slave'} = $slave;
    ${*$pty}{'io_pty_ttyname'} = $ttyname;
    ${*$slave}{'io_tty_ttyname'} = $ttyname;

    return $pty;
    }

    sub ttyname {
    @_ == 1 or croak 'usage: $pty->ttyname();';
    my $pty = shift;
    ${*$pty}{'io_pty_ttyname'};
    }


    sub close_slave {
    @_ == 1 or croak 'usage: $pty->close_slave();';

    my $master = shift;

    if (exists ${*$master}{'io_pty_slave'}) {
    close ${*$master}{'io_pty_slave'};
    delete ${*$master}{'io_pty_slave'};
    }
    }

    sub slave {
    @_ == 1 or croak 'usage: $pty->slave();';

    my $master = shift;

    if (exists ${*$master}{'io_pty_slave'}) {
    return ${*$master}{'io_pty_slave'};
    }

    my $tty = ${*$master}{'io_pty_ttyname'};

    my $slave = new IO::Tty;

    $slave->open($tty, O_RDWR | O_NOCTTY) ||
    croak "Cannot open slave $tty: $!";

    return $slave;
    }

    sub make_slave_controlling_terminal {
    @_ == 1 or croak 'usage: $pty->make_slave_controlling_terminal();';

    my $self = shift;
    local(*DEVTTY);

    # loose controlling terminal explicitely
    if (defined TIOCNOTTY) {
    if (open (\*DEVTTY, "/dev/tty")) {
    ioctl( \*DEVTTY, TIOCNOTTY, 0 );
    close \*DEVTTY;
    }
    }

    # Create a new 'session', lose controlling terminal.
    if (not POSIX::setsid()) {
    warn "setsid() failed, strange behavior may result: $!\r\n" if $^W;
    }

    if (open(\*DEVTTY, "/dev/tty")) {
    warn "Could not disconnect from controlling terminal?!\n" if $^W;
    close \*DEVTTY;
    }

    # now open slave, this should set it as controlling tty on some systems
    my $ttyname = ${*$self}{'io_pty_ttyname'};
    my $slv = new IO::Tty;
    $slv->open($ttyname, O_RDWR)
    or croak "Cannot open slave $ttyname: $!";

    if (not exists ${*$self}{'io_pty_slave'}) {
    ${*$self}{'io_pty_slave'} = $slv;
    } else {
    $slv->close;
    }

    # Acquire a controlling terminal if this doesn't happen automatically
    if (not open(\*DEVTTY, "/dev/tty")) {
    if (defined TIOCSCTTY) {
    if (not defined ioctl( ${*$self}{'io_pty_slave'}, TIOCSCTTY, 0 )) {
    warn "warning: TIOCSCTTY failed, slave might not be set as controlling terminal: $!" if $^W;
    }
    } elsif (defined TCSETCTTY) {
    if (not defined ioctl( ${*$self}{'io_pty_slave'}, TCSETCTTY, 0 )) {
    warn "warning: TCSETCTTY failed, slave might not be set as controlling terminal: $!" if $^W;
    }
    } else {
    warn "warning: You have neither TIOCSCTTY nor TCSETCTTY on your system\n" if $^W;
    return 0;
    }
    }

    if (not open(\*DEVTTY, "/dev/tty")) {
    warn "Error: could not connect pty as controlling terminal!\n";
    return undef;
    } else {
    close \*DEVTTY;
    }

    return 1;
    }

    *clone_winsize_from = \&IO::Tty::clone_winsize_from;
    *set_raw = \&IO::Tty::set_raw;

    1;

    __END__

    =head1 NAME

    IO::Pty - Pseudo TTY object class

    =head1 VERSION

    1.10

    =head1 SYNOPSIS

    use IO::Pty;

    $pty = new IO::Pty;

    $slave = $pty->slave;

    foreach $val (1..10) {
    print $pty "$val\n";
    $_ = <$slave>;
    print "$_";
    }

    close($slave);


    =head1 DESCRIPTION

    C<IO::Pty> provides an interface to allow the creation of a pseudo tty.

    C<IO::Pty> inherits from C<IO::Handle> and so provide all the methods
    defined by the C<IO::Handle> package.

    Please note that pty creation is very system-dependend. If you have
    problems, see L<IO::Tty> for help.


    =head1 CONSTRUCTOR

    =over 3

    =item new

    The C<new> constructor takes no arguments and returns a new file
    object which is the master side of the pseudo tty.

    =back

    =head1 METHODS

    =over 4

    =item ttyname()

    Returns the name of the slave pseudo tty. On UNIX machines this will
    be the pathname of the device. Use this name for informational
    purpose only, to get a slave filehandle, use slave().

    =item slave()

    The C<slave> method will return the slave filehandle of the given
    master pty, opening it anew if necessary. If IO::Stty is installed,
    you can then call C<$slave-E<gt>stty()> to modify the terminal settings.

    =item close_slave()

    The slave filehandle will be closed and destroyed. This is necessary
    in the parent after forking to get rid of the open filehandle,
    otherwise the parent will not notice if the child exits. Subsequent
    calls of C<slave()> will return a newly opened slave filehandle.

    =item make_slave_controlling_terminal()

    This will set the slave filehandle as the controlling terminal of the
    current process, which will become a session leader, so this should
    only be called by a child process after a fork(), e.g. in the callback
    to C<sync_exec()> (see L<Proc::SyncExec>). See the C<try> script
    (also C<test.pl>) for an example how to correctly spawn a subprocess.

    =item set_raw()

    Will set the pty to raw. Note that this is a one-way operation, you
    need IO::Stty to set the terminal settings to anything else.

    On some systems, the master pty is not a tty. This method checks for
    that and returns success anyway on such systems. Note that this
    method must be called on the slave, and probably should be called on
    the master, just to be sure, i.e.

    $pty->slave->set_raw();
    $pty->set_raw();


    =item clone_winsize_from(\*FH)

    Gets the terminal size from filehandle FH (which must be a terminal)
    and transfers it to the pty. Returns true on success and undef on
    failure. Note that this must be called upon the I<slave>, i.e.

    $pty->slave->clone_winsize_from(\*STDIN);

    On some systems, the master pty also isatty. I actually have no
    idea if setting terminal sizes there is passed through to the slave,
    so if this method is called for a master that is not a tty, it
    silently returns OK.

    See the C<try> script for example code how to propagate SIGWINCH.

    =back


    =head1 SEE ALSO

    L<IO::Tty>, L<IO::Tty::Constant>, L<IO::Handle>, L<Expect>, L<Proc::SyncExec>


    =head1 MAILING LISTS

    As this module is mainly used by Expect, support for it is available
    via the two Expect mailing lists, expectperl-announce and
    expectperl-discuss, at

    http://lists.sourceforge.net/lists/listinfo/expectperl-announce

    and

    http://lists.sourceforge.net/lists/listinfo/expectperl-discuss


    =head1 AUTHORS

    Originally by Graham Barr E<lt>F<gbarr@pobox.com>E<gt>, based on the
    Ptty module by Nick Ing-Simmons E<lt>F<nik@tiuk.ti.com>E<gt>.

    Now maintained and heavily rewritten by Roland Giersig
    E<lt>F<RGiersig@cpan.org>E<gt>.

    Contains copyrighted stuff from openssh v3.0p1, authored by
    Tatu Ylonen <ylo@cs.hut.fi>, Markus Friedl and Todd C. Miller
    <Todd.Miller@courtesan.com>.


    =head1 COPYRIGHT

    Now all code is free software; you can redistribute it and/or modify
    it under the same terms as Perl itself.

    Nevertheless the above AUTHORS retain their copyrights to the various
    parts and want to receive credit if their source code is used.
    See the source for details.


    =head1 DISCLAIMER

    THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED
    WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
    MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
    IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT,
    INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
    BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
    OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
    ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
    TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
    USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
    DAMAGE.

    In other words: Use at your own risk. Provided as is. Your mileage
    may vary. Read the source, Luke!

    And finally, just to be sure:

    Any Use of This Product, in Any Manner Whatsoever, Will Increase the
    Amount of Disorder in the Universe. Although No Liability Is Implied
    Herein, the Consumer Is Warned That This Process Will Ultimately Lead
    to the Heat Death of the Universe.

    =cut
     
    #3 TopNotchContet, Jan 19, 2011
    Last edited: Jan 19, 2011
Loading...

Share This Page