config.pl

#!/usr/bin/perl
# IFMI PoolManager configuration file editor.
#    This file is part of IFMI PoolManager.
#
#    PoolManager 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.

 use strict;
 use warnings;
 use YAML qw( DumpFile LoadFile );
 use CGI qw(:cgi-lib :standard);

my $version = "1.5.3";
my $conffile = "/opt/ifmi/poolmanager.conf";
if (! -f $conffile) {
  my $nconf = {
  	monitoring => {
  		monitor_temp_hi => '80',
  		monitor_temp_lo => '45',
  		monitor_load_lo => '0',
  		monitor_hash_lo => '200',
  		monitor_fan_lo => '1000',
      monitor_fan_hi => '4000',
  		monitor_reject_hi => '3',
      do_email => '0',
  	},
  	miners => {
      0 => {
    		mconfig => 'Default',
        mpath => '/opt/miners/cgminer/cgminer',
    		mopts => '--api-listen',
  	   	savepath => '/opt/ifmi/cgminer.conf',
      },
  	},
    algos => {
      0 => {
        aname => 'scrypt',
        aprof => '0',
      },
    },
    settings => {
      cgminer_port => '4028',
      current_mconf => '0',
      running_mconf => '0',
      do_boot => '1',
    },
  	display => {
  		miner_loc => 'Undisclosed Location',
  		status_css => 'default.css',
  		graphcolors => 'pmgraph.colors',
  		usehashavg => '0',
      pmversion => $version,
  	},
  	farmview => {
  		do_bcast_status => '1',
  		status_port => '54545',
      do_direct_status => '',
  	},
    email => {
      smtp_to => 'root@localhost',
      smtp_host => 'localhost',
      smtp_from => 'poolmanager@localhost',
      smtp_port => '25',
      smtp_tls => '1',
      smtp_ssl => '1',
      smtp_auth_user => '',
      smtp_auth_pass => '',
      smtp_min_wait => '300',
    }
  };
  DumpFile($conffile, $nconf);
  open my $nin, '<', $conffile;
  open my $nout, '>', "$conffile.out";
  print $nout "# !DO NOT EDIT THIS FILE!\n# If it seems broken, rename it and a new one will be created.\n#\n";
  while( <$nin> ) { print $nout $_; }
  close $nin; close $nout;
  rename "$conffile.out", $conffile;
}

