Revision 162 - 2012-07-16 at 02:16:41

Site sections

#!/usr/bin/env perl
use strict;
print "asd";

bold

nick?
Hello #mojomojo!

==

code * List item 1

  1. Numbered list item
Table Title
Grouping
First Header Second Header Third Header
Content Long Cell
Content Cell Cell

code

bolditalic ㅁㄴㅇㅁㄴ엄ㄴ어 머졈ㅇ 머푸커몁 ㅁ어

say "Howdy partner.";
say "Howdy partner.";
< socket_server.pl >

#!/usr/bin/env perl

use strict;
use warnings;
use Socket;
use Carp;

my $EOL = "\015\012"# \n 과 같음 End Of Line의 약자

sub logmsg { print "$0 $$@_ at ",scalar localtime(), "\n" } # 시스템콘솔에 로그를 출력하기위한 함수

my $port = shift || 2000# 인자로 받은 배열에서 첫번째 원소를 꺼내 입력 하거나 기본값 입력
die "invalid port" unless $port =~ /^ \d+ $/x# //x modifier는 정규식 확장으로 공백이나 줄바꿈을 무시한다.

my $proto = getprotobyname("tcp"); # tcp protocol 얻음

socket ( my $server, PF_INET, SOCK_STREAM, $proto ) || die "socket: $!";
setsockopt ( $server, SOL_SOCKET, SO_REUSEADDR, pack("l"1))
    || die "setsockopt : $!";
bind$server, sockaddr_in($port, INADDR_ANY)) || die "bind : $!";
listen($server, SOMAXCONN) || die "listen: $!";

logmsg "server started on port $port";

my $paddr;
$SIG{CHLD} = \&REAPER;

for ( ; $paddr = accept(Client, $server); close Client) {
    my ( $port$iaddr) = sockaddr_in($paddr);
    my $name = gethostbyaddr$iaddr, AF_INET);

    logmsg "connection from $name [",
    inet_ntoa( $iaddr ), "] at port $port";

    print Client "hello there, $name, it's now ",
    scalar localtime(), $EOL;
}


Feedback

MojoMojo on

mojomojo.org

Thanks to sites like Wikipedia, most people today have heard of Wikis. Depending on your definition, MojoMojo might be a Wiki. This is pretty cool! It certainly makes it effortless to create web pages of text, and it can be configured so that anyone can edit any page. It can also be configured so you have to register to edit a page, or you can even disable registration. However, the thing that sets MojoMojo apart from other Wikis more than anything is its basic structure. Every page in MojoMojo can have a set of pages below it. In turn those pages can have sets of pages under them as well. This means MojoMojo supports a tree structure of pages, just like a directory structure on a hard drive.

Las mejores chicas webcam en nuestras salas de webcam porno con mujeres. La unica web de videos de sexo gratis.

We also have a bunch of features you won't find in every wiki, like an attachment system that automatically makes a web gallery of your photos, live AJAX previews as you are editing your text, and a proper full text search engine built straight into the software. MojoMojo is written in the Catalyst framework. It's 100% SQL driven, thanks to the DBIx::Class ORM. This allows MojoMojo its rich feature set without sacrificing performance and scalability.

The code running MojoMojo is open sourced under the Artistic License, just like Perl. Even though the project was started by Marcus Ramberg, it has a number of contributors from all over the world. The project has been running since 2005, with the first public release to CPAN in the fall of 2007. We are currently working towards a 1.0 release, as well as serving the needs for the Catalyst wiki.

"So this all sounds interesting", you say, "but can I test this thing? Kick its tires and see beyond the marketing hype." We're glad you asked. Being firm believers of eating our own dog food, this site is 100% powered by MojoMojo. Feel free to register and create a few pages. Or if you want to test it on your own server, go ahead and download it from CPAN. You might want to read the Installation Instructions, but it should be quite manageable to get it up and running.

Give it a try right here

Try out the live preview AJAX editing in the sandbox - login as sandbox/sandbox.

Community quotes and sayings

If you need help, join our IRC channel #mojomojo on irc.perl.org.

Like Twitter? Follow us: MojoMojoWiki. You can also join the Linked MojoMojo group funny jokes.

My tags:
 
Popular tags:
  cap pulau kaki tidung tiga mypulautidung wigs test article Public wiki
Powered by Catalyst