Enter the user that you would like to change data for .

##

#!/usr/bin/perl -w
use CGI qw(standard);
use DBI();
use DBD::mysql;
use warnings;
use diagnostics;


my $q = CGI->new;

my $name = $q->param('name');
my $number = $q->param('phone');
my $day = $q->param('day');


my $dbh = DBI->connect('dbi:mysql:oncall','webuser','password')
	or die "Connection Error: $DBI::errstr\n";
    
	my $sth=$dbh->prepare("UPDATE users SET day = ?, phone =? WHERE name = ?");
	$sth->execute($day,$number,$name);
	
	
    #Disconnecting from database
    $dbh->disconnect();

  print $q->header,
  $q->h1('you submitted the change!'),
  $q->end_html;