#!/opt/usr/bin/perl5.005 -w
use Tk 800;
use diagnostics;

# Open up the file and input information and data points.
# Sort variables by i_ for information and d_ for data.

sub open_file {
open RF, "/opt/adacs/perl_learn/read_file"
    or die "Can't open read_file";
    }
&open_file;
my @info = (grep /i_/, <RF>);
close RF;

&open_file;
my @data = (grep /d_/, <RF>);
close RF;

#After sorting, remove i_ and d_ identifiers.

for (@info) {
s/i_//;
}

for (@data) {
s/d_//;
}

#split each word in @data into individual elements in an array referen
+ce.
for (@data) {
    push(@{$arrays}, [split(/ /)]);
    }


# Create window.  Show Info and data information.
# Give user the opportunity to overwrite saved values.
# Ask if user wants to restore data or cancel.


# Main Window with set size.

my $mw = MainWindow->new();
$mw->geometry("400x650");

# First frame holds the information that was imported from file.

$frame1 = $mw->Frame(-borderwidth => 2, -relief   => 'groove')->pack(-
+fill => 'x');
$frame1->Label(-text => "Data saved at:")-> pack(-side => 'top', -expa
+nd => 1, -pady => '25');
for (@info) {
    $frame1->Label(-text => $_, -justify => 'left', -width => 30, -anc
+hor => 'w')-> pack();
    }

#  The second frame just holds a title and some column headers.

$frame2 = $mw->Frame(-width => 400, -borderwidth => 2)->pack();
$frame2->Label(-text => "Data to Restore:")-> pack();
$frame2->Label(-text => "Point      Saved      Current", -anchor => 'w
+', -width => 30)-> pack();

#  The third frame holds the point names which are from column 1 of th
+e imported file.

$frame3 = $mw->Frame(-width => 5, -height => 10, -borderwidth => 2)->p
+ack(-side => 'left', -ipadx => 10, -fill => 'y');
my $i = 0;
for (@{$arrays}) {
    $frame3->Label(-text => $arrays->[$i][0], 
           -borderwidth => 5)-> 
           pack(-side => 'top', 
           -fill => 'x', 
           -ipady => 6);
    $i++;
    }
#  When the user clicks this button the data will be restored.

$frame3->Button(-text => "Restore", 
        -command => \&restore_data)-> 
        pack(-side => 'top',
        -padx => '15',
        -pady => '40');

#  The fourth frame holds the point values that were saved before the 
+power shutdown.

$frame4 = $mw->Frame(-width => 10, -borderwidth => 2)-> pack(-side => 
+'left', -ipadx => 10, -fill => 'y');
$i = 0;
for (@{$arrays}) {
    $frame4->Entry(-textvariable => \$arrays->[$i][1],
           -width => 6)-> 
           pack(-fill => 'x', 
           -ipady => 9); 
    $i++;
    }

#  The fifth frame holds the current point values.

$frame5 = $mw->Frame(-borderwidth => 2,)->pack(-side => 'left', -ipadx
+ => 10, -fill => 'y');
$i = 0;
for (@{$arrays}) {
    $frame5->Label(-text => $arrays->[$i][2], 
           -anchor => 'center')-> 
           pack(-fill => 'x');
    $i++;
    }
$frame5->Button(-text => "Cancel", 
        - command => sub { exit})-> 
        pack(-side => 'right', 
        -padx => '15',
        -pady => '15');
$mw->title("Data Restore");
MainLoop;


# Restore values

sub restore_data {


my $m = 0;
for (@{$arrays}) {
    my $key = $arrays->[$m][0];
    my $value = $arrays->[$m][1];

    my %res_values = ( 
       $key => $value
    );
    system "XXXXX $key $value";
    $m++;
    };
    
    {exit}   
    }