# Take care of business
my $conferror = 0; my $mailerror = "";
my $mconf = LoadFile( $conffile );
if (-o $conffile) {
  my $curver = $mconf->{display}->{pmversion};
  $mconf->{display}->{pmversion} = $version if ($version ne $curver);
  our %in;
  if (&ReadParse(%in)) {
    my $nht = $in{'temphi'};
    if((defined $nht) && ($nht ne "")) {
      $nht = "80" if (! ($nht =~ m/^\d+?$/));
      $mconf->{monitoring}->{monitor_temp_hi} = $nht;
    }
    my $nlt = $in{'templo'};
    if((defined $nlt) && ($nlt ne "")) {
      $nlt = "45" if (! ($nlt =~ m/^\d+?$/));
      $mconf->{monitoring}->{monitor_temp_lo} = $nlt;
    }
    my $nll = $in{'loadlo'};
    if((defined $nll) && ($nll ne "")) {
      $nll = "10" if (! ($nll =~ m/^\d+?$/));
      $mconf->{monitoring}->{monitor_load_lo} = $nll;
    }
    my $nhl = $in{'hashlo'};
    if((defined $nhl) && ($nhl ne "")) {
      $nhl = "200" if (! ($nhl =~ m/^\d+?$/));
      $mconf->{monitoring}->{monitor_hash_lo} = $nhl;
    }
    my $nfl = $in{'fanlo'};
    if((defined $nfl) && ($nfl ne "")) {
      $nfl = "1000" if (! ($nfl =~ m/^\d+?$/));
      $mconf->{monitoring}->{monitor_fan_lo} = $nfl;
    }
    my $nfh = $in{'fanhi'};
    if((defined $nfh) && ($nfh ne "")) {
      $nfh = "4000" if (! ($nfh =~ m/^\d+?$/));
      $mconf->{monitoring}->{monitor_fan_hi} = $nfh;
    }
    my $nrh = $in{'rejhi'};
    if((defined $nrh) && ($nrh ne "")) {
      $nrh = "3" if (! ($nrh =~ m/^(\d+)?\.?\d+?$/));
      $mconf->{monitoring}->{monitor_reject_hi} = $nrh;
    }
    my $doe = $in{'emaildo'};
    $mconf->{monitoring}->{do_email} = $doe if((defined $doe) && ($doe ne ""));

    my $ncmc = $in{'setmconf'};
    $mconf->{settings}->{current_mconf} = $ncmc if ((defined $ncmc) && ($ncmc ne ""));

    my $msettings = $in{'msettings'};
    if ((defined $msettings) && ($msettings ne "")) {
      my $currname = $in{'currname'};
      my $nmname = $in{'nmname'};
      my $nmp = $in{'nmp'};
      my $nmo = $in{'nmo'};
      my $nsp = $in{'nsp'};
      if ($nmname ne "") {
        my $ncheck = 0;
        for (keys %{$mconf->{miners}}) {
          if ($nmname eq $mconf->{miners}->{$_}->{mconfig}) {
            $mconf->{miners}->{$_}->{mpath} = $nmp if (($nmp ne ""));
            if ($nmo ne "") {
              my $nmops;
              my @opts = $nmo =~ /(?:--\w+)(?:-\w+)?(?:\s\d+)?|(?:-\w\s\d+)/g;
              foreach (@opts) {
                  $_ = "" if ($_ eq "--config");
                  $nmops .= "$_ ";
              }
              $mconf->{miners}->{$_}->{mopts} = $nmops;
            }
            $mconf->{miners}->{$_}->{savepath} = $nsp if ($nsp ne "");
            $ncheck++;
          }
        }
        if ($ncheck == 0) {
          if ($nmp ne "") {
            my $newm = (keys %{$mconf->{miners}}); $newm++;
            $mconf->{miners}->{$newm}->{mconfig} = $nmname;
            $mconf->{miners}->{$newm}->{mpath} = $nmp;
            $nmo = "--api-listen" if ($nmo eq "");
              my $nmops;
              my @opts = $nmo =~ /(?:--\w+)(?:-\w+)?(?:\s\d+)?|(?:-\w\s\d+)/g;
              foreach (@opts) {
                  $_ = "" if ($_ eq "--config");
                  $nmops .= "$_ ";
              }
            $mconf->{miners}->{$newm}->{mopts} = $nmops;
            $nsp = "/opt/ifmi/$nmname.conf" if ($nsp eq "");
            $mconf->{miners}->{$newm}->{savepath} = $nsp;
            if (!-f $nsp) {
              my $cdata;
              $cdata .= "{\n";
              $cdata .= '"pools" : [' . "\n";
              $cdata .= "  {\n";
              $cdata .= '    "url" : "stratum+tcp://mine.coinshift.com:3333",' . "\n";
              $cdata .= '    "user" : "1JBovQ1D3P4YdBntbmsu6F1CuZJGw9gnV6",' . "\n";
              $cdata .= '    "pass" : "x"' . "\n";
              $cdata .= "  }\n";
              $cdata .= "],\n";
              $cdata .= '"api-listen" : true,' . "\n" . '"api-allow" : "W:127.0.0.1",' . "\n";
              $cdata .= '"scrypt" : true,' . "\n" . '"kernel-path" : "/usr/local/bin"' . "\n";
              $cdata .= "}\n";
              open my $cfgin, '>>', $nsp;
              print $cfgin $cdata;
              close $cfgin;
            }
            $mconf->{settings}->{current_mconf} = $newm;
          } else {
            $conferror = 2;
          }
        }
      } else {
        for (keys %{$mconf->{miners}}) {
          if ($currname eq $mconf->{miners}->{$_}->{mconfig}) {
            $mconf->{miners}->{$_}->{mpath} = $nmp if ($nmp ne "");
            if ($nmo ne "") {
              my $nmops;
              my @opts = $nmo =~ /(?:--\w+)(?:-\w+)?(?:\s\d+)?|(?:-\w\s\d+)/g;
              foreach (@opts) {
                  $_ = "" if ($_ eq "--config");
                  $nmops .= "$_ ";
              }
              $mconf->{miners}->{$_}->{mopts} = $nmops;
            }
            $mconf->{miners}->{$_}->{savepath} = $nsp if ($nsp ne "");
          }
        }
      }
      $nmname = ""; $currname = ""; $msettings = "";
    }

    my $mdel = $in{'deletem'};
    if ((defined $mdel) && ($mdel ne "")) {
      if ($mdel != 0) {
        my $acount = 0;
        for (keys %{$mconf->{algos}}) {
          if ($mdel eq $mconf->{algos}->{$_}->{aprof}) {
            $acount++;
          }
        }
        if ($acount == 0 ){
          delete $mconf->{miners}->{$mdel};
          $mconf->{settings}->{current_mconf} = 0;
        } else {
          $conferror = 3;
        }
      }
    }

    my $ndb = $in{'doboot'};
    $mconf->{settings}->{do_boot} = $ndb if ((defined $ndb) && ($ndb ne ""));

    my $dbins = $in{'delbins'};
    if (defined $dbins && $dbins ne "") {
      `sudo /opt/ifmi/mcontrol delbins`;
    }

    my $nap = $in{'nap'};
    if((defined $nap) && ($nap ne "")) {
      $nap = "4028" if (! ($nap =~ m/^\d+?$/));
      $mconf->{settings}->{cgminer_port} = $nap;
    }

    my $iht = $in{'installht'};
    `sudo /opt/ifmi/mcontrol installht` if ((defined $iht) && ($iht eq "installht"));

    my $uup = $in{'uup'};
    if((defined $uup) && ($uup ne "")) {
      my $uuser = $in{'huser'};
      `sudo /usr/bin/htpasswd -b /var/htpasswd $uuser $uup`;
      $uup = "";
    }

    my $nup = $in{'nup'};
    if((defined $nup) && ($nup ne "")) {
      my $nuser = $in{'nun'};
      `sudo /usr/bin/htpasswd -b /var/htpasswd $nuser $nup`;
      $nup = "";
    }

    my $dun = $in{'duser'};
    if((defined $dun) && ($dun ne "")) {
      `sudo /usr/bin/htpasswd -D /var/htpasswd $dun`;
    }

    my $nml = $in{'nml'};
    $mconf->{display}->{miner_loc} = $nml if((defined $nml) && ($nml ne ""));
    my $nscss = $in{'scss'};
    $mconf->{display}->{status_css} = $nscss if(defined $nscss);
    my $ngcf = $in{'gcf'};
    $mconf->{display}->{graphcolors} = $ngcf if(defined $ngcf);
    my $nha = $in{'hashavg'};
    $mconf->{display}->{usehashavg} = $nha if(defined $nha);

    my $cgraphs = $in{'cgraphs'};
    if ((defined $cgraphs) &&($cgraphs ne "")) {
      `sudo /opt/ifmi/mcontrol cleargraphs`;
      $cgraphs = "";
    }

    my $nalgo = $in{'nalgo'};
    if ((defined $nalgo) && ($nalgo ne "")) {
      my $acount = 0;
      for (keys %{$mconf->{algos}}) {
       if ($nalgo eq $mconf->{algos}->{$_}->{aname}) {
         $acount++;
       }
     }
      if ($acount == 0 ){
        my $newa = (keys %{$mconf->{algos}}); $newa++;
        $mconf->{algos}->{$newa}->{aname} = $nalgo;
      }
      $nalgo = "";
    }
    my $adel = $in{'daname'};
    if ((defined $adel) && ($adel ne "")) {
      delete $mconf->{algos}->{$adel};
      $adel = "";
    }
    my $caname = $in{'caenable'};
    if ((defined $caname) && ($caname ne "")) {
      my $aenable = $in{'aenable'};
        if ($aenable == 1) {
          $mconf->{algos}->{$caname}->{enabled} = 1;
        } elsif ($aenable == 0) {
          $mconf->{algos}->{$caname}->{enabled} = 0;
        }
      $caname = ""; $aenable = "";
    }

    my $naprof = $in{'naprof'};
    if ((defined $naprof) && ($naprof ne "")) {
      my $nanum = $in{'nanum'};
      $mconf->{algos}->{$nanum}->{aprof} = $naprof;
      $naprof = ""; $nanum = "";
    }

    $mconf->{display}->{pmversion} = $version if ($mconf->{display}->{pmversion} eq "");

    my $nbcast = $in{'bcast'};
    $mconf->{farmview}->{do_bcast_status} = $nbcast if((defined $nbcast) && ($nbcast ne ""));
    my $nbp = $in{'nbp'};
    if(defined $nbp) {
      $nbp = "54545" if (! ($nbp =~ m/^\d+?$/));
      $mconf->{farmview}->{status_port} = $nbp;
    }
    my $dds = $in{'dds'};
    $mconf->{farmview}->{do_direct_status} = $dds if((defined $dds) && ($dds ne ""));

    my $nst = $in{'mailto'};
    $mconf->{email}->{smtp_to} = $nst if ((defined $nst) && ($nst ne ""));
    my $nsf = $in{'mailfrom'};
    $mconf->{email}->{smtp_from} = $nsf if ((defined $nsf) && ($nsf ne ""));
    my $nsh = $in{'mailhost'};
    $mconf->{email}->{smtp_host} = $nsh if ((defined $nsh) && ($nsh ne ""));
    my $nsmp = $in{'mailport'};
    if ((defined $nsmp) && ($nsmp ne "")) {
      $nsmp = "25" if (! ($nsmp =~ m/^\d+?$/));
      $mconf->{email}->{smtp_port} = $nsmp;
    }
    my $nssl = $in{'mailssl'};
    $mconf->{email}->{smtp_ssl} = $nssl if (defined $nssl);
    my $ntls = $in{'mailtls'};
    $mconf->{email}->{smtp_tls} = $ntls if (defined $ntls);
    my $nsau = $in{'authuser'};
    $mconf->{email}->{smtp_auth_user} = $nsau if ((defined $nsau) && ($nsau ne ""));
    my $nsap = $in{'authpass'};
    $mconf->{email}->{smtp_auth_pass} = $nsap if ((defined $nsap) && ($nsap ne ""));
    my $nmw = $in{'mailwait'};
    if ((defined $nmw) && ($nmw ne "")) {
      $nmw = "5" if (! ($nmw =~ m/^\d+?$/));
      $nmw = $nmw * 60;
      $mconf->{email}->{smtp_min_wait} = $nmw;
    }
    my $se = $in{'sendemail'};
    if (defined $se) {
      require '/opt/ifmi/pmnotify.pl';
      my $currsettings = "Email Settings:\n";
      $currsettings .= "- Email To: " . $mconf->{email}->{smtp_to} . "\n";
      $currsettings .= "- Email From: " . $mconf->{email}->{smtp_from} . "\n";
      $currsettings .= "- SMTP Host: " . $mconf->{email}->{smtp_host} . "\n";
      $currsettings .= "- SMTP port: " . $mconf->{email}->{smtp_port} . "\n";
      $currsettings .= "- Email Frequency: " . $mconf->{email}->{smtp_min_wait} / 60 . "minutes\n";
      $currsettings .= "- Auth User: " . $mconf->{email}->{smtp_auth_user} . "\n";
      $currsettings .= "\nMonitoring Settings: \n";
      $currsettings .= "- High Temp: " . $mconf->{monitoring}->{monitor_temp_hi} . "C\n";
      $currsettings .= "- Low Temp: " . $mconf->{monitoring}->{monitor_temp_lo} . "C\n";
      $currsettings .= "- High Fanspeed: " . $mconf->{monitoring}->{monitor_fan_hi} . "RPM\n";
      $currsettings .= "- Low Fanspeed: " . $mconf->{monitoring}->{monitor_fan_lo} . "RPM\n";
      $currsettings .= "- Low Load: " . $mconf->{monitoring}->{monitor_load_lo} . "\n";
      $currsettings .= "- Low Hashrate: " . $mconf->{monitoring}->{monitor_hash_lo} . "Kh/s\n";
      $currsettings .= "- High Reject Rate: " . $mconf->{monitoring}->{monitor_reject_hi} . "%\n";

      $mailerror = &sendAnEmail("TEST",$currsettings);
  }

    DumpFile($conffile, $mconf);
  }
} else {
  $conferror = 1;
}

