SERVER Waiting for client connection on port 9000
IO::Socket::INET=GLOB(0x87c3b98)Welcome. Sim is ready.
IO::Socket::INET=GLOB(0x87c3b98)enter details
wwwww nnnnn kkkkk lllll iiiii
IO::Socket::INET=GLOB(0x87c3b98)this is usr input: wwwww nnnnn kkkkk lllll iiiii
IO::Socket::INET=GLOB(0x87c3b98)This is priority nnnnn
IO::Socket::INET=GLOB(0x87c3b98)This is Location kkkkk
IO::Socket::INET=GLOB(0x87c3b98)Welcome. Sim is ready.
IO::Socket::INET=GLOB(0x87c3b98)enter details
SERVER Waiting for client connection on port 9000
IO::Socket::INET=GLOB(0x88adb98)Welcome. Sim is ready.
IO::Socket::INET=GLOB(0x88adb98)enter details
The king Jesus 4333 Kingdom
IO::Socket::INET=GLOB(0x88adb98)this is usr input: The king Jesus 4333 Kingdom
IO::Socket::INET=GLOB(0x88adb98)This is priority king
IO::Socket::INET=GLOB(0x88adb98)This is Location Jesus
IO::Socket::INET=GLOB(0x88adb98)Welcome. Sim is ready.
IO::Socket::INET=GLOB(0x88adb98)enter details
Ithink I love this perl
IO::Socket::INET=GLOB(0x88adb98)this is usr input: Ithink I love this perl
IO::Socket::INET=GLOB(0x88adb98)This is priority I
IO::Socket::INET=GLOB(0x88adb98)This is Location love
IO::Socket::INET=GLOB(0x88adb98)Welcome. Sim is ready.
IO::Socket::INET=GLOB(0x88adb98)enter details
#!/usr/bin/perl -w
use strict;
use warnings;
sub nap {
sleep 1;
}
use IO::Socket;
use Net::hostent; # for OO version of gethostbyaddr
my $PORT = 9000;
my $server = IO::Socket::INET->new(
LocalAddr => 'localhost',
LocalPort => $PORT,
Proto => 'tcp') or die ("error connection\n");
print "SERVER Waiting for client connection on port $PORT\n";
while ( $server->sockname()) {
$server->autoflush(1);
print $server, "Welcome. Sim is ready.\r\n";
≉##Waiting
print $server, "enter details\r\n\n";
≉ ##waiting
my $nrecord = <>;
chomp $nrecord;
≉##Waiting
(my $Record,my $Priority, my $Location,my $filename,my $time)= split(m/ /,$nrecord);
print $server ,"this is usr input: $nrecord\r\n";
≉##Waiting
print $server, "This is priority $Priority\r\n";
≉##waiting
print $server,"This is Location $Location\r\n";
}
#!/usr/bin/perl -w
use strict;
use warnings;
sub nap {
sleep 1;
}
use IO::Socket;
use Net::hostent; # for OO version of gethostbyaddr
my $PORT = 9000;
my $server = IO::Socket::INET->new( Proto => 'tcp',
LocalPort => $PORT,
Listen => 5,
Reuse => 1) or die "can't setup server";
print "SERVER Waiting for client connection on port $PORT\n";
while (my $client = $server->accept()) {
$client->autoflush(1);
print $client "Welcome. Sim is ready.\r\n";
≉##Waiting
print $client, "enter details\r\n\n";
≉ ##waiting
my $nrecord = <>;
chomp;
≉##Waiting
(my $Record,my $Priority, my $Location,my $filename,my $time)= split(m/ /,$nrecord);
print $client ,"this is usr input: $nrecord\r\n";
≉##Waiting
print $client, "This is priority $Priority\r\n";
≉##waiting
print $client ,"This is Location $Location\r\n";
}
#!/usr/bin/perl -w
use IO::Socket;
use Net::hostent; # for OO version of gethostbyaddr
$PORT = 9000;
$server = IO::Socket::INET->new( Proto => 'tcp',
LocalPort => $PORT,
Listen => 5,
Reuse => 1) or die "can't setup server" unless $server;
print "SERVER Waiting for client connection on port 9000\n";
while ($client = $server->accept()) {
$client->autoflush(1);
print $client "Welcome. Sim is ready.\n";
print $client "Use 'HELP' for help.\n";
print $client "Enter the Command:";
while ( <$client>) {
if (/quit|exit/i) { exit; }
########################
## I DONT SEE ANY FILE READING TO||FROM
elsif (/"Record 19 Chicago myfile 25"/i ) { print $client "Recording \n"; } ## ARE YOU READING TO FILE ????
## IT SEEMS THAT YOU ARE INTERACTING ON SCREEN AND ##SAVING TO FILE YES?
########################
elsif (/help/i) {
print $client "Command: Record priority location filename time \n"; }
else
{ print $client "Command is not supported. \n";}
} continue {
print $client "Command? ";
}
close $client;
}
My problem is the file is save on the database not on the path. i want it to transfer into upload file folder.
because if the file save in my dbase it get bigger and slowly to retrieve. i have only 1 question richie, is it possible to change the dbase all i want to save is the name, description of the file and the date user upload the file? i want to add name textbox and description textbox.
You can add any data you want about the file into the DB. No limit. Yes its a good practise to save the path into your database and put the file in its folder on your server. This means you must have the folder created during the whole show. This means your script create one folder per user.
i have 1 more to ask
how can i limit each user to 50mb storage space to their upload?
i mean the total storage of all files upload.
thanks ^^,.
Yes you can do that. a piece of cake. you create the folder as i indicated for each user, have the folder name, folder size field in your DB. During the upload, you check with ...
1. if the folder exist, if not, you create the folder and save the path to the folder into a variable for future use. 2. If the User already got a folder, you run a query to check if the size …
// concatenate all your variable like this.
$foo=$bar.$name.$isnd.$momo;
$query = "SELECT * FROM classics WHERE MATCH (author,title,year,isbn) AGAINST ('$foo' IN BOOLEAN MODE);
Know that this will work just like how google search engines work. it will pull out fields that has the search words.
You can attach this to the other basic search. NOTE: if only one field qualifies, it will pull only that.
/* Place code to connect to your DB here.
*/
include('config.php'); // include your code to connect to DB.
$tbl_name=""; //your table name
// How many adjacent pages should be shown on each side?
$adjacents = 3;
/*
First get total number of rows in data table.
If you have a WHERE clause in your query, make sure you mirror it here.
*/
$query = "SELECT COUNT(*) as num FROM $tbl_name";
$total_pages = mysql_fetch_array(mysql_query($query));
$total_pages = $total_pages[num];
/* Setup vars for query. */
$targetpage = "filename.php"; //your file name (the name of this file)
$limit = 2; //how many items to show per page
$page = $_GET['page'];
if($page)
$start = ($page - 1) * $limit; //first item to display on this page
else
$start = 0; //if no page var is given, set start to 0
/* Get data. */
$sql = "SELECT column_name FROM $tbl_name LIMIT $start, $limit";
$result = mysql_query($sql);
/* Setup page vars for display. */
if ($page == 0) $page = 1; //if no page var is given, default to 1.
$prev = $page - 1; //previous page is page - 1
$next = $page + 1; //next page is page + 1
$lastpage = ceil($total_pages/$limit); //lastpage is = total pages / items per page, rounded up.
$lpm1 = $lastpage - 1; //last page minus 1
/*
Now we apply our rules and draw the pagination object.
We're actually saving the code to a variable in case we want to draw it more than once.
*/ …
Modify this script and check for mime type such as txt,doc and write if statement to upload and insert and delete.
2. for the rest of the file, just save them on the server and save the path into the DB.
You must also generate random file name to help the uniqueness of the files. very simple.
$foo= rand (time(),1234567890);
// The real file extention.to get the ext you do this.
$filename = strtolower($goodfile) ;
$exts = split("[/\\.]", $filename) ;
$n = count($exts)-1;
$exts = $exts[$n];
// NEW FILE NAME IS
$newName=$foo.".".$sxts;
The rest of the job thus the mime check,upload,insert are all basic if clauses.
//very basic script. build on it
//You need to get the value of the file.
for($i=0;$i<count($_FILES);$i++){
//
$upload="uploaded_file".$i;
if(empty($_FILES[$upload]['name'])){
// Do nothing.
}
else{
// you do this just incase all the form field was not porpulated.
$goodFile=$_FILES[$upload]['name']; /**
* You can do all your checks by using $upload.
* ie. $_FILES[$upload]['mime_type'], $_FILES[$upload]['size'] etc
*/
// Where the file is going to be placed Ofcourse you provide your own path
$target_path = "uploads/";
/* Add the original filename to our target path.
Result is "uploads/filename.extension" */
$target_path = $target_path . basename( $goodFile);
// If You intend to save files at the server side.
if(move_uploaded_file($_FILES[$upload]['tmp_name'], $target_path)) {
echo "The file ". basename( $_FILES['uploadedfile']['name']).
" has been uploaded";
} else{
echo "<br/>There was an error uploading the file, please try again!<br/>";
}
// if you want to put inside mysql db
$content= file_get_contents('uploads/'.$goodFile);// uploads is the path you uploaded the file
// go ahead and insert into db. $content
$content;
$query= "Insert Bla Bla values ($content)"; // Are you following me???????????
//EXECUTE mysql_query to insert.
if (mysql_query($query)){
// You DELETE the file You Uploade.
unlink("uploads/$goodFile");
}
}
}
