reindent

1 files changed, 128 insertions, 126 deletions

diff --git a/transfugdrake b/transfugdrake
index a2a368a..7163e92 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -23,153 +23,155 @@ my $background_migration_type;
 
 my $in = 'interactive'->vnew('su');
 my $wiz = wizards->new({
-			name => N("Migration wizard"),
-			pages => {
-				  welcome => {
-					      name => N("This wizard will help you to import Windows documents and settings in your %s distribution.", $distrib{system}) . "\n" . N("It allows two differents migration methods: you can either import all documents and settings by copying them, or share them between operating systems."),
-					      post => sub {
-						$linux_user = @linux_users == 1 && $linux_users[0];
-						$windows_user = @windows_users == 1 && $windows_users[0];
-						!$linux_user || !$windows_user ? 'users' : 'files';
-					      },
-					     },
-				  users => {
-					    name => N("Multiple users have been detected, please select a user in the list below."),
-					    data => [
-						     {
-						      label => N("Windows user"),
-						      type => 'combo',
-						      val => \$linux_user,
-						      list => \@linux_users,
-						     },
-						     {
-						      label => N("Linux user"),
-						      type => 'combo',
-						      val => \$windows_user,
-						      list => \@windows_users,
-						     },
-						    ],
-					    next => 'files',
-					   },
-				  files => {
-					    name => N("You can migrate Windows documents to your home directory. Documents can be imported by copying them, or they can be shared with the other operating system"),
-					    data => [
-						     { type => 'list',
-						       val => \$files_migration_type,
-						       list => [
-								N("Import documents (recommended)"),
-								N("Share documents"),
-								N("Skip step"),
-							       ],
-						     },
-						    ],
-					    post => sub {
-					      import_files();
-					      'bookmarks';
-					    },
-					   },
-				  bookmarks => {
-					    name => N("You can migrate browser bookmarks."),
-					    data => [
-						     { type => 'list',
-						       val => \$bookmarks_migration_type,
-						       list => [
-								N("Import bookmarks (recommended)"),
-								if_(member('firefox', keys %windows_bookmarks),
-								    N("Share bookmarks")),
-								N("Skip step"),
-							       ],
-						     },
-						    ],
-					    post => sub {
-					      import_bookmarks();
-					      'mail';
-					    },
-					   },
-				  mail => {
-					    name => N("You can migrate mail bookmarks."),
-					    data => [
-						     { type => 'list',
-						       val => \$mail_migration_type,
-						       list => [
-								N("Import mail (recommended)"),
-								if_(member('thunderbird', keys %windows_mail),
-								    N("Share mail")),
-								N("Skip step"),
-							       ],
-						     },
-						    ],
-					    post => sub {
-					      import_mail();
-					      'background';
-					    },
-					   },
-				  background => {
-					    name => N("You can migrate your desktop background."),
-					    data => [
-						     { type => 'list',
-						       val => \$background_migration_type,
-						       list => [
-								N("Use Mandriva background"),
-								N("Import background"),
-							       ],
-						     },
-						    ],
-					    post => sub {
-					      import_background();
-					      'end';
-					    },
-					   },
-				  end => {
-					  name => N("Congratulations, your migration is now completed!"),
-					  end => 1,
-					 },
-				 },
+    name => N("Migration wizard"),
+    pages => {
+        welcome => {
+            name => N("This wizard will help you to import Windows documents and settings in your %s distribution.", $distrib{system}) . "\n" . N("It allows two differents migration methods: you can either import all documents and settings by copying them, or share them between operating systems."),
+            post => sub {
+                $linux_user = @linux_users == 1 && $linux_users[0];
+                $windows_user = @windows_users == 1 && $windows_users[0];
+                !$linux_user || !$windows_user ? 'users' : 'files';
+            },
+        },
+        users => {
+            name => N("Multiple users have been detected, please select a user in the list below."),
+            data => [
+                {
+                    label => N("Windows user"),
+                    type => 'combo',
+                    val => \$linux_user,
+                    list => \@linux_users,
+                },
+                {
+                    label => N("Linux user"),
+                    type => 'combo',
+                    val => \$windows_user,
+                    list => \@windows_users,
+                },
+            ],
+            next => 'files',
+        },
+        files => {
+            name => N("You can migrate Windows documents to your home directory. Documents can be imported by copying them, or they can be shared with the other operating system"),
+            data => [
+                {
+                    type => 'list',
+                    val => \$files_migration_type,
+                    list => [
+                        N("Import documents (recommended)"),
+                        N("Share documents"),
+                        N("Skip step"),
+                    ],
+                },
+            ],
+            post => sub {
+                import_files();
+                'bookmarks';
+            },
+        },
+        bookmarks => {
+            name => N("You can migrate browser bookmarks."),
+            data => [
+                {
+                    type => 'list',
+                    val => \$bookmarks_migration_type,
+                    list => [
+                        N("Import bookmarks (recommended)"),
+                        if_(member('firefox', keys %windows_bookmarks),
+                            N("Share bookmarks")),
+                        N("Skip step"),
+                    ],
+                },
+            ],
+            post => sub {
+                import_bookmarks();
+                'mail';
+            },
+        },
+        mail => {
+            name => N("You can migrate mail bookmarks."),
+            data => [
+                { type => 'list',
+                  val => \$mail_migration_type,
+                  list => [
+                      N("Import mail (recommended)"),
+                      if_(member('thunderbird', keys %windows_mail),
+                          N("Share mail")),
+                      N("Skip step"),
+                  ],
+              },
+            ],
+            post => sub {
+                import_mail();
+                'background';
+            },
+        },
+        background => {
+            name => N("You can migrate your desktop background."),
+            data => [
+                { type => 'list',
+                  val => \$background_migration_type,
+                  list => [
+                      N("Use Mandriva background"),
+                      N("Import background"),
+                  ],
+              },
+            ],
+            post => sub {
+                import_background();
+                'end';
+            },
+        },
+        end => {
+            name => N("Congratulations, your migration is now completed!"),
+            end => 1,
+        },
+    },
 });
 
 $wiz->process($in);
 
 sub list_windows_users {
-  my ($win_prefix) = @_;
-  qw(john alice);
+    my ($win_prefix) = @_;
+    qw(john alice);
 }
 
 sub import_files {
-  my ($win_prefix) = @_;
-  my $_w = $in->wait_message('', N("Migration of documents in progress"));
-  sleep 1;
+    my ($win_prefix) = @_;
+    my $_w = $in->wait_message('', N("Migration of documents in progress"));
+    sleep 1;
 }
 
 sub list_windows_bookmarks {
-  my ($win_prefix) = @_;
-  (
-   'iexplore' => [ 'a', 'b' ],
-   'firefox' => [ 'c', 'd', 'e' ],
-  );
+    my ($win_prefix) = @_;
+    (
+        'iexplore' => [ 'a', 'b' ],
+        'firefox' => [ 'c', 'd', 'e' ],
+    );
 }
 
 sub import_bookmarks {
-  my ($win_prefix) = @_;
-  my $_w = $in->wait_message('', N("Migration of bookmarks in progress"));
-  sleep 1;
+    my ($win_prefix) = @_;
+    my $_w = $in->wait_message('', N("Migration of bookmarks in progress"));
+    sleep 1;
 }
 
 sub list_windows_mail {
-  my ($win_prefix) = @_;
-  (
-   'outlook' => [ 'a', 'b' ],
-   'thunderbird' => [ 'c', 'd', 'e' ],
-  );
+    my ($win_prefix) = @_;
+    (
+        'outlook' => [ 'a', 'b' ],
+        'thunderbird' => [ 'c', 'd', 'e' ],
+    );
 }
 
 sub import_mail {
-  my ($win_prefix) = @_;
-  my $_w = $in->wait_message('', N("Migration of mail in progress"));
-  sleep 1;
+    my ($win_prefix) = @_;
+    my $_w = $in->wait_message('', N("Migration of mail in progress"));
+    sleep 1;
 }
 
 sub import_background {
-  my ($win_prefix) = @_;
-  my $_w = $in->wait_message('', N("Migration of background in progress"));
-  sleep 1;
+    my ($win_prefix) = @_;
+    my $_w = $in->wait_message('', N("Migration of background in progress"));
+    sleep 1;
 }