# Carry on
print header();
my $miner_name = `hostname`;
chomp $miner_name;
print start_html( -title=>'PM - ' . $miner_name . ' - Settings',
				  -style=>{-src=>'/IFMI/themes/' . $mconf->{display}->{status_css}} );


print "<div id='showdata'><br>";
print "<a href='status.pl'> << Back to Overview</a><br>";
print "<a href='status.pl?miner='> << Back to Miner details page</a>";
print "<br></div>";

print "<div id='content'><table class=settingspage>";
print "<tr><td colspan=2 align=center>";
print "<table class=title><tr><td class=bigger>PoolManager Configuration for $miner_name</td><tr>";
if ($mailerror ne "") {
  if ($mailerror =~ m/success/i) {
    print "<tr><td colspan=2 bgcolor='green'><font color='white'>Test Email Sent Successfully</font></td><tr>";
  } elsif ($mailerror =~ m/^(.+)/) {
    my $errmsg = $1;
    print "<tr><td class=error colspan=2>$errmsg</td><tr>";
  }
}
if ($conferror == 1) {
  print "<tr><td class=error colspan=2>PoolManager cannot write to its config!";
  print "<br>Please ensure /opt/ifmi/poolmanager.conf is owned by the webserver user.</td><tr>";
}
if ($conferror == 2) {
  print "<tr><td class=error colspan=2>No Valid Miner Path specified!</td><tr>";
}
if ($conferror == 3) {
  print "<tr><td class=error colspan=2>Profile in use</td><tr>";
}
print "</table><br></td></tr>";
print "<tr><td align=center>";

