summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfloppy
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2002-04-07 19:31:58 +0000
committerYves Duret <yduret@mandriva.com>2002-04-07 19:31:58 +0000
commita2f396715601558a582f168f901732bf201bfff9 (patch)
treed0c57861d6c0d5309aa776a4da7f3f0bfea57366 /perl-install/standalone/drakfloppy
parent872ae7e69b7cb4be9c967a9cc7f33a8115a38ded (diff)
downloaddrakx-backup-do-not-use-a2f396715601558a582f168f901732bf201bfff9.tar
drakx-backup-do-not-use-a2f396715601558a582f168f901732bf201bfff9.tar.gz
drakx-backup-do-not-use-a2f396715601558a582f168f901732bf201bfff9.tar.bz2
drakx-backup-do-not-use-a2f396715601558a582f168f901732bf201bfff9.tar.xz
drakx-backup-do-not-use-a2f396715601558a582f168f901732bf201bfff9.zip
moving from his own rpm to drakxtools
Diffstat (limited to 'perl-install/standalone/drakfloppy')
-rwxr-xr-xperl-install/standalone/drakfloppy456
1 files changed, 456 insertions, 0 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
new file mode 100755
index 000000000..6c59311ec
--- /dev/null
+++ b/perl-install/standalone/drakfloppy
@@ -0,0 +1,456 @@
+#!/usr/bin/perl -w
+
+# Control-center
+# $Id$
+#
+# Copyright (C) 2001-2002 MandrakeSoft
+# Yves Duret <yduret at mandrakesoft.com>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+# MA 02111-1307, USA.
+
+
+use POSIX;
+use Gtk;
+use lib qw(/usr/lib/libDrakX);
+
+use standalone; #- warning, standalone must be loaded very first, for 'explanations'
+
+use interactive;
+use Config;
+use any;
+init Gtk;
+Gtk->set_locale;
+
+#-------------------------------------------------------------
+# i18n routines
+# IMPORTANT: next two routines have to be redefined here to
+# get correct namespace (drakconf instead of libDrakX)
+# (This version is now UTF8 compliant - Sg 2001-08-18)
+#-------------------------------------------------------------
+
+sub _ {
+ my $s = shift @_; my $t = translate($s);
+ sprintf $t, @_;
+}
+
+sub translate {
+ my ($s) = @_;
+ $s ? c::dgettext('drakfloppy', $s) : '';
+}
+
+$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\S*) (\S*)/;
+if ($::isEmbedded) {
+ print "EMBED\n";
+ print "XID : $::XID\n";
+ print "CCPID : $::CCPID\n";
+}
+
+$in = 'interactive'->vnew('su', 'default');
+local $_ = join '', @ARGV;
+
+/-h/ and die _("usage: drakfloppy\n");
+
+$expert_mode = 0;
+# we have put here the list in order to do $list->clear() when we have to do
+$fixed_font = Gtk::Gdk::Font->fontset_load(_("-misc-Fixed-Medium-r-*-*-*-140-*-*-*-*-*-*,*"));
+my @titles = ( _("Module name"), _("Size") );
+my $list = new_with_titles Gtk::CList( @titles );
+
+my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
+$window->signal_connect( 'delete_event', sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) });
+$window->set_title( _("drakfloppy") );
+$window->set_policy(1, 1, 1);
+$window->border_width (5);
+
+### menus definition
+# the menus are not shown
+# but they provides shiny shortcut like C-q
+my @menu_items = (
+ { path => _("/_File"), type => '<Branch>' },
+ { path => _("/File/_Quit"), accelerator => _("<control>Q"), callback => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) } },
+ );
+my $menubar = get_main_menu( $window );
+
+######### menus end
+
+my $global_vbox = new Gtk::VBox();
+
+$::isEmbedded or $global_vbox->pack_start (new Gtk::Label(_("boot disk creation")), 0, 0, 0);
+
+######## up part
+my $up_vbox = new Gtk::VBox (0, 0);
+
+# device part
+my $dev_hbox = new Gtk::HBox (1, 0);
+my $device_combo = new Gtk::Combo();
+my $device_button = new Gtk::Button( _("default") );
+
+$device_combo->set_popdown_strings( "/dev/fd0", "/dev/fd1", );
+$device_button->signal_connect( 'clicked', sub { $device_combo->entry->set_text("/dev/fd0");});
+
+$dev_hbox->pack_start (new Gtk::Label( _("device") ), 0, 0, 0);
+$dev_hbox->pack_start ($device_combo, 0, 0, 0);
+$dev_hbox->pack_start ($device_button, 0, 0, 0);
+$up_vbox->pack_start ($dev_hbox, 0, 0, 0);
+
+# kernel part
+my $ker_hbox = new Gtk::HBox (1, 0);
+my $kernel_combo = new Gtk::Combo();
+my $kernel_button = new Gtk::Button( _("default") );
+$kernel_combo->disable_activate();
+$kernel_combo->set_popdown_strings( do {
+ opendir YREP, "/lib/modules" or die _("DrakFloppy Error: %s", $!);
+ my @files_modules = grep !/^\.\.?$/, readdir YREP;
+ closedir YREP;
+ @files_modules;
+});
+#$kernel_combo->entry->set_text(`uname -r`);
+$kernel_combo->entry->signal_connect( "changed", sub { change_tree($kernel_combo->entry->get_text()); $list->clear();});
+$aaaa= `uname -r`;
+chomp ($aaaa);
+$kernel_button->signal_connect( 'clicked', sub { $kernel_combo->entry->set_text($aaaa); $list->clear(); });
+
+$ker_hbox->pack_start (new Gtk::Label( _("kernel version") ), 0, 0, 0);
+$ker_hbox->pack_start ($kernel_combo, 0, 0, 0);
+$ker_hbox->pack_start ($kernel_button, 0, 0, 0);
+$up_vbox->pack_start ($ker_hbox, 0, 0, 5);
+
+# vbox part
+my $up_frame = new Gtk::Frame( _("General") );
+$up_frame->add($up_vbox);
+$global_vbox->pack_start ($up_frame, 1, 1, 0);
+
+### expert mode
+my $expert_main_frame = new Gtk::Frame( _("Expert Area") );
+my $expert_dedans = new Gtk::VBox( 0, 5 );
+$expert_dedans->border_width (5);
+my $expert_button_frame = new Gtk::Frame( _("mkinitrd optional arguments") );
+my $expert_mod_frame = new Gtk::Frame( _("Add a module") );
+my $expert_pane = new Gtk::HPaned();
+$expert_pane->set_handle_size( 10 );
+$expert_pane->set_gutter_size( 8 );
+
+my $expert_button = new Gtk::Button( _("Expert Mode") );
+$expert_button->signal_connect( "clicked", sub {
+ if ($expert_mode) {
+ $expert_mod_frame->hide();
+ $expert_button_frame->hide()
+ } else {
+ $expert_mod_frame->show();
+ $expert_button_frame->show();
+ }
+ $expert_mode = !$expert_mode;
+ });
+
+my $expert_button_vbox = new Gtk::VBox(0, 5);
+my $expert_button_hbox = new Gtk::HBox(0, 5);
+my $expert_button_hbox2 = new Gtk::HBox(0, 5);
+my $force_button = new Gtk::ToggleButton( _("force") );
+my $needed_button = new Gtk::ToggleButton( _("if needed") );
+my $scsi_button = new Gtk::ToggleButton( _("omit scsi modules") );
+my $raid_button = new Gtk::ToggleButton( _("omit raid modules") );
+$expert_button_hbox->pack_start( $force_button, 0, 0, 0 );
+$expert_button_hbox->pack_start( $raid_button, 0, 0, 0 );
+
+$expert_button_hbox2->pack_start( $needed_button, 0, 0, 0 );
+$expert_button_hbox2->pack_start( $scsi_button, 0, 0, 0 );
+
+$expert_button_vbox->pack_start($expert_button_hbox, 0, 0, 0);
+$expert_button_vbox->pack_start($expert_button_hbox2, 0, 0, 0);
+$expert_button_frame->add($expert_button_vbox);
+$expert_dedans->pack_start ($expert_button_frame, 0, 0, 0);
+$expert_mod_frame->add($expert_pane);
+$expert_dedans->pack_start ($expert_mod_frame, 1, 1, 0);
+$expert_main_frame->add($expert_dedans);
+$global_vbox->pack_start ($expert_main_frame, 1, 1, 0);
+
+### the tree
+
+# Create a ScrolledWindow for the tree
+my $tree_scrolled_win = new Gtk::ScrolledWindow();
+$tree_scrolled_win->set_usize( 200, $::isEmbedded ? 0 : 175);
+$expert_pane->add1( $tree_scrolled_win );
+$tree_scrolled_win->set_policy( 'automatic', 'automatic' );
+
+# Create root tree
+my $tree = new Gtk::Tree();
+my $leaf;
+my $root_dir;
+$tree_scrolled_win->add_with_viewport( $tree );
+$tree->set_selection_mode( 'single' );
+$tree->set_view_mode( 'item' );
+
+fill_tree ($kernel_combo->entry->get_text());
+
+# Create a ScrolledWindow for the list
+my $list_scrolled_win = new Gtk::ScrolledWindow( undef, undef );
+my $rmmod_button = new Gtk::Button( _("Remove a module") );
+my $expert_inside_pane2 = new Gtk::VBox (0, 0);
+my $list_selected_row;
+
+$expert_inside_pane2->pack_start ($list_scrolled_win, 1, 1, 0);
+$expert_inside_pane2->pack_start ($rmmod_button, 0, 0, 0);
+$expert_pane->add2( $expert_inside_pane2 );
+$list_scrolled_win->set_policy( 'automatic', 'automatic' );
+$rmmod_button->signal_connect('clicked', sub {$list->remove($list_selected_row);});
+
+# Create list box
+########################################################## from here my $list
+$list->signal_connect('select_row', sub { (undef, $list_selected_row) = @_; });
+$list_scrolled_win->add( $list );
+$list->set_column_justification(1, 'right');
+$list->set_column_width( 0, 200 );
+$list->set_column_width( 1, 50 );
+$list->set_selection_mode( 'single' );
+$list->set_shadow_type( 'none' );
+$list->show();
+
+### output
+my $output_frame = new Gtk::Frame( _("Output") );
+my $output = new Gtk::Text( undef, undef );
+my $vscrollbar = new Gtk::VScrollbar( $output->vadj );
+my $output_hbox = new Gtk::HBox (0, 0);
+$output_hbox->border_width (5);
+$output_hbox->set_usize( 30, 75 );
+$output_hbox->pack_start( $output, 1, 1, 0 );
+$output_hbox->pack_start( $vscrollbar, 0, 0, 0 );
+$output_frame->add ($output_hbox);
+$global_vbox->pack_start ($output_frame, 0, 0, 0);
+
+### final buttons
+my $build_button = new Gtk::Button( _("Build the disk") );
+my $cancel_button = new Gtk::Button( _("Cancel") );
+my $fin_hbox = new Gtk::HBox( 0, 0 );
+$cancel_button->signal_connect( clicked=> sub {$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0)});
+$build_button->signal_connect('clicked', \&build_it);
+$fin_hbox->pack_end($cancel_button, 0, 0, 0);
+$fin_hbox->pack_end($build_button, 0, 0, 10);
+$fin_hbox->pack_end($expert_button, 0, 0, 10);
+$global_vbox->pack_start ($fin_hbox, 0, 0, 0);
+
+### back to window
+$window->add( $global_vbox );
+
+$window->show_all();
+$expert_mod_frame->hide();
+$expert_button_frame->hide();
+
+Gtk->main_iteration while Gtk->events_pending;
+$::isEmbedded and kill USR2, $::CCPID;
+Gtk->main;
+
+
+
+#-------------------------------------------------------------
+# tree functions
+#-------------------------------------------------------------
+### Subroutines
+
+sub fill_tree {
+ ($root_dir) = @_;
+ $root_dir = "/lib/modules/" . $root_dir;
+ # Create root tree item widget
+ $leaf = new_with_label Gtk::TreeItem( $root_dir );
+ $tree->append( $leaf );
+ $leaf->signal_connect( 'select', \&select_item, $root_dir );
+ $leaf->set_user_data( $root_dir );
+
+ # Create the subtree
+ if ( has_sub_trees( $root_dir ) ) {
+ my $subtree = new Gtk::Tree();
+ $leaf->set_subtree( $subtree );
+ $leaf->signal_connect( 'expand', \&expand_tree, $subtree );
+ $leaf->signal_connect( 'collapse', \&collapse_tree );
+ $leaf->expand();
+ }
+}
+
+sub change_tree {
+ $leaf->destroy();
+ fill_tree (@_);
+ $leaf->show();
+}
+
+# Callback for expanding a tree - find subdirectories, files and add them to tree
+sub expand_tree
+ {
+ my ( $item, $subtree ) = @_;
+
+ my $dir_entry;
+ my $path;
+ my $item_new;
+ my $new_subtree;
+
+ my $dir = $item->get_user_data();
+
+ chdir( $dir );
+
+ foreach $dir_entry ( <*> ) {
+ if (( -d $dir_entry ) or ( $dir_entry =~ /\.o(\.gz)?$/)) {
+ $path = $dir . "/" . $dir_entry;
+ $path =~ s|//|/|g;
+ $item_new = new_with_label Gtk::TreeItem( $dir_entry );
+ $item_new->set_user_data( $path );
+ $item_new->signal_connect( 'select', \&select_item, $path );
+ $subtree->append( $item_new );
+ $item_new->show();
+
+ if ( has_sub_trees( $path ) ) {
+ $new_subtree = new Gtk::Tree();
+ $item_new->set_subtree( $new_subtree );
+ $item_new->signal_connect( 'expand', \&expand_tree, $new_subtree );
+ $item_new->signal_connect( 'collapse', \&collapse_tree );
+ }
+ }
+ }
+ chdir( ".." );
+ }
+
+
+# Callback for collapsing a tree -- removes the subtree
+sub collapse_tree
+ {
+ my ( $item ) = @_;
+ my $subtree = new Gtk::Tree();
+
+ $item->remove_subtree();
+ $item->set_subtree( $subtree );
+ $item->signal_connect( 'expand', \&expand_tree, $subtree );
+ }
+
+# Called whenever an item is clicked on the tree widget.
+sub select_item {
+ my ( $widget, $file ) = @_;
+ return if (-d $file);
+ my $size = ( lstat( $file ) )[ 7 ];
+ my $lr = $list->rows();
+ my $i;
+ $file =~ s|/lib/modules/.*?/||g;
+ for ($i=0; $i < $lr; $i++) {
+ last if ($file eq $list->get_text($i, 0));
+ }
+ print $file,"\n";
+
+ $list->append($file, $size) if ($i == $lr) or ($lr == 0);
+}
+
+#-------------------------------------------------------------
+# menu callback functions
+#-------------------------------------------------------------
+
+sub print_hello {
+ print "mcdtg !\n";
+}
+
+sub get_main_menu {
+ my ( $window ) = @_;
+ my $accel_group = new Gtk::AccelGroup();
+ my $item_factory = new Gtk::ItemFactory( 'Gtk::MenuBar', '<main>', $accel_group );
+ $item_factory->create_items( @menu_items );
+ $window->add_accel_group( $accel_group );
+ return ( $item_factory->get_widget( '<main>' ) );
+}
+
+
+sub create_dialog {
+ my ( $label, $c ) = @_;
+ my $ret = 0;
+ my $dialog = new Gtk::Dialog;
+ $dialog->signal_connect ( delete_event => sub {Gtk->main_quit();});
+ $dialog->set_title(_("drakfloppy"));
+ $dialog->border_width(10);
+ $dialog->vbox->pack_start(new Gtk::Label($label),1,1,0);
+
+ my $button = new Gtk::Button _("OK");
+ $button->can_default(1);
+ $button->signal_connect(clicked => sub { $ret = 1; $dialog->destroy(); Gtk->main_quit(); });
+ $dialog->action_area->pack_start($button, 1, 1, 0);
+ $button->grab_default;
+
+ if ($c) {
+ my $button2 = new Gtk::Button _("Cancel");
+ $button2->signal_connect(clicked => sub { $ret = 0; $dialog->destroy(); Gtk->main_quit(); });
+ $button2->can_default(1);
+ $dialog->action_area->pack_start($button2, 1, 1, 0);
+ }
+
+ $dialog->show_all;
+ Gtk->main();
+ $ret;
+}
+
+sub destroy_window {
+ my($widget, $windowref, $w2) = @_;
+ $$windowref = undef;
+ $w2 = undef if defined $w2;
+ 0;
+}
+
+
+#-------------------------------------------------------------
+# the function
+#-------------------------------------------------------------
+sub build_it {
+ my $y;
+ my $co = "/sbin/mkbootdisk --noprompt --verbose --device ". $device_combo->entry->get_text();
+ if ($expert_mode) {
+ $co .= " --mkinitrdargs -f" if $force_button->get_active;
+ $co .= " --mkinitrdargs --ifneeded" if $needed_button->get_active;
+ $co .= " --mkinitrdargs --omit-scsi-modules" if $scsi_button->get_active;
+ $co .= " --mkinitrdargs --omit-raid-modules" if $raid_button->get_active;
+ for (my $i=0; $i<$list->rows(); $i++) {
+ $y = $list->get_text($i, 0);
+ $y =~ s|.*?/||g;
+ $co .= " --mkinitrdargs --with=" . $y; #. "/usr/lib/" . $kernel_combo->entry->get_text() . "/" . $y;
+ }
+ }
+ $co .= " " . $kernel_combo->entry->get_text();
+ $co .= " 2>&1 |";
+ create_dialog(_("Be sure a media is present for the device %s", $device_combo->entry->get_text()), 1) or return;
+# we test if the media is present
+ test:
+ my $a = "dd count=1 if=/dev/null of=". $device_combo->entry->get_text() ." 2>&1";
+ my $b= `$a`;
+ if ($b =~ "dd") {create_dialog(_("There is no medium or it is write-protected for device %s.\nPlease insert one.", $device_combo->entry->get_text()), 1) ? goto test : return 0; }
+
+ open STATUS, $co or do { create_dialog(_("Unable to fork: %s", $!), 0); return; };
+ while (<STATUS>) {
+ $output->insert( $fixed_font, undef, undef, $_ );
+ }
+ close STATUS or create_dialog(_("Unable to close properly mkbootdisk: \n %s \n %s", $!, $?), 0);
+
+ return (0);
+}
+
+####
+# This is put at the end of the file because any translatable string
+# appearing after this will not be found by xgettext, and so wont end in
+# the pot file...
+####
+
+# Test whether a directory has subdirectories
+sub has_sub_trees
+ {
+ my ( $dir ) = @_;
+ my $file;
+
+ foreach $file ( <$dir/*> ) {
+ return 1 if ( -d $file ) or ($file =~ /\.o(\.gz)?$/);
+ }
+
+ return (0);
+ }
+