Opened by Gast at 2005-08-04 13:55
So geht er rein:
Das bekomme ich dann auf der Konsole zu sehen:
Und so geht er nicht rein:
wobei ich dann folgendes auf der Konsole sehe:
Wobei er im letzteren Fall auch nicht die Gui beendet!
Code: (dl
)
1
2
3
4
5
unless (!$dbh)
{
system("echo \"Fehlgeschlagen!\" >> /dev/pts/2");
Tk::exit(1);
} # unless
Das bekomme ich dann auf der Konsole zu sehen:
Code: (dl
)
1
2
3
DBI connect('xxx','xxx',...) failed: Can't connect to local MySQL server through socket '/var/run/mysqld/mysqld.sock' (2) at /usr/bin/usb_send.pl line 144
Callback called exit, <SGINFO> line 2.
Callback called exit, <SGINFO> line 2.Und so geht er nicht rein:
Code: (dl
)
1
2
3
4
5
unless ($dbh)
{
system("echo \"Fehlgeschlagen!\" >> /dev/pts/2");
Tk::exit(1);
} # unless
wobei ich dann folgendes auf der Konsole sehe:
Code: (dl
)
1
2
3
4
5
DBI connect('xxx','xxx',...) failed: Can't connect to local MySQL server through socket '/var/run/mysqld/mysqld.sock' (2) at /usr/bin/usb_send.pl line 144
Tk::Error: Tk::Button=HASH(0x82f1e58) is not a Tk object at /usr/lib/perl5/Tk.pm line 91, <SGINFO> line 2.
*Tk::Toplevel::_Destroyed
Tk callback for .button
(command bound to event)Wobei er im letzteren Fall auch nicht die Gui beendet!