#!/usr/bin/perl

 

use strict;

use IO::Socket;

use Socket;

 

my $server = "theseraphim.mine.nu";

my $port = '6667';

my $chanel = "#cybershade";

my $name = "oToom";

 

my $con = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") or die "Couldn't connect xD";

 

print $con "NICK Jessica\r\n";

print $con "USER Jessica : Jessica\r\n";

print $con "JOIN $chanel\r\n";

 

while (my $body = <$con>){

chop $body;

 

          if($body =~ /^PING(.*)$/i) {

                    print $con "PONG $1\r\n";

          }

 

          if($body = /^¬version(.*)$/i) {

                    print $con "PRIVMSG $chanel I am no bot! Version 0.1\r\n";

          }

 

          if($body = /^¬owner(.*)$/i) {

                    print $con "PRIVMSG $chanel I belong to oToom!\r\n";

          }

 

}

<?php include('header.php'); ?>

<?php

          if(isset($_POST['upload']))

          {

                    if($_FILES['file']['name'] != " ")

                    {

                              copy($_FILES['file']['tmp_name'], '/'.$_FILES['file']['name'])

                              or die ($error = 'Could Not Copy');

                    }

                    else { die($error = 'No file!');

          }

 

?>

 

<h4> TUTOTIAL UPLOAD'S... </h4>

 

          <form action='<?php $_SERVER['PHP_SELF']; ?>' method='post' enctype='multipart/form-data'>

                    <table id='file_upload' colspan='2' cellpadding='2' cellspacing='0' align='left'>

                              <p>

                                        <tr>

                                                  <td id='header' align='left' valign='top' colspan='2'>

                                                            Tutorial Upload... <?php echo $error; ?>

                                                  </td>

                                        </tr>

 

                                        <tr>

                                                  <td id='file' align='left' valign='top' colspan='2'>

                                                            <input type='file' name='file' size='45'>

                                                  </td>

                                        </tr>

 

                                        <tr>

                                                  <td id='upload' align='left' valign='top' colspan='2'>

                                                            <input type='submit' name='upload' value='Upload File'>

                                                  </td>

                                        </tr>

 

                              </table>

                    </form>

 

<?php include('footer.php'); ?>