print "<table class=settings><tr><td class=header>Miner Profile</td><td class=header>";
my $currentm = $mconf->{settings}->{current_mconf};
my $currname = $mconf->{miners}->{$currentm}->{mconfig};
print "<form name=deletem method=post>$currname <input type='submit' value='Delete'>";
print "<input type='hidden' name='deletem' value='$currentm'></form>";
print "</td><td class=header>";
print "<form name=currentm method=post><select name=setmconf>";
for (sort { $a <=> $b } keys %{$mconf->{miners}}) {
  my $mname = $mconf->{miners}->{$_}->{mconfig};
  if ($currentm eq $_) {
    print "<option value=$_ selected>$mname</option>";
  } else {
    print "<option value=$_>$mname</option>";
  }
}
print "<input type='submit' value='Load'>";
print "</select></form>";

print "<td class=header><form name=msettings method=post>";
print "<input type='submit' value='Update'>";
print "<input type='hidden' name='msettings' value='msettings'> ";
print "<input type='hidden' name='currname' value='$currname'> ";
print " <input type='text' placeholder='enter name for new profile' name='nmname'></td><tr>";
my $miner_path = $mconf->{miners}->{$currentm}->{mpath};
print "<tr><td>Miner Path</td><td colspan=2>$miner_path</td>";
print "<td><input type='text' size='45' placeholder='/path/to/miner' name='nmp'></td></tr>";
my $savepath = $mconf->{miners}->{$currentm}->{savepath};
print "<tr><td>Miner Config<br><i><small>Click to edit</small></i></td>";
print "<td colspan=2><small>--config</small> ";
print "<a href='/cgi-bin/confedit.pl' target='_blank'>$savepath</a></td>";
print "<td><input type='text' size='45' placeholder='/opt/ifmi/cgminer.conf' name='nsp'>";
my $miner_opts = $mconf->{miners}->{$currentm}->{mopts};
print "<tr><td>Miner Options</td><td colspan=2>$miner_opts</td>";
print "<td><input type='text' size='45' placeholder='--api-listen' name='nmo'></td></tr>";
print "</form></td></tr>";
print "</table><br>";

