#!/usr/bin/perl
use strict;
use warnings;

use CGI;
use File::Basename;
use HTML::Entities qw(encode_entities);

use lib 'lib';
use Base::HTML qw(start_html end_html);
use Base::Roots qw(get_data);
use Base::Data qw(get_hash);
use Base::Nifty qw(line);

my $form = basename($0);
my $file = get_data('Base','other_sites.txt');

my %sites = get_hash(
  file => $file,
  headings => [qw(name link)],
);

my $cgi = CGI->new();

start_html;
line(3,qq(<form action="$form" method="post">));
line(4,q(<fieldset>));
line(3,q(<table>));
for my $site (sort {lc $a cmp lc $b} keys %sites) {
  my $name = $sites{$site}{name};
  my $link = $sites{$site}{link};
  $sites{$site}{new_name} = $cgi->param("$site\_name");
  $sites{$site}{new_link} = $cgi->param("$site\_link");

  line(4,q(<tr>));
  line(5,qq(<td><input type="text" id="$site\_name" name="$site\_name" value="$name"></td>));
  line(5,qq(<td><input type="text" id="$site\_link" name="$site\_link" value="$link"></td>));
  line(4,q(</tr>));
}
line(3,q(</table>));
line(5,q(<input type="submit" value="Make changes">));
line(5,q(<input type="button" onclick="location='$form'" value="Start over">));
line(4,q(</fieldset>));
line(3,q(</form>));
end_html;

if ($cgi->param) {
  my @new_lines;
  for my $site (sort {lc $a cmp lc $b} keys %sites) {
    my $new_name = defined($sites{$site}{new_name}) ? $sites{$site}{new_name} : $sites{$site}{name};
    my $new_link = defined($sites{$site}{new_link}) ? $sites{$site}{new_link} : $sites{$site}{link};
    push @new_lines, "$new_name|$new_link";
  }
  open(my $fh,'>',$file) or die "Can't open $file";
  print $fh join("\n",@new_lines);
}