diff options
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/draknet | 120 |
1 files changed, 118 insertions, 2 deletions
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet index b663472d1..7b145ecbc 100755 --- a/perl-install/standalone/draknet +++ b/perl-install/standalone/draknet @@ -18,6 +18,9 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +use Gtk; +init Gtk; +use Data::Dumper; use lib qw(/usr/lib/libDrakX); use interactive; @@ -45,8 +48,121 @@ $::wizard_xpm = "/usr/share/pixmaps/internet.xpm"; #-e $f or system("urpmi --auto XFree86 XFree86-75dpi-fonts"); #-e $f or die "install XFree86 first!\n"; +#goto dd; +my $window1 = new Gtk::Window -toplevel; +$window1->signal_connect ( delete_event => sub { Gtk->exit(0); }); +$window1->set_position(1); +$window1->set_title(_("Network configuration")); +$window1->border_width(10); +my $vbox1 = new Gtk::VBox(0,0); +$window1->add($vbox1); +my $hbox1 = new Gtk::HBox(0,0); +$vbox1->pack_start($hbox1,1,1,0); +$hbox1->pack_start(new Gtk::Label(_("Profil : ")),0,0,0); +$hbox1->pack_start(new Gtk::Label(_("default")),0,0,0); +my $hbox2 = new Gtk::HBox(0,0); +$vbox1->pack_start($hbox2,1,1,0); +$hbox2->pack_start(new Gtk::Label(_("Hostname : ")),0,0,0); +$hbox2->pack_start(new Gtk::Label(_("petite.mandrakesoft.com")),0,0,0); + +$vbox1->pack_start(new Gtk::HSeparator,1,1,5); + +my $frame1 = new Gtk::Frame (_("Internet access")); +$vbox1->pack_start($frame1,1,1,0); +$table1 = new Gtk::Table (3,3, 0); +$table1->set_row_spacings(5); +$table1->set_col_spacings(5); +#$table1->border_width(10); +$frame1->add($table1); +#attach (table, child, left_attach, right_attach, top_attach, bottom_attach, xoptions, yoptions, xpadding, ypadding) +#$table->attach($button[0], 0, 1, 0, 1, {expand=>1,fill=>1}, {expand=>1,fill=>1},0,0); +$table1->attach(new Gtk::Label(_("Type :")), 0, 1, 0, 1, 'fill', 'fill',0,0); +my $label4 = new Gtk::Label(_("isdn_internal")); +$table1->attach($label4, 1, 2, 0, 1, 'fill', 'fill',0,0); +my $label5 = new Gtk::Label(_("Interface :")); +$table1->attach($label5, 0, 1, 1, 2, 'fill', 'fill',0,0); +my $label6 = new Gtk::Label(_("ippp0")); +$table1->attach($label6, 1, 2, 1, 2, 'fill', 'fill',0,0); +my $label7 = new Gtk::Label(_("Status :")); +$table1->attach($label7, 0, 1, 2, 3, 'fill', 'fill',0,0); +my $label8 = new Gtk::Label(_("not connected")); +$table1->attach($label8, 1, 2, 2, 3, 'fill', 'fill',0,0); + +my $button1 = new Gtk::Button(_("Configure...")); +$table1->attach($button1, 2, 3, 0, 2, 'fill', 'fill',0,0); +$button1->signal_connect( 'clicked', \&configure_net ); + +my $button2 = new Gtk::Button(_("Connect...")); +$table1->attach($button2, 2, 3, 2, 3, 'fill', 'fill',0,0); + + +my $separator2 = new Gtk::HSeparator; +$vbox1->pack_start($separator2,1,1,5); + +my $frame2 = new Gtk::Frame (_("LAN configuration")); +$vbox1->pack_start($frame2,1,1,0); +$table2 = new Gtk::Table (3,2, 0); +$table2->set_row_spacings(5); +$table2->set_col_spacings(5); +#$table1->border_width(10); +$frame2->add($table2); +#attach (table, child, left_attach, right_attach, top_attach, bottom_attach, xoptions, yoptions, xpadding, ypadding) +#$table->attach($button[0], 0, 1, 0, 1, {expand=>1,fill=>1}, {expand=>1,fill=>1},0,0); +my $label9 = new Gtk::Label(_("Network adaptater 1 (eth0) :")); +$table2->attach($label9, 0, 1, 0, 1, 'fill', 'fill',0,0); +my $label10 = new Gtk::Label(_("isdn_internal")); +$table2->attach($label10, 1, 2, 0, 1, 'fill', 'fill',0,0); +my $label11 = new Gtk::Label(_("Interface :")); +$table2->attach($label11, 0, 1, 1, 2, 'fill', 'fill',0,0); +my $label12 = new Gtk::Label(_("ippp0")); +$table2->attach($label12, 1, 2, 1, 2, 'fill', 'fill',0,0); +my $label13 = new Gtk::Label(_("Status :")); +$table2->attach($label13, 0, 1, 2, 3, 'fill', 'fill',0,0); +my $label14 = new Gtk::Label(_("not connected")); +$table2->attach($label14, 1, 2, 2, 3, 'fill', 'fill',0,0); + + +$window1->show_all(); +Gtk->main; + +#dd: + my $in = vnew interactive('su'); -my $wait = $in->wait_message('', '', 1); -netconnect::intro('', $netcnx, $in, -e "/etc/pcmcia", \&standalone::pkgs_install); +#my $wait = $in->wait_message('', '', 1); +netconnect::intro('', $netcnx, $in, -e "/etc/pcmcia", sub {});#\&standalone::pkgs_install); $in->exit(0); + +sub configure_net { + + my $isdn; + netconnect::isdn_detect_backend($isdn); + print "isdn $_ : $isdn->{$_}\n" foreach qw(description vendor id driver card_type type); + + my $netc={}; + my $intf={}; + any::setup_thiskind_backend('net', undef); + my @all_cards = netconnect::conf_network_card_backend ('', $netc, $intf, undef, undef, undef, undef); + +# print " fffff : " . Data::Dumper->Dump([@all_cards], ['@all_cards']) . "\n"; + + print "nb : " . $netc->{nb_cards} ."\n"; + map { print "$_->[0] : $_->[1] \n" } @all_cards; + + print " jjjj : " . run_program::rooted($prefix, "/bin/ping -c 1 kdsdfsdenobi" ) . "\n"; +# system("ping eth0 10.0.0.10 netmask 255.255.255.0"); +# system("ifconfig eth0 10.0.0.10 netmask 255.255.255.0"); + + my $window = new Gtk::Window -toplevel; + $window->signal_connect ( delete_event => sub { Gtk->main_quit; }); + $window->set_position(1); + $window->set_title(_("Internet connection configuration")); + $window->border_width(10); + my $vbox1 = new Gtk::VBox(0,0); + $window->add($vbox1); + $vbox1->pack_start(new Gtk::Label(_("Profil : ")),0,0,0); + + $window->show_all(); + Gtk->main; + +} |