# print "<tr><td align=center>";

# print '<table class=settings><tr><td class=header>TMB Algo Mapper (<a href="http://trademybit.com" target="_blank">trademybit.com</a>)</td><td class=header>Enabled</td><td class=header>Delete</td></tr>';
# for (keys %{$mconf->{algos}}) {
#   my $anum = $_;
#   print "<form name=achange method=post>";
#   my $aname = $mconf->{algos}->{$anum}->{aname};
#   print "<tr><td>$aname ";
#   print " = ";
#   my $profname;
#   my $aprof = $mconf->{algos}->{$anum}->{aprof};
#   if (defined $aprof) {
#     if ($aprof eq "none") {
#       $profname = "not set";
#     } else {
#       $profname = $mconf->{miners}->{$aprof}->{mconfig};
#     }
#   } else {
#     $profname = "not set";
#   }
#   print "$profname - Change to:";

#   print "<select name=naprof>";
#   for (keys %{$mconf->{miners}}) {
#     my $mname = $mconf->{miners}->{$_}->{mconfig};
#     if ($mname ne $profname) {
#       print "<option value=$_>$mname</option>";
#     }
#   }
#   print "<option value='none'>None</option>" if (defined $aprof);
#   print "</select>";
#   print "<input type='hidden' name='nanum' value=$anum>";
#   print "<input type='submit' value='Set'></form>";
#   print "</td><td>";

