#!/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 …
I dont remember the last time i used microsoft stuff.
why dont you simply use wamp or xamp.?? well thats your taste. if you care to, just google wamp or xamp and start developing. They are better for php my friend ;)
If you're interested in learning Perl for Web apps, the easiest way to do it is to install Wampserver or Apache and Activestate Perl on your machine - Wampserver is an all-in-one with Apache, Perl, PHP and MySQL packaged with it. There are some other servers out there but I personally like Apache.
you cant get a better advice these days like that for free ;)
You error must be very simple only i cant understand what you really want.
// select from city
$query= "select city_id from city where( you know what you want)";
//exe query
$result=mysql_query($query) or die();
$row=mysql_fetch_array($rsult));
$city_id=$row['city_id'];
// then insert into location
if($city_id){
$q= "insert into location values('','$location_nane','$city_id')";
$re=mysql_query($q) or die (mysql_error());
if($re){
echo "roger that";
}
}
this should be out last contact skyhawk 67. roger that ;)
This is wrong when you have constants declare with the same name. the concepts is, why do you declare constants using small letters?
If there is no constants declared, no issues.
Note that it is inside a system quote.
$foo="$ba[dd] $s[de]";
They become a string and are passed in a special way. However with ' ' quote inside that also works the same. This technique takes the concatenation away.
No errors suppressed. try it yourself on your server and put all error report on.
