-
TakeOn
Customers
.html
|
+
Get FileName and
check for empty file
|
.
$BlockedFileName <-- "CustomerList.txt"
$BlockedFile <-- fopen($BlockedFileName)
|
|
-
!$BlockedFile
|
.
$SVMenuMsg <-- "Can't open '$BlockedFileName'"
header: location: $SVSiteMenu
exit
|
|
|
|
-
feof($BlockedFile)
|
.
$SVMenuMsg <-- "'$BlockedFileName' appears empty"
header: location: $SVSiteMenu
exit
|
|
|
|
+
Connect to the
Database
|
.
$DBLink <-- mysql_connect('localhost', $SVSiteDatabase,
$SVSiteDatabaseUser, $SVSiteDatabasePassword) or die
$SiteDatabase <-- mysql_select_db($SVSiteDatabase, $DBLink) or die
|
|
|
+
Initialize Variables
|
.
$RecordsIn <-- 0
$RecordsAlreadyThere <-- 0
$RecordsInserted <-- 0
$TakenOnFrom <-- "INFO465 Website"
|
|
|
+
Process the file
|
.
While !feof($BlockedFile)
|
|
.
$RecordIn <-- fgets($BlockedFile)
$RecordsIn ++
$FirstName <-- addslashes(trim(substr($RecordIn, 0, 20)))
---- on thru ----
$Zip = addslashes(trim(substr($RecordIn, 180,5)))
$SQLStmt <-- "select Id from Users where
LastName='$LastName' and
FirstName='$FirstName' and
StreetAddress='$StreetAddress'"
$UserResult <-- mysql_query($SQLStmt) or die
$NumRows <-- musql_num_rows($UserResult)
|
|
-
$NumRows = 0
|
.
$TimeStamp <-- date("YmdHis")
$SQLStmt <-- "insert into Users set
TakenOnFrom='$TakenOnFrom',
TakenOnDT='$TakenOnDT',
LastName='$LastName',
---- on thru ---
Zip='$Zip'"
mysql_query($SQLStmt) or die
$RecordsInserted ++
|
|
|
or
-
else
|
|
.
$RecordsAlreadyThere ++
|
|
|
|
|
+
Wrapup
|
.
$SVMenuMsg <-- "Results of Take On: <br> $RecordsIn Records read in<br>
-- on thru $RecordsInserted
|
|
|
|