#   print "<form name=sling00 method=post>";
#   print "<input type='hidden' name='caenable' value=$anum>";
#   my $ischk = $mconf->{algos}->{$anum}->{enabled};
#   if ($ischk == 1) {
#     print "<input type='checkbox' name='aenable' value='0' checked>";
#   } else {
#     print "<input type='checkbox' name='aenable' value='1'>";
#   }
#   print "<input type='submit' value='Set'></form>";

#   print "</td><td>";
#   print "<form name=adel method=post>";
#   print "<input type='hidden' name='daname' value=$_>";
#   print "<input type='submit' value='X'></form>";
#   print "</td></tr>";
# }
# print "<tr><td colspan=3><form name=nalgo method=post>";
# print "<input type='text' placeholder='Algo Name' name='nalgo' required> ";
# print " <input type='submit' value='Add'></form></td></tr>";


# print "</table><br></td></tr>";

print "<tr><td align=center>";

print "<form name=miscsettings method=post>";
print "<table class=settings><tr><td colspan=2 class=header>Misc. Miner Settings</td>";
print "<td class=header><input type='submit' value='Save'></td><tr>";
my $doboot = $mconf->{settings}->{do_boot};
print "<tr><td>Start on Boot</td><td><i>Start the loaded profile at boot time?</i></td>";
if ($doboot==1) {
  print "<td><input type='radio' name='doboot' value=1 checked>Yes ";
  print "<input type='radio' name='doboot' value=0>No </td></tr>";
} else {
  print "<td><input type='radio' name='doboot' value=1>Yes ";
  print "<input type='radio' name='doboot' value=0 checked>No </td></tr>";
}
my $minerport = $mconf->{settings}->{cgminer_port};
print "<tr><td>API port</td><td><i>Defaults to 4028 if unset</i></td>";
print "<td>$minerport <input type='text' size='4' placeholder='4028' name='nap'></td></tr></form>";

print "<tr><td>Delete .bins</td><td><i>Delete all .bin files</i></td>";
print "<form name='delbins' method=post><input type='hidden' name='delbins' value='delbins'>";
print "<td><input type='submit' value='Delete'></td></tr>";
print "</table></form><br>";

print "</td></tr><tr><td align=center valign=top>";

print "<table class=settings><tr><td colspan=3 class=header>Password Manager</td>";
if (! `grep AuthUserFile /etc/apache2/sites-available/default-ssl`) {
  print "<tr><td><i>htpasswd is not installed.</i></td>";
  print "<td><form name=installht method=post>";
  print "<input type='hidden' name='installht' value='installht'>";
  print "<input type='submit' value='Install'></form></td></tr>";
} else {
  my $loggedin = $ENV{REMOTE_USER};
  $loggedin = "not logged in" if ($loggedin eq "");
  my @users;
  my $ufile = "/var/htpasswd";
  open (my $uin, $ufile);
  while (my $line = <$uin>) {
    push @users,$1 if ($line =~ m/^(\w+):.+/);
  }
  close $uin;
  print "<tr><td>Current User: $loggedin</td><td colspan=2>";
  if (@users > 1) {
    print "<form name=udel method=post>";
    print "<select name=duser>";
      foreach my $user (@users) {
        if ("$user" ne "$loggedin") {
          print "<option value=$user>$user</option>";
        }
      }
    print "</select><input type='submit' value='Delete'></form>";
  }
  print "</td></tr>";
  print "<form name=pupdate method=post><tr>";
  print "<td><select name=huser>";
  foreach my $user (@users) {
    if ("$user" eq "$loggedin") {
        print "<option value=$user selected>$user</option>";
      } else {
        print "<option value=$user>$user</option>";
      }
  }
  print "</select></td>";
  print "<td><input type='text' placeholder='pass' name='uup'></td>";
  print "<td><input type='submit' value='Change'></form></td></tr>";
  print "<tr><td><form name=nhuser method=post>";
  print "<input type='text' placeholder='name' name='nun' required></td>";
  print "<td><input type='text' placeholder='pass' name='nup' required></td>";
  print "<td><input type='submit' value='New'></form></td></tr>";
}
print "</table><br>";

print "</td></tr><tr><td align=center>";

