#!/usr/bin/perl -w # This program uses CGI to insert a # random value into a table in the database. # use strict; use diagnostics; use CGI; use DBI; # Create an instance of CGI my $query = new CGI; # Send an appropriate MIME header print $query->header("text/html"); # Connect to the database my $dbh = DBI->connect("DBI:mysql:test:127.0.0.1"); # If we could not connect, return an error &log_and_die($DBI::errstr) unless $dbh; # Get a large random number my $random = rand(10000); # Insert the new value into test_insert my $sql = "INSERT INTO test_insert (contents) VALUES (\"$random\") "; # Find out if the insert was successful my $successful_insert = $dbh->do($sql); # Print a short response string if it was print "<P>Success!</P>\n" if $successful_insert; # Disconnect from the database $dbh->disconnect;