print "<form name=farmview method=post>";
print "<table class=farmview><tr><td colspan=2 class=header>FarmWatcher Settings</td>";
print "<td class=header><input type='submit' value='Save'></td><tr>";
my $bcast = $mconf->{farmview}->{do_bcast_status};
print "<tr><td>Broadcast Status</td>";
print "<td><i>Send Node Status?</i></td>";
if ($bcast==1) {
  print "<td><input type='radio' value=1 name='bcast' checked>Yes";
  print "<input type='radio' value=0 name='bcast'>No</td>";
} else {
  print "<td><input type='radio' value=1 name='bcast'>Yes";
  print "<input type='radio' value=0 name='bcast' checked>No</td>";
}
print "</tr>";
my $statport = $mconf->{farmview}->{status_port};
print "<tr><td>Broadcast Port</td>";
print "<td><i>Port to send status on</i></td>";
print "<td>$statport <input type='text' size='5' placeholder='54545' name='nbp'></td></tr>";
my $directip = $mconf->{farmview}->{do_direct_status};
print "<tr><td>FarmWatcher IP</td>";
print "<td><i>Only needed if FW is not local</i></td>";
print "<td>$directip <input type='text' size='15' placeholder='192.168.5.100' name='dds'></td></tr>";

print "</table></form>";

print "</td></tr><tr><td align=center>";

print "<form name=display method=post>";
print "<table class=display><tr><td colspan=2 class=header>Display Settings</td>";
print "<td class=header><input type='submit' value='Save'></td><tr>";
my $miner_loc = $mconf->{display}->{miner_loc};
print "<tr><td>Miner Location</td><td>$miner_loc</td>";
print "<td><input type='text' placeholder='Location text' name='nml'></td></tr>";

my $status_css = $mconf->{display}->{status_css};
print "<tr><td>Status CSS</td><td>$status_css</td>";
print "<td><select name=scss>";
my @csslist = glob("/var/www/IFMI/themes/*.css");
    foreach my $file (@csslist) {
      $file =~ s/\/var\/www\/IFMI\/themes\///;
      if ("$file" eq "$status_css") {
          print "<option value=$file selected>$file</option>";
        } else {
          print "<option value=$file>$file</option>";
        }
    }
print "</select></td></tr>";
my $gcolors = $mconf->{display}->{graphcolors};
print "<tr><td>Graph Colors File</td><td>$gcolors</td>";
print "<td><select name=gcf>";
my @colorslist = glob("/var/www/IFMI/themes/*.colors");
    foreach my $file (@colorslist) {
      $file =~ s/\/var\/www\/IFMI\/themes\///;
      if ("$file" eq "$gcolors") {
          print "<option value=$file selected>$file</option>";
      }else {
          print "<option value=$file>$file</option>";
      }
    }
print "</select></td></tr>";
my $hashavg = $mconf->{display}->{usehashavg};
print "<tr><td>Hashrate Display</td>";
print "<td><i>5sec average, or Overall (old style)</i></td>";
if ($hashavg==1) {
  print "<td><input type='radio' name='hashavg' value=0>5 sec";
  print "<input type='radio' name='hashavg' value=1 checked>Overall</td></tr>";
} else {
  print "<td><input type='radio' name='hashavg' value=0 checked>5 sec";
  print "<input type='radio' name='hashavg' value=1>Overall</td></tr></form>";
}
print "<form name='cag' method=post><tr><td>Clear All Graphs</td>";
print "<td></td>";
print "<td><input type='hidden' name='cgraphs' value='cgraphs'><button type='submit'>Clear</button></td></tr>";
print "</table></form>";

print "</td></tr><tr><td align=center valign=top>";

print "<form name=monitoring method=post>";
print "<table class=monitor><tr><td colspan=2 class=header>Monitoring Settings</td>";
print "<td class=header><input type='submit' value='Save'></td><tr>";
my $temphi = $mconf->{monitoring}->{monitor_temp_hi};
print "<tr><td>High Temp</td><td>$temphi C</td>";
print "<td><input type='text' size='2' placeholder='80' name='temphi'></td></tr>";
my $templo = $mconf->{monitoring}->{monitor_temp_lo};
print "<tr><td>Low Temp</td><td>$templo C</td>";
print "<td><input type='text' size='2' placeholder='45' name='templo'></td></tr>";
my $hashlo = $mconf->{monitoring}->{monitor_hash_lo};
print "<tr><td>Low Hashrate</td><td>$hashlo Kh/s</td>";
print "<td><input type='text' size='3' placeholder='200' name='hashlo'></td></tr>";
my $loadlo = $mconf->{monitoring}->{monitor_load_lo};
print "<tr><td>Low Load</td><td>$loadlo</td>";
print "<td><input type='text' size='2' placeholder='0' name='loadlo'></td></tr>";
my $rejhi = $mconf->{monitoring}->{monitor_reject_hi};
print "<tr><td>High Reject Rate</td><td>$rejhi%</td>";
print "<td><input type='text' size='2' placeholder='3' name='rejhi'></td></tr>";
my $fanlo = $mconf->{monitoring}->{monitor_fan_lo};
print "<tr><td>Low Fanspeed</td><td>$fanlo RPM</td>";
print "<td><input type='text' size='4' placeholder='1000' name='fanlo'></td></tr>";
my $fanhi = $mconf->{monitoring}->{monitor_fan_hi};
print "<tr><td>High Fanspeed</td><td>$fanhi RPM</td>";
print "<td><input type='text' size='4' placeholder='4000' name='fanhi'></td></tr>";
my $emaildo = $mconf->{monitoring}->{do_email};
print "<tr><td>Send Email</td>";
if ($emaildo==1) {
  print "<td colspan=2><input type='radio' name='emaildo' value=1 checked>Yes ";
  print "<input type='radio' name='emaildo' value=0>No </td></tr>";
} else {
  print "<td colspan=2><input type='radio' name='emaildo' value=1>Yes ";
  print "<input type='radio' name='emaildo' value=0 checked>No </td></tr>";
}

if ($emaildo==1) {
  my $mailto = $mconf->{email}->{smtp_to};
  print "<tr><td>Email To:</td><td>$mailto</td>";
  print "<td><input type='text' placeholder='user\@email.com' name='mailto'></td></tr>";
  my $mailfrom = $mconf->{email}->{smtp_from};
  print "<tr><td>Email From:</td><td>$mailfrom</td>";
  print "<td><input type='text' placeholder='poolmanager\@email.com' name='mailfrom'></td></tr>";
  my $mailhost = $mconf->{email}->{smtp_host};
  print "<tr><td>SMTP Host</td><td>$mailhost</td>";
  print "<td><input type='text' placeholder='smtp.email.com' name='mailhost'></td></tr>";
  my $mailport = $mconf->{email}->{smtp_port};
  print "<tr><td>SMTP Port</td><td>$mailport</td>";
  print "<td><input type='text' size='5' placeholder='587' name='mailport'></td></tr>";
  my $mailwait = ($mconf->{email}->{smtp_min_wait} / 60);
  print "<tr><td>Email Frequency</td><td>$mailwait minutes</td>";
  print "<td><input type='text' size='5' placeholder='5' name='mailwait'></td></tr>";
  my $mailssl = $mconf->{email}->{smtp_ssl};
  print "<tr><td>Use SSL?</td>";
  if ($mailssl==1) {
    print "<td colspan=2><input type='radio' name='mailssl' value=1 checked>Yes ";
    print "<input type='radio' name='mailssl' value=0>No </td></tr>";
    my $authuser = $mconf->{email}->{smtp_auth_user};
    print "<tr><td>Auth User</td><td>$authuser</td>";
    print "<td><input type='text' placeholder='mailuser' name='authuser'></td></tr>";
    my $authpass = $mconf->{email}->{smtp_auth_pass};
    my $authshow = "*******" if (defined $authpass);
    print "<tr><td>Auth Pass</td><td>$authshow</td>";
    print "<td><input type='password' placeholder='mailpassword' name='authpass' autocomplete='off'></td></tr>";
    my $mailtls = $mconf->{email}->{smtp_tls};
    print "<tr><td>Use TLS?</td>";
    if ($mailtls==1) {
      print "<td colspan=2><input type='radio' name='mailtls' value=1 checked>Yes ";
      print "<input type='radio' name='mailtls' value=0>No </td></tr>";
    } else {
      print "<td colspan=2><input type='radio' name='mailtls' value=1>Yes ";
      print "<input type='radio' name='mailtls' value=0 checked>No </td></tr>";
    }
  } else {
    print "<td colspan=2><input type='radio' name='mailssl' value=1>Yes ";
    print "<input type='radio' name='mailssl' value=0 checked>No </td></tr>";
  }
  print "</form><form name=testemail method=post><tr><td colspan=2>Send a Test Email</td><td>";
  print "<input type=submit name='sendemail' value='Send' method=post></td></tr></form>";
}
print "</table><br>";

print "</td></tr>";

print "</table></div>";
print "</body></html>";