-- When I Exported the SQL database it put SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";
-- at the top of this file, Im not to sure why so use it at your own discretion

SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";

--
-- Database:
--

--
-- Table structure for table `portalconfigs`
--

CREATE TABLE `portalconfigs` (
  `configid` smallint(5) unsigned NOT NULL auto_increment,
  `pagename` varchar(255) collate latin1_general_ci default NULL,
  `pagetitle` varchar(255) collate latin1_general_ci default NULL,
  `cgi_bin_dir` varchar(255) collate latin1_general_ci default NULL,
  `non_cgi_dir` varchar(255) collate latin1_general_ci default NULL,
  `cgi_bin_url` varchar(255) collate latin1_general_ci default NULL,
  `non_cgi_url` varchar(255) collate latin1_general_ci default NULL,
  `lang` varchar(50) collate latin1_general_ci default NULL,
  `codepage` varchar(50) collate latin1_general_ci default NULL,
  `ip_time` varchar(50) collate latin1_general_ci default NULL,
  `enable_approvals` varchar(50) collate latin1_general_ci default NULL,
  `webmaster_email` varchar(150) collate latin1_general_ci default NULL,
  `mail_type` varchar(50) collate latin1_general_ci default NULL,
  `mail_program` varchar(50) collate latin1_general_ci default NULL,
  `smtp_server` varchar(50) collate latin1_general_ci default NULL,
  `time_offset` varchar(50) collate latin1_general_ci default NULL,
  `date_format` varchar(50) collate latin1_general_ci default NULL,
  `cookie_expire` varchar(50) collate latin1_general_ci default NULL,
  `max_items_per_page` varchar(50) collate latin1_general_ci default NULL,
  `max_upload_size` varchar(50) collate latin1_general_ci default NULL,
  `picture_height` varchar(50) collate latin1_general_ci default NULL,
  `picture_width` varchar(50) collate latin1_general_ci default NULL,
  `ext` varchar(50) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`configid`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=2 ;

--
-- Dumping data for table `portalconfigs`
--

INSERT INTO `portalconfigs` (`configid`, `pagename`, `pagetitle`, `cgi_bin_dir`, `non_cgi_dir`, `cgi_bin_url`, `non_cgi_url`, `lang`, `codepage`, `ip_time`, `enable_approvals`, `webmaster_email`, `mail_type`, `mail_program`, `smtp_server`, `time_offset`, `date_format`, `cookie_expire`, `max_items_per_page`, `max_upload_size`, `picture_height`, `picture_width`, `ext`) VALUES
(1, 'Flex', 'Flex-WPS', 'C:/Program Files/xampp/cgi-bin/001', 'C:/Program Files/xampp/htdocs/001', 'http://192.168.0.5/cgi-bin/001', 'http://192.168.0.5/001', 'english', 'iso-8859-1', '6', '1', 'sflex@cpan.org', '1', '/usr/lib/sendmail', 'smtp-server.host.com', '0', '3', '+12h', '15', '150', '72', '72', 'cgi');

-- --------------------------------------------------------

--
-- Table structure for table `ajax_scripts`
--

CREATE TABLE `ajax_scripts` (
  `name` varchar(25) collate latin1_general_ci NOT NULL,
  `script` text collate latin1_general_ci NOT NULL,
  PRIMARY KEY  (`name`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci;

--
-- Dumping data for table `ajax_scripts`
--

INSERT INTO `ajax_scripts` (`name`, `script`) VALUES
('register_name', 'function processReqChange()\r\n{\r\n    // only if req shows "complete"\r\n    if (req.readyState == 4) {\r\n        // only if "OK"\r\n        if (req.status == 200) {\r\n            // ...processing statements go here...\r\n      response  = req.responseXML.documentElement;\r\n\r\n      method    =\r\nresponse.getElementsByTagName(''method'')[0].firstChild.data;\r\n\r\n      result    =\r\nresponse.getElementsByTagName(''result'')[0].firstChild.data;\r\n\r\n      eval(method + ''(\\''\\'', result)'');\r\n        } else {\r\n            alert("There was a problem retrieving the XML data:\\n" + req.statusText);\r\n        }\r\n    }\r\n}\r\n\r\nfunction checkName(input, response)\r\n{\r\n    var reply   = document.getElementById(''CheckOK'');\r\n\r\n  if (response != ''''){\r\n    // Response mode\r\n      reply.innerHTML=response;\r\n  }else{\r\n    // Input mode\r\n    input = escape(encodeURI(input));\r\n    url  =\r\n      ''%pageurl%/index.%ext%?op=user_names\\;username='' + input;\r\n    doGETRequest(url, processReqChange);\r\n  }\r\n}\r\nfunction captchaStart()\r\n{\r\n    url  =\r\n      ''%pageurl%/index.%ext%?op=ajax_get\\;module=Captcha'';\r\n    doGETRequest(url, processReqChangeMany, ''captcha'', countdownStart);\r\n}\r\nvar countNow = '''';\r\nfunction countdownStart()\r\n{\r\n    countNow = 1;\r\n}\r\nwindow.onload = captchaStart;'),
('PM_box', 'function getinoutBox(input)\r\n{\r\n    document.getElementById(''message'').innerHTML='''';\r\n    var url  =\r\n      ''%pageurl%/index.%ext%?op=in_out_boxs\\;quote='' + input;\r\n    doGETRequest(url, processReqChangeMany, ''inoutBox'', '''');\r\n}\r\nfunction getdeleteBox(input1, input2)\r\n{\r\n    var response = confirm(''Are you sure you want to delete this item?'');\r\n    if (response == true)\r\n    {\r\n    document.getElementById(''message'').innerHTML='''';\r\n    var url  = ''%pageurl%/index.%ext%?op=delete_pm2\\;id=''+input1+''\\;quote='' + input2;\r\n    doGETRequest(url, processReqChangeMany, ''inoutBox'', getmenuBoxin);\r\n    }\r\n     else\r\n     {\r\n      alert(''Fuck Ass IE'');\r\n     }\r\n}\r\nfunction getmenuBoxin()\r\n{\r\n    var url  =\r\n      ''%pageurl%/index.%ext%?op=menu_out_in'';\r\n    doGETRequest(url, processReqChangeMany, ''inoutMenu'', '''');\r\n}\r\n\r\nwindow.onload = getmenuBoxin;\r\n\r\nfunction getbuddysBox()\r\n{\r\n    var url  =\r\n      ''%pageurl%/index.%ext%?op=buddys'';\r\n    doGETRequest(url, processReqChangeMany, ''message'', '''');\r\n}');

-- --------------------------------------------------------

--
-- Table structure for table `auth_session`
--

CREATE TABLE `auth_session` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `user_id` varchar(25) collate latin1_general_ci default NULL,
  `session_id` varchar(100) collate latin1_general_ci default NULL,
  `expire_date` varchar(25) collate latin1_general_ci default NULL,
  `date` varchar(25) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ;


-- --------------------------------------------------------

--
-- Table structure for table `avatars`
--

CREATE TABLE `avatars` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `image_name` varchar(150) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=81 ;

--
-- Dumping data for table `avatars`
--

INSERT INTO `avatars` (`id`, `image_name`) VALUES
(4, '_nopic.gif'),
(5, 'avatar-1008.gif'),
(6, 'avatar-102.gif'),
(7, 'avatar-104.gif'),
(8, 'avatar-106.jpg'),
(9, 'avatar-108.jpg'),
(10, 'avatar-109.gif'),
(11, 'avatar-112.gif'),
(12, 'avatar-1125.gif'),
(13, 'avatar-517.gif'),
(14, 'avatar-518.gif'),
(15, 'avatar-519.gif'),
(16, 'avatar-521.gif'),
(17, 'avatar-522.gif'),
(18, 'avatar-523.gif'),
(19, 'avatar-524.gif'),
(20, 'avatar-525.gif'),
(21, 'avatar-526.gif'),
(22, 'avatar-528.gif'),
(23, 'avatar-529.gif'),
(24, 'avatar-598.gif'),
(25, 'avatar-76.gif'),
(26, 'avatar-77.gif'),
(27, 'avatar-784.gif'),
(28, 'avatar-80.gif'),
(29, 'avatar-81.gif'),
(30, 'avatar-83.jpg'),
(31, 'avatar-84.gif'),
(32, 'avatar-86.jpg'),
(33, 'avatar-886.gif'),
(34, 'avatar-89.gif'),
(35, 'avatar-93.jpg'),
(36, 'ban_me.gif'),
(37, 'comp_sucks.gif'),
(38, 'dead23.gif'),
(39, 'female03.gif'),
(40, 'female15.gif'),
(41, 'female20.gif'),
(42, 'image02.gif'),
(43, 'image03.gif'),
(45, 'l33t_BRO_firefox.png'),
(46, 'l33t_BRO_galeon-plain.png'),
(47, 'l33t_BRO_konqueror.png'),
(48, 'l33t_BRO_phoenix-3.png'),
(49, 'l33t_DES_death.png'),
(50, 'l33t_DES_nephros-lock.png'),
(51, 'l33t_DES_xnclogo.png'),
(52, 'l33t_DVP_anjuta.png'),
(53, 'l33t_EMU_gxmame.png'),
(54, 'l33t_GAM_SoF2.png'),
(55, 'l33t_GAM_id-software1.png'),
(56, 'l33t_GAM_nwn-icon.png'),
(57, 'l33t_GAM_quake3.png'),
(58, 'l33t_GAM_ssam_tfe.png'),
(59, 'l33t_LOG_amd.png'),
(60, 'l33t_LOG_bsddevil.png'),
(61, 'l33t_LOG_intel.png'),
(62, 'l33t_LOG_nvidia.png'),
(63, 'l33t_LOG_redhat.png'),
(64, 'l33t_LOG_tux.png'),
(65, 'l33t_TXT_nedit.png'),
(66, 'l33t_UNK_gpg-check.png'),
(67, 'l33t_UNK_gpg-ok.png'),
(68, 'l33t_UNK_hammer.png'),
(69, 'l33t_UNK_shark_jacomozzi.png'),
(70, 'l33t_UNK_strange.png'),
(71, 'l33t_UNK_toxic.png'),
(72, 'l33t_UNK_uno.png'),
(73, 'l33t_WIN_xp.png'),
(74, 'misc01.gif'),
(75, 'misc04.gif'),
(76, 'not_norton.gif'),
(77, 'p_storm.jpg'),
(78, 'ppic3.gif'),
(79, 'scarface.gif'),
(80, 'social_engin.gif');

-- --------------------------------------------------------

--
-- Table structure for table `ban`
--

CREATE TABLE `ban` (
  `banid` varchar(150) collate latin1_general_ci NOT NULL default '',
  `date` varchar(150) collate latin1_general_ci NOT NULL,
  `count` varchar(150) collate latin1_general_ci NOT NULL,
  `last_date` varchar(150) collate latin1_general_ci NOT NULL,
  PRIMARY KEY  (`banid`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci;

--
-- Dumping data for table `ban`
--

INSERT INTO `ban` (`banid`, `date`, `count`, `last_date`) VALUES
('111.11.11.11', '1189706258', '1', '1189706258'),
('111.11.11.12', '1189706258', '1', '1189706258');

-- --------------------------------------------------------

--
-- Table structure for table `blocks`
--

CREATE TABLE `blocks` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `active` varchar(50) collate latin1_general_ci default NULL,
  `title` varchar(150) collate latin1_general_ci default NULL,
  `boxtext` text collate latin1_general_ci,
  `type` varchar(25) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=2 ;

--
-- Dumping data for table `blocks`
--

INSERT INTO `blocks` (`id`, `active`, `title`, `boxtext`, `type`) VALUES
(1, '1', 'Search This Site', '<table border="0" cellpadding="0" cellspacing="0" width="100%">\r\n<tr align="center">\r\n<td valign="top" width="100%">\r\n<form action="%pageurl%/index.%ext%" method="post" name="sbox" onSubmit="if (document.sbox.query.value=='''') return false">\r\n<input type="text" name="query" size="15" class="text">\r\n<input type="hidden" name="op" value="search">\r\n<input type="submit" value="Search">\r\n</form>\r\n<a href="%pageurl%/index.%ext%?op=search">Advanced Search</a></td>\r\n</tr>\r\n</table>', 'left');

-- --------------------------------------------------------

--
-- Table structure for table `chat_bot_imob`
--

CREATE TABLE `chat_bot_imob` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `message` text collate latin1_general_ci,
  `regex` text collate latin1_general_ci,
  `sec_level` varchar(150) collate latin1_general_ci default NULL,
  `active` varchar(25) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=14 ;

--
-- Dumping data for table `chat_bot_imob`
--

INSERT INTO `chat_bot_imob` (`id`, `message`, `regex`, `sec_level`, `active`) VALUES
(1, 'I have a version? is that like how old i am?', '\\Aimob version', NULL, '1'),
(2, ' Flex SQL Version [b]%VERSION%[/b]', '\\Aimob Flex (SQL|sql) (v|V)ersion', NULL, '1'),
(3, 'Flex knows what buttons to push.', '\\Aimob(, | )what do you think of Flex', NULL, '1'),
(4, 'Well, imob stands for [b][i]"Intelligent Message output bot"[/i][/b]', '\\A(w|W)hat is imob', NULL, '1'),
(5, 'I am here for help & support.[br]To Get All imob commands imob cmd[br]My backend can be added to if you have admin status.[br]%admin%[br]Please Format your question like "what is imob".[br]You can also go to the imob help page [url=%pageurl%?op=b_help;module=Chat_imob]imob help[/url].', '\\Aimob help', NULL, '1'),
(6, 'The best thing since socks!', '\\Awhat is Flex', NULL, '1'),
(7, 'S_Flex has many names, I think one of them is God.', '\\Awhat is S_Flex', NULL, '1'),
(12, 'Lets just tell eveyone. \r\n%MESSAGE%', '\\A\\/msg (IMOB|imob) .+\\z', NULL, '1'),
(13, 'You wish it worked that way... [cool]', '\\A\\/kick imob .+\\z', NULL, '1');

-- --------------------------------------------------------

--
-- Table structure for table `chat_im`
--

CREATE TABLE `chat_im` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `active` varchar(25) collate latin1_general_ci default NULL,
  `date` varchar(150) collate latin1_general_ci default NULL,
  `ip` varchar(150) collate latin1_general_ci default NULL,
  `from_name` varchar(150) collate latin1_general_ci default NULL,
  `to_name` varchar(150) collate latin1_general_ci default NULL,
  `message` text collate latin1_general_ci,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ;

-- --------------------------------------------------------

--
-- Table structure for table `chat_imrq`
--

CREATE TABLE `chat_imrq` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `active` varchar(25) collate latin1_general_ci default NULL,
  `from_name` varchar(150) collate latin1_general_ci default NULL,
  `to_name` varchar(150) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ;


-- --------------------------------------------------------

--
-- Table structure for table `chat_mem_lists`
--

CREATE TABLE `chat_mem_lists` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `room_name` varchar(150) collate latin1_general_ci default NULL,
  `uid` varchar(150) collate latin1_general_ci default NULL,
  `date` varchar(150) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ;

--
-- Dumping data for table `chat_mem_lists`
--


-- --------------------------------------------------------

--
-- Table structure for table `chat_messages`
--

CREATE TABLE `chat_messages` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `room_name` varchar(150) collate latin1_general_ci default NULL,
  `uid` varchar(150) collate latin1_general_ci default NULL,
  `date` varchar(150) collate latin1_general_ci default NULL,
  `ip` varchar(150) collate latin1_general_ci default NULL,
  `message` text collate latin1_general_ci,
  `microseconds` varchar(50) collate latin1_general_ci NOT NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ;


-- --------------------------------------------------------

--
-- Table structure for table `chat_rooms`
--

CREATE TABLE `chat_rooms` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `room_name` varchar(150) collate latin1_general_ci default NULL,
  `topic` varchar(150) collate latin1_general_ci default NULL,
  `mod` varchar(150) collate latin1_general_ci default NULL,
  `usr_count` varchar(150) collate latin1_general_ci default NULL,
  `sec_level` varchar(150) collate latin1_general_ci default NULL,
  `active` varchar(25) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=4 ;

--
-- Dumping data for table `chat_rooms`
--

INSERT INTO `chat_rooms` (`id`, `room_name`, `topic`, `mod`, `usr_count`, `sec_level`, `active`) VALUES
(1, 'Lobby', 'Welcome to the New Chat Lobby.', NULL, '0', 'User', '1'),
(2, 'Lobby2', 'New Test Room', NULL, '0', 'User', '1'),
(3, 'IM', 'IM only room hidden', NULL, NULL, 'User', '1');

-- --------------------------------------------------------

--
-- Table structure for table `config`
--

CREATE TABLE `config` (
  `cfggroupid` varchar(50) collate latin1_general_ci NOT NULL default '',
  `pcfg` varchar(50) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`cfggroupid`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci;

--
-- Dumping data for table `config`
--

INSERT INTO `config` (`cfggroupid`, `pcfg`) VALUES
('1', '1');

-- --------------------------------------------------------

--
-- Table structure for table `faq`
--

CREATE TABLE `faq` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `question` varchar(255) collate latin1_general_ci default NULL,
  `answer` text collate latin1_general_ci,
  `sec_level` varchar(50) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=3 ;

--
-- Dumping data for table `faq`
--

INSERT INTO `faq` (`id`, `question`, `answer`, `sec_level`) VALUES
(1, 'What is Flex-WPS mySQL?', 'Flex Web Portal System is a very lightweight web portal system written in Perl and uses mySQL for the backend.<br>Flex-WPS mySQL is module based.<br>Built with Security As the Highest Priority and Featuring many Unique Technologies.<br><br>Main Package Features: User Management & User Groups, Menu Management, Site log, Flood Protection, Error & Fatal Error log, Anti-Spam Technology, Site Admin, Private Messages, Page Edited, FAQ, Contact Form, Chat, Image Gallery, Experience and Vote system, Forum/Polls/Articles/Downloads/Links Combo Module, many more features. ', NULL),
(2, 'How Do i make a Module for this Web Portal?', 'Lets make a new Module and call it &quot;My_Module.pm&quot; <br> <br> <br><font color="blue"><i># Code Start</i></font>  <br><div class="codepost"><code><b>package</b> My_Module; <br> <br><b>use</b> <b>strict</b>; <font color=&#34;blue&#34;><i># Please <b>use</b> this <br></i></font><font color=&#34;blue&#34;><i># Assign global variables. <br></i></font><b>use</b> vars qw&#40; <br> &nbsp; %user_action %sub_action <br>%user_data <br> &nbsp; &#41;; <br><b>use</b> exporter; <br> <br><font color=&#34;blue&#34;><i># Define possible user actions. <br></i></font>%user_action = &#40; hello =&#62; <font color=green>1</font> &#41;; <br> <br><font color=&#34;blue&#34;><i># Define possible subload actions. <br></i></font>%sub_action = &#40; hello_home =&#62; <font color=green>1</font> &#41;; <br> <br><font color=&#34;blue&#34;><i># The URL will be <br></i></font><font color=&#34;blue&#34;><i># %pageurl%/index.%ext%?op=hello;module=My_Module <br></i></font><b>sub</b> hello { <br> &nbsp; &nbsp; &nbsp; <b>require</b> theme; <br> &nbsp; &nbsp; &nbsp; theme&#58;&#58;print_header&#40;&#41;; <br> &nbsp; &nbsp; &nbsp; theme&#58;&#58;print_html&#40;$user_data{theme}, <font color=red>&#39;Hello&#39;</font>&#41;; <br> &nbsp; &nbsp; &nbsp; print <font color=red>&#60;&#60;HTML; <br>Hello <br>HTML</font> <br>theme&#58;&#58;print_html&#40;$user_data{theme}, <font color=red>&#39;Hello&#39;</font>, <font color=green>1</font>&#41;; <br>} <br> <br><font color=&#34;blue&#34;><i># In the Site Admin area &#62;&#62; Sub<font color=red>&#39;s Load <br></font></i></font><font color=&#34;blue&#34;><i># Add New lib/module = <font color=green>0</font> &amp; <font color=green>1</font>, PM = My_Module, <br></i></font><font color=&#34;blue&#34;><i># Sub = hello_home, Location = home <br></i></font><b>sub</b> hello_home { <br>print <font color=red>&#39;Hello Home Page&#39;</font>; <br>} <br> <br><font color=green>1</font>; <br></code> <br><font color="blue"><i># Code End</i></font></div><p style="clear: left"> <br> <br>Add The file to the /lib/modules directory in ASCII and CHMOD to 755 <br>', NULL);
-- --------------------------------------------------------

--
-- Table structure for table `flags`
--

CREATE TABLE `flags` (
  `flagid` smallint(5) unsigned NOT NULL auto_increment,
  `image` varchar(150) collate latin1_general_ci default NULL,
  `name` varchar(150) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`flagid`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=194 ;

--
-- Dumping data for table `flags`
--

INSERT INTO `flags` (`flagid`, `image`, `name`) VALUES
(1, 'blank.gif', 'SELECTCOUNTRY'),
(2, 'afghanistan.gif', 'afghanistan'),
(3, 'albania.gif', 'albania'),
(4, 'algeria.gif', 'algeria'),
(5, 'andorra.gif', 'andorra'),
(6, 'angola.gif', 'angola'),
(7, 'antiguabarbuda.gif', 'antiguaandbarbuda'),
(8, 'argentina.gif', 'argentina'),
(9, 'armenia.gif', 'armenia'),
(10, 'australia.gif', 'australia'),
(11, 'austria.gif', 'austria'),
(12, 'azerbaijan.gif', 'azerbaijan'),
(13, 'bahamas.gif', 'bahamas'),
(14, 'bahrain.gif', 'bahrain'),
(15, 'bangladesh.gif', 'bangladesh'),
(16, 'barbados.gif', 'barbados'),
(17, 'belarus.gif', 'belarus'),
(18, 'belgium.gif', 'belgium'),
(19, 'belize.gif', 'belize'),
(20, 'benin.gif', 'benin'),
(21, 'bhutan.gif', 'bhutan'),
(22, 'bolivia.gif', 'bolivia'),
(23, 'bosnia_herzegovina.gif', 'bosniaherzegovina'),
(24, 'botswana.gif', 'botswana'),
(25, 'brazil.gif', 'brazil'),
(26, 'brunei.gif', 'brunei'),
(27, 'bulgaria.gif', 'bulgaria'),
(28, 'burkinafaso.gif', 'burkinafaso'),
(29, 'burma.gif', 'burma'),
(30, 'burundi.gif', 'burundi'),
(31, 'cambodia.gif', 'cambodia'),
(32, 'cameroon.gif', 'cameroon'),
(33, 'canada.gif', 'canada'),
(34, 'centralafricanrep.gif', 'centralafricanrep'),
(35, 'chad.gif', 'chad'),
(36, 'chile.gif', 'chile'),
(37, 'china.gif', 'china'),
(38, 'columbia.gif', 'columbia'),
(39, 'comoros.gif', 'comoros'),
(40, 'congo.gif', 'congo'),
(41, 'costarica.gif', 'costarica'),
(42, 'croatia.gif', 'croatia'),
(43, 'cuba.gif', 'cuba'),
(44, 'cyprus.gif', 'cyprus'),
(45, 'czechrepublic.gif', 'czechrepublic'),
(46, 'demrepcongo.gif', 'demrepcongo'),
(47, 'denmark.gif', 'denmark'),
(48, 'djibouti.gif', 'djibouti'),
(49, 'dominica.gif', 'dominica'),
(50, 'dominicanrep.gif', 'dominicanrep'),
(51, 'ecuador.gif', 'ecuador'),
(52, 'egypt.gif', 'egypt'),
(53, 'elsalvador.gif', 'elsalvador'),
(54, 'eq_guinea.gif', 'eqguinea'),
(55, 'eritrea.gif', 'eritrea'),
(56, 'estonia.gif', 'estonia'),
(57, 'ethiopia.gif', 'ethiopia'),
(58, 'fiji.gif', 'fiji'),
(59, 'finland.gif', 'finland'),
(60, 'france.gif', 'france'),
(61, 'gabon.gif', 'gabon'),
(62, 'gambia.gif', 'gambia'),
(63, 'georgia.gif', 'georgia'),
(64, 'germany.gif', 'germany'),
(65, 'ghana.gif', 'ghana'),
(66, 'greece.gif', 'greece'),
(67, 'grenada.gif', 'grenada'),
(68, 'grenadines.gif', 'grenadines'),
(69, 'guatemala.gif', 'guatemala'),
(70, 'guinea.gif', 'guinea'),
(71, 'guineabissau.gif', 'guineabissau'),
(72, 'guyana.gif', 'guyana'),
(73, 'haiti.gif', 'haiti'),
(74, 'honduras.gif', 'honduras'),
(75, 'hong_kong.gif', 'hongkong'),
(76, 'hungary.gif', 'hungary'),
(77, 'iceland.gif', 'iceland'),
(78, 'india.gif', 'india'),
(79, 'indonesia.gif', 'indonesia'),
(80, 'iran.gif', 'iran'),
(81, 'iraq.gif', 'iraq'),
(82, 'ireland.gif', 'ireland'),
(83, 'israel.gif', 'israel'),
(84, 'italy.gif', 'italy'),
(85, 'ivorycoast.gif', 'ivorycoast'),
(86, 'jamaica.gif', 'jamaica'),
(87, 'japan.gif', 'japan'),
(88, 'jordan.gif', 'jordan'),
(89, 'kazakhstan.gif', 'kazakhstan'),
(90, 'kenya.gif', 'kenya'),
(91, 'kiribati.gif', 'kiribati'),
(92, 'kuwait.gif', 'kuwait'),
(93, 'kyrgyzstan.gif', 'kyrgyzstan'),
(94, 'laos.gif', 'laos'),
(95, 'latvia.gif', 'latvia'),
(96, 'lebanon.gif', 'lebanon'),
(97, 'liberia.gif', 'liberia'),
(98, 'libya.gif', 'libya'),
(99, 'liechtenstein.gif', 'liechtenstein'),
(100, 'lithuania.gif', 'lithuania'),
(101, 'luxembourg.gif', 'luxembourg'),
(102, 'macadonia.gif', 'macadonia'),
(103, 'macau.gif', 'macau'),
(104, 'madagascar.gif', 'madagascar'),
(105, 'malawi.gif', 'malawi'),
(106, 'malaysia.gif', 'malaysia'),
(107, 'maldives.gif', 'maldives'),
(108, 'mali.gif', 'mali'),
(109, 'malta.gif', 'malta'),
(110, 'mauritania.gif', 'mauritania'),
(111, 'mauritius.gif', 'mauritius'),
(112, 'mexico.gif', 'mexico'),
(113, 'micronesia.gif', 'micronesia'),
(114, 'moldova.gif', 'moldova'),
(115, 'monaco.gif', 'monaco'),
(116, 'mongolia.gif', 'mongolia'),
(117, 'morocco.gif', 'morocco'),
(118, 'mozambique.gif', 'mozambique'),
(119, 'namibia.gif', 'namibia'),
(120, 'nauru.gif', 'nauru'),
(121, 'nepal.gif', 'nepal'),
(122, 'neth_antilles.gif', 'nethantilles'),
(123, 'netherlands.gif', 'netherlands'),
(124, 'newzealand.gif', 'newzealand'),
(125, 'nicaragua.gif', 'nicaragua'),
(126, 'niger.gif', 'niger'),
(127, 'nigeria.gif', 'nigeria'),
(128, 'north_korea.gif', 'northkorea'),
(129, 'norway.gif', 'norway'),
(130, 'oman.gif', 'oman'),
(131, 'pakistan.gif', 'pakistan'),
(132, 'panama.gif', 'panama'),
(133, 'papuanewguinea.gif', 'papuanewguinea'),
(134, 'paraguay.gif', 'paraguay'),
(135, 'peru.gif', 'peru'),
(136, 'philippines.gif', 'philippines'),
(137, 'poland.gif', 'poland'),
(138, 'portugal.gif', 'portugal'),
(139, 'puertorico.gif', 'puertorico'),
(140, 'qatar.gif', 'qatar'),
(141, 'rawanda.gif', 'rawanda'),
(142, 'romania.gif', 'romania'),
(143, 'russia.gif', 'russia'),
(144, 'sao_tome.gif', 'saotome'),
(145, 'saudiarabia.gif', 'saudiarabia'),
(146, 'senegal.gif', 'senegal'),
(147, 'serbia.gif', 'serbia'),
(148, 'seychelles.gif', 'seychelles'),
(149, 'sierraleone.gif', 'sierraleone'),
(150, 'singapore.gif', 'singapore'),
(151, 'slovakia.gif', 'slovakia'),
(152, 'slovenia.gif', 'slovenia'),
(153, 'solomon_islands.gif', 'solomonislands'),
(154, 'somalia.gif', 'somalia'),
(155, 'south_korea.gif', 'south_korea'),
(156, 'southafrica.gif', 'southafrica'),
(157, 'spain.gif', 'spain'),
(158, 'srilanka.gif', 'srilanka'),
(159, 'stkitts_nevis.gif', 'stkittsnevis'),
(160, 'stlucia.gif', 'stlucia'),
(161, 'sudan.gif', 'sudan'),
(162, 'suriname.gif', 'suriname'),
(163, 'sweden.gif', 'sweden'),
(164, 'switzerland.gif', 'switzerland'),
(165, 'syria.gif', 'syria'),
(166, 'taiwan.gif', 'taiwan'),
(167, 'tajikistan.gif', 'tajikistan'),
(168, 'tanzania.gif', 'tanzania'),
(169, 'thailand.gif', 'thailand'),
(170, 'togo.gif', 'togo'),
(171, 'tonga.gif', 'tonga'),
(172, 'trinidadandtobago.gif', 'trinidadandtobago'),
(173, 'tunisia.gif', 'tunisia'),
(174, 'turkey.gif', 'turkey'),
(175, 'turkmenistan.gif', 'turkmenistan'),
(176, 'tuvala.gif', 'tuvala'),
(177, 'uae.gif', 'uae'),
(178, 'uganda.gif', 'uganda'),
(179, 'uk.gif', 'uk'),
(180, 'ukraine.gif', 'ukraine'),
(181, 'uruguay.gif', 'uruguay'),
(182, 'usa.gif', 'usa'),
(183, 'ussr.gif', 'ussr'),
(184, 'uzbekistan.gif', 'uzbekistan'),
(185, 'vanuatu.gif', 'vanuatu'),
(186, 'venezuela.gif', 'venezuela'),
(187, 'vietnam.gif', 'vietnam'),
(188, 'western_samoa.gif', 'westernsamoa'),
(189, 'yemen.gif', 'yemen'),
(190, 'yugoslavia.gif', 'yugoslavia'),
(191, 'zaire.gif', 'zaire'),
(192, 'zambia.gif', 'zambia'),
(193, 'zimbabwe.gif', 'zimbabwe');

-- --------------------------------------------------------

--
-- Table structure for table `forum_cat`
--

CREATE TABLE `forum_cat` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `cat_name` text collate latin1_general_ci,
  `last_post` varchar(50) collate latin1_general_ci default NULL,
  `sec_level` varchar(50) collate latin1_general_ci default NULL,
  `cat_type` text collate latin1_general_ci NOT NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=9 ;

--
-- Dumping data for table `forum_cat`
--

INSERT INTO `forum_cat` (`id`, `cat_name`, `last_post`, `sec_level`, `cat_type`) VALUES
(1, 'Flex Development', '0', 'Guest', 'forums'),
(3, 'Flex Development News', NULL, 'Guest', 'articles'),
(4, 'Perl News', NULL, 'Guest', 'articles'),
(5, 'Administrators', NULL, 'Administrator', 'forums'),
(6, 'Moderators', NULL, 'Moderator', 'forums'),
(8, 'Flex-WPS Polls', NULL, 'Guest', 'poll');

-- --------------------------------------------------------

--
-- Table structure for table `forum_reply`
--

CREATE TABLE `forum_reply` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `cat_id` varchar(50) collate latin1_general_ci default NULL,
  `subcat_id` varchar(50) collate latin1_general_ci default NULL,
  `thread_id` varchar(50) collate latin1_general_ci default NULL,
  `date` varchar(50) collate latin1_general_ci default NULL,
  `msg_type` varchar(50) collate latin1_general_ci default NULL,
  `ip` varchar(50) collate latin1_general_ci default NULL,
  `poster` varchar(50) collate latin1_general_ci default NULL,
  `subject` text collate latin1_general_ci,
  `message` text collate latin1_general_ci,
  `last_edited` varchar(50) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=228 ;

--
-- Dumping data for table `forum_reply`
--

INSERT INTO `forum_reply` (`id`, `cat_id`, `subcat_id`, `thread_id`, `date`, `msg_type`, `ip`, `poster`, `subject`, `message`, `last_edited`) VALUES
(226, '3', '4', '80', '1199300521', 'xx', '192.168.0.5', 'Flex', 'Re: Unicode - Chinese [ux5E73][ux96EA][ux8FCE][ux9AA8]', '[quote=Flex]The [wiki://UBBC] now supports Unicode.<br><br>Do you Speak Chinese [b][ux5E73][ux96EA][ux8FCE][ux9AA8] [/b]?<br>Thats not words anyway [tongue]<br><br>Not only Chinese but any language UTF supports<br>Do you know Hebrew? [b][ux05D0][ux05D9][ux05D4][ux05E9][ux05DC][/b]<br><br>What about Kurdish? &nbsp;[b][ux06CE][ux0647][ux0643][ux0645][ux0627][/b]<br><br>Well Flex-WPS can help your site go multilingual[/quote]', '1199301559'),
(180, '5', '7', '35', '1189524305', 'xx', '192.168.0.5', 'Flex', 'Fallow Up', 'The above discription doesnt fully explain what the script is going to do, I know. <br> <br>But it sure if funny. [lol]<br> <br>Expect this module soon', NULL),
(200, '1', '2', '61', '1189780347', 'xx', '192.168.0.5', 'Flex', 'UBBC Tags Not presserved', 'It seems that the Forum UBBC tags are not saved as a Tag and the forum is saveing the raw HTML insted.<br><br>I may have done this to save space or to reduce the amout of codeing need, but this find can not work like this.', NULL),
(201, '1', '2', '61', '1189781358', 'question', '192.168.0.5', 'Flex', 'This is a UBBC Forum test', 'This test is for the above issue.<br><br>[cool]<br>[url]http://192.168.0.5/cgi-bin/001/index.cgi[/url]<br><br>&#39;<br>&#42;<br>&#92;<br>/<br>&#41;<br>&#40;<br>LIMIT 0', '1191333697'),
(203, '1', '2', '61', '1189794066', 'lamp', '192.168.0.5', 'Flex', 'Forum - Starting from scratch', '[email]javascript:window.open&#40;&#41;;[/email]<br>[code]# Some Code......[/code]<br>[code]constricting<br>strict&#124;package&#124;return&#124;require&#124;for&#124;my&#124;sub&#124;if&#124;eq&#124;ne&#124;lt&#124;gt&#124;or&#124;use&#124;while&#124;foreach<br>&#124;next&#124;last&#124;unless&#124;elsif&#124;else&#124;not&#124;and&#124;until&#124;continue&#124;do<br>strictest<br>use strict;<br>#!/usr/bin/perl<br># This &#34;code&#34; is not &#39;ment&#39; to work or syntax ok<br># It is only ment to view the code highlighter<br># &#39;23&#39; 23iEEE i23 for 23, if, befor, returning, return &#39;$if&#39;<br>print &#34;Content-type: text/html&#92;n&#92;n&#34;;<br>print &#34;&#60;html&#62;&#60;h1&#62;Hello!&#60;/h1&#62;&#60;/html&#62;&#92;n&#34;;<br>push &#40; @INC, &#39;./lib&#39; &#41; if $cfg{rr} gt 2;<br>push &#40; @INC, &#39;./lib2&#39; &#41; if $cfg{st} lt 1 or die&#40;&#39;im dead&#39;&#41;;<br>$14563634545345<br>package filters;<br># ---------------------<br># &nbsp;Untaint<br># ---------------------<br>sub untaint {<br>my $value &nbsp; = shift &#124;&#124; &#39;&#39;;<br>my $pattern = shift &#124;&#124; &#39;&#92;w&#92;-&#92;.&#92;/&#39;;<br>return &#39;&#39; unless $value;<br>$value =~ m!^&#40;[$pattern]+&#41;$!i<br>? return $1<br>: return;<br>}<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;elsif &#40;$row[2]&#41; { # a comment here<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; push &#40; @INC, &#39;./lib/modules&#39; &#41;;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; next unless &#40;$row[3] ne -r &#34;$row[3].pm&#34;&#41; or die&#40;&#39; XP &#39;&#41;;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; require &#34;$row[3].pm&#34;;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if &#40;$row[4] eq $sub_action{$row[4]}&#41; {<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;delete $INC[$#INC];<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;last;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; $load = $row[3] . &#39;::&#39; . $row[4];<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; delete $INC{&#34;$row[3].pm&#34;};<br> &nbsp; &nbsp; &nbsp; &nbsp;my $message = &#60;&#60;EOT;<br>--------------------------------------------------------------------------------<br><br>$inf{account_created}<br>$msg{usernameC} $username<br>$msg{passwordC} $password<br><br>--------------------------------------------------------------------------------<br>E-mail was sent from: $cfg{cgi_bin_url}/index.$cfg{ext}<br>--------------------------------------------------------------------------------<br>EOT[/code]', '1199401011'),
(218, '1', '2', '61', '1190812163', 'xx', '192.168.0.5', 'Flex', 'Re: WOW [pleased]', '[search://search,term,wiki forums poll,OR,s]<br>[quote=DJ_Perl]I dont know how much ppl will like the new style.<br><br>IMO:<br>1&#41; It is Smart! Becase you have finaly found a way to use the blank space the user&#39;s information was taking up.<br>2&#41; We should keep it becase it looks good !<br>[quote]Now that i think of it, why hasnt anyone done this befor&#40;I have never seen a forum this way&#41;.[/quote]<br><br>How did you think of this Flex?[/quote]I noticed a long time ago that when you take a image and align it to the right any text after the image can wrap around it from the top of the image down to the bottom.<br>The only obstacle I faced when doing it is the DIV tag doest support align so i had to make a CSS style to achieve the effect.<br>Finaly after many tests to get IE and Mozilla to support the effect, I achieved my goal.<br>', '1194978854'),
(213, '5', '7', '35', '1190557206', 'xx', '192.168.0.5', 'DJ_Perl', 'Re: Total Guard Technology', 'Big head way on the TG tech.<br><br>there are currently 2 honey pot&#39;s and a massive filter method.<br><br>Never seen any open source use all these methods.<br><br>Dave and I will continue to research more ways to detect and block these useless @$$ Holes.', NULL),
(214, '1', '9', '65', '1190559251', 'exclamation', '192.168.0.5', 'Flex', 'Re: Re: Top Security Concerns!', '[quote=DJ_Perl]Is there going to be a beta testing team or Developing team?<br><br>Im getting a lot better at security [respect][/quote]<br><br>Yes.<br>I trust your coding enough the have you as a Developer.<br>You and Dave are part of the Development team.<br><br>[b]Note:[/b] I dont want a noobie programer to think there help isnt needed&#40;if they know they have a weak security skill&#41;. If a module is made for this sytem and We know about it. We can check the security of your module and make it avalable for other users to download.', '1191073592'),
(207, '1', '2', '61', '1189794747', 'xx', '192.168.0.5', 'Flex', 'UBBC Tags Security', '1&#41; [img]http://192.168.0.5/cgi-bin/001/index.tgi?op=clock;module=Clock[/img]\r<br>2&#41; [aright_img]http://192.168.0.5/001/images/forum/xx.gif[/img]\r<br>3&#41; [aleft_img]/001/images/forum/xx.gif[/img]\r<br>\r<br>4&#41; [email]ddsds@djdj.com[/email]\r<br>5&#41; [email]www.ass.com?@dfsdfsdfsd.fdd[/email]\r<br>6&#41; [img]javascript:window.open&#40;&#41;;[/img]\r<br>7&#41; [aright_img]javascript:window.open&#40;&#41;;[/img]\r<br>8&#41; [email]javascript:window.open&#40;&#41;;[/email]\r<br>9&#41; [url]javascript: window.open&#40;&#41;;[/url]\r<br>9&#41; [url]http://192.168.5/cgi-bin/001/index.cgi[/url]\r<br>9&#41; [url=http://192.168.5/cgi-bin/001/index.cgi]crap URL[/url]\r<br>9&#41; [url=javascript:window.open&#40;&#41;;]javascript:window.open&#40;&#41;;[/url]\r<br>9&#41; [url=http://192.168.5/cgi-bin/001/index.cgi]javascript:window.open&#40;&#41;;[/url]\r<br>9&#41; [url]www.google.com[/url] Dont need [url] just type the plain link\r<br>4&#41; www.google.com\r<br>=www.google.com\r<br>4&#41; http://192.168.5/cgi-bin/001/index.cgi\r<br>=http://192.168.5/cgi-bin/001/index.cgi', '1193502369'),
(210, '1', '2', '62', '1190548354', 'thumbup', '192.168.0.5', 'DJ_Perl', 'This is cool', 'I realy like this captcha a lot better.<br>Even though you need the GD module installed on the server &#40;witch all servers should have!&#41; its a lot better then the old captcha.<br><br>Is the old captcha going to be avalable still?', NULL),
(211, '1', '2', '62', '1190548965', 'thumbup', '192.168.0.5', 'Flex', 'Re: This is cool', '[quote=DJ_Perl]I realy like this captcha a lot better.<br>Even though you need the GD module installed on the server &#40;witch all servers should have!&#41; its a lot better then the old captcha.<br><br>Is the old captcha going to be avalable still?[/quote]<br><br>Yes the old captcha will be available, but i want to push ppl to use this new one.', NULL),
(212, '1', '9', '65', '1190550120', 'exclamation', '192.168.0.5', 'DJ_Perl', 'Re: Top Security Concerns!', 'Is there going to be a beta testing team or Developing team?<br><br>Im getting a lot better at security [respect]', NULL),
(215, '8', '10', '67', '1190641782', 'xx', '192.168.0.5', 'Flex', '[excited]', 'WOW its Great!<br><br>One step closer to the Combo [cool]', NULL),
(216, '8', '10', '67', '1190644693', 'xx', '192.168.0.5', 'DJ_Perl', 'Re: [excited]', '[quote=Flex]WOW its Great!<br><br>One step closer to the Combo [cool][/quote]<br><br>Added a link to the poll in the &quot;Main Menu&quot;', NULL),
(217, '1', '2', '61', '1190811039', 'xx', '192.168.0.5', 'DJ_Perl', 'WOW [pleased]', 'I dont know how much ppl will like the new style.<br><br>IMO:<br>1&#41; It is Smart! Becase you have finaly found a way to use the blank space the user&#39;s information was taking up.<br>2&#41; We should keep it becase it looks good !<br><br>Now that i think of it, why hasnt anyone done this befor&#40;I have never seen a forum this way&#41;.<br><br>How did you think of this Flex?', NULL),
(219, '1', '1', '77', '1190908510', 'xx', '192.168.0.5', 'DJ_Perl', 'XP and Metals', 'Getting Metals when you have enough XP would be cool too?', NULL),
(220, '1', '1', '77', '1190908664', 'xx', '192.168.0.5', 'Flex', 'Re: XP and Metals', '[quote=DJ_Perl]Getting Metals when you have enough XP would be cool too?[/quote]I guess so, because the metals are core coded and that would be nice for the XP system to have&#40;makes more sence to me&#41;.', NULL),
(221, '1', '1', '77', '1190910918', 'xx', '192.168.0.5', 'Flex', 'Need XP to get metals', 'I added the idea to get metal by how much XP you have.<br>Check it out and tell me if the points system is ok. [eek]', NULL),
(222, '1', '1', '77', '1190979706', 'xx', '192.168.0.5', 'Flex', 'Votes', 'Since a Member with Votes can up vote or down vote and now the metals use the XP system&#40;leaving the member profile with 3 extra values&#41;<br>I think with 1 of the 3 extra values im going to log how many times that member has up voted or down voted and have it viewable in the members profile.<br>To kinda show if that member is a positive voter or a negative voter[strike]&#40;Votes on a Poll does not apply&#41;[/strike].', '1191009994'),
(223, '1', '1', '77', '1190982194', 'xx', '192.168.0.5', 'DJ_Perl', '2 extra values', 'How about for 1 of the other extra values give the member a Bio to there profile.<br>Kinda like the Signature but can only be seen in that members profile.<br>For the other value maybe a hit count to see how many time that profile was viewed and a poll for members to vote on the profile &#40;&#34;++like the profile&#34; or &#34;--Dont Like the profile&#34;&#41;', '1199722171'),
(224, '1', '1', '77', '1191002576', 'xx', '192.168.0.5', 'Flex', 'Re: 2 extra values', '[quote=DJ_Perl]How about for 1 of the other extra values give the member a Bio to there profile.<br>Kinda like the Signature but can only be seen in that members profile.<br>For the other value maybe a hit count to see how many time that profile was viewed and a poll for members to vote on the profile &#40;&quot;++like the profile&quot; or &quot;--Dont Like the profile&quot;&#41;[/quote]<br>The only thing I didnt do is the Bio, but will add that in soon.<br>Also the Profile vote isnt added and may not be added soon.<br>', NULL),
(225, '1', '2', '79', '1191864847', 'exclamation', '192.168.0.5', 'Flex', 'Re: RSS Feed [eek]', '[quote=DJ_Perl]WTF?[/quote]<br>guess you found out by yourself. [grin]<br><br>i made 2 RSS modules the first one i made all the regex to get the data. becase i had a few issues with it getting what i want i made another one that uses Perl Module XML::Parser. after getting it to work I found out that the issues of the first RSS had.<br>So i when back to the first code and added in the fixes and fixed my regexs so they where faster.<br><br>The first Module seems to work better then the 2nt module and I havent found any other bugs. Only took me 2 days to make the hole code.<br>It gets the xml file from the remote servers saves it to a database with an expieration so the RSS mod doesnt update every time some one uses the site. [pleased]<br>From my view point the first module is better becase its easyer to fallow and faster.<br>The 2nt Module works totaly different and can get very confusing fast, if you try to look at it to understand it. But it uses the XML::Parser Module and i had to wright it in the way the module works. ', '1192281411'),
(227, '1', '1', '77', '1199368553', 'xx', '192.168.0.5', 'Flex', 'Re: Re: 2 extra values', '[quote=Flex][quote=DJ_Perl]How about for 1 of the other extra values give the member a Bio to there profile.<br>Kinda like the Signature but can only be seen in that members profile.<br>For the other value maybe a hit count to see how many time that profile was viewed and a poll for members to vote on the profile &#40;&quot;++like the profile&quot; or &quot;--Dont Like the profile&quot;&#41;[/quote]<br>The only thing I didnt do is the Bio, but will add that in soon.<br>Also the Profile vote isnt added and may not be added soon.<br>[/quote]', NULL);

-- --------------------------------------------------------

--
-- Table structure for table `forum_subcat`
--

CREATE TABLE `forum_subcat` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `cat_id` varchar(50) collate latin1_general_ci default NULL,
  `subcat_name` text collate latin1_general_ci,
  `discription` text collate latin1_general_ci NOT NULL,
  `thread_ct` varchar(50) collate latin1_general_ci default NULL,
  `post_ct` varchar(50) collate latin1_general_ci default NULL,
  `last_post` varchar(50) collate latin1_general_ci default NULL,
  `moderator` varchar(50) collate latin1_general_ci default NULL,
  `subcat_type` text collate latin1_general_ci NOT NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=11 ;

--
-- Dumping data for table `forum_subcat`
--

INSERT INTO `forum_subcat` (`id`, `cat_id`, `subcat_name`, `discription`, `thread_ct`, `post_ct`, `last_post`, `moderator`, `subcat_type`) VALUES
(1, '1', 'Flex WPS - SQL', 'Flex software development', '2', '7', 'Self', 'admin', 'forums'),
(2, '1', 'Flex Modules', 'Flex module development', '5', '9', '1218817479,1,2,91#1,Flex', 'admin', 'forums'),
(4, '3', 'Modules', 'News on Flex Modules.', '2', '1', '1199389564,3,4,90#1,Flex', 'admin', 'articles'),
(5, '4', 'Whats New With Perl', 'News from Perls web site', '0', '0', NULL, 'admin', 'articles'),
(6, '3', 'Bugs', 'Flex bugs and fix Reports', '1', '0', '1163194024,3,6,34#1,Flex', 'admin', 'articles'),
(7, '5', 'Admin Chat', 'Administrators Discution', '2', '2', 'Self', 'admin', 'forums'),
(9, '1', 'Flex-WPS Security', 'Portal security and concerns of future issues.', '1', '2', '1190559251,1,9,65;start=0#3,Flex', 'admin', 'forums'),
(10, '8', 'Polls', 'All voting polls for this site..', '3', '2', '1198442726,8,10,81#1,Flex', 'admin', 'poll');

-- --------------------------------------------------------

--
-- Table structure for table `forum_threads`
--

CREATE TABLE `forum_threads` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `cat_id` varchar(50) collate latin1_general_ci default NULL,
  `subcat_id` varchar(50) collate latin1_general_ci default NULL,
  `reply_ct` varchar(50) collate latin1_general_ci default NULL,
  `view_ct` varchar(50) collate latin1_general_ci default NULL,
  `date` varchar(50) collate latin1_general_ci default NULL,
  `msg_type` varchar(50) collate latin1_general_ci default NULL,
  `lock` varchar(50) collate latin1_general_ci default NULL,
  `sticky` varchar(50) collate latin1_general_ci default NULL,
  `ip` varchar(50) collate latin1_general_ci default NULL,
  `poster` varchar(50) collate latin1_general_ci default NULL,
  `subject` text collate latin1_general_ci,
  `message` text collate latin1_general_ci,
  `last_edited` varchar(50) collate latin1_general_ci default NULL,
  `last_post` text collate latin1_general_ci NOT NULL,
  `poll` text collate latin1_general_ci,
  `dl_link` text collate latin1_general_ci,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=92 ;

--
-- Dumping data for table `forum_threads`
--

INSERT INTO `forum_threads` (`id`, `cat_id`, `subcat_id`, `reply_ct`, `view_ct`, `date`, `msg_type`, `lock`, `sticky`, `ip`, `poster`, `subject`, `message`, `last_edited`, `last_post`, `poll`, `dl_link`) VALUES
(61, '1', '2', '6', '624', '1189717149', 'lamp', NULL, NULL, '192.168.0.5', 'Flex', 'Forum - Starting from scratch', '[[c]]....[[/c]]<br>Lots to do for the forum <br>[b]To Do:[/b] <br>[strike]remove the Sort data Perl and use the sql sort.[/strike]<br>E-mail or PM Notification <br>[strike]Edit Post[/strike] <br>Add Cat &amp; Subcat - admin w/user groups &amp; mods&#40;halfway there&#41;<br>Captcha<br>Print Topic <br>[strike]Quote Relpy&#39;s[/strike] <br>[strike]Link to Profile[/strike]<br> <br>[b]Extra&#39;s:[/b]<br>[b]Code Highlighter[/b] - This forums code inseter now has a code highlighter. It looks nice and I have not seen any othere bugs in the code, but more testing is needed. [strike]The new code can have the regex compacted to save space.[/strike]<br>[b]Table Optimizer[/b] - This will check and optimize only the Tables that need it.<br>[b]Linking to the site[/b] - like Forums&#40;poll,forum,articles&#41;, Search, Wiki[code=Linking to the site]<br>Forums [id://thread_id] or [id://thread_id#jump_id]<br>Search <br>Pattern, search in &nbsp; [search://search_term,wiki forums poll]<br>Pattern, search in, Boolean &nbsp; [search://search_term,wiki forums poll,OR]<br>Pattern, search in, Boolean, case &nbsp; [search://search_term,wiki forums poll,OR,s]<br>All Search &nbsp;[search://search_term] <br>Wiki [wiki://wiki_name] or [wkid://wiki_id]<br>[/code]Tests:<br>[id://62] forum is there<br>[id://61#6] Forum jump is there<br>[id://611111] Forum not there<br>[id://65555#3] Forum jump not there<br>[wiki://flex-wps] Wiki name is there<br>[wkid://3] Wiki ID is there<br>[wiki://Not There] Wiki Name Not There<br>[wkid://999999] Wiki ID Not There<br>[search://a a a] Search for &quot;a a a&quot;<br>[search://a a a,forums poll] Search for &quot;a a a&quot;<br>[search://Z Z Z,forums poll,AND] Search for &quot;Z Z Z&quot;<br>[search://Z Z Z,forums poll,AND,s] Search for &quot;Z Z Z&quot;<br><br>[b]Linking to other sites[/b] - like [google://Google] Search, [wp://Wikipedia:About] Wikipedia, [wb://Wikibooks:About] Wikibooks, [wq://Wikiquote:About] Wikiquote, [ws://Wikisource:About_Wikisource] Wikisource and [cpan://Cpan] Perl Modules<br>[code=Linking to other sites]<br>[google://Google] Google Search<br>[wp://Wikipedia:About] or &nbsp;[wikipedia://Wikipedia:About] Wikipedia<br>[wb://Wikibooks:About] or [wikibooks://Wikibooks:About] Wikibooks<br>[wq://Wikiquote:About] or [wikiquote://Wikiquote:About] Wikiquote<br>[ws://Wikisource:About_Wikisource] or [wikisource://Wikisource:About_Wikisource] Wikisource<br>[cpan://Cpan] Cpan Module Search<br>[/code]<br><br>[b]Security Check[/b]<br>[b]Test Script[/b] <br>', '1193001765', '1190812163,1,2,61;start=0#7,Flex', '', ''),
(34, '3', '6', '0', '31', '1189877309', 'xx', NULL, NULL, '192.168.0.5', 'Flex', 'UBBC - Rebuilding with better tags and security!', 'Big overhaul of the UBBC tags. <br>Code tag - make as one and test for XSS <br>Need Left and Rigt align - try &lt;div&gt;[wikiquote://]<br> <br>&lt;sup&gt;adadad&lt;/sup&gt; [id://61]<br>&lt;sub&gt;asdasdad&lt;/sub&gt;dadsadas[search://a a a]', '1193088985', 'Self', '', ''),
(35, '5', '7', '2', '50', '1189877310', 'xx', NULL, NULL, '192.168.0.5', 'Super', 'Total Guard Technology', '&lt;b&gt;Total Guard Technology&lt;/b&gt; - Is based on the many ways to Detect and block Spammer&#39;s. This detection system has many conventional methodes of detection and a few none convetional methods. The Devopers of Total Guard has waged War on all spamer&#39;s and askes the question to the spammer &quot;Is that all you can do?&quot;. <br> <br>The Devopers of Total Guard strongly belive that all spammers want to be hackers and all spammers should be classafilde as low level life forms. <br>Becase, Spammers most often use viruses, malware, spyware and other ways to track and maliciously attack a web page to advertise a product or company. <br>A spammers moral standard is much lowwer then the average person and the companys that use these spammers as an advertising tool should be totaly boycotted. <br> <br>The Team of Total Guard Technology happly dings the Bell for the first round and will not stop till the spammer&#39;s throw in the towel. <br> <br>This new Technology will be add to [wiki://Flex-WPS] SQL as a Module. The team of T.G. has allowed [wiki://Flex-WPS] SQL to be the only WPS to use there new spam detection system. <br>', '1192738602', '1190557206,1,2,35;start=0#3,DJ_Perl', '', ''),
(62, '1', '2', '2', '58', '1189877311', 'thumbup', NULL, NULL, '192.168.0.5', 'Flex', 'Captcha - GD::SecurityImage', 'New Captcha Module - GD::SecurityImage<br>This is a nice captcha script.<br>Comes with its own Font and can be configured from the Core Captcha.cgi.<br><br>[b]Small[/b]<br>[img]/cgi-bin/001/Captcha.tgi?a=small;i=0&#124;1&#124;2&#124;3&#124;4&#124;5[/img]<br>[b]Larg[/b]<br>[img]/cgi-bin/001/Captcha.tgi?i=0&#124;1&#124;2&#124;3&#124;4&#124;5[/img]<br><br>Login or Register to Check it out!<br><br>For GD:<br>ppm install http://theoryx5.uwinnipeg.ca/ppms/GD.ppd<br><br>For GD-SecurityImage<br>ppm install http://www.bribes.org/perl/ppm/GD-SecurityImage.ppd<br><br>Not fully released but working.', '1191334046', '1190548965,1,2,62;start=0#3,Flex', '', ''),
(63, '5', '7', '0', '6', '1189953627', 'xx', NULL, NULL, '192.168.0.5', 'Flex', 'New Functions for the home page', 'This is mainly a test to see if the security set for viewing the &quot;10 Newest Topics&quot; works.', NULL, 'Self', '', ''),
(65, '1', '9', '2', '105', '1190314402', 'exclamation', NULL, NULL, '192.168.0.5', 'Flex', 'Top Security Concerns!', '[quote][i][b]Lets be blunt:[/b] <br>[b]A web developer is not qualified to do the job if he or she does not have a good understanding of web application security concepts and techniques.[/b]<br>Leaders of development teams must stop allowing developers who are weak on security techniques to contribute to their products, and managers need to stop hiring candidates who do not demonstrate a solid secure programming background.<br>[b]If they continue to do so, they demonstrate a lack of concern for the safety of their customers.[/b] - Ed Finkler[/i][/quote]<br>This is a very strong statemnet and holds a lot of truth to its claims.<br>We at Flex-WPS feel it is are job to produce a secure Web Portal System/Web Applacation.<br>Anything less then the highest standards of security would be letting down are clients and we at Flex-WPS do not want that.<br><br>[b]Note:[/b] Flex-WPS mySQL is built by only one person. So if any security holes are found they can be blamed on the sole Developer of Flex-WPS mySQL. The maker of Flex-WPS mySQL has a very strong understanding of web security and implaments these security methods all the time.<br><br>[b]Experience:[/b] N.K.A. has worked with almost every Perl Web Portal System/Web Applacation Open Source Groups and has found the leaders and developers of most of these groups do not have a strong or good understanding of security&#40;they dont think ahead!&#41;. This lack of understanding and leader ship has pushed me to make my own Web Portal System.<br><br>[b]Hackers are Flex-WPS mySQL Friends[/b] My calaberation with some of the top Hackers has helped to secure Flex-WPS mySQL. Even the most skilled hackers have not been able to penatrate this system to this day. This does not mean the Script cant be hacked or there are no potental holes. But it does show that I take and uses every Elememt to Keep this script as secure as posable.<br><br>Thank you,<br>Flex-WPS mySQL<br>', '1190763656', '1190559251,1,9,65;start=0#3,Flex', '', ''),
(66, '1', '1', '0', '48', '1190575972', 'xx', NULL, NULL, '192.168.0.5', 'Flex', 'Admin area completion', 'TO DO:<br>Edit config<br>Theme Edit<br>............................................................................................. ....................................................................................', NULL, 'Self', '', ''),
(67, '8', '10', '2', '118', '1189717148', 'question', NULL, NULL, '192.168.0.5', 'Flex', 'What do you think of the Polling system?', 'WOW its Great!<br>Looks good andlike the intagration.<br>Could be better.<br>You call that a poll?', '1190644693', '1190644693,8,10,67;start=0#3,DJ_Perl', '108\n65\r\n45\r\n2\r\n', NULL),
(68, '8', '10', '0', '121', '1190673411', 'xx', NULL, NULL, '192.168.0.5', 'Flex', 'Test the Polls', 'Yes i tested it.<br>No I didnt test it.', '1191192130', 'Self', '12\n1\n', ''),
(76, '1', '2', '0', '41', '1190729933', 'xx', NULL, NULL, '192.168.0.5', 'Flex', 'How To use the Polls', 'When you go to Post a new poll you will see the same post page as the forum.<br><br>[b]Type the Polls subject:[/b]<br>&quot;My Poll Subject&quot;<br><br>[b]You can Set any Symbol you like:[/b]<br>[img]/001/images/forum/xx.gif[/img]<br><br>[b]The Text needs to be formated by each new Option on its own line &#40;if you have not hit the &quot;enter&quot; key you are not on a new line&#41;:[/b]<br>&quot;My First Option<br>My Second Option<br>My Third Option<br>My Options est...&quot;<br><br>If you Edit the Poll it will Reset all Votes to that poll.<br>Only Memebers can add a poll.<br>Members that still have Votes can vote on any poll.<br>All members get atlease 3 votes a day or more depending on the amout of XP that user has&#40;Can have a max of 50 votes a day&#41;.', '1190733966', 'Self', '', ''),
(77, '1', '1', '7', '224', '1190907643', 'xx', NULL, NULL, '192.168.0.5', 'Flex', 'Experience and Vote system ', '[b]Experience:[/b]<br>Posting a New Thread or Reply = +1xp<br>Voting on a Poll or Member = +1xp &amp; -1vote<br>Getting a Up Vote from a Member +1xp.<br><br>All members get atlease 3 votes a day or more depending on the amout of XP that user has.<br>&#40;Can have a max of 50 votes a day&#41;.<br><br>You can recive Badges for having a set amout of xp.<br>You can recive Metals for the amout of XP you have.<br><br>Xp can only be lost if you get down votes&#40;--&#41;.<br><br>[b]Up Vote &amp; Down Vote:[/b]<br>Members that have Votes can ++Up Vote &#40;give you +1xp and the poster +1xp&#41;<br>Members that have Votes can --Down Vote &#40;give you +1xp and the poster -1xp&#41;<br><br>When a member uses a vote it gets logged as what type of vote it is.<br>The members voteing usage can be viewed in there profile example:<br>[b]Votes Used[/b] ++20 [b]vs[/b] --1, [b]polls[/b]&#40;2&#41; [b]total[/b]&#40;23&#41; [img]/001/images/smilies/respect.gif[/img]<br><br>There can be eather one of the 3 images next to the vote stats depending on what number is the highest.<br>positive voter [img]/001/images/smilies/respect.gif[/img]<br>negative voter [img]/001/images/smilies/grumpy.gif[/img]<br>poll voter [img]/001/images/smilies/deepthought.gif[/img]', '1199368553', '1199368553,1,1,77;start=0#8,Flex', '', ''),
(79, '1', '2', '1', '18', '1191862750', 'exclamation', NULL, NULL, '192.168.0.5', 'DJ_Perl', 'RSS Feed [eek]', 'So nick when where you going to tell me you where working on an RSS Feed module?<br>WTF?<br><br>[lol]<br>I look down there and see News from PerlMonks.org [grin] <br>it Looks good [img]/001/images/forum/thumbup.gif[/img] realy nice work.', '1191864847', '1191864847,1,2,79;start=0#2,Flex', '', ''),
(80, '3', '4', '1', '58', '1194959894', 'xx', NULL, NULL, '192.168.0.5', 'Flex', 'Unicode - Chinese [ux5E73][ux96EA][ux8FCE][ux9AA8]', 'The [wiki://UBBC] now supports Unicode.<br><br>Do you Speak Chinese [b][ux5E73][ux96EA][ux8FCE][ux9AA8] [/b]?<br>Thats not words anyway [tongue]<br><br>Not only Chinese but any language UTF supports<br>Do you know Hebrew? [b][ux05D0][ux05D9][ux05D4][ux05E9][ux05DC][/b]<br><br>What about Kurdish? &nbsp;[b][ux06CE][ux0647][ux0643][ux0645][ux0627][/b]<br><br>Well Flex-WPS can help your site go multilingual', '1199300521', '1199300521,3,4,80;start=0#2,Flex', '', ''),
(81, '8', '10', '0', '19', '1198442726', 'xx', NULL, NULL, '192.168.0.5', 'Flex', 'What do you like', '&#40;Forum, Articels, Polls&#41; Combo<br>Chat<br>Gallery<br>Wiki<br>FAQ<br>Private Messager<br>Search<br>RSS Feeds', '1218816299', 'Self', '0\n0\n0\n0\n0\n0\n0\n0\n', ''),
(91, '1', '2', '0', '1', '1218817479', 'xx', NULL, NULL, '192.168.0.5', 'Flex', 'Calendar module on the way', 'I will start on a calendar soon.<br>It will keep track of private and public member events/appointments.<br><br>Ideas:<br>Keep track of Birthdays private and public.<br>PM/email alert settings for special events private and public.<br>Split calendar main page.<br>Mini calendar for menu.<br>Holladays.', NULL, 'Self', '', ''),
(90, '3', '4', '0', '4', '1199389564', 'xx', NULL, NULL, '192.168.0.5', 'Flex', 'Test2 New RSS feeds', 'Test2 New RSS feeds', NULL, 'Self', '', '');

-- --------------------------------------------------------

--
-- Table structure for table `gallery_cat`
--

CREATE TABLE `gallery_cat` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `cat_name` varchar(500) collate latin1_general_ci default NULL,
  `disc` varchar(500) collate latin1_general_ci default NULL,
  `view_ct` varchar(25) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=2 ;

--
-- Dumping data for table `gallery_cat`
--

INSERT INTO `gallery_cat` (`id`, `cat_name`, `disc`, `view_ct`) VALUES
(1, 'New Gallery', 'New Gallery New Gallery', NULL);

-- --------------------------------------------------------

--
-- Table structure for table `gallery_subcat`
--

CREATE TABLE `gallery_subcat` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `cat_id` varchar(500) collate latin1_general_ci default NULL,
  `subcat_name` varchar(500) collate latin1_general_ci default NULL,
  `disc` varchar(500) collate latin1_general_ci default NULL,
  `view_ct` varchar(25) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=4 ;

--
-- Dumping data for table `gallery_subcat`
--

INSERT INTO `gallery_subcat` (`id`, `cat_id`, `subcat_name`, `disc`, `view_ct`) VALUES
(3, '1', 'NEw Gallery', 'sdg gsfsdf', NULL);

-- --------------------------------------------------------

--
-- Table structure for table `gallery_x`
--

CREATE TABLE `gallery_x` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `cat_id` varchar(500) collate latin1_general_ci default NULL,
  `subcat_id` varchar(500) collate latin1_general_ci default NULL,
  `pic_disc` varchar(500) collate latin1_general_ci default NULL,
  `pic` varchar(500) collate latin1_general_ci default NULL,
  `view_ct` varchar(25) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=14 ;

--
-- Dumping data for table `gallery_x`
--

INSERT INTO `gallery_x` (`id`, `cat_id`, `subcat_id`, `pic_disc`, `pic`, `view_ct`) VALUES
(1, '1', '', '1.jpg', '1//1.jpg', NULL),
(4, '1', '', '1.gif', '1//1.gif', NULL),
(8, '1', '3', 'kiata_ginny.gif', '1/3/kiata_ginny.gif', NULL),
(9, '1', '3', '7975.jpg', '1/3/7975.jpg', NULL),
(10, '1', '3', '30529.jpg', '1/3/30529.jpg', NULL),
(11, '1', '3', 'RollCallHeader.gif', '1/3/RollCallHeader.gif', NULL),
(12, '1', '3', '305291.jpg', '1/3/305291.jpg', NULL),
(13, '1', '3', 'h_ambulance.gif', '1/3/h_ambulance.gif', NULL);

-- --------------------------------------------------------

--
-- Table structure for table `mainmenu`
--

CREATE TABLE `mainmenu` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `title` text collate latin1_general_ci,
  `link` text collate latin1_general_ci,
  `image` text collate latin1_general_ci,
  `image2` text collate latin1_general_ci,
  `active` varchar(25) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=15 ;

--
-- Dumping data for table `mainmenu`
--

INSERT INTO `mainmenu` (`id`, `title`, `link`, `image`, `image2`, `active`) VALUES
(1, 'Home', '%pageurl%/index.%ext%', '', 'home1.png', '1'),
(2, 'Articles', '%pageurl%/index.%ext%?op=cats;module=Forum;sticky=articles', '', 'files_edit.png', '1'),
(3, 'Chat', '%pageurl%/index.%ext%?op=enter_chat;module=Chat', '', 'desktop.png', '1'),
(4, 'Forum', '%pageurl%/index.%ext%?op=cats;module=Forum', '', 'folder.png', '1'),
(6, 'FAQ', '%pageurl%/index.%ext%?op=faq;module=FAQ', '', 'help1.png', '1'),
(8, 'Gallery', '%pageurl%/index.%ext%?op=cat_view;module=Gallery', '', 'folder_movies.png', '1'),
(10, 'Polls', '%pageurl%/index.%ext%?op=cats;module=Forum;sticky=poll', '', 'poll.png', '1'),
(11, 'Ranks', '%pageurl%/index.%ext%?op=print_ranks', '', 'comic_trophy.png', '1'),
(12, 'Flex-Wiki', '%pageurl%/index.%ext%?op=view;module=Wiki', '', 'help1.png', '1'),
(13, 'Privacy Policy', 'javascript:doGETRequest(''%pageurl%/index.%ext%?op=page;id=194'', processReqChangeMany, ''controle'', '''');', '', 'home1.png', '1'),
(14, 'Site News', '%non_cgi_url%/newsfeed.xml', 'xml.gif', 'exec.png', '1');

-- --------------------------------------------------------

--
-- Table structure for table `members`
--

CREATE TABLE `members` (
  `memberid` smallint(5) unsigned NOT NULL auto_increment,
  `password` varchar(40) collate latin1_general_ci default NULL,
  `uid` varchar(25) collate latin1_general_ci default NULL,
  `nick` varchar(50) collate latin1_general_ci default NULL,
  `email` varchar(100) collate latin1_general_ci default NULL,
  `website` varchar(150) collate latin1_general_ci default NULL,
  `websiteurl` varchar(150) collate latin1_general_ci default NULL,
  `signature` text collate latin1_general_ci,
  `seclevel` varchar(50) collate latin1_general_ci default NULL,
  `memberpic` varchar(255) collate latin1_general_ci default NULL,
  `joined` varchar(50) collate latin1_general_ci default NULL,
  `xp` varchar(50) collate latin1_general_ci default NULL,
  `votes` varchar(50) collate latin1_general_ci default NULL,
  `next_votes` varchar(50) collate latin1_general_ci default NULL,
  `theme` varchar(50) collate latin1_general_ci default NULL,
  `icq` varchar(50) collate latin1_general_ci default NULL,
  `yahoo` varchar(50) collate latin1_general_ci default NULL,
  `aim` varchar(50) collate latin1_general_ci default NULL,
  `msnm` varchar(50) collate latin1_general_ci default NULL,
  `skype` varchar(50) collate latin1_general_ci default NULL,
  `flag` varchar(50) collate latin1_general_ci default NULL,
  `gen` varchar(50) collate latin1_general_ci default NULL,
  `bugbadge` varchar(50) collate latin1_general_ci default NULL,
  `votes_used` varchar(50) collate latin1_general_ci NOT NULL default '0',
  `view_ct` varchar(50) collate latin1_general_ci NOT NULL default '0',
  `date_expire` varchar(50) collate latin1_general_ci default NULL,
  `rib` varchar(50) collate latin1_general_ci default NULL,
  `approved` varchar(50) collate latin1_general_ci default NULL,
  `admin_ip` varchar(50) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`memberid`),
  UNIQUE KEY `uid` (`uid`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=2 ;

--
-- Dumping data for table `members`
--

INSERT INTO `members` (`memberid`, `password`, `uid`, `nick`, `email`, `website`, `websiteurl`, `signature`, `seclevel`, `memberpic`, `joined`, `xp`, `votes`, `next_votes`, `theme`, `icq`, `yahoo`, `aim`, `msnm`, `skype`, `flag`, `gen`, `bugbadge`, `votes_used`, `view_ct`, `date_expire`, `rib`, `approved`, `admin_ip`) VALUES
(1, 'b431d9983e1f92da8ce57b0b44fe3e4ac4417d4a', 'admin', 'Admin', 'shakainc@tampabay.rr.com', 'Flex', 'http://192.168.0.5/cgi-bin/001/index.cgi', '&#124;=73}{ &#92;/&#92;/&#124;&#42;5 ^^&#92;^5&amp;&#124;_', 'Administrator', 'l33t_DES_nephros-lock.png', '1140159296', '10000', '50', '1208983886', 'standard', '', '', '', '', '', 'usa.gif', 'Male', '20', '', '36', '2', '1,3', '1', '');

-- --------------------------------------------------------

--
-- Table structure for table `meta_tags`
--

CREATE TABLE `meta_tags` (
  `description` varchar(50) collate latin1_general_ci NOT NULL default '',
  `keywords` varchar(50) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`description`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci;

--
-- Dumping data for table `meta_tags`
--

INSERT INTO `meta_tags` (`description`, `keywords`) VALUES
('The sites meta description', 'The sites meta Keywords');

-- --------------------------------------------------------

--
-- Table structure for table `module_settings`
--

CREATE TABLE `module_settings` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `module_name` varchar(50) collate latin1_general_ci default NULL,
  `settings` text collate latin1_general_ci,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=2 ;

--
-- Dumping data for table `module_settings`
--

INSERT INTO `module_settings` (`id`, `module_name`, `settings`) VALUES
(1, 'RSS_Module', '+3h|225|7|1|1');

-- --------------------------------------------------------

--
-- Table structure for table `optimize`
--

CREATE TABLE `optimize` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `table_name` text collate latin1_general_ci,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=6 ;

--
-- Dumping data for table `optimize`
--

INSERT INTO `optimize` (`id`, `table_name`) VALUES
(1, 'rss_info'),
(2, 'rss_members'),
(3, 'wiki_journal'),
(4, 'wiki_site'),
(5, 'wiki_user');

-- --------------------------------------------------------

--
-- Table structure for table `pages`
--

CREATE TABLE `pages` (
  `pageid` smallint(5) unsigned NOT NULL auto_increment,
  `active` varchar(25) collate latin1_general_ci default NULL,
  `title` text collate latin1_general_ci,
  `pagetext` text collate latin1_general_ci,
  `sec_level` varchar(500) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`pageid`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=3 ;

--
-- Dumping data for table `pages`
--

INSERT INTO `pages` (`pageid`, `active`, `title`, `pagetext`, `sec_level`) VALUES
(1, '1', 'Privacy Policy', 'This privacy policy discloses the privacy practices for [wiki://Flex-WPS]. Any questions \r\nregarding this privacy policy, please contact us at info@SuperWeb.com \r\nwith your message.<br>\r\n<br><center><hr with="65%"><b><big>Cookies</big></b></center>A cookie is a piece of data stored on the user''s hard drive containing information about the user. The storage of such cookies is optional, and the user will still be able to use the web.<br>HTTP Only Fagged Cookie is used on this site to Authenticate  the Members and are per session only. Not all browsers support HTTP Only out of the box, but most vender''s do have a Add-on or Plug-in that can add this security.<br> Some of our business partners use cookies on our site (for example, advertisers). However, we have no access to or control over these cookies.<br><br><center><hr with="65%"><b><big>Sharing</big></b></center>We will share traffic information (visitor counts) with partners and advertisers. None of this information contains personal information.<br><br><center><hr with="65%"><b><big>Links</big></b></center>This web site contains links to other sites. Please be aware that we at Flex-WPS are not responsible for the privacy practices of such other sites. We encourage our users to be aware when they leave our site and to read the privacy statements of each and every web site that collects personally identifiable information. This privacy policy applies solely to information collected by this Web site.<br><br><center><hr with="65%"><b><big>Security</big></b></center>This website takes every precaution to protect our user''s information. Only site administrators are allowed to access your information.<br><br><center><hr with="65%"><b><big>Information</big></b></center>When a user contacts this sites administrators by e-mail, the users message may be logged. This is to provide the administrators with the ability to develop a reference of past messages, or to contact the user with important information regarding there e-mail. Other information collected is to provide a more personalized experience. None of this personal information you submit is soled or viewed by anyone other then the administrators of this site.<br><br><center><hr with="65%"><b><big>Notification of Changes</big></b></center>If we decide to change our privacy policy, we will post those changes on our Homepage so our users are always aware of what information we collect, how we use it, and under circumstances, if any, we disclose it. If at any point we decide to use personally identifiable information in a manner different from that stated at the time it was collected, we will notify users on our Homepage. Users will have a choice as to whether or not we use their information in this different manner. We will use information in accordance with the privacy policy under which the information was collected.<br><br><center><hr with="65%"></center>', 'Guest'),
(2, '1', 'About Us', 'This Script has been a dream come true of what i wanted in a Web Portal / Web Applacation.<br>\r\nFor the past 7 year I have maintained Perl/CGI scripts for customers and friends. Through out that time my Perl skills improved and I desided it was time to make my own sytem.<br><br>\r\nAfter 2 years of trial and error the Core layout was completed.<br>\r\nThe Core of Flex-WPS mySQL was made based on the idea that all pages are a module and the Home page is', 'Guest');
-- --------------------------------------------------------

--
-- Table structure for table `pmin`
--

CREATE TABLE `pmin` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `memberid` varchar(50) collate latin1_general_ci default NULL,
  `posterid` varchar(50) collate latin1_general_ci default NULL,
  `date` varchar(50) collate latin1_general_ci default NULL,
  `subject` text collate latin1_general_ci,
  `message` text collate latin1_general_ci,
  `new` varchar(15) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ;


--
-- Table structure for table `pmout`
--

CREATE TABLE `pmout` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `memberid` varchar(50) collate latin1_general_ci default NULL,
  `posterid` varchar(50) collate latin1_general_ci default NULL,
  `date` varchar(50) collate latin1_general_ci default NULL,
  `subject` text collate latin1_general_ci,
  `message` text collate latin1_general_ci,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ;


--
-- Table structure for table `rank`
--

CREATE TABLE `rank` (
  `rankid` smallint(5) unsigned NOT NULL auto_increment,
  `ranknumber` varchar(100) collate latin1_general_ci default NULL,
  `rankname` varchar(100) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`rankid`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=22 ;

--
-- Dumping data for table `rank`
--

INSERT INTO `rank` (`rankid`, `ranknumber`, `rankname`) VALUES
(1, '0', 'Recruit'),
(2, '50', 'Private'),
(3, '100', 'Pvt. 1St Class'),
(4, '150', 'Corporal'),
(5, '200', 'Sergeant'),
(6, '500', 'Staff Sergeant'),
(7, '900', 'Serg. 1St Class'),
(8, '1100', 'Master Sergeant'),
(9, '1300', 'Serg. Major'),
(10, '1500', '2.Lieutenant'),
(11, '1700', '1.Lieutenant'),
(12, '1900', 'Captain'),
(13, '3000', 'Major'),
(14, '4000', 'LT.Colonel'),
(15, '5000', 'Colonel'),
(16, '6000', 'Brig. General'),
(17, '7000', 'Major General'),
(18, '8000', 'LT.General'),
(19, '9000', 'General'),
(20, '10000', 'General of Flex-WPS');

-- --------------------------------------------------------

--
-- Table structure for table `rss_info`
--

CREATE TABLE `rss_info` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `name` varchar(50) collate latin1_general_ci default NULL,
  `link` text collate latin1_general_ci,
  `data` longtext collate latin1_general_ci NOT NULL,
  `date` varchar(50) collate latin1_general_ci default NULL,
  `sec_lvl` varchar(50) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=8 ;

--
-- Dumping data for table `rss_info`
--

INSERT INTO `rss_info` (`id`, `name`, `link`, `data`, `date`, `sec_lvl`) VALUES
(1, 'Perl Monks', 'http://www.perlmonks.com/?node_id=30175&xmlstyle=rss', '<?xml version="1.0" encoding="ISO-8859-1"?>\n<rss version="2" xmlns:perlmonks="http://perlmonks.org/index.pl?node_id=393035"><channel><ttl>60</ttl>\n<title>PerlMonks - Newest Nodes</title>\n<link>http://perlmonks.org/index.pl?node_id=30175</link>\n<docs>http://blogs.law.harvard.edu/tech/rss</docs>\n<generator>PerlMonks Newest Nodes XML Generator</generator>\n<perlmonks:foruser_id>961</perlmonks:foruser_id>\n<perlmonks:sitename>PerlMonks</perlmonks:sitename>\n<perlmonks:gentimeGMT>2008-01-03 14:58:16</perlmonks:gentimeGMT>\n<perlmonks:style>rss,clean</perlmonks:style>\n<perlmonks:got_from>Wed Jan  2 09:58:16 2008</perlmonks:got_from>\n<perlmonks:min_poll_seconds>30</perlmonks:min_poll_seconds>\n<perlmonks:lastchecked>20080102095816</perlmonks:lastchecked>\n<perlmonks:req_from>Wed Jan  2 09:58:16 2008</perlmonks:req_from>\n<perlmonks:site>http://perlmonks.org/</perlmonks:site>\n<perlmonks:foruser>Anonymous Monk</perlmonks:foruser>\n<item perlmonks:itemtype="node"><title>poll ideas quest 2007</title>\n<link>http://perlmonks.org/index.pl?node_id=660077</link>\n<description>\r\n\r\nI personally believe that a new thread should be started, perhaps with a link to last year&#39;&lt;a href="?node_id=626523"&gt;s&lt;/a&gt;.\r\n\r\n\r\n...</description>\n<category>monkdiscuss</category>\n<pubDate>Wed, 02 Jan 2008 23:10:58 +0000</pubDate>\n<guid>660077</guid>\n<perlmonks:node_id>660077</perlmonks:node_id>\n<perlmonks:author_user>409850</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 18:10:58</perlmonks:createtime>\n<perlmonks:authortitle>blazar</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Preventing MySQL Injection</title>\n<link>http://perlmonks.org/index.pl?node_id=660197</link>\n<description>In PHP there is a simple function, mysql_real_escape_string(), that takes whatever string you throw at it and escapes it for mysql. \r\n\r\nIs there a perl function that will do the same? I know t...</description>\n<category>perlquestion</category>\n<pubDate>Thu, 03 Jan 2008 14:12:21 +0000</pubDate>\n<guid>660197</guid>\n<perlmonks:node_id>660197</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:12:21</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Coding for multiple Languages</title>\n<link>http://perlmonks.org/index.pl?node_id=660196</link>\n<description>Hi All,\r\n&amp;nbsp; I&#39;m updating one of my scripts so that it&#39;s language packable. Swapping all the outputted text for variables that are stored in a separate file that&#39;s required in. So translations ...</description>\n<category>perlquestion</category>\n<pubDate>Thu, 03 Jan 2008 14:08:19 +0000</pubDate>\n<guid>660196</guid>\n<perlmonks:node_id>660196</perlmonks:node_id>\n<perlmonks:author_user>402839</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:08:19</perlmonks:createtime>\n<perlmonks:authortitle>cosmicperl</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Naming a module</title>\n<link>http://perlmonks.org/index.pl?node_id=660167</link>\n<description>Hi all,\r\n\r\nI&#39;m looking for a proper name for a module &lt;a href="?node_id=656142"&gt;discussed here&lt;/a&gt; previously.\r\nOriginally I called this module Tie::File::AnyData but some comments pointed me out tha...</description>\n<category>perlquestion</category>\n<pubDate>Thu, 03 Jan 2008 11:34:55 +0000</pubDate>\n<guid>660167</guid>\n<perlmonks:node_id>660167</perlmonks:node_id>\n<perlmonks:author_user>615480</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:34:55</perlmonks:createtime>\n<perlmonks:authortitle>citromatik</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Entities confuse encoding in XML::Simple</title>\n<link>http://perlmonks.org/index.pl?node_id=660162</link>\n<description>Hello\r\n\r\nI&#39;m using XML::Simple to read a latin1 (iso-8859-1) xml file and everything is great until it encounters some &amp;amp;#xxx  style entities. Strings containing those entities seem to be double en...</description>\n<category>perlquestion</category>\n<pubDate>Thu, 03 Jan 2008 11:24:37 +0000</pubDate>\n<guid>660162</guid>\n<perlmonks:node_id>660162</perlmonks:node_id>\n<perlmonks:author_user>660155</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:24:37</perlmonks:createtime>\n<perlmonks:authortitle>gizzlon</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>SOLVED Printing last two characters</title>\n<link>http://perlmonks.org/index.pl?node_id=660160</link>\n<description>SOLVED\r\n\r\nCan someone please tell me how to print the last two characters on the end of a string.\r\n\r\n1234,Dr,Huxtable,Cliff,M,24/12/1976,60\r\n\r\nHere is my pattern match\r\n\r\n$sigh...</description>\n<category>perlquestion</category>\n<pubDate>Thu, 03 Jan 2008 11:20:44 +0000</pubDate>\n<guid>660160</guid>\n<perlmonks:node_id>660160</perlmonks:node_id>\n<perlmonks:author_user>660158</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:20:44</perlmonks:createtime>\n<perlmonks:authortitle>Slug</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Using $a and $b for sort</title>\n<link>http://perlmonks.org/index.pl?node_id=660159</link>\n<description>Hey all,,,\r\n  I have got some confusion with the usage of $a and $b for sorting a hash table, as i am using the same variables for some other calculations in the script. Appreciate your response......</description>\n<category>perlquestion</category>\n<pubDate>Thu, 03 Jan 2008 11:18:14 +0000</pubDate>\n<guid>660159</guid>\n<perlmonks:node_id>660159</perlmonks:node_id>\n<perlmonks:author_user>660150</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:18:14</perlmonks:createtime>\n<perlmonks:authortitle>Antony Lewis</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>method invocation syntax at perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660146</link>\n<description>Hello\r\nI&#39;ve got a little problem with method invocation, here is a code:\r\n\r\n\r\nmy $l = new z;\r\n\r\n$l-&gt;{xxx4} = &#39;wrong way&#39;;\r\n\r\nmy $str = &#39;xxx&#39;;\r\nmy $str1 = "4";\r\nmy $str2 = "param1";\r\n\r\neval ...</description>\n<category>perlquestion</category>\n<pubDate>Thu, 03 Jan 2008 09:46:05 +0000</pubDate>\n<guid>660146</guid>\n<perlmonks:node_id>660146</perlmonks:node_id>\n<perlmonks:author_user>660137</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 04:46:05</perlmonks:createtime>\n<perlmonks:authortitle>braveghost</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Catalyst::Plugin::Session module usage</title>\n<link>http://perlmonks.org/index.pl?node_id=660138</link>\n<description>Hi,\r\n\r\nI am developing an application. I want/asked to use Catalyst::Plugin::Session module for session management. I have gone thru the Docs. But still I didnt get clear idea of how to use it...</description>\n<category>perlquestion</category>\n<pubDate>Thu, 03 Jan 2008 09:10:52 +0000</pubDate>\n<guid>660138</guid>\n<perlmonks:node_id>660138</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 04:10:52</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Need Help! Two Dimentional Array Sorting</title>\n<link>http://perlmonks.org/index.pl?node_id=660117</link>\n<description>I have a file which looks like this:----\r\n\r\nENDPOINT	DISTRIBUTION_ID	STATUS\r\nVMW	 `1781183799.31152&#39;	IC---\r\nWX	 `1781183799.32206&#39;	      \r\nBN1	 `1781183799.32206&#39;	      \r...</description>\n<category>perlquestion</category>\n<pubDate>Thu, 03 Jan 2008 03:45:17 +0000</pubDate>\n<guid>660117</guid>\n<perlmonks:node_id>660117</perlmonks:node_id>\n<perlmonks:author_user>657302</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 22:45:17</perlmonks:createtime>\n<perlmonks:authortitle>nashkab</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>How to run a 2nd script in background?</title>\n<link>http://perlmonks.org/index.pl?node_id=660111</link>\n<description>Hi Fellow monks,\r\nI seek your wisdom in solving this problem i have, hehe.\r\nI&#39;m have a first script running and i want to add on a call to a second script which does heavy processing which takes up a ...</description>\n<category>perlquestion</category>\n<pubDate>Thu, 03 Jan 2008 02:42:10 +0000</pubDate>\n<guid>660111</guid>\n<perlmonks:node_id>660111</perlmonks:node_id>\n<perlmonks:author_user>471587</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 21:42:10</perlmonks:createtime>\n<perlmonks:authortitle>MelaOS</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>flock LOCK_EX not locking exclusively</title>\n<link>http://perlmonks.org/index.pl?node_id=660099</link>\n<description>I&#39;m working on a program that does tasks in tandem. It forks into some number of processes, and the children wait for specifically formatted text files to tell them exactly what to do. Since each text...</description>\n<category>perlquestion</category>\n<pubDate>Thu, 03 Jan 2008 00:55:13 +0000</pubDate>\n<guid>660099</guid>\n<perlmonks:node_id>660099</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:55:13</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>How to decode this "gzinflate (base64_decode(***</title>\n<link>http://perlmonks.org/index.pl?node_id=660083</link>\n<description>I have a php file with this soruce:\r\n\r\neval(gzinflate(base64_decode(********code*******)));\r\n\r\nI need to write a little script to decode the ****code*** but dont know how to do it with perl... any id...</description>\n<category>perlquestion</category>\n<pubDate>Wed, 02 Jan 2008 23:52:26 +0000</pubDate>\n<guid>660083</guid>\n<perlmonks:node_id>660083</perlmonks:node_id>\n<perlmonks:author_user>629639</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 18:52:26</perlmonks:createtime>\n<perlmonks:authortitle>Zeokat</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Detect which version of perl an XS module is linked against?</title>\n<link>http://perlmonks.org/index.pl?node_id=660081</link>\n<description>All,\r\n\r\nI have been trouble shooting a problem running the &lt;a href="http://parrotcode.org"&gt;Parrot&lt;/a&gt; test suite.  This is on Win32 using AS Perl 5.10.0 with MinGW.  The issue is that I was getting a window...</description>\n<category>perlquestion</category>\n<pubDate>Wed, 02 Jan 2008 23:39:21 +0000</pubDate>\n<guid>660081</guid>\n<perlmonks:node_id>660081</perlmonks:node_id>\n<perlmonks:author_user>180961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 18:39:21</perlmonks:createtime>\n<perlmonks:authortitle>Limbic~Region</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Tailing two files at once through IO::Socket</title>\n<link>http://perlmonks.org/index.pl?node_id=660076</link>\n<description>I have two scripts that connect to two different servers, they always stay connected. They both run on the same machine, and the remote servers they connect to have script(s) that wait for the socket ...</description>\n<category>perlquestion</category>\n<pubDate>Wed, 02 Jan 2008 23:03:41 +0000</pubDate>\n<guid>660076</guid>\n<perlmonks:node_id>660076</perlmonks:node_id>\n<perlmonks:author_user>632321</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 18:03:41</perlmonks:createtime>\n<perlmonks:authortitle>hallikpapa</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>How to Check if XML Well Formed</title>\n<link>http://perlmonks.org/index.pl?node_id=660065</link>\n<description>What&#39;s a quick easy way to check whether an .xml file is "well formed"?  I don&#39;t need to open the file or manipulate its contents, just loop thru a set of files decide whether each is well formed.  I ...</description>\n<category>perlquestion</category>\n<pubDate>Wed, 02 Jan 2008 22:11:08 +0000</pubDate>\n<guid>660065</guid>\n<perlmonks:node_id>660065</perlmonks:node_id>\n<perlmonks:author_user>627071</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 17:11:08</perlmonks:createtime>\n<perlmonks:authortitle>Photius</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Determining gender based on first name</title>\n<link>http://perlmonks.org/index.pl?node_id=660063</link>\n<description>I searched Google and on here and came across Text::GenderFromName but most of our data we use for reporting are Spanish names so Text::GenderFromName doesn&#39;t appear to the best fit as it deals with p...</description>\n<category>perlquestion</category>\n<pubDate>Wed, 02 Jan 2008 21:44:56 +0000</pubDate>\n<guid>660063</guid>\n<perlmonks:node_id>660063</perlmonks:node_id>\n<perlmonks:author_user>437944</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 16:44:56</perlmonks:createtime>\n<perlmonks:authortitle>bobdole</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Regular Expression Matching Issue</title>\n<link>http://perlmonks.org/index.pl?node_id=660033</link>\n<description>Hi there Monks!\r\n\r\nCan someone explain why this code does not match on my code?\r\nI have to use regular expression for  this.Thank you very much!!!\r\n\r\n#!/perl/bin/perl\r\n\r\n\r\nuse CG...</description>\n<category>perlquestion</category>\n<pubDate>Wed, 02 Jan 2008 18:57:53 +0000</pubDate>\n<guid>660033</guid>\n<perlmonks:node_id>660033</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 13:57:53</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Reaped: Statistics from a txt file</title>\n<link>http://perlmonks.org/index.pl?node_id=660028</link>\n<description>This node was taken out by the &lt;a href="?node=NodeReaper"&gt;NodeReaper&lt;/a&gt; on Jan 02, 2008 at 19:25 UTCReason:  &amp;#91;&lt;a href="?node=toolic"&gt;toolic&lt;/a&gt;&amp;#93;: reap: dup of &lt;a href="?node_id=660026"&gt;Re^2: Statistics from a txtfile&lt;/a&gt;You may view &amp;#91;href://?node=Visit%20Reaped%20Nodes&amp;nodenum=6600...</description>\n<category>perlquestion</category>\n<pubDate>Wed, 02 Jan 2008 18:32:30 +0000</pubDate>\n<guid>660028</guid>\n<perlmonks:node_id>660028</perlmonks:node_id>\n<perlmonks:author_user>52855</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 13:32:30</perlmonks:createtime>\n<perlmonks:authortitle>NodeReaper</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>How to use MIME::Decoder::Gzip64</title>\n<link>http://perlmonks.org/index.pl?node_id=660025</link>\n<description>I have a file with data encoded with base64 gzip and i need to  decode this data, i know tha i have to use this http://search.cpan.org/~doneill/MIME-tools-5.425/lib/MIME/Decoder/Gzip64.pm\r\n\r\nbut i can...</description>\n<category>perlquestion</category>\n<pubDate>Wed, 02 Jan 2008 18:26:00 +0000</pubDate>\n<guid>660025</guid>\n<perlmonks:node_id>660025</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 13:26:00</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Creating SOAP client to pass data to Java</title>\n<link>http://perlmonks.org/index.pl?node_id=660002</link>\n<description>Afternoon, \r\n\r\nI&#39;m trying to write a SOAP service to decode a cookie and pass the details in SOAP to a Java client (Perl being better at data munging in this instance). Whilst testing this, I have not...</description>\n<category>perlquestion</category>\n<pubDate>Wed, 02 Jan 2008 16:46:08 +0000</pubDate>\n<guid>660002</guid>\n<perlmonks:node_id>660002</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:46:08</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>DBI place holder for sub query problem</title>\n<link>http://perlmonks.org/index.pl?node_id=659996</link>\n<description>I am using DBI and Oracle 10. I want to use placeholders as I have read this is the best way to do things. my code looks like this\r\n\r\n$sth=$dbh-&gt;prepare("Update Customers set RESULTS =(&#39;?&#39;) wher...</description>\n<category>perlquestion</category>\n<pubDate>Wed, 02 Jan 2008 16:29:46 +0000</pubDate>\n<guid>659996</guid>\n<perlmonks:node_id>659996</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:29:46</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Removing duplicates from an array</title>\n<link>http://perlmonks.org/index.pl?node_id=659995</link>\n<description>Dear Monks,\r\n\r\nRegarding the following code:\r\n\r\n\r\n\r\n while (@regions_A = $sth_atl-&gt;fetchrow_array) {\r\n    \r\n    push (@regions_A_array, @regions_A);\r\n    \r\n  }\r\n\r\n\r\n\r\n\r\n\r\n...</description>\n<category>perlquestion</category>\n<pubDate>Wed, 02 Jan 2008 16:29:14 +0000</pubDate>\n<guid>659995</guid>\n<perlmonks:node_id>659995</perlmonks:node_id>\n<perlmonks:author_user>304479</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:29:14</perlmonks:createtime>\n<perlmonks:authortitle>Win</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>String::Combination Package Bug?</title>\n<link>http://perlmonks.org/index.pl?node_id=659992</link>\n<description>\r\nI used the String::Combination package, downloaded from the ActivePerl site, and got what appear so plainly like a bug that I believe I must be wrong somewhere in my understanding. The code\r\n\r\n...</description>\n<category>perlquestion</category>\n<pubDate>Wed, 02 Jan 2008 15:37:50 +0000</pubDate>\n<guid>659992</guid>\n<perlmonks:node_id>659992</perlmonks:node_id>\n<perlmonks:author_user>577302</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 10:37:50</perlmonks:createtime>\n<perlmonks:authortitle>b4swine</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Problem restarting Apache 2.2.6 on Windows when mod_perl is installed</title>\n<link>http://perlmonks.org/index.pl?node_id=660042</link>\n<description>Dear Monks,\r\n\r\nI have discovered that there can be a problem restarting Apache 2.2.6 on Windows when mod_perl is installed.  If you run "httpd -k restart", Apache can fail to start and produ...</description>\n<category>perlmeditation</category>\n<pubDate>Wed, 02 Jan 2008 19:35:02 +0000</pubDate>\n<guid>660042</guid>\n<perlmonks:node_id>660042</perlmonks:node_id>\n<perlmonks:author_user>653259</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:35:02</perlmonks:createtime>\n<perlmonks:authortitle>memnoch</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Lisbon.pm tech meeting #7</title>\n<link>http://perlmonks.org/index.pl?node_id=660101</link>\n<description>2008 looks promising, and Lisbon.pm will be starting the year with a tech meeting.\r\n\r\nTomorrow, Thursday (January the 3rd), starting around 20:00.\r\n\r\nThe talks:\r\n\r\n\r\n	"Perl6 em P...</description>\n<category>perlnews</category>\n<pubDate>Thu, 03 Jan 2008 00:59:03 +0000</pubDate>\n<guid>660101</guid>\n<perlmonks:node_id>660101</perlmonks:node_id>\n<perlmonks:author_user>326280</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:59:03</perlmonks:createtime>\n<perlmonks:authortitle>cog</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>TETRA CTYS</title>\n<link>http://perlmonks.org/index.pl?node_id=660149</link>\n<description>\r\n#!/usr/bin/perl#?\r\n#3rdeyeperls#    #\r\n#hllllp#         #\r\n###             #\r\n#              #0#\r\n             $a = 1;\r\n           $b = 1 + 2;\r\n          $c = 1 + 2 + 3;\r\n       $d = 1 + 2 + 3 ...</description>\n<category>obfuscated</category>\n<pubDate>Thu, 03 Jan 2008 10:11:05 +0000</pubDate>\n<guid>660149</guid>\n<perlmonks:node_id>660149</perlmonks:node_id>\n<perlmonks:author_user>660019</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 05:11:05</perlmonks:createtime>\n<perlmonks:authortitle>llll</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>RFC1751 encoder</title>\n<link>http://perlmonks.org/index.pl?node_id=660075</link>\n<description>\r\n#!/usr/bin/perl\r\n\r\nno strict;\r\nno warnings;\r\n\r\nuse Scriptalicious;\r\ngetopt("clean|c" =&gt; &#92;$clean);\r\n\r\n@dict = (\r\n"A", "ABE", "ACE", "ACT", "AD", "ADA", "ADD",\r\n"AGO", "AID", "AIM", "AIR", "ALL"...</description>\n<category>sourcecode</category>\n<pubDate>Wed, 02 Jan 2008 23:03:37 +0000</pubDate>\n<guid>660075</guid>\n<perlmonks:node_id>660075</perlmonks:node_id>\n<perlmonks:author_user>86555</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 18:03:37</perlmonks:createtime>\n<perlmonks:authortitle>mugwumpjism</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Coding for multiple Languages</title>\n<link>http://perlmonks.org/index.pl?node_id=660206</link>\n<description> (and STDIN and STDOUT?) \r\nIt doesn&#39;t.  For that you need use open qw/:utf8 :std/;...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 14:57:22 +0000</pubDate>\n<guid>660206</guid>\n<perlmonks:node_id>660206</perlmonks:node_id>\n<perlmonks:author_user>345630</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:57:22</perlmonks:createtime>\n<perlmonks:authortitle>Errto</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Preventing MySQL Injection</title>\n<link>http://perlmonks.org/index.pl?node_id=660205</link>\n<description>Guess i&#39;ll start using place holders instead. \r\n\r\nshould this technique be used exclusively, or only where user/untrusted input is provided?...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 14:54:21 +0000</pubDate>\n<guid>660205</guid>\n<perlmonks:node_id>660205</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:54:21</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Preventing MySQL Injection</title>\n<link>http://perlmonks.org/index.pl?node_id=660204</link>\n<description>As stated above, either use place-holders - which is preferred because it&#39;s cleaner, faster and in general easier to read, or use dbh-&gt;quote and don&#39;t insert quotes yourself.\r\n\r\nWhen ...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 14:51:25 +0000</pubDate>\n<guid>660204</guid>\n<perlmonks:node_id>660204</perlmonks:node_id>\n<perlmonks:author_user>157432</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:51:25</perlmonks:createtime>\n<perlmonks:authortitle>Joost</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^4: method invocation syntax at perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660203</link>\n<description>Thank you very match. As i says it&#39;s just an example, but i will add some more security checks using your advice.\r\nThanks again....</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 14:50:31 +0000</pubDate>\n<guid>660203</guid>\n<perlmonks:node_id>660203</perlmonks:node_id>\n<perlmonks:author_user>660137</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:50:31</perlmonks:createtime>\n<perlmonks:authortitle>braveghost</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: method invocation syntax at perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660202</link>\n<description>\r\nFor one thing if the two strings are coming from an outside source you&#39;ve just given them a means to call an arbitrary method in your code; granted it&#39;s not a gaping hole, but that&#39;s generally en...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 14:34:08 +0000</pubDate>\n<guid>660202</guid>\n<perlmonks:node_id>660202</perlmonks:node_id>\n<perlmonks:author_user>58196</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:34:08</perlmonks:createtime>\n<perlmonks:authortitle>Fletch</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Coding for multiple Languages</title>\n<link>http://perlmonks.org/index.pl?node_id=660201</link>\n<description>On the other hand, there&#39;s likely a module on &lt;a href="http://search.cpan.org/"&gt;CPAN&lt;/a&gt; that will handle this. What you are doing is called "internationalization", or "i18n" for short....</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 14:31:51 +0000</pubDate>\n<guid>660201</guid>\n<perlmonks:node_id>660201</perlmonks:node_id>\n<perlmonks:author_user>381608</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:31:51</perlmonks:createtime>\n<perlmonks:authortitle>ikegami</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^4: Keys() required to autovivify?</title>\n<link>http://perlmonks.org/index.pl?node_id=660200</link>\n<description>\r\n\r\nYeah, but I guess it is the entersub op which forces autovivifying of that undef value into a hash ref, to provide write access. How to verify? "Use the source, luk...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 14:19:10 +0000</pubDate>\n<guid>660200</guid>\n<perlmonks:node_id>660200</perlmonks:node_id>\n<perlmonks:author_user>510280</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:19:10</perlmonks:createtime>\n<perlmonks:authortitle>shmem</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Preventing MySQL Injection</title>\n<link>http://perlmonks.org/index.pl?node_id=660199</link>\n<description>In Perl (and also in PHP, btw), you don&#39;t escape the strings, you use placeholders in your query. I don&#39;t know PHP, but here&#39;s an example for Perl:\r\n\r\nmy $sth = $dbh-&gt;prepare(...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 14:17:15 +0000</pubDate>\n<guid>660199</guid>\n<perlmonks:node_id>660199</perlmonks:node_id>\n<perlmonks:author_user>5348</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:17:15</perlmonks:createtime>\n<perlmonks:authortitle>Corion</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Coding for multiple Languages</title>\n<link>http://perlmonks.org/index.pl?node_id=660198</link>\n<description>use utf8 affects string literals in the source (and STDIN and STDOUT?). Strings stored in a data file won&#39;t be affected by it.\r\n\r\nSimply specify the encoding of the data file when opening...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 14:15:19 +0000</pubDate>\n<guid>660198</guid>\n<perlmonks:node_id>660198</perlmonks:node_id>\n<perlmonks:author_user>381608</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:15:19</perlmonks:createtime>\n<perlmonks:authortitle>ikegami</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: Keys() required to autovivify?</title>\n<link>http://perlmonks.org/index.pl?node_id=660194</link>\n<description>Function arguments are always passed by reference, so they need to be real. But print&#39;s not a function. Keep in mind that the builtin functions are often called "named operators" and that De...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 14:02:40 +0000</pubDate>\n<guid>660194</guid>\n<perlmonks:node_id>660194</perlmonks:node_id>\n<perlmonks:author_user>381608</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:02:40</perlmonks:createtime>\n<perlmonks:authortitle>ikegami</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Creating SOAP client to pass data to Java</title>\n<link>http://perlmonks.org/index.pl?node_id=660193</link>\n<description>Thanks for this Shmem, I&#39;ll keep working on it once I&#39;ve got past the failed access to the class error which trace is bringing up. ...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 14:02:24 +0000</pubDate>\n<guid>660193</guid>\n<perlmonks:node_id>660193</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:02:24</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Detect which version of perl an XS module is linked against?</title>\n<link>http://perlmonks.org/index.pl?node_id=660192</link>\n<description>&lt;a href="?node=BrowserUk"&gt;BrowserUk&lt;/a&gt;,\r\n\r\n\r\nBut attempting to upgrade a major version (5.8.x to 5.10.x) and retain previously installed modules almost certainly won&#39;t. ...\r\n\r\nYour best course of action would...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 13:48:49 +0000</pubDate>\n<guid>660192</guid>\n<perlmonks:node_id>660192</perlmonks:node_id>\n<perlmonks:author_user>180961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 08:48:49</perlmonks:createtime>\n<perlmonks:authortitle>Limbic~Region</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: How to decode this "gzinflate (base64_decode(***</title>\n<link>http://perlmonks.org/index.pl?node_id=660191</link>\n<description>In your php script you can remove the eval() and change it to echo(). That will display the code for you, although in my experience you may find this code is itself ziped and evaled down to several le...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 13:43:53 +0000</pubDate>\n<guid>660191</guid>\n<perlmonks:node_id>660191</perlmonks:node_id>\n<perlmonks:author_user>402839</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 08:43:53</perlmonks:createtime>\n<perlmonks:authortitle>cosmicperl</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^17: somethign wrong with the sumbit</title>\n<link>http://perlmonks.org/index.pl?node_id=660190</link>\n<description>Encode::Guess?...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 13:42:31 +0000</pubDate>\n<guid>660190</guid>\n<perlmonks:node_id>660190</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 08:42:31</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Detect which version of perl an XS module is linked against?</title>\n<link>http://perlmonks.org/index.pl?node_id=660189</link>\n<description>&lt;a href="?node=chromatic"&gt;chromatic&lt;/a&gt;,\r\n\r\nI agree.  When I ran the de-install it obviously did not remove everything it should have.  The &lt;a href="http://parrotcode.org"&gt;Parrot&lt;/a&gt; test suite should be able to run without user inter...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 13:40:55 +0000</pubDate>\n<guid>660189</guid>\n<perlmonks:node_id>660189</perlmonks:node_id>\n<perlmonks:author_user>180961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 08:40:55</perlmonks:createtime>\n<perlmonks:authortitle>Limbic~Region</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: method invocation syntax at perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660188</link>\n<description>Thank you for your advices, both of them can solve my problem of course. But my question better about perl syntax. :)...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 13:34:33 +0000</pubDate>\n<guid>660188</guid>\n<perlmonks:node_id>660188</perlmonks:node_id>\n<perlmonks:author_user>660137</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 08:34:33</perlmonks:createtime>\n<perlmonks:authortitle>braveghost</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: method invocation syntax at perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660186</link>\n<description>Thanks a large. This exactly thing i want.\r\nfor my case it will be:\r\n\r\n\r\nprint $l-&gt;${&#92;($str.$str1)}($str2);\r\n\r\n\r\n\r\nBut why don&#39;t you recomend this solution?...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 13:21:26 +0000</pubDate>\n<guid>660186</guid>\n<perlmonks:node_id>660186</perlmonks:node_id>\n<perlmonks:author_user>660137</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 08:21:26</perlmonks:createtime>\n<perlmonks:authortitle>braveghost</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Entities confuse encoding in XML::Simple</title>\n<link>http://perlmonks.org/index.pl?node_id=660184</link>\n<description>Even if it somehow had the wrong encoding, isn&#39;t it strange that some of the output is correct and some is not? \r\n\r\nAnyway, the terminal is utf8 and I was surprised to see that binmode S...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 13:17:35 +0000</pubDate>\n<guid>660184</guid>\n<perlmonks:node_id>660184</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 08:17:35</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Naming a module</title>\n<link>http://perlmonks.org/index.pl?node_id=660183</link>\n<description>In my experience with naming modules you&#39;ll never keep everyone in the Perl community happy. Just go with what YOU think is best, taking all things into account :)\r\nLyle...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 13:07:12 +0000</pubDate>\n<guid>660183</guid>\n<perlmonks:node_id>660183</perlmonks:node_id>\n<perlmonks:author_user>402839</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 08:07:12</perlmonks:createtime>\n<perlmonks:authortitle>cosmicperl</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Naming a module</title>\n<link>http://perlmonks.org/index.pl?node_id=660182</link>\n<description>Tie::File::Structured?\r\n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 13:06:30 +0000</pubDate>\n<guid>660182</guid>\n<perlmonks:node_id>660182</perlmonks:node_id>\n<perlmonks:author_user>2610</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 08:06:30</perlmonks:createtime>\n<perlmonks:authortitle>jbert</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^16: somethign wrong with the sumbit</title>\n<link>http://perlmonks.org/index.pl?node_id=660180</link>\n<description>First of all iam not a programmer and i dont have a boss that put me do this\r\nI do this on my spare time trying to make a simple website with perl\r\n\r\nI&#39;ve been writing to this thread 3-4 days n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 12:36:02 +0000</pubDate>\n<guid>660180</guid>\n<perlmonks:node_id>660180</perlmonks:node_id>\n<perlmonks:author_user>270140</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 07:36:02</perlmonks:createtime>\n<perlmonks:authortitle>Nik</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Printing last two characters</title>\n<link>http://perlmonks.org/index.pl?node_id=660178</link>\n<description>Note that \r\nsubstr($str, -2, 2)\r\ncan also be written as\r\nsubstr($str, -2)\r\nsince substr defaults to extracting the rest of the string.\r\n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 12:10:58 +0000</pubDate>\n<guid>660178</guid>\n<perlmonks:node_id>660178</perlmonks:node_id>\n<perlmonks:author_user>381608</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 07:10:58</perlmonks:createtime>\n<perlmonks:authortitle>ikegami</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Log::Dispatch::FileRotate error handling</title>\n<link>http://perlmonks.org/index.pl?node_id=660177</link>\n<description>From my pov the calling module/program should die/croak and the calling program should have the choice to handle the die/croak via eval or to die as well.\r\nChecking disk space/permission etc. invo...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 12:09:41 +0000</pubDate>\n<guid>660177</guid>\n<perlmonks:node_id>660177</perlmonks:node_id>\n<perlmonks:author_user>609609</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 07:09:41</perlmonks:createtime>\n<perlmonks:authortitle>weismat</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Using $a and $b for sort</title>\n<link>http://perlmonks.org/index.pl?node_id=660176</link>\n<description>Avoiding $a and $b in perl is particularly good advice (due to the overlap with the sort magic variables).\r\n\r\nBut it&#39;s also a good idea to avoid them since they aren&#39;t meaningful names. I think one...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 12:01:17 +0000</pubDate>\n<guid>660176</guid>\n<perlmonks:node_id>660176</perlmonks:node_id>\n<perlmonks:author_user>2610</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 07:01:17</perlmonks:createtime>\n<perlmonks:authortitle>jbert</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Installing Tk-804.027 under openSUSE 10.3</title>\n<link>http://perlmonks.org/index.pl?node_id=660175</link>\n<description>I tried Tk-...028 but got a compilation error\r\n\r\nstrdup.c:3: error: expected identifier or &#39;(&#39; before &#39;__extension__&#39;;\r\nstrdup.c:5: error: expected identifier or &#39;(&#39; before &#39;{&#39; token\r\nmake&lt;a href="?node=1"&gt;1&lt;/a&gt;: *...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:57:31 +0000</pubDate>\n<guid>660175</guid>\n<perlmonks:node_id>660175</perlmonks:node_id>\n<perlmonks:author_user>561465</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:57:31</perlmonks:createtime>\n<perlmonks:authortitle>kdjantzen</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: method invocation syntax at perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660174</link>\n<description>It&#39;s possible that there is a more readable way to achieve what you want.\r\n\r\nYou seem to want to dynamically choose which method to call. Another way to do that is via inheritance. Instead of calcu...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:53:56 +0000</pubDate>\n<guid>660174</guid>\n<perlmonks:node_id>660174</perlmonks:node_id>\n<perlmonks:author_user>2610</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:53:56</perlmonks:createtime>\n<perlmonks:authortitle>jbert</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: SOLVED Printing last two characters</title>\n<link>http://perlmonks.org/index.pl?node_id=660173</link>\n<description>Thanks everyone, the response was overwhelming.\r\nI can see I&#39;m going to like this forum....</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:49:30 +0000</pubDate>\n<guid>660173</guid>\n<perlmonks:node_id>660173</perlmonks:node_id>\n<perlmonks:author_user>660158</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:49:30</perlmonks:createtime>\n<perlmonks:authortitle>Slug</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Using $a and $b for sort</title>\n<link>http://perlmonks.org/index.pl?node_id=660172</link>\n<description>Sorting a hash table? Do you mean sorting keys in a hash? Or?\r\n\r\n\r\nIf you have lexicalized $a and $b (with my), you won&#39;t be able to use them in sort in the same or in the child blo...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:48:00 +0000</pubDate>\n<guid>660172</guid>\n<perlmonks:node_id>660172</perlmonks:node_id>\n<perlmonks:author_user>659527</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:48:00</perlmonks:createtime>\n<perlmonks:authortitle>kirillm</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Printing last two characters</title>\n<link>http://perlmonks.org/index.pl?node_id=660171</link>\n<description>&#92;Z is an assertion or anchor, it matches at a position (the end of the string, or in front of a final newline &amp;mdash; you probably ment to use &#92;z instead), but it doesn&#39;t match ...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:46:24 +0000</pubDate>\n<guid>660171</guid>\n<perlmonks:node_id>660171</perlmonks:node_id>\n<perlmonks:author_user>190859</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:46:24</perlmonks:createtime>\n<perlmonks:authortitle>bart</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Printing last two characters</title>\n<link>http://perlmonks.org/index.pl?node_id=660170</link>\n<description>The best solution using &lt;a href="http://perldoc.perl.org/functions/substr.html"&gt;substr&lt;/a&gt; was already posted, so let me just add an explanation why m/&#92;Z{2}/ doesn&#39;t work.\r\n&#92;Z matches not a character, but a position. So it&#39;s use...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:41:10 +0000</pubDate>\n<guid>660170</guid>\n<perlmonks:node_id>660170</perlmonks:node_id>\n<perlmonks:author_user>616540</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:41:10</perlmonks:createtime>\n<perlmonks:authortitle>moritz</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Printing last two characters</title>\n<link>http://perlmonks.org/index.pl?node_id=660169</link>\n<description>Firstly, you don&#39;t need a regex to pull the last two characters off your data. Use substr instead...\r\n\r\nmy $string = "1234,Dr,Huxtable,Cliff,M,24/12/1976,60";\r\nmy $last_two_chars = substr($strin...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:40:34 +0000</pubDate>\n<guid>660169</guid>\n<perlmonks:node_id>660169</perlmonks:node_id>\n<perlmonks:author_user>425417</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:40:34</perlmonks:createtime>\n<perlmonks:authortitle>reasonablekeith</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Printing last two characters</title>\n<link>http://perlmonks.org/index.pl?node_id=660168</link>\n<description>If you want a regexp, this will work\r\n\r\n/(.{2})$/\r\n\r\nThe &#39;$&#39; means the end of the string.\r\n\r\nperl -le &#39;my $str="qwerty"; $str=~m/(.{2})$/; print $1;&#39;\r\n\r\n#output\r\nty\r\n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:36:35 +0000</pubDate>\n<guid>660168</guid>\n<perlmonks:node_id>660168</perlmonks:node_id>\n<perlmonks:author_user>522408</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:36:35</perlmonks:createtime>\n<perlmonks:authortitle>olus</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Using $a and $b for sort</title>\n<link>http://perlmonks.org/index.pl?node_id=660166</link>\n<description>The short answer: don&#39;t use $a and $b for anything except sorting and the like.\r\n\r\nThey are an exception in that they are not subject to use strict;, so it&#39;s best to avoid them...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:34:48 +0000</pubDate>\n<guid>660166</guid>\n<perlmonks:node_id>660166</perlmonks:node_id>\n<perlmonks:author_user>616540</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:34:48</perlmonks:createtime>\n<perlmonks:authortitle>moritz</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Entities confuse encoding in XML::Simple</title>\n<link>http://perlmonks.org/index.pl?node_id=660165</link>\n<description>Maybe you have to to set up your environment a bit better:\r\n\r\n\r\nbinmode STDOUT, &#39;:encdoding(UTF-8)&#39;; \r\n# or whatever your terminal uses\r\n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:30:15 +0000</pubDate>\n<guid>660165</guid>\n<perlmonks:node_id>660165</perlmonks:node_id>\n<perlmonks:author_user>616540</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:30:15</perlmonks:createtime>\n<perlmonks:authortitle>moritz</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: Need Help! Two Dimentional Array Sorting</title>\n<link>http://perlmonks.org/index.pl?node_id=660164</link>\n<description>perl -e "print sort {chomp($x=$a); chomp($y=$b); $x cmp $y} " file.txt\r\nThe following is also a bit challenged in the beauty stakes but avoids the rep...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:29:36 +0000</pubDate>\n<guid>660164</guid>\n<perlmonks:node_id>660164</perlmonks:node_id>\n<perlmonks:author_user>401112</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:29:36</perlmonks:createtime>\n<perlmonks:authortitle>johngg</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Printing last two characters</title>\n<link>http://perlmonks.org/index.pl?node_id=660163</link>\n<description>\r\n\r\nI wouldn&#39;t use a regexp, I&#39;d use &lt;a href="http://perldoc.perl.org/functions/substr.html"&gt;substr&lt;/a&gt;:\r\n\r\n\r\nprint substr "1234,Dr,Huxtable,Cliff,M,24/12/1976,60", -2, 2;\r\n#Output: 60\r\n\r\n\r\nThe second arg...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:26:06 +0000</pubDate>\n<guid>660163</guid>\n<perlmonks:node_id>660163</perlmonks:node_id>\n<perlmonks:author_user>611550</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:26:06</perlmonks:createtime>\n<perlmonks:authortitle>FunkyMonk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Catalyst::Plugin::Session module usage</title>\n<link>http://perlmonks.org/index.pl?node_id=660157</link>\n<description>&lt;a href="http://dev.catalyst.perl.org/repos/Catalyst/tags/examples/Tutorial/MyApp/5.7/Authentication/"&gt;http://dev.catalyst.perl.org/repos/Catalyst/tags/examples/Tutorial/MyApp/5.7/Authentication/&lt;/a&gt;\r\n&amp;#91;http://search.cpan.org/~jrockway/Catalyst-Manual-5.701003/lib/Catalyst/Manual/Tutorial/Authenticati...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:01:31 +0000</pubDate>\n<guid>660157</guid>\n<perlmonks:node_id>660157</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:01:31</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: dbschema.pl not working</title>\n<link>http://perlmonks.org/index.pl?node_id=660156</link>\n<description>Well - first of all your problem is not with dbschema.pl itself, but with building the Sybase::xxx modules (aka "sybperl").\r\nThe problem is that you have a 64bit perl binary, but you have a 32bit v...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 11:01:09 +0000</pubDate>\n<guid>660156</guid>\n<perlmonks:node_id>660156</perlmonks:node_id>\n<perlmonks:author_user>116292</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:01:09</perlmonks:createtime>\n<perlmonks:authortitle>mpeppler</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Catalyst::Plugin::Session module usage</title>\n<link>http://perlmonks.org/index.pl?node_id=660154</link>\n<description>&lt;a href="http://search.cpan.org/~nuffin/Catalyst-Plugin-Session-0.19/lib/Catalyst/Plugin/Session/Tutorial.pod"&gt;http://search.cpan.org/~nuffin/Catalyst-Plugin-Session-0.19/lib/Catalyst/Plugin/Session/Tutorial.pod&lt;/a&gt;...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 10:54:51 +0000</pubDate>\n<guid>660154</guid>\n<perlmonks:node_id>660154</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 05:54:51</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: poll ideas quest 2007</title>\n<link>http://perlmonks.org/index.pl?node_id=660153</link>\n<description>that is so last year ...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 10:54:01 +0000</pubDate>\n<guid>660153</guid>\n<perlmonks:node_id>660153</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 05:54:01</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: method invocation syntax at perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660151</link>\n<description>Yes, it can be done, but I wouldn&#39;t recommend it:\r\n\r\n\r\n$obj-&gt;${&#92;EXPR}(ARGS)\r\n\r\n\r\nFor instance:\r\n\r\n\r\nuse strict;\r\n\r\nsub foo { "@_" }\r\nmy ($x, $y) = qw/ f oo /;\r\n\r\nprint __PACKAGE_...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 10:26:09 +0000</pubDate>\n<guid>660151</guid>\n<perlmonks:node_id>660151</perlmonks:node_id>\n<perlmonks:author_user>630852</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 05:26:09</perlmonks:createtime>\n<perlmonks:authortitle>lodin</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: method invocation syntax at perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660148</link>\n<description>I&#39;m not sure what you mean exactly by "done at single string". I guess you mean all in one line. Normally I&#39;d use what you put there, $method = "something"; $obj-&gt;$method($str). It is pos...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 10:00:24 +0000</pubDate>\n<guid>660148</guid>\n<perlmonks:node_id>660148</perlmonks:node_id>\n<perlmonks:author_user>438971</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 05:00:24</perlmonks:createtime>\n<perlmonks:authortitle>ForgotPasswordAgain</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Unicode insert into mssql from perl DBD</title>\n<link>http://perlmonks.org/index.pl?node_id=660147</link>\n<description>I`ve tried both approaches. DBD-ODBC 1.14 is not in the activeState repository unfortunately and I have not succeeded in building it my self.\r\nUsing Ado has poved more promissing, but I faced entirely...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 09:53:31 +0000</pubDate>\n<guid>660147</guid>\n<perlmonks:node_id>660147</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 04:53:31</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Downloading html content</title>\n<link>http://perlmonks.org/index.pl?node_id=660145</link>\n<description>Thanks for your reply. Let me put it more clearly. actually, it&#39;s like this; there is a particular secured client site in that particular site through the script we have to give the user id and passwo...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 09:37:54 +0000</pubDate>\n<guid>660145</guid>\n<perlmonks:node_id>660145</perlmonks:node_id>\n<perlmonks:author_user>659913</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 04:37:54</perlmonks:createtime>\n<perlmonks:authortitle>pupun</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Downloading html content</title>\n<link>http://perlmonks.org/index.pl?node_id=660144</link>\n<description>Thanks for your reply. Let me put it more clearly.  actually, it&#39;s like this; there is a particular secured client site in that particular site through the script we have to give the user id and passw...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 09:36:35 +0000</pubDate>\n<guid>660144</guid>\n<perlmonks:node_id>660144</perlmonks:node_id>\n<perlmonks:author_user>659913</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 04:36:35</perlmonks:createtime>\n<perlmonks:authortitle>pupun</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: How to run a 2nd script in background?</title>\n<link>http://perlmonks.org/index.pl?node_id=660143</link>\n<description>Using &lt;a href="?node=system"&gt;system&lt;/a&gt; creates another process, &lt;a href="?node=exec"&gt;exec&lt;/a&gt; is more appropriate here.If you are running on Windows you should be aware that &lt;a href="?node=fork"&gt;fork&lt;/a&gt; creates a new thread, not a new process (fork is UNIX arch...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 09:34:49 +0000</pubDate>\n<guid>660143</guid>\n<perlmonks:node_id>660143</perlmonks:node_id>\n<perlmonks:author_user>541305</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 04:34:49</perlmonks:createtime>\n<perlmonks:authortitle>cdarke</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: flock LOCK_EX not locking exclusively</title>\n<link>http://perlmonks.org/index.pl?node_id=660142</link>\n<description>Checking if the file exists after the flock is not good enough. Assume the check is done with a stat.\r\n\r\nchild 1   child 2   child 3\r\nopen\r\n          open\r\nflock                         (works fo...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 09:30:02 +0000</pubDate>\n<guid>660142</guid>\n<perlmonks:node_id>660142</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 04:30:02</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: How to upload bulk images</title>\n<link>http://perlmonks.org/index.pl?node_id=660141</link>\n<description>If possible I would like to reduce the image size, that is why I had mentioned image-magick. But if it can be done using plain PERL, GREAT. \r\n\r\nThanks...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 09:24:24 +0000</pubDate>\n<guid>660141</guid>\n<perlmonks:node_id>660141</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 04:24:24</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: How to upload bulk images</title>\n<link>http://perlmonks.org/index.pl?node_id=660140</link>\n<description>Thank you all. The server is Windows (DB is MS-SQL Server, which I will connect using DBI). ...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 09:18:46 +0000</pubDate>\n<guid>660140</guid>\n<perlmonks:node_id>660140</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 04:18:46</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: String::Combination Package Bug?</title>\n<link>http://perlmonks.org/index.pl?node_id=660136</link>\n<description>It seems DREE abandon/delete all his modules\r\n\r\n&lt;a href="?node_id=160333"&gt;dree&lt;/a&gt;\r\n&lt;a href="http://search.cpan.org/~DREE/"&gt;http://search.cpan.org/~DREE/&lt;/a&gt;\r\n&lt;a href="http://kobesearch.cpan.org/~DREE/"&gt;http://kobesearch.cpan.org/~DREE/&lt;/a&gt;\r\n&lt;a href="http://backpan.cpan.org/authors/id/D/DR/DREE/"&gt;http://backpan.cpan.org/authors/id/D/DR/DREE/&lt;/a&gt;\r\n&amp;#91;http://www.n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 08:27:50 +0000</pubDate>\n<guid>660136</guid>\n<perlmonks:node_id>660136</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 03:27:50</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: String::Combination Package Bug?</title>\n<link>http://perlmonks.org/index.pl?node_id=660135</link>\n<description>It is on backpan (&lt;a href="http://backpan.cpan.org/authors/id/D/DR/DREE/String-Combination-0.01.tar.gz"&gt;http://backpan.cpan.org/authors/id/D/DR/DREE/String-Combination-0.01.tar.gz&lt;/a&gt; ), for the curious.  There&#39;s also a newer version, renamed as String-OrderedCombination.\r\n\r\n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 08:03:45 +0000</pubDate>\n<guid>660135</guid>\n<perlmonks:node_id>660135</perlmonks:node_id>\n<perlmonks:author_user>299049</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 03:03:45</perlmonks:createtime>\n<perlmonks:authortitle>ysth</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Tailing two files at once through IO::Socket</title>\n<link>http://perlmonks.org/index.pl?node_id=660134</link>\n<description>You will probably want to look at &lt;a href="http://search.cpan.org/author/RCAPUTO/POE-0.9999/lib/POE.pm"&gt;POE&lt;/a&gt;  and &lt;a href="http://search.cpan.org/~rcaputo/POE-0.9999/lib/POE/Wheel/ReadWrite.pm"&gt;POE::Wheel::ReadWrite&lt;/a&gt; (...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 08:03:40 +0000</pubDate>\n<guid>660134</guid>\n<perlmonks:node_id>660134</perlmonks:node_id>\n<perlmonks:author_user>61104</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 03:03:40</perlmonks:createtime>\n<perlmonks:authortitle>cLive ;-)</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Removing duplicates from an array</title>\n<link>http://perlmonks.org/index.pl?node_id=660133</link>\n<description>Um. Any reason why you&#39;re not filtering duplicates out in the DB query (which you don&#39;t provide, so I&#39;m guessing)? For example, by using &amp;#91;http://dev.mysql.com/doc/refman/5.0/en/distinct-optimization.h...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 07:45:13 +0000</pubDate>\n<guid>660133</guid>\n<perlmonks:node_id>660133</perlmonks:node_id>\n<perlmonks:author_user>61104</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 02:45:13</perlmonks:createtime>\n<perlmonks:authortitle>cLive ;-)</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: downloading files from websites automatically in windows</title>\n<link>http://perlmonks.org/index.pl?node_id=660132</link>\n<description>hi,\r\n thanks for ur help. actually, it&#39;s like this; there is a particular secured client site in that particular site through the script we have to give the user id and password and once we enter the ...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 07:30:48 +0000</pubDate>\n<guid>660132</guid>\n<perlmonks:node_id>660132</perlmonks:node_id>\n<perlmonks:author_user>659913</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 02:30:48</perlmonks:createtime>\n<perlmonks:authortitle>pupun</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^4: longest common substring</title>\n<link>http://perlmonks.org/index.pl?node_id=660131</link>\n<description>I think the best exact solutions for the longest common subsequence problem are the dynamic programming ones. But this is only reasonable for 2-4 strings (0(n^2) to O(n^4)). So people use heuristics. ...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 07:24:28 +0000</pubDate>\n<guid>660131</guid>\n<perlmonks:node_id>660131</perlmonks:node_id>\n<perlmonks:author_user>525442</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 02:24:28</perlmonks:createtime>\n<perlmonks:authortitle>lima1</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Need Help! Two Dimentional Array Sorting</title>\n<link>http://perlmonks.org/index.pl?node_id=660130</link>\n<description>For all your sorting needs beyond a simple straightforward sort, have a look at &lt;a href="http://search.cpan.org/perldoc?Sort%3A%3AKey"&gt;Sort::Key&lt;/a&gt;. Also &lt;a href="http://search.cpan.org/perldoc?Sort%3A%3AKey%3A%3ANatural"&gt;Sort::Key::Natural&lt;/a&gt; is worth a look as it solves the problem of sorting "mixed keys...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 07:10:28 +0000</pubDate>\n<guid>660130</guid>\n<perlmonks:node_id>660130</perlmonks:node_id>\n<perlmonks:author_user>198160</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 02:10:28</perlmonks:createtime>\n<perlmonks:authortitle>CountZero</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: flock LOCK_EX not locking exclusively (races)</title>\n<link>http://perlmonks.org/index.pl?node_id=660129</link>\n<description>\r\nI think I figured it out. Sometimes to processes open the file with the same filehandle, and they therefore share the lock because its tied to the filehandle.  \r\n\r...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 06:47:59 +0000</pubDate>\n<guid>660129</guid>\n<perlmonks:node_id>660129</perlmonks:node_id>\n<perlmonks:author_user>22609</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 01:47:59</perlmonks:createtime>\n<perlmonks:authortitle>tye</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: flock LOCK_EX not locking exclusively</title>\n<link>http://perlmonks.org/index.pl?node_id=660128</link>\n<description>Here&#39;s what&#39;s happening: after one process unlinks the file, other processes are still able to flock their open file handles after the first process closes its file handle:\r\n\r\n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 06:07:10 +0000</pubDate>\n<guid>660128</guid>\n<perlmonks:node_id>660128</perlmonks:node_id>\n<perlmonks:author_user>647878</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 01:07:10</perlmonks:createtime>\n<perlmonks:authortitle>pc88mxer</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^6: Disappointed with latest Strawberry Perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660127</link>\n<description>No, I mean the decision to require an explicit MSWin32 flag be passed to Makefile.PL is not compatible with the CPAN.\r\n\r\nThus, a bug in the packaging of Tk....</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 06:02:01 +0000</pubDate>\n<guid>660127</guid>\n<perlmonks:node_id>660127</perlmonks:node_id>\n<perlmonks:author_user>144870</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 01:02:01</perlmonks:createtime>\n<perlmonks:authortitle>adamk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: How to run a 2nd script in background?</title>\n<link>http://perlmonks.org/index.pl?node_id=660126</link>\n<description>Here&#39;s one way:\r\n\r\n#run script.pl as child process\r\nmy $pid;\r\nmy $script = &#39;/myroot/public_html/cgi-bin/script.pl&#39;;	\r\n\r\nif ($pid = fork)\r\n{ \r\n  #do something\r\n}\r\nelsif (defined $pid)\r\n{ \r\n  clos...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 05:44:45 +0000</pubDate>\n<guid>660126</guid>\n<perlmonks:node_id>660126</perlmonks:node_id>\n<perlmonks:author_user>204547</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 00:44:45</perlmonks:createtime>\n<perlmonks:authortitle>jonnyfolk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: POSTing values to a perl script</title>\n<link>http://perlmonks.org/index.pl?node_id=660125</link>\n<description>i finally got to run the serverpost element of XUL (this uses the XMLhttpRequest) \r\nturns out, i got mixed up with the serverpostname attribute from the element (where i will get the values from) ...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 05:43:29 +0000</pubDate>\n<guid>660125</guid>\n<perlmonks:node_id>660125</perlmonks:node_id>\n<perlmonks:author_user>653456</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 00:43:29</perlmonks:createtime>\n<perlmonks:authortitle>roiji</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Need Help! Two Dimentional Array Sorting</title>\n<link>http://perlmonks.org/index.pl?node_id=660124</link>\n<description>\r\nI wouldn&#39;t even bother using Perl for this.\r\n\r\nIn the *nix world...\r\n\r\n\r\nAgreed, but it&#39;s not like using perl for this is so bad (esp. for the poor M$ users w...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 05:10:31 +0000</pubDate>\n<guid>660124</guid>\n<perlmonks:node_id>660124</perlmonks:node_id>\n<perlmonks:author_user>44715</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 00:10:31</perlmonks:createtime>\n<perlmonks:authortitle>graff</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Determining gender based on first name</title>\n<link>http://perlmonks.org/index.pl?node_id=660123</link>\n<description>Not trying to be a problem but "American names?" Like "Freedom" or "Shaniqua?" "Anglo" ne "American" ne "German" etc etc etc. As someone whose mail comes chronically with the wrong salutatio...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 05:06:24 +0000</pubDate>\n<guid>660123</guid>\n<perlmonks:node_id>660123</perlmonks:node_id>\n<perlmonks:author_user>248054</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 00:06:24</perlmonks:createtime>\n<perlmonks:authortitle>Your Mother</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Need Help! Two Dimentional Array Sorting</title>\n<link>http://perlmonks.org/index.pl?node_id=660121</link>\n<description>Hi, and welcome to perlmonks. Before moving on to the main questions, I&#39;ll get the mandatory "please use code tags" thing out of the way for displaying code. It helps everything look perty.\r\n\r\nAlso...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 04:18:21 +0000</pubDate>\n<guid>660121</guid>\n<perlmonks:node_id>660121</perlmonks:node_id>\n<perlmonks:author_user>322408</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 23:18:21</perlmonks:createtime>\n<perlmonks:authortitle>starX</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Need Help! Two Dimentional Array Sorting</title>\n<link>http://perlmonks.org/index.pl?node_id=660120</link>\n<description>but, since OP has asked for perlish help, here&#39;s part of the post, edited for rendering and statement terminators:\r\n\r\n(add shebang to taste)\r\nuse strict;\r\nuse warnings;\r\n\r\nopen(FILE,"file.tx...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 04:17:07 +0000</pubDate>\n<guid>660120</guid>\n<perlmonks:node_id>660120</perlmonks:node_id>\n<perlmonks:author_user>352046</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 23:17:07</perlmonks:createtime>\n<perlmonks:authortitle>ww</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Regular Expression Matching Issue</title>\n<link>http://perlmonks.org/index.pl?node_id=660119</link>\n<description>I agreed with &lt;a href="?node=olus"&gt;olus&lt;/a&gt;\r\nYou can &#39;join&#39; @test or while reading from the file itself you can read the whole file in single scalar variable using undef as.\r\n\r\nopen(FH,&#39;...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 04:06:59 +0000</pubDate>\n<guid>660119</guid>\n<perlmonks:node_id>660119</perlmonks:node_id>\n<perlmonks:author_user>495617</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 23:06:59</perlmonks:createtime>\n<perlmonks:authortitle>Punitha</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Need Help! Two Dimentional Array Sorting</title>\n<link>http://perlmonks.org/index.pl?node_id=660118</link>\n<description>I wouldn&#39;t even bother using Perl for this.\r\n\r\nIn the *nix world...\r\n\r\ncat file.txt | sort -k1\r\n\r\n\r\nOr in winders-land...\r\n\r\ntype file.txt | sort /+1\r\n\r\n\r\nNote that ...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 04:03:27 +0000</pubDate>\n<guid>660118</guid>\n<perlmonks:node_id>660118</perlmonks:node_id>\n<perlmonks:author_user>483556</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 23:03:27</perlmonks:createtime>\n<perlmonks:authortitle>McDarren</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^5: Statistics from a txtfile</title>\n<link>http://perlmonks.org/index.pl?node_id=660115</link>\n<description>\r\nI see your point &lt;a href="?node=blazar"&gt;blazar&lt;/a&gt;, and maybe I gave away a little too much. But since the OP is obviously a student, I was trying to encourage him (her?) to experiment so he will understand what t...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 03:36:21 +0000</pubDate>\n<guid>660115</guid>\n<perlmonks:node_id>660115</perlmonks:node_id>\n<perlmonks:author_user>601717</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 22:36:21</perlmonks:createtime>\n<perlmonks:authortitle>hangon</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^15: somethign wrong with the sumbit</title>\n<link>http://perlmonks.org/index.pl?node_id=660114</link>\n<description>I think it&#39;s time for you to get someone to do this job for you -- that is, someone who can talk to you face-to-face (possibly in Greek), and can login on your machine, and can understand what needs t...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 03:32:14 +0000</pubDate>\n<guid>660114</guid>\n<perlmonks:node_id>660114</perlmonks:node_id>\n<perlmonks:author_user>44715</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 22:32:14</perlmonks:createtime>\n<perlmonks:authortitle>graff</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: How to run a 2nd script in background?</title>\n<link>http://perlmonks.org/index.pl?node_id=660113</link>\n<description>Check out the FAQ How do I fork a daemon process?\r\n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 03:23:49 +0000</pubDate>\n<guid>660113</guid>\n<perlmonks:node_id>660113</perlmonks:node_id>\n<perlmonks:author_user>540414</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 22:23:49</perlmonks:createtime>\n<perlmonks:authortitle>jwkrahn</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Detect which version of perl an XS module is linked against?</title>\n<link>http://perlmonks.org/index.pl?node_id=660112</link>\n<description>\r\nYou goofed. AS allows you to upgrade minor versions (eg. 5.8.6 to 5.8.8) without throwing away everything you previously installed as this will, mostly, work. \r\n\r\n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 03:10:44 +0000</pubDate>\n<guid>660112</guid>\n<perlmonks:node_id>660112</perlmonks:node_id>\n<perlmonks:author_user>171588</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 22:10:44</perlmonks:createtime>\n<perlmonks:authortitle>BrowserUk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Detect which version of perl an XS module is linked against?</title>\n<link>http://perlmonks.org/index.pl?node_id=660110</link>\n<description>I fixed my problem by removing the offending module but I want to fix this for everyone.\r\n\r\nThat sounds like an ActiveState bug to me.  I&#39;m not sure how far to go ...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 02:15:44 +0000</pubDate>\n<guid>660110</guid>\n<perlmonks:node_id>660110</perlmonks:node_id>\n<perlmonks:author_user>1382</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 21:15:44</perlmonks:createtime>\n<perlmonks:authortitle>chromatic</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: flock LOCK_EX not locking exclusively</title>\n<link>http://perlmonks.org/index.pl?node_id=660109</link>\n<description>I think I figured it out. Sometimes to processes open the file with the same filehandle, and they therefore share the lock because its tied to the filehandle. \r\n\r\nSo the questions become: \r\n1)...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 02:13:39 +0000</pubDate>\n<guid>660109</guid>\n<perlmonks:node_id>660109</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 21:13:39</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Is Perl a good career move?</title>\n<link>http://perlmonks.org/index.pl?node_id=660108</link>\n<description>I&#39;ve met relatively few people who do Perl because that&#39;s what the job happened to be, and I teach Perl for a living so I&#39;ve run into a lot of people starting their Perl careers....</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 01:43:19 +0000</pubDate>\n<guid>660108</guid>\n<perlmonks:node_id>660108</perlmonks:node_id>\n<perlmonks:author_user>660050</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 20:43:19</perlmonks:createtime>\n<perlmonks:authortitle>alexm</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: Troubleshoot copying files to/from Windows shared volume</title>\n<link>http://perlmonks.org/index.pl?node_id=660107</link>\n<description>Could you elaborate on\r\n\r\n   shows up in the NET SESSION listing under its network name\r\n \r\n?\r\n\r\nIs  this "Network  name" a "local account"?\r\nDoes it have access to net...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 01:29:49 +0000</pubDate>\n<guid>660107</guid>\n<perlmonks:node_id>660107</perlmonks:node_id>\n<perlmonks:author_user>159887</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 20:29:49</perlmonks:createtime>\n<perlmonks:authortitle>NetWallah</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: How to get the current Date and Time using Perl on windows?</title>\n<link>http://perlmonks.org/index.pl?node_id=660105</link>\n<description>The problem with this is that the OP was after a date and time stamp, and the DOS date command only gives the date. You could I suppose use a combination of both the date and tim...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 01:15:39 +0000</pubDate>\n<guid>660105</guid>\n<perlmonks:node_id>660105</perlmonks:node_id>\n<perlmonks:author_user>483556</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 20:15:39</perlmonks:createtime>\n<perlmonks:authortitle>McDarren</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: flock LOCK_EX not locking exclusively</title>\n<link>http://perlmonks.org/index.pl?node_id=660104</link>\n<description>i meant it should be \r\n\r\nopen my $FH, &#39;...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 01:12:21 +0000</pubDate>\n<guid>660104</guid>\n<perlmonks:node_id>660104</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 20:12:21</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^5: Disappointed with latest Strawberry Perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660103</link>\n<description>Tk builds fine on Strawberry. It must be another problem, maybe a broken PATH or so.\r\n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 01:09:36 +0000</pubDate>\n<guid>660103</guid>\n<perlmonks:node_id>660103</perlmonks:node_id>\n<perlmonks:author_user>333322</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 20:09:36</perlmonks:createtime>\n<perlmonks:authortitle>eserte</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: flock LOCK_EX not locking exclusively</title>\n<link>http://perlmonks.org/index.pl?node_id=660100</link>\n<description>It should be "open my $FH, &#39;&gt;&#39;, $file or next"  It still does the same error though\r\n\r\n--The Author...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:57:41 +0000</pubDate>\n<guid>660100</guid>\n<perlmonks:node_id>660100</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:57:41</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Detect which version of perl an XS module is linked against?</title>\n<link>http://perlmonks.org/index.pl?node_id=660098</link>\n<description>Since this is a windows error, you need to determine which version of perl an XS module was linked against without loading it. Anyone have any ideas on how this might be accomplished?\r\n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:52:20 +0000</pubDate>\n<guid>660098</guid>\n<perlmonks:node_id>660098</perlmonks:node_id>\n<perlmonks:author_user>268515</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:52:20</perlmonks:createtime>\n<perlmonks:authortitle>xdg</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^4: How to decode this "gzinflate (base64_decode(***</title>\n<link>http://perlmonks.org/index.pl?node_id=660097</link>\n<description>#!/usr/bin/perl -w\r\nuse strict;\r\n\r\nuse MIME::Base64;\r\nuse Compress::Zlib;\r\n\r\nmy $input = &#39;******code*****&#39;;\r\nmy $output = Compress::Zlib::memGunzip(decode_base64($input));\r\nprint $output; ...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:47:47 +0000</pubDate>\n<guid>660097</guid>\n<perlmonks:node_id>660097</perlmonks:node_id>\n<perlmonks:author_user>629639</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:47:47</perlmonks:createtime>\n<perlmonks:authortitle>Zeokat</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: How to decode this "gzinflate (base64_decode(***</title>\n<link>http://perlmonks.org/index.pl?node_id=660096</link>\n<description>Put together from the synopsis of those two pages I linked to, but untested:\r\n\r\n\r\nuse MIME::Base64;\r\nuse Compress::Zlib;\r\n\r\nmy $output = Compress::Zlib::memGunzip(decode_base64($input));\r...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:29:12 +0000</pubDate>\n<guid>660096</guid>\n<perlmonks:node_id>660096</perlmonks:node_id>\n<perlmonks:author_user>448433</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:29:12</perlmonks:createtime>\n<perlmonks:authortitle>rafl</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^7: Disappointed with latest Strawberry Perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660095</link>\n<description>These are the sorts of reasons that support the inclusion of PPM in Strawberry Perl.\r\n\r\nYou are aware that PPM requires Expat right?\r\n\r\nWe can&#39;t bundle PPM until we can build a ...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:28:11 +0000</pubDate>\n<guid>660095</guid>\n<perlmonks:node_id>660095</perlmonks:node_id>\n<perlmonks:author_user>144870</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:28:11</perlmonks:createtime>\n<perlmonks:authortitle>adamk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Perl Best Practices</title>\n<link>http://perlmonks.org/index.pl?node_id=660094</link>\n<description>It took me a while to read the book because I did it in tiny bits of 1 or 2 tips a day, but it was really insightful and fun. I don&#39;t like some tips and love many others, but the whole set is consiste...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:26:44 +0000</pubDate>\n<guid>660094</guid>\n<perlmonks:node_id>660094</perlmonks:node_id>\n<perlmonks:author_user>660050</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:26:44</perlmonks:createtime>\n<perlmonks:authortitle>alexm</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: How to decode this "gzinflate (base64_decode(***</title>\n<link>http://perlmonks.org/index.pl?node_id=660093</link>\n<description>I tryed but i cant find the solution... dont know enougth perl....</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:25:11 +0000</pubDate>\n<guid>660093</guid>\n<perlmonks:node_id>660093</perlmonks:node_id>\n<perlmonks:author_user>629639</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:25:11</perlmonks:createtime>\n<perlmonks:authortitle>Zeokat</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^7: Disappointed with latest Strawberry Perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660091</link>\n<description>I absolutely want Expat bundled by default in Strawberry.\r\n\r\nIt&#39;s just that I couldn&#39;t get an automated build working within the time available for the Strawberry 5.10.0 release.\r\n...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:23:00 +0000</pubDate>\n<guid>660091</guid>\n<perlmonks:node_id>660091</perlmonks:node_id>\n<perlmonks:author_user>144870</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:23:00</perlmonks:createtime>\n<perlmonks:authortitle>adamk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Detect which version of perl an XS module is linked against?</title>\n<link>http://perlmonks.org/index.pl?node_id=660090</link>\n<description>On my linux machines all locally installed perl modules are installed in a path that includes the perl version, for instance:\r\n\r\n$ locate Moose.pm\r\n/usr/local/lib/perl5/site_perl/5.8.8/Moose.pm\r\n/u...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:19:36 +0000</pubDate>\n<guid>660090</guid>\n<perlmonks:node_id>660090</perlmonks:node_id>\n<perlmonks:author_user>157432</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:19:36</perlmonks:createtime>\n<perlmonks:authortitle>Joost</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^4: Disappointed with latest Strawberry Perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660089</link>\n<description>Lack of platform-detection sounds like a bug in the Tk Makefile.PL. It&#39;s not any concern of Strawberry&#39;s...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:17:01 +0000</pubDate>\n<guid>660089</guid>\n<perlmonks:node_id>660089</perlmonks:node_id>\n<perlmonks:author_user>144870</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:17:01</perlmonks:createtime>\n<perlmonks:authortitle>adamk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Disappointed with latest Strawberry Perl</title>\n<link>http://perlmonks.org/index.pl?node_id=660088</link>\n<description>That said, I would hope a next release to have cpan to be a copy of cpan.bat\r\n\r\nThis is not going to happen. If we were to implement some sort of environment munger, then instead of a o...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:10:08 +0000</pubDate>\n<guid>660088</guid>\n<perlmonks:node_id>660088</perlmonks:node_id>\n<perlmonks:author_user>144870</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:10:08</perlmonks:createtime>\n<perlmonks:authortitle>adamk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: Detect which version of perl an XS module is linked against?</title>\n<link>http://perlmonks.org/index.pl?node_id=660087</link>\n<description>&lt;a href="http://perldoc.perl.org/search.html?q=DynaLoader"&gt;DynaLoader&lt;/a&gt; provides a dl_load_file function, which will probably do what I said above, except you don&#39;t need c or anything.\r\n\r\nAlso be sure to set the PERL_DL_NONLAZY environment...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:06:18 +0000</pubDate>\n<guid>660087</guid>\n<perlmonks:node_id>660087</perlmonks:node_id>\n<perlmonks:author_user>448433</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:06:18</perlmonks:createtime>\n<perlmonks:authortitle>rafl</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Detect which version of perl an XS module is linked against?</title>\n<link>http://perlmonks.org/index.pl?node_id=660086</link>\n<description>&lt;a href="?node=rafl"&gt;rafl&lt;/a&gt;,\r\n\r\nThanks for the guidance but unfortunately I need a step-by-step tutorial.  Other than &lt;a href="http://search.cpan.org/search?mode=module&amp;amp;query=Inline%3A%3AC"&gt;Inline::C&lt;/a&gt;, I don&#39;t have a lot of experience embedding C in Perl nor do I have any experi...</description>\n<category>note</category>\n<pubDate>Thu, 03 Jan 2008 00:00:44 +0000</pubDate>\n<guid>660086</guid>\n<perlmonks:node_id>660086</perlmonks:node_id>\n<perlmonks:author_user>180961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:00:44</perlmonks:createtime>\n<perlmonks:authortitle>Limbic~Region</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: How to decode this "gzinflate (base64_decode(***</title>\n<link>http://perlmonks.org/index.pl?node_id=660085</link>\n<description>There&#39;s the &lt;a href="http://perldoc.perl.org/search.html?q=MIME%3A%3ABase64"&gt;MIME::Base64&lt;/a&gt; module to decode the base64 data and the &lt;a href="http://perldoc.perl.org/search.html?q=Compress%3A%3AZlib"&gt;Compress::Zlib&lt;/a&gt; module to inflate the result....</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 23:54:47 +0000</pubDate>\n<guid>660085</guid>\n<perlmonks:node_id>660085</perlmonks:node_id>\n<perlmonks:author_user>448433</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 18:54:47</perlmonks:createtime>\n<perlmonks:authortitle>rafl</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Detect which version of perl an XS module is linked against?</title>\n<link>http://perlmonks.org/index.pl?node_id=660084</link>\n<description>You can load the xs extension using dlopen (or whatever windows has to realize that functionality - glib has g_module_open which allows to specify if symbols should be resolved lazily or not, so th...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 23:52:34 +0000</pubDate>\n<guid>660084</guid>\n<perlmonks:node_id>660084</perlmonks:node_id>\n<perlmonks:author_user>448433</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 18:52:34</perlmonks:createtime>\n<perlmonks:authortitle>rafl</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^7: Error in insertion of MULTIPLE FILENAMES &amp; CONTENTS INTO DATABASE</title>\n<link>http://perlmonks.org/index.pl?node_id=660082</link>\n<description>\r\n\r\nforeach (@files)\r\n{\r\n   open FILE, "$_" or die $!;\r\n      print "$_", br() x3;\r\n\r\n      $_ = map m{(&lt;a href="?node=%5E%2F"&gt;^/&lt;/a&gt;+)&#92;.txt}, $_;  #Strip out of the string the path and extension leaving only t...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 23:44:23 +0000</pubDate>\n<guid>660082</guid>\n<perlmonks:node_id>660082</perlmonks:node_id>\n<perlmonks:author_user>222702</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 18:44:23</perlmonks:createtime>\n<perlmonks:authortitle>parv</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^8: Removing XML comments with regex</title>\n<link>http://perlmonks.org/index.pl?node_id=660080</link>\n<description>I would rather say wrong tool than wrong solution. Which (as &lt;a href="?node=mirod"&gt;mirod&lt;/a&gt;&#39;s response shows) doesn&#39;t mean it&#39;s not possible to use XML::Twig efectively, but rather that it was designed for a different ki...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 23:37:05 +0000</pubDate>\n<guid>660080</guid>\n<perlmonks:node_id>660080</perlmonks:node_id>\n<perlmonks:author_user>105128</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 18:37:05</perlmonks:createtime>\n<perlmonks:authortitle>Jenda</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: String::Combination Package Bug?</title>\n<link>http://perlmonks.org/index.pl?node_id=660079</link>\n<description>&lt;a href="http://backpan.perl.org/authors/id/D/DR/DREE/"&gt;String::Combination&lt;/a&gt; worked for me. Try this:\r\n\r\n#!/usr/bin/perl\r\n\r\nuse strict;\r\nuse warnings;\r\nuse diagnostics;\r\nuse String::Combination qw(co...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 23:35:22 +0000</pubDate>\n<guid>660079</guid>\n<perlmonks:node_id>660079</perlmonks:node_id>\n<perlmonks:author_user>528646</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 18:35:22</perlmonks:createtime>\n<perlmonks:authortitle>Khen1950fx</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^4: payroll, mysql and perl question</title>\n<link>http://perlmonks.org/index.pl?node_id=660078</link>\n<description>lol, yeah, no bye ;o)... I have slept now, but had not slept in a long time when I did that. surprised I did not make more mistaks than that.\r\n\r\nAnyhow, yes you have the correct, and yes statu...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 23:30:06 +0000</pubDate>\n<guid>660078</guid>\n<perlmonks:node_id>660078</perlmonks:node_id>\n<perlmonks:author_user>139776</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 18:30:06</perlmonks:createtime>\n<perlmonks:authortitle>powerhouse</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Determining gender based on first name</title>\n<link>http://perlmonks.org/index.pl?node_id=660074</link>\n<description>Sounds like a plan, thanks.\r\n\r\nA quick search of Google provided plenty of names....</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 23:02:53 +0000</pubDate>\n<guid>660074</guid>\n<perlmonks:node_id>660074</perlmonks:node_id>\n<perlmonks:author_user>437944</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 18:02:53</perlmonks:createtime>\n<perlmonks:authortitle>bobdole</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Determining gender based on first name</title>\n<link>http://perlmonks.org/index.pl?node_id=660073</link>\n<description>\r\nI&#39;d never heard of &lt;a href="http://search.cpan.org/search?mode=module&amp;amp;query=Text%3A%3AGenderFromName"&gt;Text::GenderFromName&lt;/a&gt; until reading your post, but skimming the docs has shown me that it has 2 very clearly documented "American" biases...\r\n\r\n\r\nThe raw da...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 22:52:54 +0000</pubDate>\n<guid>660073</guid>\n<perlmonks:node_id>660073</perlmonks:node_id>\n<perlmonks:author_user>123291</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 17:52:54</perlmonks:createtime>\n<perlmonks:authortitle>hossman</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Problem restarting Apache 2.2.6 on Windows when mod_perl is installed</title>\n<link>http://perlmonks.org/index.pl?node_id=660070</link>\n<description>I&#39;ve experienced some weird issues with 2.2.6 and read some comments about 2.2.6 being buggy and/or incomapatible with mod_perl2. So, downgraded to Apache 2.2.4 instead until 2.2.8 (or some other new ...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 22:37:19 +0000</pubDate>\n<guid>660070</guid>\n<perlmonks:node_id>660070</perlmonks:node_id>\n<perlmonks:author_user>316980</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 17:37:19</perlmonks:createtime>\n<perlmonks:authortitle>Burak</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Open a file on a specific file descriptor?</title>\n<link>http://perlmonks.org/index.pl?node_id=660069</link>\n<description>For a brand new process, you should get 0, 1 and 2 assigned to standard input, standard output and standard error resp. (I know you *already* know this, but bear with me).\r\n...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 22:35:44 +0000</pubDate>\n<guid>660069</guid>\n<perlmonks:node_id>660069</perlmonks:node_id>\n<perlmonks:author_user>177458</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 17:35:44</perlmonks:createtime>\n<perlmonks:authortitle>benizi</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Unicode insert into mssql from perl DBD</title>\n<link>http://perlmonks.org/index.pl?node_id=660068</link>\n<description>Thanks, I&#39;m going to give that a try! ADO works okay, but has some annoying drawbacks (e.g. I couldn&#39;t use a column named "language").\r\n...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 22:33:53 +0000</pubDate>\n<guid>660068</guid>\n<perlmonks:node_id>660068</perlmonks:node_id>\n<perlmonks:author_user>448370</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 17:33:53</perlmonks:createtime>\n<perlmonks:authortitle>rhesa</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: How to Check if XML Well Formed</title>\n<link>http://perlmonks.org/index.pl?node_id=660067</link>\n<description>Thanks! Duh....</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 22:30:39 +0000</pubDate>\n<guid>660067</guid>\n<perlmonks:node_id>660067</perlmonks:node_id>\n<perlmonks:author_user>627071</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 17:30:39</perlmonks:createtime>\n<perlmonks:authortitle>Photius</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: How to Check if XML Well Formed</title>\n<link>http://perlmonks.org/index.pl?node_id=660066</link>\n<description>Well, it throws an exception.  If you don&#39;t catch that exception, it dies, sure.  But to catch exceptions, put it inside an &lt;a href="?node=eval"&gt;eval&lt;/a&gt;-block.  Then you can do what you want once you notice that exception....</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 22:19:48 +0000</pubDate>\n<guid>660066</guid>\n<perlmonks:node_id>660066</perlmonks:node_id>\n<perlmonks:author_user>9073</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 17:19:48</perlmonks:createtime>\n<perlmonks:authortitle>merlyn</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: DBI place holder for sub query problem</title>\n<link>http://perlmonks.org/index.pl?node_id=660064</link>\n<description>If you are using a sub-query then the parenthesis are needed. Just omit the single quotes.\r\n\r\n$sth=$dbh-&gt;prepare("Update Customers set RESULTS = (?) where rec_no = ?");\r\n\r\nFrom the er...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 22:06:43 +0000</pubDate>\n<guid>660064</guid>\n<perlmonks:node_id>660064</perlmonks:node_id>\n<perlmonks:author_user>522408</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 17:06:43</perlmonks:createtime>\n<perlmonks:authortitle>olus</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Unicode insert into mssql from perl DBD</title>\n<link>http://perlmonks.org/index.pl?node_id=660062</link>\n<description>Use DBD::ODBC 1.14 or newer, enable Unicode support (is enabled on Win32, is disabled on Non-Win32) and make sure that unicode data passed in via placeholders is properly tagged as utf8 in Perl....</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 21:44:04 +0000</pubDate>\n<guid>660062</guid>\n<perlmonks:node_id>660062</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 16:44:04</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Removing duplicates from an array</title>\n<link>http://perlmonks.org/index.pl?node_id=660061</link>\n<description>I wish to check that the array @regions_A_array does not contain any duplicates and if it does I wish to remove the duplicate.\r\n\r\nI personally believe I can...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 21:41:50 +0000</pubDate>\n<guid>660061</guid>\n<perlmonks:node_id>660061</perlmonks:node_id>\n<perlmonks:author_user>409850</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 16:41:50</perlmonks:createtime>\n<perlmonks:authortitle>blazar</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Regular Expression Matching Issue</title>\n<link>http://perlmonks.org/index.pl?node_id=660060</link>\n<description>I didn&#39;t check the regular expression in order to see if did what you it to do, but I see that you trying to use it as if was applied to the _whole_ file, and you are using it only for a single line e...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 21:38:33 +0000</pubDate>\n<guid>660060</guid>\n<perlmonks:node_id>660060</perlmonks:node_id>\n<perlmonks:author_user>522408</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 16:38:33</perlmonks:createtime>\n<perlmonks:authortitle>olus</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: How to get the current Date and Time using Perl on windows?</title>\n<link>http://perlmonks.org/index.pl?node_id=660059</link>\n<description>\r\nAs everyone has pointed out, there are much better, more perlish ways to do it, but here my $0.02 in the interest of TIMTOWTDI in case you&#39;re in a DOS batch file mindset.\r\n\r\nFirst, date...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 21:32:13 +0000</pubDate>\n<guid>660059</guid>\n<perlmonks:node_id>660059</perlmonks:node_id>\n<perlmonks:author_user>632330</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 16:32:13</perlmonks:createtime>\n<perlmonks:authortitle>goibhniu</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^9: Why does exists cause autovivication?</title>\n<link>http://perlmonks.org/index.pl?node_id=660058</link>\n<description>No need to autovivify anything, only to test an empty hashref for a non-existent key.\r\n\r\nnext unless exists $user_by_uid{$uid};\r\nnext unless exists $user_by_uid{$uid}-&gt;{$host};\r\n\r\nshould do....</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 21:31:26 +0000</pubDate>\n<guid>660058</guid>\n<perlmonks:node_id>660058</perlmonks:node_id>\n<perlmonks:author_user>510280</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 16:31:26</perlmonks:createtime>\n<perlmonks:authortitle>shmem</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Creating SOAP client to pass data to Java</title>\n<link>http://perlmonks.org/index.pl?node_id=660057</link>\n<description>After having invoked SOAP::Transport::HTTP::CGI-&gt;handle(), all is over. Your CGI initialization doesn&#39;t do anything.\r\n\r\nThen, you don&#39;t pass a CGI object to your emailfind::findingit method, which ...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 21:19:43 +0000</pubDate>\n<guid>660057</guid>\n<perlmonks:node_id>660057</perlmonks:node_id>\n<perlmonks:author_user>510280</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 16:19:43</perlmonks:createtime>\n<perlmonks:authortitle>shmem</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^4: Statistics from a txtfile</title>\n<link>http://perlmonks.org/index.pl?node_id=660056</link>\n<description>Your code looks like it has just been cobbled together with snippets from various sources. This is OK, but don&#39;t be afraid to make changes and experiment with the code to see what happe...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 21:17:05 +0000</pubDate>\n<guid>660056</guid>\n<perlmonks:node_id>660056</perlmonks:node_id>\n<perlmonks:author_user>409850</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 16:17:05</perlmonks:createtime>\n<perlmonks:authortitle>blazar</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Downloading html content</title>\n<link>http://perlmonks.org/index.pl?node_id=660055</link>\n<description>I have been assigned a task where I need to write codes that will make the system to download files from the browser automatically and will then save it into a directory....</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 21:07:23 +0000</pubDate>\n<guid>660055</guid>\n<perlmonks:node_id>660055</perlmonks:node_id>\n<perlmonks:author_user>409850</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 16:07:23</perlmonks:createtime>\n<perlmonks:authortitle>blazar</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: what&#39;s with last;</title>\n<link>http://perlmonks.org/index.pl?node_id=660053</link>\n<description>Is there no way to match the keep-alive tcp packets from the client? hence it will be easier to terminate our socket....</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 21:03:32 +0000</pubDate>\n<guid>660053</guid>\n<perlmonks:node_id>660053</perlmonks:node_id>\n<perlmonks:author_user>540382</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 16:03:32</perlmonks:createtime>\n<perlmonks:authortitle>pengwn</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^8: Why does exists cause autovivication?</title>\n<link>http://perlmonks.org/index.pl?node_id=660052</link>\n<description>Okay, so is my original example:\r\n\r\nnext unless exists $user_by_uid{$uid}-&gt;{$host};\r\n\r\nmore like the following:\r\n\r\n$href = defined $user_by_uid{$uid} ? $user_by_uid{$uid} : {}; #...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 20:45:41 +0000</pubDate>\n<guid>660052</guid>\n<perlmonks:node_id>660052</perlmonks:node_id>\n<perlmonks:author_user>131494</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 15:45:41</perlmonks:createtime>\n<perlmonks:authortitle>Argel</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Log::Dispatch::FileRotate error handling</title>\n<link>http://perlmonks.org/index.pl?node_id=660051</link>\n<description>\r\nthe module hangs in case there is no disk space.\r\n\r\n&lt;a href="http://search.cpan.org/perldoc?Log%3A%3ADispatch%3A%3AFileRotate"&gt;Log::Dispatch::FileRotate&lt;/a&gt; is a wrapper around &lt;a href="http://search.cpan.org/perldoc?Log%3A%3ADispatch%3A%3AFile"&gt;Log::Dispatch::File&lt;/a&gt;, which prints messages to a file.\r\n\r...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 20:24:10 +0000</pubDate>\n<guid>660051</guid>\n<perlmonks:node_id>660051</perlmonks:node_id>\n<perlmonks:author_user>321512</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 15:24:10</perlmonks:createtime>\n<perlmonks:authortitle>andreas1234567</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^5: Is Perl a good career move?</title>\n<link>http://perlmonks.org/index.pl?node_id=660049</link>\n<description>($foo = bar()) || ($foo = $baz);\r\n$foo = (($bar = bar()) ? $bar : $baz);\r\n\r\nThe key is that the || casts the right hand side as a boolean, and php does not have a magic variable that gets set while yo...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 20:05:32 +0000</pubDate>\n<guid>660049</guid>\n<perlmonks:node_id>660049</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 15:05:32</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: How to use MIME::Decoder::Gzip64</title>\n<link>http://perlmonks.org/index.pl?node_id=660047</link>\n<description>Yep, verry true MidLifeXis :)\r\n\r\nAnyways im only seeking for wisdom and helpfull people, replies like yours are this wolrd full of them :)...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 19:56:19 +0000</pubDate>\n<guid>660047</guid>\n<perlmonks:node_id>660047</perlmonks:node_id>\n<perlmonks:author_user>629639</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:56:19</perlmonks:createtime>\n<perlmonks:authortitle>Zeokat</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: payroll, mysql and perl question</title>\n<link>http://perlmonks.org/index.pl?node_id=660045</link>\n<description>... the amount does matter, because it could be that they have other checks &#39;preissued&#39; by the time we get the file from adp, that has the check numbers.\r\n\r\nIn oth...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 19:44:28 +0000</pubDate>\n<guid>660045</guid>\n<perlmonks:node_id>660045</perlmonks:node_id>\n<perlmonks:author_user>44715</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:44:28</perlmonks:createtime>\n<perlmonks:authortitle>graff</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Regular Expression Matching Issue</title>\n<link>http://perlmonks.org/index.pl?node_id=660044</link>\n<description>I went there, I am trying to use regular expressions for this, trying not to use any modules like HTML::Parser or XML::XPath....</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 19:41:40 +0000</pubDate>\n<guid>660044</guid>\n<perlmonks:node_id>660044</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:41:40</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Regular Expression Matching Issue</title>\n<link>http://perlmonks.org/index.pl?node_id=660043</link>\n<description>Wrong type it should ne table, still doesn&#39;t work!!!...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 19:39:25 +0000</pubDate>\n<guid>660043</guid>\n<perlmonks:node_id>660043</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:39:25</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: longest common substring</title>\n<link>http://perlmonks.org/index.pl?node_id=660041</link>\n<description>&lt;a href="?node=lima1"&gt;lima1&lt;/a&gt;,\r\n\r\nThe original thread I referenced was for longest common subsequence.  I still have yet to find an implementation for finding the longest common subsequences for &gt; 2 strings other tha...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 19:33:19 +0000</pubDate>\n<guid>660041</guid>\n<perlmonks:node_id>660041</perlmonks:node_id>\n<perlmonks:author_user>180961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:33:19</perlmonks:createtime>\n<perlmonks:authortitle>Limbic~Region</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Unicode insert into mssql from perl DBD</title>\n<link>http://perlmonks.org/index.pl?node_id=660040</link>\n<description>Based on this information in your "Anonymous" reply above:\r\n\r\nI am using the so called MSSQL Management Studio Express to actually see the data in the tables. I can paste &#39;real&#39; Unciod...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 19:25:43 +0000</pubDate>\n<guid>660040</guid>\n<perlmonks:node_id>660040</perlmonks:node_id>\n<perlmonks:author_user>44715</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:25:43</perlmonks:createtime>\n<perlmonks:authortitle>graff</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Regular Expression Matching Issue</title>\n<link>http://perlmonks.org/index.pl?node_id=660039</link>\n<description>One reason the regular expression does not match is because you do not have the string "movie" in your test.txt file.  There may be other reasons, but I would start with that.\r\nAlso, you should fir...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 19:12:30 +0000</pubDate>\n<guid>660039</guid>\n<perlmonks:node_id>660039</perlmonks:node_id>\n<perlmonks:author_user>622051</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:12:30</perlmonks:createtime>\n<perlmonks:authortitle>toolic</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Regular Expression Matching Issue</title>\n<link>http://perlmonks.org/index.pl?node_id=660038</link>\n<description>Just last year, we had a very similar problem here, at &lt;a href="?node_id=659770"&gt;Pattern Search on HTML source.&lt;/a&gt;, which got some good answers. Maybe you can use the answers given there.\r\n...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 19:12:03 +0000</pubDate>\n<guid>660038</guid>\n<perlmonks:node_id>660038</perlmonks:node_id>\n<perlmonks:author_user>5348</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:12:03</perlmonks:createtime>\n<perlmonks:authortitle>Corion</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: DBI place holder for sub query problem</title>\n<link>http://perlmonks.org/index.pl?node_id=660037</link>\n<description>Generally, placeholders can only hold the place of *values*, not structural elements like table and column names and subselect queries.  You can (for most DBDs, I believe) use placeholders for values ...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 19:08:27 +0000</pubDate>\n<guid>660037</guid>\n<perlmonks:node_id>660037</perlmonks:node_id>\n<perlmonks:author_user>67275</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:08:27</perlmonks:createtime>\n<perlmonks:authortitle>jZed</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Statistics from a txt file</title>\n<link>http://perlmonks.org/index.pl?node_id=660036</link>\n<description>As one of the people who tried to help you the last time, I&#39;m really insulted by this post of yours. You haven&#39;t even tried to run this program. There are errors even without use strict;...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 19:06:50 +0000</pubDate>\n<guid>660036</guid>\n<perlmonks:node_id>660036</perlmonks:node_id>\n<perlmonks:author_user>603247</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:06:50</perlmonks:createtime>\n<perlmonks:authortitle>apl</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^14: somethign wrong with the sumbit</title>\n<link>http://perlmonks.org/index.pl?node_id=660034</link>\n<description>Your test cgi script is syntactically correct and it runs ok form the shell but i dont understand a thing, all i see is raw html data like the following that doesnt make any sense to me, i cant make i...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 19:01:24 +0000</pubDate>\n<guid>660034</guid>\n<perlmonks:node_id>660034</perlmonks:node_id>\n<perlmonks:author_user>270140</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:01:24</perlmonks:createtime>\n<perlmonks:authortitle>Nik</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: How to use MIME::Decoder::Gzip64</title>\n<link>http://perlmonks.org/index.pl?node_id=660031</link>\n<description>\r\nOr maybe not msg&#39;d.  Oops.  :)\r\n\r\n\r\n--MidLifeXis\r\n...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 18:46:14 +0000</pubDate>\n<guid>660031</guid>\n<perlmonks:node_id>660031</perlmonks:node_id>\n<perlmonks:author_user>272364</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 13:46:14</perlmonks:createtime>\n<perlmonks:authortitle>MidLifeXis</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Statistics from a txt file</title>\n<link>http://perlmonks.org/index.pl?node_id=660030</link>\n<description>Please always note when a post is the continuation of a previous post. In your case, you haven&#39;t really incorporated much of the advice you got in &lt;a href="?node_id=659370"&gt;Statistics from a txtfile&lt;/a&gt;, and seriously, this sounds like hom...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 18:44:11 +0000</pubDate>\n<guid>660030</guid>\n<perlmonks:node_id>660030</perlmonks:node_id>\n<perlmonks:author_user>5348</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 13:44:11</perlmonks:createtime>\n<perlmonks:authortitle>Corion</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: longest common substring</title>\n<link>http://perlmonks.org/index.pl?node_id=660029</link>\n<description>For more than 2 strings, I&#39;d also suggest &lt;a href="http://search.cpan.org/search?mode=module&amp;amp;query=Tree%3A%3ASuffix"&gt;Tree::Suffix&lt;/a&gt; (although I&#39;ve never used this module. It is just in theory the best algorithm)....</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 18:41:13 +0000</pubDate>\n<guid>660029</guid>\n<perlmonks:node_id>660029</perlmonks:node_id>\n<perlmonks:author_user>525442</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 13:41:13</perlmonks:createtime>\n<perlmonks:authortitle>lima1</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Statistics from a txtfile</title>\n<link>http://perlmonks.org/index.pl?node_id=660026</link>\n<description>Have read up on regex and still confused.Am i anywhere near correct with the  variables?\r\n\r\n\r\n#!/usr/bin/perl\r\n\r\nprint("Please enter filename: ");\r\n$filename = ;\r\nchomp ($filename);\r\n\r\nif...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 18:27:43 +0000</pubDate>\n<guid>660026</guid>\n<perlmonks:node_id>660026</perlmonks:node_id>\n<perlmonks:author_user>659367</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 13:27:43</perlmonks:createtime>\n<perlmonks:authortitle>mbdc566021</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: Log4perl script logs OK only initially</title>\n<link>http://perlmonks.org/index.pl?node_id=660024</link>\n<description>I got this working by doing the following:\r\n\r\n1. specifying the arguments in the add_entry line, e.g.\r\n\r\n$cron-&gt;add_entry("0 5 * * *",\r\n                 {&#39;subroutine&#39; =&gt; &#92;&amp;TestSub,\r\n            ...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 18:10:12 +0000</pubDate>\n<guid>660024</guid>\n<perlmonks:node_id>660024</perlmonks:node_id>\n<perlmonks:author_user>492530</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 13:10:12</perlmonks:createtime>\n<perlmonks:authortitle>bowei_99</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: quick and dirty cryptogram puzzle</title>\n<link>http://perlmonks.org/index.pl?node_id=660023</link>\n<description>\r\nnext if $i == $j;\r\n\r\nThis line is unnecessary. It&#39;s been discussed before here and elsewhere, but in an array of any significant size (&gt;10 or 20 or so), the odds that i and j are equal ...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 18:09:30 +0000</pubDate>\n<guid>660023</guid>\n<perlmonks:node_id>660023</perlmonks:node_id>\n<perlmonks:author_user>31503</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 13:09:30</perlmonks:createtime>\n<perlmonks:authortitle>runrig</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Removing duplicates from an array</title>\n<link>http://perlmonks.org/index.pl?node_id=660022</link>\n<description>\r\n#############################################################################\r\n# Remove duplicated array members\r\n# For example if you have an array @D=qw(1 2 1 3 1 4 1 5)\r\n# It will return an...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 18:09:12 +0000</pubDate>\n<guid>660022</guid>\n<perlmonks:node_id>660022</perlmonks:node_id>\n<perlmonks:author_user>495535</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 13:09:12</perlmonks:createtime>\n<perlmonks:authortitle>gasho</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: DBI place holder for sub query problem</title>\n<link>http://perlmonks.org/index.pl?node_id=660021</link>\n<description>If it&#39;s not a bind variable then it&#39;s not a bind variable.  The bind vars get meta-quoted automagically, sql probably should not be, so I don&#39;t think you can use a bind variable to do that job.\r\n\r\n...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 18:09:06 +0000</pubDate>\n<guid>660021</guid>\n<perlmonks:node_id>660021</perlmonks:node_id>\n<perlmonks:author_user>16186</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 13:09:06</perlmonks:createtime>\n<perlmonks:authortitle>jettero</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Changing parent process environment variable</title>\n<link>http://perlmonks.org/index.pl?node_id=660020</link>\n<description>Since the posts above I have done some further digging.  First, the CPAN module Win32::Env has a BroadcastEnv method.  However there are issues, as documented above and in the Win32::Env docum...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 17:51:12 +0000</pubDate>\n<guid>660020</guid>\n<perlmonks:node_id>660020</perlmonks:node_id>\n<perlmonks:author_user>541305</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 12:51:12</perlmonks:createtime>\n<perlmonks:authortitle>cdarke</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: String::Combination Package Bug?</title>\n<link>http://perlmonks.org/index.pl?node_id=660016</link>\n<description>Looks like a bug. combination($str,$k) returns each combination ($k-2)! times.\r\n\r\n--shmem\r\n\r\n_($_=" "x(1...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 17:21:11 +0000</pubDate>\n<guid>660016</guid>\n<perlmonks:node_id>660016</perlmonks:node_id>\n<perlmonks:author_user>510280</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 12:21:11</perlmonks:createtime>\n<perlmonks:authortitle>shmem</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^3: Troubleshoot copying files to/from Windows shared volume</title>\n<link>http://perlmonks.org/index.pl?node_id=660015</link>\n<description>Older computer is running Apache 1.3 -- it doesn&#39;t show up in the &#39;services&#39; list.\r\n\r\nIf it doesn&#39;t show up in the services list, how have you discovered which useri...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 17:09:45 +0000</pubDate>\n<guid>660015</guid>\n<perlmonks:node_id>660015</perlmonks:node_id>\n<perlmonks:author_user>171588</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 12:09:45</perlmonks:createtime>\n<perlmonks:authortitle>BrowserUk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Script runs from command line but not via crontab</title>\n<link>http://perlmonks.org/index.pl?node_id=660014</link>\n<description>As already stated, it&#39;s generally an environment issue when something works on the command line, but not from cron.  In this specific case, I suspect issue is not an environment variable, thoug...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 17:08:39 +0000</pubDate>\n<guid>660014</guid>\n<perlmonks:node_id>660014</perlmonks:node_id>\n<perlmonks:author_user>163790</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 12:08:39</perlmonks:createtime>\n<perlmonks:authortitle>esper</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: payroll, mysql and perl question</title>\n<link>http://perlmonks.org/index.pl?node_id=660013</link>\n<description>Actually, that is a very good idea, I just was trying to keep the databases to a minimal, we already have over 350 tables in it, a little much... thx though\r\n\r\n...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 17:05:12 +0000</pubDate>\n<guid>660013</guid>\n<perlmonks:node_id>660013</perlmonks:node_id>\n<perlmonks:author_user>139776</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 12:05:12</perlmonks:createtime>\n<perlmonks:authortitle>powerhouse</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Wierd Windows Parse::RecDescent output problem</title>\n<link>http://perlmonks.org/index.pl?node_id=660012</link>\n<description>I did a little more digging. apparently it is the format that is not working. if I replace the &#39;write ERROR;&#39; in the _error routine with a &#39;printf ERROR ...&#39; the information prints properly. \r\nSo...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 17:04:28 +0000</pubDate>\n<guid>660012</guid>\n<perlmonks:node_id>660012</perlmonks:node_id>\n<perlmonks:author_user>137449</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 12:04:28</perlmonks:createtime>\n<perlmonks:authortitle>dreadpiratepeter</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Removing duplicates from an array</title>\n<link>http://perlmonks.org/index.pl?node_id=660011</link>\n<description>To try to answer your update.  The subroutine builds a hash using the elements of the input array as keys (the values are just set to 1, and not used).  Since hash keys are unique, any duplicates will...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 17:00:50 +0000</pubDate>\n<guid>660011</guid>\n<perlmonks:node_id>660011</perlmonks:node_id>\n<perlmonks:author_user>541305</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 12:00:50</perlmonks:createtime>\n<perlmonks:authortitle>cdarke</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: DBI place holder for sub query problem</title>\n<link>http://perlmonks.org/index.pl?node_id=660010</link>\n<description>Thank you for your advice, I will look into this...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 17:00:21 +0000</pubDate>\n<guid>660010</guid>\n<perlmonks:node_id>660010</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 12:00:21</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: payroll, mysql and perl question</title>\n<link>http://perlmonks.org/index.pl?node_id=660009</link>\n<description>You understood me correctly, however the amount does matter, because it could be that they have other checks &#39;preissued&#39; by the time we get the file from adp, that has the check numbers.\r\n\r\nSo...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 16:59:19 +0000</pubDate>\n<guid>660009</guid>\n<perlmonks:node_id>660009</perlmonks:node_id>\n<perlmonks:author_user>139776</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:59:19</perlmonks:createtime>\n<perlmonks:authortitle>powerhouse</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: How to upload bulk images</title>\n<link>http://perlmonks.org/index.pl?node_id=660008</link>\n<description>Hi, this script will work with plain http (it&#39;s shown as https). It shows the basics. You can put the upload in a loop to upload multiple files.  For more examples, search groups.google.com  for "lwp ...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 16:57:06 +0000</pubDate>\n<guid>660008</guid>\n<perlmonks:node_id>660008</perlmonks:node_id>\n<perlmonks:author_user>131741</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:57:06</perlmonks:createtime>\n<perlmonks:authortitle>zentara</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: DBI place holder for sub query problem</title>\n<link>http://perlmonks.org/index.pl?node_id=660007</link>\n<description>I don&#39;t think it&#39;s possible to get that to work the way you want.\r\n\r\nThe way that the prepare/execute combo works is that the prepare parses the query and figures out the most ...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 16:55:08 +0000</pubDate>\n<guid>660007</guid>\n<perlmonks:node_id>660007</perlmonks:node_id>\n<perlmonks:author_user>163790</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:55:08</perlmonks:createtime>\n<perlmonks:authortitle>esper</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Downloading html content</title>\n<link>http://perlmonks.org/index.pl?node_id=660006</link>\n<description>pupun,\r\n\r\n\r\n\r\nYou&#39;ve probably got all you need.  However, if not, the following bit of code might help.\r\n\r\n\r\n\r\n#!/usr/bin/perl\r\n\r\nuse warnings;\r\nuse strict;\r\n\r\n\r\nuse LWP::UserAgent;\r\nuse...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 16:53:40 +0000</pubDate>\n<guid>660006</guid>\n<perlmonks:node_id>660006</perlmonks:node_id>\n<perlmonks:author_user>304479</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:53:40</perlmonks:createtime>\n<perlmonks:authortitle>Win</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: DBI place holder for sub query problem</title>\n<link>http://perlmonks.org/index.pl?node_id=660005</link>\n<description>Thank you for your input, but when I tried it I get\r\n\r\nDBD::Oracle::st execute failed: ORA-01722: invalid number (DBD ERROR: error possibly near  indicator at char 30 in &#39;Update Customers set...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 16:52:05 +0000</pubDate>\n<guid>660005</guid>\n<perlmonks:node_id>660005</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:52:05</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Removing duplicates from an array</title>\n<link>http://perlmonks.org/index.pl?node_id=660004</link>\n<description>See &lt;a href="http://perldoc.perl.org/perlfaq4.html#How-can-I-remove-duplicate-elements-from-a-list-or-array%3F"&gt;How can I remove duplicate elements from a list or array? From perlfaq4&lt;/a&gt;, &lt;a href="?node_id=90493"&gt;How to find and remove duplicate elements from an array?&lt;/a&gt; or many  o...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 16:47:16 +0000</pubDate>\n<guid>660004</guid>\n<perlmonks:node_id>660004</perlmonks:node_id>\n<perlmonks:author_user>324763</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:47:16</perlmonks:createtime>\n<perlmonks:authortitle>marto</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: String::Combination Package Bug?</title>\n<link>http://perlmonks.org/index.pl?node_id=660003</link>\n<description>I downloaded String::Combination via ActiveState&#39;s PPM, and produced this behavior.\r\n\r\nI couldn&#39;t find the distro (or the author) on CPAN, but the documentation in the distro&#39;s POD seems to ...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 16:46:32 +0000</pubDate>\n<guid>660003</guid>\n<perlmonks:node_id>660003</perlmonks:node_id>\n<perlmonks:author_user>628526</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:46:32</perlmonks:createtime>\n<perlmonks:authortitle>amarquis</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: String::Combination Package Bug?</title>\n<link>http://perlmonks.org/index.pl?node_id=660001</link>\n<description>I noticed a few strange things about String::Combination...\r\n\r\nIt&#39;s not on CPAN, despite having been uploaded ...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 16:38:47 +0000</pubDate>\n<guid>660001</guid>\n<perlmonks:node_id>660001</perlmonks:node_id>\n<perlmonks:author_user>644067</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:38:47</perlmonks:createtime>\n<perlmonks:authortitle>gamache</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Troubleshoot copying files to/from Windows shared volume</title>\n<link>http://perlmonks.org/index.pl?node_id=660000</link>\n<description>Well, the only difference is that the computer running Apache 2.2 (newer) shows up in the NET SESSION listing under its network name. The server running Apache 1.3 is accessible over the LAN, but it d...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 16:37:38 +0000</pubDate>\n<guid>660000</guid>\n<perlmonks:node_id>660000</perlmonks:node_id>\n<perlmonks:author_user>513506</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:37:38</perlmonks:createtime>\n<perlmonks:authortitle>bmckenzie</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^6: Error in insertion of MULTIPLE FILENAMES &amp; CONTENTS INTO DATABASE</title>\n<link>http://perlmonks.org/index.pl?node_id=659999</link>\n<description>After some testing i noticed that while() returns a line-by-line data of the file and it is storing it in $_\r\nThat&#39;s good by what i need is to get to whole data content in one var so the abo...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 16:37:29 +0000</pubDate>\n<guid>659999</guid>\n<perlmonks:node_id>659999</perlmonks:node_id>\n<perlmonks:author_user>270140</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:37:29</perlmonks:createtime>\n<perlmonks:authortitle>Nik</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: DBI place holder for sub query problem</title>\n<link>http://perlmonks.org/index.pl?node_id=659998</link>\n<description> The &lt;a href="http://search.cpan.org/perldoc?DBI"&gt;DBI&lt;/a&gt; handles the quoting on it&#39;s own (the reason you use the place holders)...  Perhaps this&#39;ll work better?\r\n\r\n$sth=$dbh-&gt;prepare("Update Customers set RESULTS =? where rec_no=?");\r...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 16:36:23 +0000</pubDate>\n<guid>659998</guid>\n<perlmonks:node_id>659998</perlmonks:node_id>\n<perlmonks:author_user>16186</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:36:23</perlmonks:createtime>\n<perlmonks:authortitle>jettero</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Troubleshoot copying files to/from Windows shared volume</title>\n<link>http://perlmonks.org/index.pl?node_id=659997</link>\n<description>Users and groups are the same.\r\n\r\nOlder computer is running Apache 1.3 (bundled with EasyPHP) -- it doesn&#39;t show up in the &#39;services&#39; list. \r\n\r\nNewer computer is running Apache 2.2.4 from wampap...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 16:32:19 +0000</pubDate>\n<guid>659997</guid>\n<perlmonks:node_id>659997</perlmonks:node_id>\n<perlmonks:author_user>513506</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 11:32:19</perlmonks:createtime>\n<perlmonks:authortitle>bmckenzie</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: poll ideas quest 2007</title>\n<link>http://perlmonks.org/index.pl?node_id=659994</link>\n<description>Should seek reparations from the Elves\r\n\r\nHmm... aren&#39;t they beyond repair and converted to stone with the first sunlight?\r\n...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 15:43:17 +0000</pubDate>\n<guid>659994</guid>\n<perlmonks:node_id>659994</perlmonks:node_id>\n<perlmonks:author_user>510280</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 10:43:17</perlmonks:createtime>\n<perlmonks:authortitle>shmem</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Unicode insert into mssql from perl DBD</title>\n<link>http://perlmonks.org/index.pl?node_id=659991</link>\n<description>I&#39;ve had similar issues when using &lt;a href="http://search.cpan.org/perldoc?DBD%3A%3AODBC"&gt;DBD::ODBC&lt;/a&gt;. I fixed it by switching to &lt;a href="http://search.cpan.org/perldoc?DBD%3A%3AADO"&gt;DBD::ADO&lt;/a&gt;:\r\n\r\n\r\n# for ADO usage\r\nuse DBI;\r\nuse Win32::OLE;\r\nWin32::OLE-&gt;Option( CP =&gt; Win32::OLE::CP_UTF8 );\r...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 15:32:01 +0000</pubDate>\n<guid>659991</guid>\n<perlmonks:node_id>659991</perlmonks:node_id>\n<perlmonks:author_user>448370</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 10:32:01</perlmonks:createtime>\n<perlmonks:authortitle>rhesa</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: poll ideas quest 2007</title>\n<link>http://perlmonks.org/index.pl?node_id=659990</link>\n<description>Trolls:\r\n\r\nAre starved for attention\r\nShould know better\r\nWaste valuable bandwidth\r\nAll of the above\r\nShould be ignored\r\nShould be...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 15:30:55 +0000</pubDate>\n<guid>659990</guid>\n<perlmonks:node_id>659990</perlmonks:node_id>\n<perlmonks:author_user>63250</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 10:30:55</perlmonks:createtime>\n<perlmonks:authortitle>gregor42</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re: Script runs from command line but not via crontab</title>\n<link>http://perlmonks.org/index.pl?node_id=659989</link>\n<description>I would have to agree with &lt;a href="?node=kirillm"&gt;kirillm&lt;/a&gt; for the most part. When a script runs on the command line but fails in crontab, it&#39;s usually an environ...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 15:06:24 +0000</pubDate>\n<guid>659989</guid>\n<perlmonks:node_id>659989</perlmonks:node_id>\n<perlmonks:author_user>626051</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 10:06:24</perlmonks:createtime>\n<perlmonks:authortitle>dwm042</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Re^2: Unicode insert into mssql from perl DBD</title>\n<link>http://perlmonks.org/index.pl?node_id=659988</link>\n<description>graff, thanks for the comment.\r\nIf only I could use mysql on this project....\r\n\r\nYou&#39;re right about the  "example", which was more obfucsating then helpful, I admit. \r\nThe way you "tell" MicroSoft SQL...</description>\n<category>note</category>\n<pubDate>Wed, 02 Jan 2008 15:02:38 +0000</pubDate>\n<guid>659988</guid>\n<perlmonks:node_id>659988</perlmonks:node_id>\n<perlmonks:author_user>961</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 10:02:38</perlmonks:createtime>\n<perlmonks:authortitle>Anonymous Monk</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>WaltSteadman</title>\n<link>http://perlmonks.org/index.pl?node_id=660195</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 14:08:16 +0000</pubDate>\n<guid>660195</guid>\n<perlmonks:node_id>660195</perlmonks:node_id>\n<perlmonks:author_user>660195</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 09:08:16</perlmonks:createtime>\n<perlmonks:authortitle>WaltSteadman</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>sa7640</title>\n<link>http://perlmonks.org/index.pl?node_id=660187</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 13:34:10 +0000</pubDate>\n<guid>660187</guid>\n<perlmonks:node_id>660187</perlmonks:node_id>\n<perlmonks:author_user>660187</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 08:34:10</perlmonks:createtime>\n<perlmonks:authortitle>sa7640</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>sivaram_valluri</title>\n<link>http://perlmonks.org/index.pl?node_id=660181</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 12:38:22 +0000</pubDate>\n<guid>660181</guid>\n<perlmonks:node_id>660181</perlmonks:node_id>\n<perlmonks:author_user>660181</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 07:38:22</perlmonks:createtime>\n<perlmonks:authortitle>sivaram_valluri</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>hipowls</title>\n<link>http://perlmonks.org/index.pl?node_id=660179</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 12:14:41 +0000</pubDate>\n<guid>660179</guid>\n<perlmonks:node_id>660179</perlmonks:node_id>\n<perlmonks:author_user>660179</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 07:14:41</perlmonks:createtime>\n<perlmonks:authortitle>hipowls</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>setanta</title>\n<link>http://perlmonks.org/index.pl?node_id=660161</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 11:21:07 +0000</pubDate>\n<guid>660161</guid>\n<perlmonks:node_id>660161</perlmonks:node_id>\n<perlmonks:author_user>660161</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:21:07</perlmonks:createtime>\n<perlmonks:authortitle>setanta</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Slug</title>\n<link>http://perlmonks.org/index.pl?node_id=660158</link>\n<description>Am learning Perl through my Studies.\r\n\r\nJust getting to grips with the language.\r\n\r\nAm a total Noob so give me a break....</description>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 11:07:36 +0000</pubDate>\n<guid>660158</guid>\n<perlmonks:node_id>660158</perlmonks:node_id>\n<perlmonks:author_user>660158</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:07:36</perlmonks:createtime>\n<perlmonks:authortitle>Slug</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>gizzlon</title>\n<link>http://perlmonks.org/index.pl?node_id=660155</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 11:00:14 +0000</pubDate>\n<guid>660155</guid>\n<perlmonks:node_id>660155</perlmonks:node_id>\n<perlmonks:author_user>660155</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 06:00:14</perlmonks:createtime>\n<perlmonks:authortitle>gizzlon</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>m_al</title>\n<link>http://perlmonks.org/index.pl?node_id=660152</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 10:47:08 +0000</pubDate>\n<guid>660152</guid>\n<perlmonks:node_id>660152</perlmonks:node_id>\n<perlmonks:author_user>660152</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 05:47:08</perlmonks:createtime>\n<perlmonks:authortitle>m_al</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Antony Lewis</title>\n<link>http://perlmonks.org/index.pl?node_id=660150</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 10:15:33 +0000</pubDate>\n<guid>660150</guid>\n<perlmonks:node_id>660150</perlmonks:node_id>\n<perlmonks:author_user>660150</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 05:15:33</perlmonks:createtime>\n<perlmonks:authortitle>Antony Lewis</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>subghost</title>\n<link>http://perlmonks.org/index.pl?node_id=660139</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 09:15:53 +0000</pubDate>\n<guid>660139</guid>\n<perlmonks:node_id>660139</perlmonks:node_id>\n<perlmonks:author_user>660139</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 04:15:53</perlmonks:createtime>\n<perlmonks:authortitle>subghost</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>braveghost</title>\n<link>http://perlmonks.org/index.pl?node_id=660137</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 09:09:16 +0000</pubDate>\n<guid>660137</guid>\n<perlmonks:node_id>660137</perlmonks:node_id>\n<perlmonks:author_user>660137</perlmonks:author_user>\n<perlmonks:createtime>2008-01-03 04:09:16</perlmonks:createtime>\n<perlmonks:authortitle>braveghost</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>nsk1235</title>\n<link>http://perlmonks.org/index.pl?node_id=660122</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 04:39:47 +0000</pubDate>\n<guid>660122</guid>\n<perlmonks:node_id>660122</perlmonks:node_id>\n<perlmonks:author_user>660122</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 23:39:47</perlmonks:createtime>\n<perlmonks:authortitle>nsk1235</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>snoopy_colorado</title>\n<link>http://perlmonks.org/index.pl?node_id=660116</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 03:41:53 +0000</pubDate>\n<guid>660116</guid>\n<perlmonks:node_id>660116</perlmonks:node_id>\n<perlmonks:author_user>660116</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 22:41:53</perlmonks:createtime>\n<perlmonks:authortitle>snoopy_colorado</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>eugeneman42</title>\n<link>http://perlmonks.org/index.pl?node_id=660106</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 01:21:08 +0000</pubDate>\n<guid>660106</guid>\n<perlmonks:node_id>660106</perlmonks:node_id>\n<perlmonks:author_user>660106</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 20:21:08</perlmonks:createtime>\n<perlmonks:authortitle>eugeneman42</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>jamespeach</title>\n<link>http://perlmonks.org/index.pl?node_id=660102</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 01:03:59 +0000</pubDate>\n<guid>660102</guid>\n<perlmonks:node_id>660102</perlmonks:node_id>\n<perlmonks:author_user>660102</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 20:03:59</perlmonks:createtime>\n<perlmonks:authortitle>jamespeach</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>schoonm</title>\n<link>http://perlmonks.org/index.pl?node_id=660092</link>\n<category>user</category>\n<pubDate>Thu, 03 Jan 2008 00:24:12 +0000</pubDate>\n<guid>660092</guid>\n<perlmonks:node_id>660092</perlmonks:node_id>\n<perlmonks:author_user>660092</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 19:24:12</perlmonks:createtime>\n<perlmonks:authortitle>schoonm</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>Aerimus</title>\n<link>http://perlmonks.org/index.pl?node_id=660072</link>\n<category>user</category>\n<pubDate>Wed, 02 Jan 2008 22:44:09 +0000</pubDate>\n<guid>660072</guid>\n<perlmonks:node_id>660072</perlmonks:node_id>\n<perlmonks:author_user>660072</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 17:44:09</perlmonks:createtime>\n<perlmonks:authortitle>Aerimus</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>cod0475</title>\n<link>http://perlmonks.org/index.pl?node_id=660071</link>\n<category>user</category>\n<pubDate>Wed, 02 Jan 2008 22:40:15 +0000</pubDate>\n<guid>660071</guid>\n<perlmonks:node_id>660071</perlmonks:node_id>\n<perlmonks:author_user>660071</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 17:40:15</perlmonks:createtime>\n<perlmonks:authortitle>cod0475</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>xbfkmof</title>\n<link>http://perlmonks.org/index.pl?node_id=660054</link>\n<category>user</category>\n<pubDate>Wed, 02 Jan 2008 21:05:26 +0000</pubDate>\n<guid>660054</guid>\n<perlmonks:node_id>660054</perlmonks:node_id>\n<perlmonks:author_user>660054</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 16:05:26</perlmonks:createtime>\n<perlmonks:authortitle>xbfkmof</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>alexm</title>\n<link>http://perlmonks.org/index.pl?node_id=660050</link>\n<description>I&#39;ve been using Perl since 1998, mostly for sysadmin tasks but it soon became my favourite programming language. \r\n\r\nEventually I joined Barcelona Perl Mongers...</description>\n<category>user</category>\n<pubDate>Wed, 02 Jan 2008 20:19:11 +0000</pubDate>\n<guid>660050</guid>\n<perlmonks:node_id>660050</perlmonks:node_id>\n<perlmonks:author_user>660050</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 15:19:11</perlmonks:createtime>\n<perlmonks:authortitle>alexm</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>merrie</title>\n<link>http://perlmonks.org/index.pl?node_id=660048</link>\n<category>user</category>\n<pubDate>Wed, 02 Jan 2008 20:04:27 +0000</pubDate>\n<guid>660048</guid>\n<perlmonks:node_id>660048</perlmonks:node_id>\n<perlmonks:author_user>660048</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 15:04:27</perlmonks:createtime>\n<perlmonks:authortitle>merrie</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>chunk08</title>\n<link>http://perlmonks.org/index.pl?node_id=660035</link>\n<category>user</category>\n<pubDate>Wed, 02 Jan 2008 19:02:59 +0000</pubDate>\n<guid>660035</guid>\n<perlmonks:node_id>660035</perlmonks:node_id>\n<perlmonks:author_user>660035</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 14:02:59</perlmonks:createtime>\n<perlmonks:authortitle>chunk08</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>clixandru</title>\n<link>http://perlmonks.org/index.pl?node_id=660027</link>\n<category>user</category>\n<pubDate>Wed, 02 Jan 2008 18:32:21 +0000</pubDate>\n<guid>660027</guid>\n<perlmonks:node_id>660027</perlmonks:node_id>\n<perlmonks:author_user>660027</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 13:32:21</perlmonks:createtime>\n<perlmonks:authortitle>clixandru</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>llll</title>\n<link>http://perlmonks.org/index.pl?node_id=660019</link>\n<category>user</category>\n<pubDate>Wed, 02 Jan 2008 17:37:36 +0000</pubDate>\n<guid>660019</guid>\n<perlmonks:node_id>660019</perlmonks:node_id>\n<perlmonks:author_user>660019</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 12:37:36</perlmonks:createtime>\n<perlmonks:authortitle>llll</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>mboscolo</title>\n<link>http://perlmonks.org/index.pl?node_id=660018</link>\n<category>user</category>\n<pubDate>Wed, 02 Jan 2008 17:23:54 +0000</pubDate>\n<guid>660018</guid>\n<perlmonks:node_id>660018</perlmonks:node_id>\n<perlmonks:author_user>660018</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 12:23:54</perlmonks:createtime>\n<perlmonks:authortitle>mboscolo</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>BWilliams</title>\n<link>http://perlmonks.org/index.pl?node_id=660017</link>\n<category>user</category>\n<pubDate>Wed, 02 Jan 2008 17:23:22 +0000</pubDate>\n<guid>660017</guid>\n<perlmonks:node_id>660017</perlmonks:node_id>\n<perlmonks:author_user>660017</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 12:23:22</perlmonks:createtime>\n<perlmonks:authortitle>BWilliams</perlmonks:authortitle>\n</item>\n<item perlmonks:itemtype="node"><title>siriche</title>\n<link>http://perlmonks.org/index.pl?node_id=659993</link>\n<category>user</category>\n<pubDate>Wed, 02 Jan 2008 15:38:13 +0000</pubDate>\n<guid>659993</guid>\n<perlmonks:node_id>659993</perlmonks:node_id>\n<perlmonks:author_user>659993</perlmonks:author_user>\n<perlmonks:createtime>2008-01-02 10:38:13</perlmonks:createtime>\n<perlmonks:authortitle>siriche</perlmonks:authortitle>\n</item>\n</channel>\n</rss>\n\r\n', '1199383115', 'Guest');
INSERT INTO `rss_info` (`id`, `name`, `link`, `data`, `date`, `sec_lvl`) VALUES
(6, 'Seekers of Perl Wisdom - Perl Monks', 'http://prlmnks.org/rss/perlquestion.xml', '<?xml version="1.0" encoding="UTF-8"?>\n\n\n\n<rss version="2.0" xmlns:blogChannel="http://backend.userland.com/blogChannelModule">\n\n    <channel>HTML_TEXT::html_escape(\n        <title>perlquestion</title>\n        <link>http://prlmnks.org/list/</link>\n        <description>RSS feeds from perlmonks.org</description>\n        <language>en</language>\n        <ttl>5</ttl>\n\n        \n\n<item>\n    <title>Non-blocking connect() and gethostbyname()? (Anonymous Monk)</title>\n    <link>http://prlmnks.org/html/581062.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/581062.html</guid>\n\n    <description>\n        &lt;p&gt;I&#39;m using IO::Socket right now to do some non-blocking network IO for a graphical application. IO::Socket has a blocking() method that purports to toggle blocking mode. It seems to work for reading and writing, but its connect() method--which gets called when you do IO::Socket::INET-&gt;new()--does not. First it calls gethostbyname(), which blocks, then it blocks using IO::Select to timeout the connect call. I don&#39;t want to rewrite the whole thing to use POE. Is there any way to do a non-blocking connect and gethostbyname() using IO::Socket? If not, what would be the least obtrusive alternatives?&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>[OT] When coders don&#39;t see eye to eye (Anonymous Monk)</title>\n    <link>http://prlmnks.org/html/581058.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/581058.html</guid>\n\n    <description>\n        &lt;p&gt;Dear monks,&lt;/p&gt;&lt;p&gt;I&#39;m currently involved in a web project with a friend. &lt;p&gt;It&#39;s the first time I&#39;m jointly coding a website with another person. We sometimes have quite different approaches to the same problem, and we fail to see eye to eye.&lt;/p&gt;&lt;p&gt;Here&#39;s is one and I hope to seek your advice and opinions.&lt;/p&gt;&lt;p&gt;We are divided over the how to treat the &quot;removal&quot; of a post from a forum. The questionable post will still be somewhere in database, but we need a way to indicate that action was taken against it.&lt;/p&gt;&lt;p&gt;To make things concrete, we&#39;ve two MySQL tables (simplified) as follows:&lt;/p&gt;&lt;b&gt;posts_tbl&lt;/b&gt;&lt;br /&gt;post_id author_id message deleted_flag&lt;br /&gt;&lt;br /&gt;&lt;b&gt;removed_tbl&lt;/b&gt;&lt;br /&gt;post_id message deleted_by_id date&lt;br /&gt;&lt;p&gt;Let&#39;s say we have too approaches A and B.&lt;/p&gt;&lt;p&gt;When a message that is deemed inappropriate is removed via a button click, Approach A goes likes this:&lt;/p&gt;&lt;p&gt;In &lt;b&gt;posts_tbl&lt;/b&gt;, the &quot;message&quot; field is updated with the replacement text &quot;Removed by USERNAME&quot; and the &quot;deleted_flag&quot; column with a value of 1 (the default is 0) (Note: the username is available at the point of update, so it&#39;s updated into the message filed as part of the replacement text).&lt;/p&gt;&lt;p&gt;In &lt;b&gt;removed_tbl&lt;/b&gt;, the original message is inserted into the message field, together with the post_id, the date, the member id of the person carrying out the deletion.&lt;/p&gt;&lt;p&gt;Approach A&#39;s points are:&lt;/p&gt;a) When displaying posts in a web page, all posts can be directly retrieved from &lt;b&gt;posts_tbl&lt;/b&gt;, including messages that contain &quot;Removed by USERNAME&quot;.&lt;br /&gt;b) Saving of processing time because there&#39;s no need for additional code to check whether a message was removed.&lt;br /&gt;c) Greater flexibility because different pieces of data are stored in two different tables.&lt;br /&gt;d) Greater expandability. When a different reason for removing the post is needed, a new column can be added to &lt;b&gt;removed_tbl&lt;/b&gt; to store that reason.&lt;br /&gt;&lt;p&gt;The sql to retrieve messages from &lt;b&gt;posts_tbl&lt;/b&gt; will be straightforward without having to link to &lt;b&gt;removed_tbl&lt;/b&gt; to retrieve the username of the person who deleted the post (assuming the other information in removed_tbl is not needed for display). The code will be simpler too.&lt;/p&gt;&lt;p&gt;Approach B is:&lt;/p&gt;&lt;b&gt;removed_tbl&lt;/b&gt; should be changed to:&lt;br /&gt;post_id deleted_by_id date&lt;br /&gt;&lt;p&gt;When a removal is carried out:&lt;/p&gt;&lt;p&gt;In &lt;b&gt;posts_tbl&lt;/b&gt;, the &quot;message&quot; field remains unchanged while the  &quot;deleted_flag&quot; column is updated with a value of 1.&lt;/p&gt;&lt;p&gt;In &lt;b&gt;removed_tbl&lt;/b&gt;, the necessary information is inserted (post_id, member id of the person deleting the message, date)&lt;/p&gt;&lt;p&gt;Approach&#39;s B points are:&lt;/p&gt;a) The original message should not be touched in posts_tbl.&lt;br /&gt;b) There&#39;s duplication of data if the message field of &lt;b&gt;posts_tbl&lt;/b&gt; is updated with the string &quot;Removed by ...&quot;.&lt;br /&gt;c) There&#39;s also duplication of data because &quot;Removed by ...&quot; and &quot;deleted_flag&quot; both indicate the particular post has been removed.&lt;br /&gt;d) The string &quot;Removed by ...&quot; should be added in the code for outputting to a webpage, so that it doesn&#39;t get stored anywhere. When a different wording is needed e.g. changing &quot;Removed by ...&quot; to &quot;Deleted by ...&quot;, only that the hard-coded string needs to be changed.&lt;br /&gt;e) posts_tbl stores all original posts, so it&#39;s easier for retrieval.&lt;br /&gt;&lt;p&gt;Cons of Approach B:&lt;/p&gt;a) The sql to retrieve messages will require an additional condition to link posts_tbl to removed_tbl to retrieve the username of whoever deleted the post.&lt;br /&gt;b) The code will need to check for whether a post has been removed so it can output the string &quot;Removed by ...&quot;.&lt;br /&gt;&lt;p&gt;There are other ways for sure. But between the two outlined above, which is a better solution?&lt;/p&gt;&lt;p&gt;It&#39;s a bit longish but I need to paint as accurate a picture as possible.&lt;/p&gt;&lt;p&gt;Would appreciate your enlightment :)&lt;/p&gt;Thank you and I look foward to hearing from you :)&lt;br /&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>foreach in HoHoA problems (mdunnbass)</title>\n    <link>http://prlmnks.org/html/581054.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/581054.html</guid>\n\n    <description>\n        Hi Monks,&lt;p /&gt;I am trying to have a look at the elements of arrays in a dynamically created HoHoA.  When I try something like this:&lt;br /&gt;&lt;pre class=&quot;block_code&quot;&gt; my ($span, %matches) = @_; my ($site, $fastaseq, $fasta, $sitekey) = &#39;&#39;; my ($setscounter,$lowerlimit,$upperlimit,$i,$set,$yes,$low,$hit) = 0; my %sets = (); FASTA: for $fastaseq (keys %matches) {       $sitekey = &#39;&#39;;       SITEKEY: for $sitekey (sort {$a &lt;=&gt; $b } keys %{$matches{$fastaseq}}) {         if (@{$matches{$fastaseq}{$sitekey}}) {          SET: foreach $hit (@{$matches{$fastaseq}{$sitekey}}) {            print &quot;&#92;$matches{$fastaseq}{$sitekey} is: $matches{$fastaseq}{$sitekey}&#92;n&quot;;            print &quot;&#92;$hit is: &quot;,$hit,&quot;&#92;n&quot;;            print &quot;&#92;$hit is: &quot;,$matches{$fastaseq}{$sitekey}[$hit],&quot;&#92;n&quot;;            if ($hit &gt;= $lowerlimit &amp;&amp; $hit &lt;= $upperlimit) { #some code}}}}}&lt;/pre&gt;I get the following output:&lt;br /&gt;&lt;pre class=&quot;block_code&quot;&gt;$matches{&gt;LG_XIV}{0} is: ARRAY(0x182bb14)Use of uninitialized value in print at MyScript line 386.$hit is: $hit is: 6906413Use of uninitialized value in numeric ge (&gt;=) at MyScript line 388.&lt;/pre&gt;BTW - line 386 is the first &lt;tt class=&quot;inline_code&quot;&gt;print $hit&lt;/tt&gt; line, and so on.   I&#39;m using &lt;tt class=&quot;inline_code&quot;&gt;use strict&lt;/tt&gt; and &lt;tt class=&quot;inline_code&quot;&gt;use warnings&lt;/tt&gt;, and I am scratching my head like mad to try to figure out what&#39;s wrong.  I&#39;ve been staring at this so long, I am losing my train of thought anymore.&lt;p /&gt;If I replace the straight &lt;tt class=&quot;inline_code&quot;&gt;$hit&lt;/tt&gt; calls in the greater than comparison with &lt;tt class=&quot;inline_code&quot;&gt;$matches{$fastaseq}{$sitekey}[$hit]&lt;/tt&gt;, I get no change.&lt;p /&gt;Basically, I just want to know what each of the values in the array &lt;code&gt;$matches{$fastaseq}{$sitekey} array is, and then throw it into the comparison on that if (&gt;= &amp;&amp; &lt;=) line.  But, no dice.&lt;p /&gt;Does anyone have any ideas, or can point out what I&#39;m doing wrong?&lt;p  /&gt;Thanks,&lt;br /&gt;Matt\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Howto include Module with Specific Methods with PAR&#39;s pp utility (monkfan)</title>\n    <link>http://prlmnks.org/html/581050.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/581050.html</guid>\n\n    <description>\n        Hi,&lt;br&gt;Suppose I have a code (mycode.pl) that has include the following modules&lt;pre class=&quot;block_code&quot;&gt;#!/usr/bin/perl -wuse strict;use Algorithm::Loops &#39;NestedLoops&#39;;use List::Compare;use List::Util qw (min max);use somelib;  # (somelib.pm)# rest of the code&lt;/pre&gt;Now I want to &#39;compile&#39; into an &#39;executable&#39; of this code using PAR&#39;s [http://search.cpan.org/~smueller/PAR-0.957/script/pp|pp] utility. I tried the following command:&lt;pre class=&quot;block_code&quot;&gt;#!/usr/bin/bashpp -M Algorithm::Loops qw(NestedLoops) -M List::Compare -M List::Util qw(min max)  -a somelib.pm mycode.out&lt;/pre&gt;But it gives:&lt;pre class=&quot;block_code&quot;&gt;-bash: syntax error near unexpected token `(&#39;&lt;/pre&gt;What&#39;s the way to overcome this?&lt;div class=&quot;pmsig&quot;&gt;&lt;div class=&quot;pmsig-393886&quot;&gt;&lt;br&gt;Regards,&lt;br&gt;Edward&lt;/div&gt;&lt;/div&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Form letters: eval a string to substutite perl variables (brycen)</title>\n    <link>http://prlmnks.org/html/581030.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/581030.html</guid>\n\n    <description>\n        Updated: Here&#39;s what I want to do. Given a file:&lt;pre class=&quot;block_code&quot;&gt;&quot;Dear $row-&gt;{name}; thanks for giving us money.&quot;&lt;/pre&gt;I want to slurp it in:&lt;pre class=&quot;block_code&quot;&gt;undef($/);$block = &lt;FILE&gt;;&lt;/pre&gt;Then substitue in a loop:&lt;pre class=&quot;block_code&quot;&gt;$sql = &quot;select email,name from database&quot;;while( $row=getrow($sql) ) {   print &quot;Working on $row-&gt;{name}&#92;n&quot;;   eval{$block);   send_email($row-&gt;{email},$block);  }&lt;/pre&gt;The idea is to use perl syntax and the perl parser for the substitution, rather than a made up syntax (e.g. %NAME% and s/%NAME%/$name/). Is this crazy?\n    </description>\n</item>\n\n        \n\n<item>\n    <title>dbi:csv how to (zli034)</title>\n    <link>http://prlmnks.org/html/581029.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/581029.html</guid>\n\n    <description>\n        &lt;p&gt;I have many csv file to orgnize. I try to use dbi:csv but not a clue. &lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt; use DBI;    $dbh = DBI-&gt;connect(&quot;DBI:CSV:f_dir=/base/&quot;)        or die &quot;Cannot connect: &quot; . $DBI::errstr;    $sth = $dbh-&gt;prepare(&quot;CREATE TABLE a (id INTEGER, name CHAR(10))&quot;)        or die &quot;Cannot prepare: &quot; . $dbh-&gt;errstr();    $sth-&gt;execute() or die &quot;Cannot execute: &quot; . $sth-&gt;errstr();    $sth-&gt;finish();    $dbh-&gt;disconnect();&lt;/pre&gt;&lt;p&gt;When I use this code, where is the data base locates? Is that a file or something else? Can I use a existing csv file as a data base? I totally dont know how to ge the codes from cpan work for me.&lt;/p&gt;&lt;!-- Generated using PerlMonks editor version 001.000105 --&gt;&lt;p&gt;&lt;small&gt; &lt;b&gt;&lt;a href=&quot;?node_id=17558#codetags&quot;&gt;Code&lt;/a&gt;&lt;/b&gt; tags added by [GrandFather]&lt;/small&gt;&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Renaming CPAN modules (b10m)</title>\n    <link>http://prlmnks.org/html/581019.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/581019.html</guid>\n\n    <description>\n        &lt;p&gt;Brethren,&lt;/p&gt;&lt;p&gt;I&#39;ve been mainting a CPAN module called &lt;a href=&quot;/out/module/Business::TPGPost&quot;&gt;Business::TPGPost&lt;/a&gt;, which will calculate the shipping cost based on TPG Post (Dutch postal service) rates for some time. Recently, the company changed it&#39;s name from TPG Post to TNT Post.&lt;/p&gt;&lt;p&gt;Since the rates will most likely be updated per January 1st, I&#39;ll be updating it, like a good CPAN user is supposed ;-) But, should I rename my module to Business::TNTPost, or even Business::TNT::NL, or keep the old name? How do other CPAN authors handle namechanges like this?&lt;/p&gt;&lt;p&gt;I can see where a namechange would be preferred for new users, but would &quot;older users&quot; (if they exist at all) be aware of this name change?&lt;/p&gt;&lt;div class=&quot;pmsig&quot;&gt;&lt;div class=&quot;pmsig-295259&quot;&gt;-- &lt;br /&gt;&lt;a href=&quot;/out/node/b10m&quot;&gt;b10m&lt;/a&gt;&lt;br /&gt;&lt;br /&gt;&lt;font size=&quot;-3&quot;&gt;All code is usually tested, but rarely trusted.&lt;/font&gt;&lt;/div&gt;&lt;/div&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Mystery of missing functions (throop)</title>\n    <link>http://prlmnks.org/html/581014.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/581014.html</guid>\n\n    <description>\n        Perl monks,I, a pilgrim, seek deeper insight to things Perl.There are certain operations on arrays for which most programming languages have functions, but for which Perl does not.  There are instructions on how to do these things in the perldoc, but they aren&#39;t core functions:&lt;ul&gt;&lt;li&gt;Getting the maximum or minumum element in an array of numbers;  &lt;li&gt; Getting the union, intersection or difference of two arrays.&lt;/ul&gt;I expect that this is not an oversight, but is rather part of the Perl philosophy.  But I cannot divine why.  Will a brother monk instruct me?&lt;p&gt;throop\n    </description>\n</item>\n\n        \n\n<item>\n    <title>HTML::CalendarMonth or HTML::Calendar::Simple (Anonymous Monk)</title>\n    <link>http://prlmnks.org/html/581000.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/581000.html</guid>\n\n    <description>\n        Hi everyone.  Looking for a perl module to handle my calendar html to keep track of users posts on my site.  I stumbled between these two and both look like they can get the job done for me.  Not sure how to judge which one is better.  HTML::CalendarMonth is newer.  What I need is a large printed calendar that takes up the whole screen. Can anyone tell me which one I should be using?  Thanks.\n    </description>\n</item>\n\n        \n\n<item>\n    <title>help find this script (Tbob)</title>\n    <link>http://prlmnks.org/html/580999.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580999.html</guid>\n\n    <description>\n        I saw this simple email form; I would like to put it on my site. It contains 5 spaces: 2 radial buttons and a check  box. I want to us it to send a link to my webpage to friends and relatives or either the full page. Out of the five spaces, there is a space for the persons email address, a space for my name, a space for my email and a text area for my comments. The email form starts with a script &lt;SCRIPT language=JavaScript&gt;, I dont know if I can find a perl script to make it work for me. I seen it work at a website, but I dont know how to make it work for me. This &lt;a href=&quot;/out/node/email form&quot;&gt;email form&lt;/a&gt; can be seen at http://www.htmlgoodies.com at the end of their tutorials.  I am new to that stuff; I would like to learn the basics, enough to make it work.\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Cant run CGIs: Empty @INC with Apache (Andre_br)</title>\n    <link>http://prlmnks.org/html/580997.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580997.html</guid>\n\n    <description>\n        Hello Folks&lt;p&gt;I am getting desperate here, please see if you can give me a hand, my friends.&lt;p&gt;All was fine, I had Perl running, Apache, mod_perl, but then ny WesternDigital HD decided to make me see who owns who. So I had to buy another HD and start reinstalling it all.&lt;p&gt;But now I just can&#39;t make my Perl-Apache installation to run. Despite I had installed them all, through PPM3, the error log keeps complaining that no module is found.&lt;p&gt;&lt;pre class=&quot;block_code&quot;&gt;[Fri Oct 27 15:48:19 2006] [error] [client 127.0.0.1] Premature end of script headers: c:/andre/estantevirtual/site/cgi-bin/ajuda.cgi[Fri Oct 27 15:48:19 2006] [error] [client 127.0.0.1] Can&#39;t locate CGI.pm in @INC (@INC contains:) at c:&#92;&#92;andre&#92;&#92;ESTANT~1&#92;&#92;site&#92;&#92;cgi-bin&#92;&#92;ajuda.cgi line 11.&#92;n[Fri Oct 27 15:48:19 2006] [error] [client 127.0.0.1] BEGIN failed--compilation aborted at c:&#92;&#92;andre&#92;&#92;ESTANT~1&#92;&#92;site&#92;&#92;cgi-bin&#92;&#92;ajuda.cgi line 11.&#92;n[Fri Oct 27 15:53:21 2006] [error] [client 127.0.0.1] Premature end of script headers: c:/andre/estantevirtual/site/cgi-bin/ajuda.cgi[Fri Oct 27 15:53:21 2006] [error] [client 127.0.0.1] Can&#39;t locate lib.pm in @INC (@INC contains:) at c:&#92;&#92;andre&#92;&#92;ESTANT~1&#92;&#92;site&#92;&#92;cgi-bin&#92;&#92;ajuda.cgi line 9.&#92;n[Fri Oct 27 15:53:21 2006] [error] [client 127.0.0.1] BEGIN failed--compilation aborted at c:&#92;&#92;andre&#92;&#92;ESTANT~1&#92;&#92;site&#92;&#92;cgi-bin&#92;&#92;ajuda.cgi line 9.&#92;n[Fri Oct 27 15:53:22 2006] [error] [client 127.0.0.1] Premature end of script headers: c:/andre/estantevirtual/site/cgi-bin/ajuda.cgi[Fri Oct 27 15:53:22 2006] [error] [client 127.0.0.1] Can&#39;t locate lib.pm in @INC (@INC contains:) at c:&#92;&#92;andre&#92;&#92;ESTANT~1&#92;&#92;site&#92;&#92;cgi-bin&#92;&#92;ajuda.cgi line 9.&#92;n[Fri Oct 27 15:53:22 2006] [error] [client 127.0.0.1] BEGIN failed--compilation aborted at c:&#92;&#92;andre&#92;&#92;ESTANT~1&#92;&#92;site&#92;&#92;cgi-bin&#92;&#92;ajuda.cgi line 9.&#92;n[Fri Oct 27 15:53:24 2006] [error] [client 127.0.0.1] Premature end of script headers: c:/andre/estantevirtual/site/cgi-bin/ajuda.cgi[Fri Oct 27 15:53:24 2006] [error] [client 127.0.0.1] Can&#39;t locate lib.pm in @INC (@INC contains:) at c:&#92;&#92;andre&#92;&#92;ESTANT~1&#92;&#92;site&#92;&#92;cgi-bin&#92;&#92;ajuda.cgi line 9.&#92;n[Fri Oct 27 15:53:24 2006] [error] [client 127.0.0.1] BEGIN failed--compilation aborted at c:&#92;&#92;andre&#92;&#92;ESTANT~1&#92;&#92;site&#92;&#92;cgi-bin&#92;&#92;ajuda.cgi line 9.&#92;n[Fri Oct 27 15:57:35 2006] [error] [client 127.0.0.1] Premature end of script headers: c:/andre/estantevirtual/site/cgi-bin/apresentacao.cgi[Fri Oct 27 15:57:35 2006] [error] [client 127.0.0.1] Can&#39;t locate CGI.pm in @INC (@INC contains:) at c:&#92;&#92;andre&#92;&#92;ESTANT~1&#92;&#92;site&#92;&#92;cgi-bin&#92;&#92;APRESE~1.CGI line 11.&#92;n[Fri Oct 27 15:57:35 2006] [error] [client 127.0.0.1] BEGIN failed--compilation aborted at c:&#92;&#92;andre&#92;&#92;ESTANT~1&#92;&#92;site&#92;&#92;cgi-bin&#92;&#92;APRESE~1.CGI line 11.&#92;n&lt;/pre&gt;&lt;p&gt;If I run the scripts through the command line, they go just fine. The problem is when I try to execute them through CGI, I mean, through the browser.I&#39;m on a Win2000 machine, and running ActivePerl 5.8.7 and Apache 1.3.34.I have this httpd.conf wich worked just fine before the disaster:&lt;pre class=&quot;block_code&quot;&gt;## Based upon the NCSA server configuration files originally by Rob McCool.## This is the main Apache server configuration file.  It contains the# configuration directives that give the server its instructions.# See &lt;URL:http://httpd.apache.org/docs/&gt; for detailed information about# the directives.## Do NOT simply read the instructions in here without understanding# what they do.  They&#39;re here only as hints or reminders.  If you are unsure# consult the online docs. You have been warned.  ## After this file is processed, the server will look for and process# C:/Arquivos de programas/Apache/conf/srm.conf and then C:/Arquivos de programas/Apache/conf/access.conf# unless you have overridden these with ResourceConfig and/or# AccessConfig directives here.## The configuration directives are grouped into three basic sections:#  1. Directives that control the operation of the Apache server process as a#     whole (the &#39;global environment&#39;).#  2. Directives that define the parameters of the &#39;main&#39; or &#39;default&#39; server,#     which responds to requests that aren&#39;t handled by a virtual host.#     These directives also provide default values for the settings#     of all virtual hosts.#  3. Settings for virtual hosts, which allow Web requests to be sent to#     different IP addresses or hostnames and have them handled by the#     same Apache server process.## Configuration and logfile names: If the filenames you specify for many# of the server&#39;s control files begin with &quot;/&quot; (or &quot;drive:/&quot; for Win32), the# server will use that explicit path.  If the filenames do *not* begin# with &quot;/&quot;, the value of ServerRoot is prepended -- so &quot;logs/foo.log&quot;# with ServerRoot set to &quot;/usr/local/apache&quot; will be interpreted by the# server as &quot;/usr/local/apache/logs/foo.log&quot;.## NOTE: Where filenames are specified, you must use forward slashes# instead of backslashes (e.g., &quot;c:/apache&quot; instead of &quot;c:&#92;apache&quot;).# If a drive letter is omitted, the drive on which Apache.exe is located# will be used by default.  It is recommended that you always supply# an explicit drive letter in absolute paths, however, to avoid# confusion.#### Section 1: Global Environment## The directives in this section affect the overall operation of Apache,# such as the number of concurrent requests it can handle or where it# can find its configuration files.### ServerType is either inetd, or standalone.  Inetd mode is only supported on# Unix platforms.#ServerType standalone## ServerRoot: The top of the directory tree under which the server&#39;s# configuration, error, and log files are kept.#ServerRoot &quot;C:/Arquivos de programas/Apache&quot;## PidFile: The file in which the server should record its process# identification number when it starts.#PidFile logs/httpd.pid## ScoreBoardFile: File used to store internal server process information.# Not all architectures require this.  But if yours does (you&#39;ll know because# this file will be  created when you run Apache) then you *must* ensure that# no two invocations of Apache share the same scoreboard file.#ScoreBoardFile logs/apache_runtime_status## In the standard configuration, the server will process httpd.conf (this # file, specified by the -f command line option), srm.conf, and access.conf # in that order.  The latter two files are now distributed empty, as it is # recommended that all directives be kept in a single file for simplicity.  # The commented-out values below are the built-in defaults.  You can have the # server ignore these files altogether by using &quot;/dev/null&quot; (for Unix) or# &quot;nul&quot; (for Win32) for the arguments to the directives.##ResourceConfig conf/srm.conf#AccessConfig conf/access.conf## Timeout: The number of seconds before receives and sends time out.#Timeout 300## KeepAlive: Whether or not to allow persistent connections (more than# one request per connection). Set to &quot;Off&quot; to deactivate.#KeepAlive On## MaxKeepAliveRequests: The maximum number of requests to allow# during a persistent connection. Set to 0 to allow an unlimited amount.# We recommend you leave this number high, for maximum performance.#MaxKeepAliveRequests 100## KeepAliveTimeout: Number of seconds to wait for the next request from the# same client on the same connection.#KeepAliveTimeout 15## Apache on Win32 always creates one child process to handle requests.  If it# dies, another child process is created automatically.  Within the child# process multiple threads handle incoming requests.  The next two# directives control the behaviour of the threads and processes.### MaxRequestsPerChild: the number of requests each child process is# allowed to process before the child dies.  The child will exit so# as to avoid problems after prolonged use when Apache (and maybe the# libraries it uses) leak memory or other resources.  On most systems, this# isn&#39;t really needed, but a few (such as Solaris) do have notable leaks# in the libraries.  For Win32, set this value to zero (unlimited)# unless advised otherwise.## NOTE: This value does not include keepalive requests after the initial#       request per connection. For example, if a child process handles#       an initial request and 10 subsequent &quot;keptalive&quot; requests, it#       would only count as 1 request towards this limit.#MaxRequestsPerChild 0## Number of concurrent threads (i.e., requests) the server will allow.# Set this value according to the responsiveness of the server (more# requests active at once means they&#39;re all handled more slowly) and# the amount of system resources you&#39;ll allow the server to consume.#ThreadsPerChild 50## Listen: Allows you to bind Apache to specific IP addresses and/or# ports, instead of the default. See also the &lt;VirtualHost&gt;# directive.##Listen 3000#Listen 12.34.56.78:80## BindAddress: You can support virtual hosts with this option. This directive# is used to tell the server which IP address to listen to. It can either# contain &quot;*&quot;, an IP address, or a fully qualified Internet domain name.# See also the &lt;VirtualHost&gt; and Listen directives.##BindAddress *## Dynamic Shared Object (DSO) Support## To be able to use the functionality of a module which was built as a DSO you# have to place corresponding `LoadModule&#39; lines at this location so the# directives contained in it are actually available _before_ they are used.# Please read the file README.DSO in the Apache 1.3 distribution for more# details about the DSO mechanism and run `apache -l&#39; for the list of already# built-in (statically linked and thus always available) modules in your Apache# binary.## Note: The order in which modules are loaded is important.  Don&#39;t change# the order below without expert advice.## Example:# LoadModule foo_module modules/mod_foo.so##LoadModule vhost_alias_module modules/mod_vhost_alias.so#LoadModule mime_magic_module modules/mod_mime_magic.so#LoadModule status_module modules/mod_status.so#LoadModule info_module modules/mod_info.so#LoadModule speling_module modules/mod_speling.so#LoadModule rewrite_module modules/mod_rewrite.so#LoadModule anon_auth_module modules/mod_auth_anon.so#LoadModule dbm_auth_module modules/mod_auth_dbm.so#LoadModule digest_auth_module modules/mod_auth_digest.so#LoadModule digest_module modules/mod_digest.so#LoadModule proxy_module modules/mod_proxy.so#LoadModule cern_meta_module modules/mod_cern_meta.so#LoadModule expires_module modules/mod_expires.so#LoadModule headers_module modules/mod_headers.so#LoadModule usertrack_module modules/mod_usertrack.so#LoadModule unique_id_module modules/mod_unique_id.so##  Reconstruction of the complete module list from all available modules#  (static and shared ones) to achieve correct module execution order.## The modules listed below, without a corresponding LoadModule directive,# are static bound into the standard Apache binary distribution for Windows.## Note: The order in which modules are loaded is important.  Don&#39;t change# the order below without expert advice.## [WHENEVER YOU CHANGE THE LOADMODULE SECTION ABOVE, UPDATE THIS TOO!]ClearModuleList#AddModule mod_vhost_alias.cAddModule mod_env.cAddModule mod_log_config.c#AddModule mod_mime_magic.cAddModule mod_mime.cAddModule mod_negotiation.c#AddModule mod_status.c#AddModule mod_info.cAddModule mod_include.cAddModule mod_autoindex.cAddModule mod_dir.cAddModule mod_isapi.cAddModule mod_cgi.cAddModule mod_asis.cAddModule mod_imap.cAddModule mod_actions.c#AddModule mod_speling.cAddModule mod_userdir.cAddModule mod_alias.c#AddModule mod_rewrite.cAddModule mod_access.cAddModule mod_auth.c#AddModule mod_auth_anon.c#AddModule mod_auth_dbm.c#AddModule mod_auth_digest.c#AddModule mod_digest.c#AddModule mod_proxy.c#AddModule mod_cern_meta.c#AddModule mod_expires.c#AddModule mod_headers.c#AddModule mod_usertrack.c#AddModule mod_unique_id.cAddModule mod_so.cAddModule mod_setenvif.c## ExtendedStatus controls whether Apache will generate &quot;full&quot; status# information (ExtendedStatus On) or just basic information (ExtendedStatus# Off) when the &quot;server-status&quot; handler is called. The default is Off.##ExtendedStatus On### Section 2: &#39;Main&#39; server configuration## The directives in this section set up the values used by the &#39;main&#39;# server, which responds to any requests that aren&#39;t handled by a# &lt;VirtualHost&gt; definition.  These values also provide defaults for# any &lt;VirtualHost&gt; containers you may define later in the file.## All of these directives may appear inside &lt;VirtualHost&gt; containers,# in which case these default settings will be overridden for the# virtual host being defined.### Port: The port to which the standalone server listens.  Certain firewall# products must be configured before Apache can listen to a specific port.# Other running httpd servers will also interfere with this port.  Disable# all firewall, security, and other services if you encounter problems.# To help diagnose problems use the Windows NT command NETSTAT -a#Port 80## ServerAdmin: Your address, where problems with the server should be# e-mailed.  This address appears on some server-generated pages, such# as error documents.#ServerAdmin me@here.com## ServerName allows you to set a host name which is sent back to clients for# your server if it&#39;s different than the one the program would get (i.e., use# &quot;www&quot; instead of the host&#39;s real name).## Note: You cannot just invent host names and hope they work. The name you # define here must be a valid DNS name for your host. If you don&#39;t understand# this, ask your network administrator.# If your host doesn&#39;t have a registered DNS name, enter its IP address here.# You will have to access it by its address (e.g., http://123.45.67.89/)# anyway, and this will make redirections work in a sensible way.## 127.0.0.1 is the TCP/IP local loop-back address, often named localhost. Your # machine always knows itself by this address. If you use Apache strictly for # local testing and development, you may use 127.0.0.1 as the server name.# -&gt; alterei esteServerName 127.0.0.1## DocumentRoot: The directory out of which you will serve your# documents. By default, all requests are taken from this directory, but# symbolic links and aliases may be used to point to other locations.#DocumentRoot &quot;C:/Andre/ShopVirtual/Site&quot;## Each directory to which Apache has access, can be configured with respect# to which services and features are allowed and/or disabled in that# directory (and its subdirectories). ## First, we configure the &quot;default&quot; to be a very restrictive set of # permissions.  #&lt;Directory /&gt;    Options FollowSymLinks    AllowOverride None&lt;/Directory&gt;## Note that from this point forward you must specifically allow# particular features to be enabled - so if something&#39;s not working as# you might expect, make sure that you have specifically enabled it# below.### This should be changed to whatever you set DocumentRoot to.#&lt;Directory &quot;C:/Andre/ShopVirtual/Site&quot;&gt;## This may also be &quot;None&quot;, &quot;All&quot;, or any combination of &quot;Indexes&quot;,# &quot;Includes&quot;, &quot;FollowSymLinks&quot;, &quot;ExecCGI&quot;, or &quot;MultiViews&quot;.## Note that &quot;MultiViews&quot; must be named *explicitly* --- &quot;Options All&quot;# doesn&#39;t give it to you.#    Options Indexes FollowSymLinks MultiViews## This controls which options the .htaccess files in directories can# override. Can also be &quot;All&quot;, or any combination of &quot;Options&quot;, &quot;FileInfo&quot;, # &quot;AuthConfig&quot;, and &quot;Limit&quot;#    AllowOverride None## Controls who can get stuff from this server.#    Order allow,deny    Allow from all&lt;/Directory&gt;## UserDir: The name of the directory which is appended onto a user&#39;s home# directory if a ~user request is received.## Under Win32, we do not currently try to determine the home directory of# a Windows login, so a format such as that below needs to be used.  See# the UserDir documentation for details.#&lt;IfModule mod_userdir.c&gt;    UserDir &quot;C:/Arquivos de programas/Apache/users/&quot;&lt;/IfModule&gt;## Control access to UserDir directories.  The following is an example# for a site where these directories are restricted to read-only.##&lt;Directory &quot;C:/Arquivos de programas/Apache/users&quot;&gt;#    AllowOverride FileInfo AuthConfig Limit#    Options MultiViews Indexes SymLinksIfOwnerMatch IncludesNoExec#    &lt;Limit GET POST OPTIONS PROPFIND&gt;#        Order allow,deny#        Allow from all#    &lt;/Limit&gt;#    &lt;LimitExcept GET POST OPTIONS PROPFIND&gt;#        Order deny,allow#        Deny from all#    &lt;/LimitExcept&gt;#&lt;/Directory&gt;## DirectoryIndex: Name of the file or files to use as a pre-written HTML# directory index.  Separate multiple entries with spaces.#&lt;IfModule mod_dir.c&gt;    DirectoryIndex index.html&lt;/IfModule&gt;## AccessFileName: The name of the file to look for in each directory# for access control information.#AccessFileName .htaccess## The following lines prevent .htaccess files from being viewed by# Web clients.  Since .htaccess files often contain authorization# information, access is disallowed for security reasons.  Comment# these lines out if you want Web visitors to see the contents of# .htaccess files.  If you change the AccessFileName directive above,# be sure to make the corresponding changes here.## Also, folks tend to use names such as .htpasswd for password# files, so this will protect those as well.#&lt;Files ~ &quot;^&#92;.ht&quot;&gt;    Order allow,deny    Deny from all    Satisfy All&lt;/Files&gt;## CacheNegotiatedDocs: By default, Apache sends &quot;Pragma: no-cache&quot; with each# document that was negotiated on the basis of content. This asks proxy# servers not to cache the document. Uncommenting the following line disables# this behavior, and proxies will be allowed to cache the documents.##CacheNegotiatedDocs## UseCanonicalName:  (new for 1.3)  With this setting turned on, whenever# Apache needs to construct a self-referencing URL (a URL that refers back# to the server the response is coming from) it will use ServerName and# Port to form a &quot;canonical&quot; name.  With this setting off, Apache will# use the hostname:port that the client supplied, when possible.  This# also affects SERVER_NAME and SERVER_PORT in CGI scripts.#UseCanonicalName On## TypesConfig describes where the mime.types file (or equivalent) is# to be found.#&lt;IfModule mod_mime.c&gt;    TypesConfig conf/mime.types&lt;/IfModule&gt;## DefaultType is the default MIME type the server will use for a document# if it cannot otherwise determine one, such as from filename extensions.# If your server contains mostly text or HTML documents, &quot;text/plain&quot; is# a good value.  If most of your content is binary, such as applications# or images, you may want to use &quot;application/octet-stream&quot; instead to# keep browsers from trying to display binary files as though they are# text.#DefaultType text/plain## The mod_mime_magic module allows the server to use various hints from the# contents of the file itself to determine its type.  The MIMEMagicFile# directive tells the module where the hint definitions are located.# mod_mime_magic is not part of the default server (you have to add# it yourself with a LoadModule [see the DSO paragraph in the &#39;Global# Environment&#39; section], or recompile the server and include mod_mime_magic# as part of the configuration), so it&#39;s enclosed in an &lt;IfModule&gt; container.# This means that the MIMEMagicFile directive will only be processed if the# module is part of the server.#&lt;IfModule mod_mime_magic.c&gt;    MIMEMagicFile conf/magic&lt;/IfModule&gt;## HostnameLookups: Log the names of clients or just their IP addresses# e.g., www.apache.org (on) or 204.62.129.132 (off).# The default is off because it&#39;d be overall better for the net if people# had to knowingly turn this feature on, since enabling it means that# each client request will result in AT LEAST one lookup request to the# nameserver.#HostnameLookups Off## ErrorLog: The location of the error log file.# If you do not specify an ErrorLog directive within a &lt;VirtualHost&gt;# container, error messages relating to that virtual host will be# logged here.  If you *do* define an error logfile for a &lt;VirtualHost&gt;# container, that host&#39;s errors will be logged there and not here.#ErrorLog logs/error.log## LogLevel: Control the number of messages logged to the error.log.# Possible values include: debug, info, notice, warn, error, crit,# alert, emerg.#LogLevel warn## The following directives define some format nicknames for use with# a CustomLog directive (see below).#LogFormat &quot;%h %l %u %t &#92;&quot;%r&#92;&quot; %&gt;s %b &#92;&quot;%{Referer}i&#92;&quot; &#92;&quot;%{User-Agent}i&#92;&quot;&quot; combinedLogFormat &quot;%h %l %u %t &#92;&quot;%r&#92;&quot; %&gt;s %b&quot; commonLogFormat &quot;%{Referer}i -&gt; %U&quot; refererLogFormat &quot;%{User-agent}i&quot; agent## The location and format of the access logfile (Common Logfile Format).# If you do not define any access logfiles within a &lt;VirtualHost&gt;# container, they will be logged here.  Contrariwise, if you *do*# define per-&lt;VirtualHost&gt; access logfiles, transactions will be# logged therein and *not* in this file.#CustomLog logs/access.log common## If you would like to have agent and referer logfiles, uncomment the# following directives.##CustomLog logs/referer.log referer#CustomLog logs/agent.log agent## If you prefer a single logfile with access, agent, and referer information# (Combined Logfile Format) you can use the following directive.##CustomLog logs/access.log combined## Optionally add a line containing the server version and virtual host# name to server-generated pages (error documents, FTP directory listings,# mod_status and mod_info output etc., but not CGI generated documents).# Set to &quot;EMail&quot; to also include a mailto: link to the ServerAdmin.# Set to one of:  On | Off | EMail#ServerSignature On# # Apache parses all CGI scripts for the shebang line by default.# This comment line, the first line of the script, consists of the symbols# pound (#) and exclamation (!) followed by the path of the program that # can execute this specific script.  For a perl script, with perl.exe in# the C:&#92;Program Files&#92;Perl directory, the shebang line should be:   #!c:/program files/perl/perl# Note you _must_not_ indent the actual shebang line, and it must be the# first line of the file.  Of course, CGI processing must be enabled by # the appropriate ScriptAlias or Options ExecCGI directives for the files # or directory in question.## However, Apache on Windows allows either the Unix behavior above, or can# use the Registry to match files by extention.  The command to execute # a file of this type is retrieved from the registry by the same method as # the Windows Explorer would use to handle double-clicking on a file.# These script actions can be configured from the Windows Explorer View menu, # &#39;Folder Options&#39;, and reviewing the &#39;File Types&#39; tab.  Clicking the Edit# button allows you to modify the Actions, of which Apache 1.3 attempts to# perform the &#39;Open&#39; Action, and failing that it will try the shebang line.# This behavior is subject to change in Apache release 2.0.## Each mechanism has it&#39;s own specific security weaknesses, from the means# to run a program you didn&#39;t intend the website owner to invoke, and the# best method is a matter of great debate.## To enable the this Windows specific behavior (and therefore -disable- the# equivilant Unix behavior), uncomment the following directive:##ScriptInterpreterSource registry## The directive above can be placed in individual &lt;Directory&gt; blocks or the# .htaccess file, with either the &#39;registry&#39; (Windows behavior) or &#39;script&#39; # (Unix behavior) option, and will override this server default option.### Aliases: Add here as many aliases as you need (with no limit). The format is # Alias fakename realname#&lt;IfModule mod_alias.c&gt;    #    # Note that if you include a trailing / on fakename then the server will    # require it to be present in the URL.  So &quot;/icons&quot; isn&#39;t aliased in this    # example, only &quot;/icons/&quot;.  If the fakename is slash-terminated, then the     # realname must also be slash terminated, and if the fakename omits the     # trailing slash, the realname must also omit it.    #    Alias /icons/ &quot;C:/Arquivos de programas/Apache/icons/&quot;    &lt;Directory &quot;C:/Arquivos de programas/Apache/icons&quot;&gt;        Options Indexes MultiViews        AllowOverride None        Order allow,deny        Allow from all    &lt;/Directory&gt;    # This Alias will project the on-line documentation tree under /manual/    # even if you change the DocumentRoot. Comment it if you don&#39;t want to     # provide access to the on-line documentation.    #    Alias /manual/ &quot;C:/Arquivos de programas/Apache/htdocs/manual/&quot;    &lt;Directory &quot;C:/Arquivos de programas/Apache/htdocs/manual&quot;&gt;        Options Indexes FollowSymlinks MultiViews        AllowOverride None        Order allow,deny        Allow from all    &lt;/Directory&gt;    #    # ScriptAlias: This controls which directories contain server scripts.    # ScriptAliases are essentially the same as Aliases, except that    # documents in the realname directory are treated as applications and    # run by the server when requested rather than as documents sent to the client.    # The same rules about trailing &quot;/&quot; apply to ScriptAlias directives as to    # Alias.    # -&gt; alterei esta!    ScriptAlias /cgi-bin/ &quot;C:/Andre/ShopVirtual/Site/cgi-bin/&quot;    #    # &quot;C:/Arquivos de programas/Apache/cgi-bin&quot; should be changed to whatever your ScriptAliased    # CGI directory exists, if you have that configured.    #    &lt;Directory &quot;C:/Andre/ShopVirtual/Site/cgi-bin&quot;&gt;        AllowOverride None        Options None        Order allow,deny        Allow from all    &lt;/Directory&gt;&lt;/IfModule&gt;# End of aliases.## Redirect allows you to tell clients about documents which used to exist in# your server&#39;s namespace, but do not anymore. This allows you to tell the# clients where to look for the relocated document.# Format: Redirect old-URI new-URL### Directives controlling the display of server-generated directory listings.#&lt;IfModule mod_autoindex.c&gt;    #    # FancyIndexing is whether you want fancy directory indexing or standard    #    # Note, add the option TrackModified to the IndexOptions default list only    # if all indexed directories reside on NTFS volumes.  The TrackModified flag    # will report the Last-Modified date to assist caches and proxies to properly    # track directory changes, but it does _not_ work on FAT volumes.    #    IndexOptions FancyIndexing    #    # AddIcon* directives tell the server which icon to show for different    # files or filename extensions.  These are only displayed for    # FancyIndexed directories.    #    AddIconByEncoding (CMP,/icons/compressed.gif) x-compress x-gzip    AddIconByType (TXT,/icons/text.gif) text/*    AddIconByType (IMG,/icons/image2.gif) image/*    AddIconByType (SND,/icons/sound2.gif) audio/*    AddIconByType (VID,/icons/movie.gif) video/*    AddIcon /icons/binary.gif .bin .exe    AddIcon /icons/binhex.gif .hqx    AddIcon /icons/tar.gif .tar    AddIcon /icons/world2.gif .wrl .wrl.gz .vrml .vrm .iv    AddIcon /icons/compressed.gif .Z .z .tgz .gz .zip    AddIcon /icons/a.gif .ps .ai .eps    AddIcon /icons/layout.gif .html .shtml .htm .pdf    AddIcon /icons/text.gif .txt    AddIcon /icons/c.gif .c    AddIcon /icons/p.gif .pl .py    AddIcon /icons/f.gif .for    AddIcon /icons/dvi.gif .dvi    AddIcon /icons/uuencoded.gif .uu    AddIcon /icons/script.gif .conf .sh .shar .csh .ksh .tcl    AddIcon /icons/tex.gif .tex    AddIcon /icons/bomb.gif core    AddIcon /icons/back.gif ..    AddIcon /icons/hand.right.gif README    AddIcon /icons/folder.gif ^^DIRECTORY^^    AddIcon /icons/blank.gif ^^BLANKICON^^    #    # DefaultIcon is which icon to show for files which do not have an icon    # explicitly set.    #    DefaultIcon /icons/unknown.gif    #    # AddDescription allows you to place a short description after a file in    # server-generated indexes.  These are only displayed for FancyIndexed    # directories.    # Format: AddDescription &quot;description&quot; filename    #    #AddDescription &quot;GZIP compressed document&quot; .gz    #AddDescription &quot;tar archive&quot; .tar    #AddDescription &quot;GZIP compressed tar archive&quot; .tgz    #    # ReadmeName is the name of the README file the server will look for by    # default, and append to directory listings.    #    # HeaderName is the name of a file which should be prepended to    # directory indexes.     #    ReadmeName README.html    HeaderName HEADER.html    #    # IndexIgnore is a set of filenames which directory indexing should ignore    # and not include in the listing.  Shell-style wildcarding is permitted.    #    IndexIgnore .??* *~ *# HEADER* README* RCS CVS *,v *,t&lt;/IfModule&gt;# End of indexing directives.## Document types.#&lt;IfModule mod_mime.c&gt;    #    # AddType allows you to tweak mime.types without actually editing it, or to    # make certain files to be certain types.    #    AddType application/x-tar .tgz    #    # AddEncoding allows you to have certain browsers uncompress    # information on the fly. Note: Not all browsers support this.    # Despite the name similarity, the following Add* directives have nothing    # to do with the FancyIndexing customization directives above.    #    AddEncoding x-compress .Z    AddEncoding x-gzip .gz .tgz    #    # If the AddEncoding directives above are commented-out, then you    # probably should define those extensions to indicate media types:    #    #AddType application/x-compress .Z    #AddType application/x-gzip .gz .tgz    #    # AddLanguage allows you to specify the language of a document. You can    # then use content negotiation to give a browser a file in a language    # it can understand.    #    # Note 1: The suffix does not have to be the same as the language    # keyword --- those with documents in Polish (whose net-standard    # language code is pl) may wish to use &quot;AddLanguage pl .po&quot; to    # avoid the ambiguity with the common suffix for perl scripts.    #    # Note 2: The example entries below illustrate that in quite    # some cases the two character &#39;Language&#39; abbreviation is not    # identical to the two character &#39;Country&#39; code for its country,    # E.g. &#39;Danmark/dk&#39; versus &#39;Danish/da&#39;.    #    # Note 3: In the case of &#39;ltz&#39; we violate the RFC by using a three char    # specifier. But there is &#39;work in progress&#39; to fix this and get    # the reference data for rfc1766 cleaned up.    #    # Danish (da) - Dutch (nl) - English (en) - Estonian (ee)    # French (fr) - German (de) - Greek-Modern (el)    # Italian (it) - Korean (kr) - Norwegian (no) - Norwegian Nynorsk (nn)    # Portugese (pt) - Luxembourgeois* (ltz)    # Spanish (es) - Swedish (sv) - Catalan (ca) - Czech(cs)    # Polish (pl) - Brazilian Portuguese (pt-br) - Japanese (ja)    # Russian (ru)    #    AddLanguage da .dk    AddLanguage nl .nl    AddLanguage en .en    AddLanguage et .ee    AddLanguage fr .fr    AddLanguage de .de    AddLanguage el .el    AddLanguage he .he    AddCharset ISO-8859-8 .iso8859-8    AddLanguage it .it    AddLanguage ja .ja    AddCharset ISO-2022-JP .jis    AddLanguage kr .kr    AddCharset ISO-2022-KR .iso-kr    AddLanguage nn .nn    AddLanguage no .no    AddLanguage pl .po    AddCharset ISO-8859-2 .iso-pl    AddLanguage pt .pt    AddLanguage pt-br .pt-br    AddLanguage ltz .lu    AddLanguage ca .ca    AddLanguage es .es    AddLanguage sv .sv    AddLanguage cs .cz .cs    AddLanguage ru .ru    AddLanguage zh-TW .zh-tw    AddCharset Big5         .Big5    .big5    AddCharset WINDOWS-1251 .cp-1251    AddCharset CP866        .cp866    AddCharset ISO-8859-5   .iso-ru    AddCharset KOI8-R       .koi8-r    AddCharset UCS-2        .ucs2    AddCharset UCS-4        .ucs4    AddCharset UTF-8        .utf8    # LanguagePriority allows you to give precedence to some languages    # in case of a tie during content negotiation.    #    # Just list the languages in decreasing order of preference. We have    # more or less alphabetized them here. You probably want to change this.    #    &lt;IfModule mod_negotiation.c&gt;        LanguagePriority en da nl et fr de el it ja kr no pl pt pt-br ru ltz ca es sv tw    &lt;/IfModule&gt;    #    # AddHandler allows you to map certain file extensions to &quot;handlers&quot;,    # actions unrelated to filetype. These can be either built into the server    # or added with the Action command (see below)    #    # If you want to use server side includes, or CGI outside    # ScriptAliased directories, uncomment the following lines.    #    # To use CGI scripts:    # -&gt; descomentei esta!    AddHandler cgi-script .cgi    #    # To use server-parsed HTML files    #    #AddType text/html .shtml    #AddHandler server-parsed .shtml    #    # Uncomment the following line to enable Apache&#39;s send-asis HTTP file    # feature    #    #AddHandler send-as-is asis    #    # If you wish to use server-parsed imagemap files, use    #    #AddHandler imap-file map    #    # To enable type maps, you might want to use    #    #AddHandler type-map var&lt;/IfModule&gt;# End of document types.## Action lets you define media types that will execute a script whenever# a matching file is called. This eliminates the need for repeated URL# pathnames for oft-used CGI file processors.# Format: Action media/type /cgi-script/location# Format: Action handler-name /cgi-script/location### MetaDir: specifies the name of the directory in which Apache can find# meta information files. These files contain additional HTTP headers# to include when sending the document##MetaDir .web## MetaSuffix: specifies the file name suffix for the file containing the# meta information.##MetaSuffix .meta## Customizable error response (Apache style)#  these come in three flavors##    1) plain text#ErrorDocument 500 &quot;The server made a boo boo.#  n.b.  the single leading (&quot;) marks it as text, it does not get output##    2) local redirects#ErrorDocument 404 /missing.html#  to redirect to local URL /missing.html#ErrorDocument 404 /cgi-bin/missing_handler.pl#  N.B.: You can redirect to a script or a document using server-side-includes.##    3) external redirects#ErrorDocument 402 http://www.example.com/subscription_info.html#  N.B.: Many of the environment variables associated with the original#  request will *not* be available to such a script.## Customize behaviour based on the browser#&lt;IfModule mod_setenvif.c&gt;    #    # The following directives modify normal HTTP response behavior.    # The first directive disables keepalive for Netscape 2.x and browsers that    # spoof it. There are known problems with these browser implementations.    # The second directive is for Microsoft Internet Explorer 4.0b2    # which has a broken HTTP/1.1 implementation and does not properly    # support keepalive when it is used on 301 or 302 (redirect) responses.    #    BrowserMatch &quot;Mozilla/2&quot; nokeepalive    BrowserMatch &quot;MSIE 4&#92;.0b2;&quot; nokeepalive downgrade-1.0 force-response-1.0    #    # The following directive disables HTTP/1.1 responses to browsers which    # are in violation of the HTTP/1.0 spec by not being able to grok a    # basic 1.1 response.    #    BrowserMatch &quot;RealPlayer 4&#92;.0&quot; force-response-1.0    BrowserMatch &quot;Java/1&#92;.0&quot; force-response-1.0    BrowserMatch &quot;JDK/1&#92;.0&quot; force-response-1.0&lt;/IfModule&gt;# End of browser customization directives## Allow server status reports, with the URL of http://servername/server-status# Change the &quot;122.0.0.1&quot; to match your domain to enable.##&lt;Location /server-status&gt;#    SetHandler server-status#    Order deny,allow#    Deny from all#    Allow from 122.0.0.1#&lt;/Location&gt;## Allow remote server configuration reports, with the URL of# http://servername/server-info (requires that mod_info.c be loaded).# Change the &quot;122.0.0.1&quot; to match your domain to enable.##&lt;Location /server-info&gt;#    SetHandler server-info#    Order deny,allow#    Deny from all#    Allow from 122.0.0.1#&lt;/Location&gt;## There have been reports of people trying to abuse an old bug from pre-1.1# days.  This bug involved a CGI script distributed as a part of Apache.# By uncommenting these lines you can redirect these attacks to a logging # script on phf.apache.org.  Or, you can record them yourself, using the script# support/phf_abuse_log.cgi.##&lt;Location /cgi-bin/phf*&gt;#    Deny from all#    ErrorDocument 403 http://phf.apache.org/phf_abuse_log.cgi#&lt;/Location&gt;### Section 3: Virtual Hosts## VirtualHost: If you want to maintain multiple domains/hostnames on your# machine you can setup VirtualHost containers for them. Most configurations# use only name-based virtual hosts so the server doesn&#39;t need to worry about# IP addresses. This is indicated by the asterisks in the directives below.## Please see the documentation at &lt;URL:http://www.apache.org/docs/vhosts/&gt;# for further details before you try to setup virtual hosts.## You may use the command line option &#39;-S&#39; to verify your virtual host# configuration.## Use name-based virtual hosting.##NameVirtualHost *:80## VirtualHost example:# Almost any Apache directive may go into a VirtualHost container.# The first VirtualHost section is used for requests without a known# server name.##&lt;VirtualHost *:80&gt;#    ServerAdmin webmaster@dummy-host.example.com#    DocumentRoot /www/docs/dummy-host.example.com#    ServerName dummy-host.example.com#    ErrorLog logs/dummy-host.example.com-error_log#    CustomLog logs/dummy-host.example.com-access_log common#&lt;/VirtualHost&gt;&lt;/pre&gt;&lt;p&gt;Please help, I am really in trouble here.&lt;p&gt;Thanks a lot&lt;p&gt;Andre&lt;p&gt;&lt;small&gt;&lt;b&gt;[href://?node_id=17558#readmore|Readmore]&lt;/b&gt; tags added by [GrandFather]&lt;/small&gt;&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>regex help please (sitnalta)</title>\n    <link>http://prlmnks.org/html/580985.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580985.html</guid>\n\n    <description>\n        Hello all, I was banging my head on trying to get this one regular expresion to delete the following two examples completely.  &lt;p&gt;Here are two examples of the text I want to complete remove.  They all start with rcvtime and they all end with &lt;0a&gt;, but it MUST be the first &lt;0a&gt; and not the second.  Any ideas?&lt;p&gt;Example text:&lt;p&gt;rcvtime=2006102600322813316-sndtime=2006102600323042116-msgtext=FRM&#92;3aMatd&lt;0a&gt;&lt;p&gt;rcvtime=2006102611373625516-sndtime=2006102611373640716-msgtext=FRM&#92;3aRoxy&lt;0a&gt;&lt;p&gt;Thanks in advance i appreciate and tips and tricks.\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Multiline regex (mhearse)</title>\n    <link>http://prlmnks.org/html/580983.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580983.html</guid>\n\n    <description>\n        I&#39;m trying to match multiple lines of text using a regular expression.  i.e.&lt;pre class=&quot;block_code&quot;&gt;body:Here is an example of amulti-line section of textthat I&#39;m trying to grab.attachment:&lt;/pre&gt;My code doesn&#39;t work:&lt;pre class=&quot;block_code&quot;&gt;if ($line =~ /^body: (.*)^attachment:/mi) { $vars{body} = $1; }&lt;/pre&gt;Can someone offer a solution?\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Returning a string from executable (Luken8r)</title>\n    <link>http://prlmnks.org/html/580981.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580981.html</guid>\n\n    <description>\n        &lt;p&gt;Im sure this is an easy question, but since im a perl n00b, here it goes&lt;/p&gt;&lt;p&gt;I need to run an executable to my Ubuntu Linux box, get the status of something then use that status to fill out and if/else statement&lt;/p&gt;&lt;p&gt;This is what I have right now&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;my $enable_poe = `poe ds`; if ($enable_poe eq &#39;POE device missing or unpowered&#39;){print $enable_poe, &quot;&#92;n&quot;, &quot;Your Poe IS NOT enabled, dummy&#92;n&quot;;}elsif($enable_poe eq &#39;Device ID 2, Rev. 0&#39;){print $enable_poe, &quot;&#92;n&quot;, &quot;Your PoE IS enabled, dummy&#92;n&quot;;}else{print &quot;&#92;nnothing happened&#92;n&quot;;}&lt;/pre&gt;&lt;p&gt;when I run poe ds on the terminal it will either return&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;user@device:/tmp$ poe dsDevice ID 2, Rev. 0&lt;/pre&gt;&lt;p&gt;if the port is active or&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;POE device missing or unpowered&lt;/pre&gt;&lt;p&gt;if the device is missing&lt;/p&gt;&lt;p&gt;Whats happening is the print statement to return the value of $enable_poe is working, but the if/else conditions are not&lt;/p&gt;&lt;p&gt;In this case, if the poe ds command recognizes the unit and returns&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;Device ID 2, Rev. 0&lt;/pre&gt;&lt;p&gt;But the output of the script reads&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;Device ID 2, Rev. 0Your Poe IS NOT enabled, dummy&lt;/pre&gt;&lt;p&gt;so its returning the first print statement and not reading the&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;if ($enable_poe == &#39;POE device missing or unpowered&#39;)&lt;/pre&gt;&lt;p&gt;line&lt;/p&gt;&lt;p&gt;What am I doing incorrect here? I want the poe ds command to be read, then use what it returns in that if/else statement&lt;/p&gt;&lt;!-- Generated using PerlMonks editor version 001.000105 --&gt;&lt;p&gt;&lt;small&gt; &lt;b&gt;&lt;a href=&quot;?node_id=17558#codetags&quot;&gt;Code&lt;/a&gt;&lt;/b&gt; tags added by [GrandFather]&lt;/small&gt;&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Using the alarm function in ActiveState Perl 5.8 for FileWatch (mantra2006)</title>\n    <link>http://prlmnks.org/html/580972.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580972.html</guid>\n\n    <description>\n        Hello Monks&lt;p&gt;I got a perl script which looks for file in a directory for specified time and in between if file comes then the program &lt;br/&gt;quits saying file has come and if not comes out with a message after the specified time file hasn&#39;t come...this script was written in 1996 in perl using alarm function...but the latest versions of perl Active State 5.8 doesn&#39;t seem to implement alarm function...what will be the approach to this problem because our systems are upgraded with latest perl version and this script no longer works..&lt;p&gt;Appreciate any help in this regard&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;alarm($endsecs);local $SIG{&#39;ALRM&#39;}=&quot;TimeOut&quot;;print STDOUT &quot;*** FileWatch is waiting...&#92;n&quot;;&lt;/pre&gt;&lt;!-- Node text goes above. Div tags should contain sig only --&gt;&lt;div class=&quot;pmsig&quot;&gt;&lt;div class=&quot;pmsig-562697&quot;&gt;Thanks &amp; Regards&lt;br/&gt;Sridhar&lt;/div&gt;&lt;/div&gt;&lt;p&gt;&lt;small&gt;2006-10-28 Retitled by [GrandFather], as per Monastery [id://341118|guidelines] &lt;br /&gt;Original title: &#39;FileWatch&#39;&lt;/small&gt;&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Modifying a regex (seni)</title>\n    <link>http://prlmnks.org/html/580965.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580965.html</guid>\n\n    <description>\n        Hello Everyone,I am pretty new to Perl, but have been doing some independent learning.  I am working on a project in which I am trying to parse through some data. But, I have gotten stuck on what seems to be an easy problem to fix, except I don&#39;t know how! :) I am trying to use the following code, but now my user IDs actually have NA in the front of them (ie. NA12324).  How can I either: do a step before this to remove the NA, OR get this code to accept this sort of ID?  I hope this makes sense...thanks in advance!&lt;pre class=&quot;block_code&quot;&gt;#!/usr/bin/perluse strict;my $inFile = &#39;fanca.txt&#39;;open (IN, $inFile) or die &quot;open $inFile: $!&quot;;my %user;while (my $line = &lt;IN&gt;) {next unless $line =~ m{^(&#92;S+) (&#92;d+) (.*)};my ($site, $userID, $data, $data2) = ($1, $2, $3, $4);$user{$userID}{$site} = $data, $data2;}close(IN) or die &quot;close $inFile: $!&quot;;my $outfile = &quot;parsingoutput_for_fanca.txt&quot;;open(REPORT, &quot;&gt;$outfile&quot;) or die &quot;open &gt;$outfile: $!&quot;;foreach my $userID (sort {$a &lt;=&gt; $b} keys %user) {my %sites = %{$user{$userID}};my $line1 =  &#39;SITES&#39;;my $line2 = &quot;$userID&quot;;while (my ($site, $data, $data2) = each %sites) {$line1 .= &#39; &#39; x (length($line2)-length($line1));$line2 .= &#39; &#39; x (length($line1)-length($line2));#add on next site$line1 .= &#39; &#39;. &#39; &#39; . $site;$line2 .= &#39; &#39;. &#39; &#39;. $data . &#39; &#39; . &#39; &#39;. $data2;}print REPORT $line1 . &quot;&#92;n&quot;;print REPORT $line2 . &quot;&#92;n&quot;;print REPORT &quot;&#92;n&quot;;}close (REPORT) or die &quot;close $outfile: $!&quot;;&lt;/pre&gt;&lt;p&gt;&lt;small&gt;2006-10-28 Retitled by [GrandFather], as per Monastery [id://341118|guidelines] &lt;br /&gt;Original title: &#39;Should be easy....&#39;&lt;/small&gt;&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Perl/Tk and threads on Win32 (jdtoronto)</title>\n    <link>http://prlmnks.org/html/580963.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580963.html</guid>\n\n    <description>\n        Esteemed monks,&lt;p&gt;It seems to have been repeated often here and elsewhere that the current Tk implementation is not thread safe and that the threads implementation is not really friendly with Tk, at least on Win32. Yet in &lt;a href=&quot;/out/node/470827&quot;&gt;470827&lt;/a&gt; which is referred to this morning in &lt;a href=&quot;/out/node/580915&quot;&gt;580915&lt;/a&gt; we have a suggestion to use &lt;tt class=&quot;inline_code&quot;&gt;threads&lt;/tt&gt; in Win32 with Tk.&lt;p&gt;&lt;ul&gt;&lt;li&gt;Just how safe is this?&lt;/li&gt;&lt;li&gt;Are there any simple tricks that facilitate the use of threads with Tk in Win32?&lt;/li&gt;&lt;/ul&gt;&lt;p&gt;&lt;a href=&quot;/out/node/jdtoronto&quot;&gt;jdtoronto&lt;/a&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Perl on a bootable USB key (carcassonne)</title>\n    <link>http://prlmnks.org/html/580961.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580961.html</guid>\n\n    <description>\n        Folks,&lt;p&gt;I&#39;d like to install perl on a bootable USB key (512 MB).  Thedirectory where it&#39;ll reside will be, once the USB key has bootedand is mounted, /usr/lib/perl5/.  The files will be on the USBkey, not inside the initrd.  The initrd will mount the USB keyand /usr/lib/perl5/ will be linked to the files on the key.&lt;p&gt;What&#39;s the best way to do that ?  I thought of copying that perl5directory off SuSE 10.0 to the USB key, and then using the sameSuSE 10.0 kernel.&lt;p&gt;Any suggestions/ideas appreciated.&lt;p&gt;Thanks.\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Converting odt to html (Outaspace)</title>\n    <link>http://prlmnks.org/html/580959.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580959.html</guid>\n\n    <description>\n        Hello fellow Monks,&lt;br&gt;&lt;br&gt;I have wondered if anyone has expirience with the OpenOffice Modul. I want to transform all my odt Files in a Directory to html Files. Does anyone know how this can be done?&lt;br&gt;So far I have:&lt;pre class=&quot;block_code&quot;&gt;foreach my $szFile (@szFiles) {print &quot;Converting $szFile&#92;n&quot;;my $hOOFile = OpenOffice::OODoc::File-&gt;new($szFile);$szFile =~ s/&#92;.odt$/.html/;# MISSING odt -&gt; html conversion$hOOFile-&gt;save($szSearchInFile);}&lt;/pre&gt;&lt;br&gt;Andre\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Misbehaving typeglob (Ovid)</title>\n    <link>http://prlmnks.org/html/580949.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580949.html</guid>\n\n    <description>\n        &lt;p&gt;Can anyone tell me why the following prints out both &lt;tt&gt;SCALAR&lt;/tt&gt; and &lt;tt&gt;CODE&lt;/tt&gt;?  What am I missing?&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;#!/usr/bin/perl -luse strict;use warnings;{    package Foo;    sub bar {};}foreach my $type ( qw&lt;SCALAR ARRAY HASH CODE IO FORMAT&gt; ) {    print $type if defined *Foo::bar{$type};}&lt;/pre&gt;&lt;p&gt;I only want that to print &lt;tt&gt;CODE&lt;/tt&gt;.  How do I fix it?&lt;/p&gt;&lt;!-- Node text goes above. Div tags should contain sig only --&gt;&lt;div class=&quot;pmsig&quot;&gt;&lt;div class=&quot;pmsig-17000&quot;&gt;&lt;p&gt;Cheers,&lt;br /&gt;&lt;a href=&quot;/index.pl?node=Ovid&amp;lastnode_id=1072&quot;&gt;Ovid&lt;/a&gt;&lt;/p&gt;&lt;p&gt;&lt;small&gt;New address of &lt;a href=&quot;http://users.easystreet.com/ovid/cgi_course/&quot;&gt;my CGI Course&lt;/a&gt;.&lt;/small&gt;&lt;/p&gt;&lt;/div&gt;&lt;/div&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>404 to Apache (artist)</title>\n    <link>http://prlmnks.org/html/580948.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580948.html</guid>\n\n    <description>\n        Using CGI.pm, I can redirect to a &#39;filenotfound.htm&#39; file for 404 message, along with status &quot;404 Not found&quot;. Now, instead of specifiying the file name from Perl program, I like to use whichever &#39;404 file&#39; specified in Apache Server&#39;s httpd.conf.How do I accomplish this?  I am not using any &#39;Apache::&#39; modules.  &lt;p&gt;Thanks,&lt;div class=&quot;pmsig&quot;&gt;&lt;div class=&quot;pmsig-72806&quot;&gt;--Artist&lt;/div&gt;&lt;/div&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>which module support to connect SQLServer (shanthiann)</title>\n    <link>http://prlmnks.org/html/580939.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580939.html</guid>\n\n    <description>\n        hi perl monks,I tried to connect SQL server through DBI.pm .&lt;br&gt;But iam unable to connect ,which module support to connect to Sql Server&lt;BR&gt;Regards,&lt;BR&gt;Shanthi\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Profiling a large program (keymon)</title>\n    <link>http://prlmnks.org/html/580931.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580931.html</guid>\n\n    <description>\n        Dear Monks,&lt;br&gt;&lt;p&gt;I come here seeking some tips on how to profile a rather large piece of Perl code, with 100s of classes, etc. which runs under Apache using modperl. This is an internal application that has grown over the years, and now threatens to eat everyone alive (ok, not really :) ). It is slow, and there are severe memory leaks. I would like to figure out what are the most time-consuming methods, and where&#39;s the memory being leaked. &lt;P&gt;If it were standalone, I could use DProf and slog my way through that. But are there any better ways? &lt;P&gt;Consider for example the memory leaks. Is there a way to dump out the allocated objects periodically, and see which ones are not being freed? &lt;P&gt;As for runtime: is there a way to add instrumentation at the very low level (instead of modifying each method in each class, one by one) to get a list of the top resource hogs?&lt;P&gt;Your help, advice and perls(!) of wisdom would be greatly appreciated. \n    </description>\n</item>\n\n        \n\n<item>\n    <title>Using the result from XML::XQL::solve (adrianxw)</title>\n    <link>http://prlmnks.org/html/580916.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580916.html</guid>\n\n    <description>\n        Hi,&lt;p&gt;I want to publish a small subset of data held in a large compressed XML file residing on a remote Linux server, in a CGI script. The CGI stuff is trvial once I have the data in a standard form.&lt;p&gt;I have written enough to get the file from the server, and expand it so that I have the full XML in a memory buffer. In principle, I can now extract the necessary with stuff I know.&lt;p&gt;Having browsed W3C, it seemed like XQL may be a good way to go however. So I&#39;ve loaded the buffer into a DOM, (I am sure this has worked as when I do a test $dom-&gt;printToFile with a gash filename, it produces a file with the correct contents).&lt;p&gt;I have past a simple test XQL statement to XML::XQL::solve. I don&#39;t know if this has worked however. I get no error, but neither do I know what to do with the result. The docs say it returns a @list, but not what of! I&#39;ve googled about, browsed various sites which all seem to be mirroring the same stuff, even the pod that is inside the package doesn&#39;t help.&lt;p&gt;Ultimately, what I&#39;d like to do is extract the very few XML items I am interested in into a smaller DOM, then use some more XQL to extract and load these items and a few of their child items into a simple tab seperated $string to pass to an existing sub-system for processing prior to use in the CGI.&lt;p&gt;Yes, I could do it the old way, but I&#39;m intruiged to get this XQL interface working. What is that @list, and how can I progress this? Input gladly accepted.Thanks.&lt;p&gt;&lt;small&gt;2006-10-28 Retitled by &lt;a href=&quot;/out/node/GrandFather&quot;&gt;GrandFather&lt;/a&gt;, as per Monastery &lt;a href=&quot;/out/id/341118&quot;&gt;guidelines&lt;/a&gt; &lt;br /&gt;Original title: &#39;XML::XQL::solve&#39;&lt;/small&gt;&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Tk GUI and Listen? (Anonymous Monk)</title>\n    <link>http://prlmnks.org/html/580915.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580915.html</guid>\n\n    <description>\n        I&#39;m having a performance issue updating my Tk app.  I&#39;ve simplified the code examples for my scenario, but basically I have a windows Tk app the launches an external program and this program continually writes all of it&#39;s output to a text file until it completes. (To emulate this you can run the first block of code, write.pl).  &lt;p&gt;After the Tk app has launched this program it sits idle listening for new ouput and updates the GUI accordingly (To emulate this you can run the second block of code, capture.pl and push the &quot;Listen&quot; button).  I have two issues really, the first is that using the nowait flag in File::Tail causes the CPU to be hammered, but I need the method to be non-blobking so the user can still interact with the GUI.  My second issue is that after the method is called, it takes several (maybe 5) seconds for the method to start tailing the file.  I hope I&#39;ve simplified this enough for it to make sense so you can see my issue.  Maybe using File::Tail isn&#39;t the best way to go...any help would be greatly appreiciated.&lt;p&gt;# write.pl&lt;pre class=&quot;block_code&quot;&gt;use strict;use warnings;use IO::Handle;open(WRITE, &quot;&gt;&gt;C:&#92;&#92;File&#92;&#92;test.dat&quot;);WRITE-&gt;autoflush(1);my $num = 1;while(1) {    print &quot;$num&#92;n&quot;;    print WRITE &quot;Some new text $num&#92;n&quot;;    # using sleep to try and emulate the speed of the actual program    sleep 1;    $num ++;}    close WRITE;&lt;/pre&gt;&lt;p&gt;# capture&lt;pre class=&quot;block_code&quot;&gt;use strict;use warnings;use Tk;use File::Tail;my $mw;my $name = &#39;C:&#92;File&#92;test.dat&#39;;my $message; init_ui();MainLoop;sub init_ui {    $mw = MainWindow-&gt;new( -title =&gt; &#39;Test&#39; );    $mw-&gt;resizable( 0, 0 );    my $top = $mw-&gt;Frame(    )-&gt;pack( -side =&gt; &#39;top&#39;, -expand =&gt; &#39;1&#39;, -fill =&gt; &#39;both&#39; );   my $button1 = $top-&gt;Button( -text =&gt; &quot;Listen&quot;, -width =&gt; &#39;10&#39;,    -command =&gt; sub { file_listen(); }   )-&gt;pack( -side =&gt; &#39;left&#39;);   my $button2 = $top-&gt;Button( -text =&gt; &quot;Button2&quot;, -width =&gt; &#39;10&#39;   )-&gt;pack( -side =&gt; &#39;left&#39;);    my $bottom = $mw-&gt;Frame(    )-&gt;pack( -side =&gt; &#39;top&#39;, -expand =&gt; &#39;1&#39;, -fill =&gt; &#39;both&#39; );    my $status = $bottom-&gt;Label( -textvariable =&gt; &#92;$message,)-&gt;pack( -side =&gt; &#39;left&#39; );}sub file_listen {    $message = &#39;Listening ... &#39;;    $mw-&gt;update;    my $file=File::Tail-&gt;new(name=&gt;$name, nowait=&gt;1);    while (defined(my $line=$file-&gt;read)) {if ($line =~ /&#92;d+/) {    chomp($line);    $message = $line;}$mw-&gt;update;    }}&lt;/pre&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>extract jpg from binary file (wertert)</title>\n    <link>http://prlmnks.org/html/580914.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580914.html</guid>\n\n    <description>\n        Hi all&lt;p&gt;I&#39;ve been asked to write something to pull jpg/jfif files out of a binary file.  I&#39;ve had some limited success with my hex editor and I want to try it in perl.  From my reading the picture stream starts withs 0xFFD8 and ends with 0xFFD9.  The idea is that if I can pull everything out from between these markers we should have a valid jpeg image.  I also suspect there are multiple jpegs within the binary file and they also each contain a thumbnail.&lt;p&gt;So my first question is can anyone point me in the right direction for extracting a block out of a binary file between 2 markers ?  Once I get this working I think it should be quite straight forward.&lt;p&gt;Thanks in advance&lt;p&gt;wert\n    </description>\n</item>\n\n        \n\n<item>\n    <title>sharing a socket between two threads (win32) (danmcb)</title>\n    <link>http://prlmnks.org/html/580907.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580907.html</guid>\n\n    <description>\n        &lt;p&gt;Hi&lt;/p&gt;&lt;p&gt;My problem is to write a server script which processes incoming queries and responds to them in the usual way ... but also runs a periodic &quot;report&quot; function where it talks back at the client of its own accord. The report code is therefore a seperate thread.&lt;/p&gt;&lt;p&gt;The problem is that I don&#39;t find a way to allow the main and reporting threads to both talk back at the client. What seems to happen is that when I hasve the &quot;write to socket&quot; happening in both threads, they block each other in odd ways. (The report lines seem to appear after the first char of a client line is entered.) &lt;/p&gt;&lt;p&gt;This may be only a win32 problem, haven&#39;t tried on linux yet.&lt;/p&gt;&lt;p&gt;Here&#39;s my first attempt:&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;use strict;use warnings;use threads;use IO::Socket qw(:DEFAULT :crlf);use Time::HiRes qw( usleep );my $sock = new IO::Socket::INET (LocalAddr =&gt; &quot;localhost&quot;,                                 LocalPort =&gt; 1000,                                 Proto =&gt; &#39;tcp&#39;,                                 Listen =&gt; 1,                                 Reuse =&gt; 1);my $SOCK;sub sockout{    my $r = shift;    print $SOCK &quot;$r&#92;r&#92;n&quot;;}sub chatter{    while (1){        usleep(1000 * 1000);        sockout &quot;talkin to myself ...&quot;;    }}$SOCK = $sock-&gt;accept();my $thread = threads-&gt;create(&#92;&amp;chatter);sockout(&quot;CONNECTED!&quot;);while (my $line = &lt;$SOCK&gt;){    sockout(&quot;You said &quot;.$line);}&lt;/pre&gt;&lt;p&gt;One suggestion that has been made is to use a queue. I tried, same problem. Here it is:&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;use strict;use warnings;use threads;use Thread::Queue;use IO::Socket qw(:DEFAULT :crlf);use Time::HiRes qw( usleep );my $sock = new IO::Socket::INET (LocalAddr =&gt; &quot;localhost&quot;,                                 LocalPort =&gt; 1000,                                 Proto =&gt; &#39;tcp&#39;,                                 Listen =&gt; 1,                                 Reuse =&gt; 1);my $SOCK;my $rq;sub sockout{    my $r = shift;    print $SOCK &quot;$r&#92;r&#92;n&quot;;}sub chatter{    while (1){        usleep(1000 * 1000);        sockout &quot;talkin to myself ...&quot;;    }}sub reply_thread{    while (1){        while ($rq-&gt;pending){            print &quot;rt pr&#92;n&quot;;            print $SOCK $rq-&gt;dequeue;        };        usleep(1000 * 100);    }}$SOCK = $sock-&gt;accept();$rq = new Thread::Queue;my $reply_thread = threads-&gt;create(&#92;&amp;reply_thread);my $chatter_thread = threads-&gt;create(&#92;&amp;chatter);sockout(&quot;CONNECTED!&quot;);while (my $line = &lt;$SOCK&gt;){    sockout(&quot;You said &quot;.$line);}&lt;/pre&gt;&lt;p&gt;Any ideas?&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Replacing new lines and tab spaces using a regular expression (sanku)</title>\n    <link>http://prlmnks.org/html/580901.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580901.html</guid>\n\n    <description>\n        hi,how to replace new lines and tab spaces in a paragraph of text,to make it  a single line.thanks in advance,&lt;p&gt;&lt;small&gt;2006-10-28 Retitled by &lt;a href=&quot;/out/node/GrandFather&quot;&gt;GrandFather&lt;/a&gt;, as per Monastery &lt;a href=&quot;/out/id/341118&quot;&gt;guidelines&lt;/a&gt; &lt;br /&gt;Original title: &#39;doubt in Regular Expression&#39;&lt;/small&gt;&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Coverage queries (jbert)</title>\n    <link>http://prlmnks.org/html/580889.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580889.html</guid>\n\n    <description>\n        Hi there. I&#39;m using the (excellent) Devel::Cover module to see how much of an existing codebase I am exercising with some testing.&lt;p&gt;I&#39;m actually interested in exercising all calls to a particular subroutine. This information might already be present in Devel::Cover somewhere (since it can provide a line-by-line breakdown), but what I really want is a tool which reads a Devel::Cover database and tells me how many of the call sites of sub X have been covered and is able to list the ones which have not.&lt;p&gt;Has anyone seen anything which can do this? Does anyone know enough about the internals of Devel::Cover already to give me an impression about whether it would be possible/reasonable for me to dig in and add the functionality?&lt;p&gt;Or am I missing a big piece of what I need, namely the ability to go from perl file&amp;line (source code info) to parsed syntax tree (all callers of sub X)?&lt;p&gt;(One way it seems would work is to statically analyse the codebase to get file&amp;line of all call sites and then somehow parse the Devel::Cover reports to see if those are covered, but that involves trying to recover information from the human-readable reporting format - surely there is a better way?)\n    </description>\n</item>\n\n        \n\n<item>\n    <title>How to call a perl prg with options from within another ? (Bucchi)</title>\n    <link>http://prlmnks.org/html/580884.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580884.html</guid>\n\n    <description>\n        Hi All,     I tried calling a perl prg with options from within another like:   &lt;pre class=&quot;block_code&quot;&gt;    eval { require &quot;run_gql.pl -h -p &quot;};           if ($? == -1) {        print &quot;Failed to execute: $!&#92;n&quot;;      }    elsif ($? &amp; 127) {printf &quot;&#92;nChild died with signal %d, %s coredump&#92;n&quot;,    ($? &amp; 127),  ($? &amp; 128) ? &#39;with&#39; : &#39;without&#39;;    }    else {printf &quot;&#92;nChild exited with value %d&#92;n&quot;, $? &gt;&gt; 8;    }  &lt;/pre&gt;     Here -h and -p are my prg options. Now is this correct?? Please help....Thanks for your help.\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Faster than soap ? (jeteve)</title>\n    <link>http://prlmnks.org/html/580882.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580882.html</guid>\n\n    <description>\n        Wise monks,&lt;p&gt; I&#39;m currently using SOAP::Lite to make calls between different component of my application.&lt;/p&gt;&lt;p&gt;I use SOAP::Lite under mod_perl/apache&lt;/p&gt;&lt;p&gt;My usefull server side function call take something like 10ms to execute. But the SOAP communication layer introduce an overhead of something like 300ms ..&lt;/p&gt;&lt;p&gt;SOAP is definitely great to easily expose an API to the world. But internally, I&#39;m wondering if something as simple and more performant could exist.&lt;/p&gt;&lt;p&gt;My Ideal module (which I may write if it doesn&#39;t exist ..) would have those features:&lt;/p&gt;&lt;ul&gt; &lt;li&gt;Be as easy to use as SOAP::Lite&lt;/li&gt; &lt;li&gt;Be only dedicated to perl &lt;-&gt; perl communication&lt;/li&gt; &lt;li&gt;Be a lot faster than soap, using something like Data::Dumper / eval for data marshalling/unmarshalling&lt;/ul&gt;&lt;p&gt; Any idea ?&lt;/p&gt;&lt;p&gt; Thanks for your emlightments.&lt;/p&gt;&lt;!-- Node text goes above. Div tags should contain sig only --&gt;&lt;div class=&quot;pmsig&quot;&gt;&lt;div class=&quot;pmsig-358002&quot;&gt;&lt;p&gt;-- &lt;em&gt;Nice photos of naked perl sources &lt;a href=&quot;http://www.eteve.net/&quot;&gt;here&lt;/a&gt; !&lt;/em&gt;&lt;/p&gt;&lt;/div&gt;&lt;/div&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>DBIx::Class issues : -&gt;load_classes()? (dhoss)</title>\n    <link>http://prlmnks.org/html/580869.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580869.html</guid>\n\n    <description>\n        &lt;p&gt;Hallowed monks,&lt;/p&gt;&lt;p&gt;&lt;strong&gt;UPDATE:&lt;/strong&gt;As per &lt;a href=&quot;/out/node/CountZero&quot;&gt;CountZero&lt;/a&gt;&#39;s advice, I moved &lt;tt class=&quot;inline_code&quot;&gt;use Notes::DBI&lt;/tt&gt; into &lt;tt class=&quot;inline_code&quot;&gt;cgiapp_init&lt;/tt&gt;, wrapped it in an &lt;tt class=&quot;inline_code&quot;&gt;eval&lt;/tt&gt; and used &lt;tt class=&quot;inline_code&quot;&gt;require&lt;/tt&gt; and returned &lt;tt class=&quot;inline_code&quot;&gt;$@&lt;/tt&gt;  What I got was this:&lt;pre class=&quot;block_code&quot;&gt;Error executing class callback in init stage: DBIx::Class::Schema::load_classes(): DBIx::Class::Relationship::BelongsTo::belongs_to(): Can&#39;t locate Notes/DBI/User.pm in @INC (@INC contains: /usr/lib/perl5/5.8.7/i686-linux /usr/lib/perl5/5.8.7 /usr/lib/perl5/site_perl/5.8.7/i686-linux /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl .) at (eval 53) line 3.&lt;/pre&gt;. Long story short, &lt;tt class=&quot;inline_code&quot;&gt;Notes::DBI::User.pm&lt;/tt&gt; was named &lt;tt class=&quot;inline_code&quot;&gt;Notes::DBI::Users.pm&lt;/tt&gt;, thus throwing &lt;a href=&quot;/out/cpan/DBIx::Class&quot;&gt;DBIx::Class&lt;/a&gt; into a tizzy and causing all sorts of trouble.  /me thinks it would be nice to have some method (aside from wrapping it in eval, as that would be used when expecting a possible error in this case)to make this return an error in such a way that CGI scripts don&#39;t completely &lt;tt class=&quot;inline_code&quot;&gt;die&lt;/tt&gt; when this type of error is thrown...&lt;/p&gt;&lt;p&gt;I&#39;m at my wits end.  I&#39;m using &lt;a href=&quot;/out/cpan/DBIx::Class&quot;&gt;DBIx::Class&lt;/a&gt; and it seems to be hanging up at &lt;tt class=&quot;inline_code&quot;&gt;__PACKAGE__-&gt;load_classes()&lt;/tt&gt;. I think.  When I take &lt;tt class=&quot;inline_code&quot;&gt;use Notes::DBI&lt;/tt&gt; (my main schema class) out of my code, my code runs fine.  As far as I can tell, I&#39;ve narrowed it down to &lt;tt class=&quot;inline_code&quot;&gt;__PACKAGE__-&gt;load_classes()&lt;/tt&gt;, the only error i get is a &quot;premature end of script headers&quot; error (using [cpan://CGI::Application], along with an assortment of config modules, etc.) &lt;/p&gt;&lt;p&gt;This near exact same code works fine for another web app i&#39;m working on, so i&#39;m stumped.&lt;/p&gt;&lt;p&gt;Here&#39;s the code:&lt;/p&gt;&lt;p&gt;&lt;/p&gt;&lt;p&gt;&lt;p&gt;Notes.pm:&lt;/p&gt;&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;package Notes;&lt;/pre&gt;&lt;pre class=&quot;block_code&quot;&gt;use strict;use base &#39;CGI::Application&#39;;use Notes::DBI;use CGI::Session;use CGI::Application::Plugin::TT; # for template toolkit supportuse Config::Simple;#use CGI::Application::Plugin::Config::Simple; # for Config::Simple support;#use CGI::Session;use CGI::Carp qw[fatalsToBrowser]; #DEBUG ONLY&lt;/pre&gt;&lt;pre class=&quot;block_code&quot;&gt;...&lt;/pre&gt;&lt;pre class=&quot;block_code&quot;&gt;sub main {my $self = shift;my $config = Config::Simple-&gt;new(&quot;conf/notes.conf&quot;);my $session = CGI::Session-&gt;load(&quot;driver:File&quot;, $self-&gt;query, { Directory =&gt; $config-&gt;param(&#39;session_directory&#39;) } )          or CGI::Session-&gt;new(&quot;driver:File&quot;, $self-&gt;query, { Directory =&gt; $config-&gt;param(&#39;session_directory&#39;) } )         or die CGI::Session-&gt;errstr;### get a db connectionmy $schema = Note::DBI-&gt;connect($config-&gt;param(&#39;db_data_source&#39;),                                     $config-&gt;param(&#39;db_username&#39;),                                     $config-&gt;param(&#39;db_password&#39;),                                     { RaiseError =&gt; 1, AutoCommit =&gt; 1 });my @all_notes = $schema-&gt;resultset(&#39;Notes&#39;)-&gt;all; ### create a query for @usernotes, does not actually### execute querymy $user_notes = $schema-&gt;resultset(&#39;User&#39;)-&gt;search(      { username =&gt; $session-&gt;param(&#39;username&#39;) }    );# Get all the user&#39;s notes    my @all_user_notes = $user_notes-&gt;search_related(&#39;notes&#39;)-&gt;all;return $self-&gt;tt_process(&#39;main.tt&#39;, { c        =&gt; $self-&gt;query, s        =&gt; $session, #a_notes  =&gt; &#92;@all_notes,  #u_notes  =&gt; &#92;@all_user_notes, title    =&gt; &#39;Notes Home&#39; });}&lt;/pre&gt;&lt;p&gt;Notes::DBI (main schema class):&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;package Notes::DBI;use strict;use base qw/DBIx::Class::Schema/;&lt;/pre&gt;&lt;pre class=&quot;block_code&quot;&gt;__PACKAGE__-&gt;load_classes();  ## hopefully won&#39;t slow things down&lt;/pre&gt;&lt;pre class=&quot;block_code&quot;&gt;1;&lt;/pre&gt;&lt;p&gt;Notes::DBI::User (user table class)&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;package Notes::DBI::Users;use base qw/DBIx::Class/;__PACKAGE__-&gt;load_components(qw/ PK::Auto Core /);&lt;/pre&gt;&lt;pre class=&quot;block_code&quot;&gt;__PACKAGE__-&gt;table(&#39;users&#39;);__PACKAGE__-&gt;add_columns(qw/ userid username password create_date last_here emailnotes_are_private/);__PACKAGE__-&gt;set_primary_key(&#39;userid&#39;);__PACKAGE__-&gt;has_many( notes =&gt; &#39;Notes::DBI::Notes&#39;);1;&lt;/pre&gt;&lt;p&gt;Notes::DBI::Notes (notes table class):&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;package Notes::DBI::Notes;use base qw/DBIx::Class/;&lt;/pre&gt;&lt;pre class=&quot;block_code&quot;&gt;__PACKAGE__-&gt;load_components(qw/ PK::Auto Core /);__PACKAGE__-&gt;table(&#39;notes&#39;);__PACKAGE__-&gt;add_columns(qw/ noteid datenumbercontentuser privateclass/);__PACKAGE__-&gt;set_primary_key(&#39;noteid&#39;);__PACKAGE__-&gt;belongs_to( user =&gt; &#39;Notes::DBI::User&#39;);&lt;/pre&gt;&lt;pre class=&quot;block_code&quot;&gt;1;&lt;/pre&gt;&lt;p&gt;&lt;/p&gt;&lt;p&gt;I&#39;m spent. Tell me if this is completely idiotic and I&#39;m missing something right in front of my face, or if it&#39;s an actual issue. &lt;/p&gt;&lt;!-- Generated using PerlMonks editor version 001.000105 --&gt;&lt;!-- Node text goes above. Div tags should contain sig only --&gt;&lt;div class=&quot;pmsig&quot;&gt;&lt;div class=&quot;pmsig-203787&quot;&gt;&lt;i&gt;meh.&lt;/i&gt;&lt;/div&gt;&lt;/div&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>calling CGI script from outside server (yelekeri)</title>\n    <link>http://prlmnks.org/html/580859.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580859.html</guid>\n\n    <description>\n        All,  does anyboady have info about how to call a CGI script (for that matter, any weblink) from a perl program. From the perl script, lets say I need to call a hyperlink and get read the display output of that hyperlink. How exactly it can be done, which modules I could use for this purpose. Appreciate your replies. -yelekeri\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Subversion: last change author (water)</title>\n    <link>http://prlmnks.org/html/580854.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580854.html</guid>\n\n    <description>\n        Hi -- &lt;p&gt;I am looking for a way from w/in a perl program to determine, for a given file in a subversion repository, the last person who committed a change to that file.Any suggestions or module recommendations much appreciated.&lt;p&gt;Thanks!&lt;p&gt;&lt;a href=&quot;/out/node/water&quot;&gt;water&lt;/a&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>regex issues with /gc in log analysis... (EvanK)</title>\n    <link>http://prlmnks.org/html/580852.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580852.html</guid>\n\n    <description>\n        i&#39;m writing a log parser, and am trying to optimize the way i match valid entries in the logfile.  its a logfile for a multiplayer fps (&lt;a href=&quot;http://www.whatisfear.com/&quot;&gt;F.E.A.R.&lt;/a&gt;), and its not as simple as most logs ive worked with, because the data i want (info for a given player after each round) spans multiple lines.  this is a sample log for a single game:&lt;pre class=&quot;block_code&quot;&gt;[Thu Sep 21 17:48:38 2006] [Thu Sep 21 17:48:38 2006] ------------------------------------------[Thu Sep 21 17:48:38 2006] Server started.[Thu Sep 21 18:37:22 2006] Client connected: Alpha[Thu Sep 21 18:37:31 2006] Client connected: Bravo[Thu Sep 21 18:38:20 2006] Client connected: Charlie[Thu Sep 21 18:39:18 2006] Client connected: Delta[Thu Sep 21 18:53:36 2006] [Thu Sep 21 18:53:36 2006] *** Results for Map: Worlds&#92;ReleaseMultiplayer&#92;Bypass[Thu Sep 21 18:53:36 2006] [Thu Sep 21 18:53:36 2006] Team: Team 1[Thu Sep 21 18:53:36 2006] Score: 93[Thu Sep 21 18:53:36 2006] [Thu Sep 21 18:53:36 2006] Player: Alpha (uid: ad7023b7f46271acd31e1bd287613b6d)[Thu Sep 21 18:53:36 2006] Score: 55[Thu Sep 21 18:53:36 2006] Kills: 14[Thu Sep 21 18:53:36 2006] Deaths: 15[Thu Sep 21 18:53:36 2006] Team Kills: 0[Thu Sep 21 18:53:36 2006] Suicides: 0[Thu Sep 21 18:53:36 2006] Objective: 0[Thu Sep 21 18:53:36 2006] [Thu Sep 21 18:53:36 2006] Player: Bravo (uid: 5fdcc95043dc4dac9d7b4afb8469eb4f)[Thu Sep 21 18:53:36 2006] Score: 38[Thu Sep 21 18:53:36 2006] Kills: 11[Thu Sep 21 18:53:36 2006] Deaths: 17[Thu Sep 21 18:53:36 2006] Team Kills: 0[Thu Sep 21 18:53:36 2006] Suicides: 0[Thu Sep 21 18:53:36 2006] Objective: 0[Thu Sep 21 18:53:36 2006] [Thu Sep 21 18:53:36 2006] Team: Team 2[Thu Sep 21 18:53:36 2006] Score: 135[Thu Sep 21 18:53:36 2006] [Thu Sep 21 18:53:36 2006] Player: Charlie (uid: e94839cae76debf1418ab9dfaa4c01e8)[Thu Sep 21 18:53:36 2006] Score: 61[Thu Sep 21 18:53:36 2006] Kills: 15[Thu Sep 21 18:53:36 2006] Deaths: 14[Thu Sep 21 18:53:36 2006] Team Kills: 0[Thu Sep 21 18:53:36 2006] Suicides: 0[Thu Sep 21 18:53:36 2006] Objective: 0[Thu Sep 21 18:53:36 2006] [Thu Sep 21 18:53:36 2006] Player: Delta (uid: b2ea959c1b3fa5c35ef6a6e576cdf2af)[Thu Sep 21 18:53:36 2006] Score: 46[Thu Sep 21 18:53:36 2006] Kills: 10[Thu Sep 21 18:53:36 2006] Deaths: 4[Thu Sep 21 18:53:36 2006] Team Kills: 0[Thu Sep 21 18:53:36 2006] Suicides: 0[Thu Sep 21 18:53:36 2006] Objective: 0[Thu Sep 21 18:53:36 2006] [Thu Sep 21 18:53:36 2006] [Thu Sep 21 18:57:47 2006] Client disconnected: Delta[Thu Sep 21 18:58:01 2006] Client disconnected: Alpha[Thu Sep 21 18:58:17 2006] Client disconnected: Bravo[Thu Sep 21 18:59:03 2006] Client disconnected: Charlie&lt;/pre&gt;big and unwieldy, i know, and this is just one round.  i have a real logfile that spans about a month, its huuuuuge.  now, i have a working parser for it, using a search &amp; replace regex that &#39;nibbles&#39; away at the log:&lt;p&gt;&lt;b&gt;note:&lt;/b&gt; since the server may be windows or linux, i&#39;m explicitly matching both LF and CRLF newlines, hence the &lt;tt class=&quot;inline_code&quot;&gt;&#92;x0D?&#92;x0A&lt;/tt&gt; at the end of the line&lt;pre class=&quot;block_code&quot;&gt;# loop through, &#39;nibbling&#39; at logfile with every# successful match &amp; replacementwhile(  $log =~ s{  &#92;[ ([^&#92;]]+?) &#92;] &#92;s+ Player&#92;: &#92;s+ ([^&#92;x20]+?) &#92;s+ &#92;( uid: &#92;s+ (&#92;w+) &#92;)  &#92;x0D?&#92;x0A  &#92;[ [^&#92;]]+? &#92;] &#92;s+ Score: &#92;s+ (&#92;d+)  &#92;x0D?&#92;x0A  &#92;[ [^&#92;]]+? &#92;] &#92;s+ Kills: &#92;s+ (&#92;d+)  &#92;x0D?&#92;x0A  &#92;[ [^&#92;]]+? &#92;] &#92;s+ Deaths: &#92;s+ (&#92;d+)  &#92;x0D?&#92;x0A  &#92;[ [^&#92;]]+? &#92;] &#92;s+ Team &#92;s+ Kills: &#92;s+ (&#92;d+)  &#92;x0D?&#92;x0A  &#92;[ [^&#92;]]+? &#92;] &#92;s+ Suicides: &#92;s+ (&#92;d+)  &#92;x0D?&#92;x0A  &#92;[ [^&#92;]]+? &#92;] &#92;s+ Objective: &#92;s+ (&#92;d+)  &#92;x0D?&#92;x0A  }{}ixms) {  # grab values from regex backreferences  $timestamp = $1;  $player    = $2;  $uid       = $3;  $score     = $4;  $kills     = $5;  $deaths    = $6;  $teamkills = $7;  $suicides  = $8;  $objective = $9;    # ...process log entry...}&lt;/pre&gt;this works, its just slow and rather inefficient, not to mention it will likely be a beast to maintain.&lt;p&gt;i was trying to change to using a regular match with a &lt;tt class=&quot;inline_code&quot;&gt;/gc&lt;/tt&gt; flag because it would be much more efficient, and it would also allow me to bypass the backreferences altogether:&lt;pre class=&quot;block_code&quot;&gt;# loop through, grabbing values for every# successful match with the /gc flagwhile(  ($timestamp,$player,$uid,$score,$kills,$deaths,$teamkills,$suicides,$objective) =   $log =~ m{ &#92;G .+  &#92;[ ([^&#92;]]+?) &#92;] &#92;s+ Player&#92;: &#92;s+ ([^&#92;x20]+?) &#92;s+ &#92;( uid: &#92;s+ (&#92;w+) &#92;)  &#92;x0D?&#92;x0A  &#92;[ [^&#92;]]+? &#92;] &#92;s+ Score: &#92;s+ (&#92;d+)  &#92;x0D?&#92;x0A  &#92;[ [^&#92;]]+? &#92;] &#92;s+ Kills: &#92;s+ (&#92;d+)  &#92;x0D?&#92;x0A  &#92;[ [^&#92;]]+? &#92;] &#92;s+ Deaths: &#92;s+ (&#92;d+)  &#92;x0D?&#92;x0A  &#92;[ [^&#92;]]+? &#92;] &#92;s+ Team &#92;s+ Kills: &#92;s+ (&#92;d+)  &#92;x0D?&#92;x0A  &#92;[ [^&#92;]]+? &#92;] &#92;s+ Suicides: &#92;s+ (&#92;d+)  &#92;x0D?&#92;x0A  &#92;[ [^&#92;]]+? &#92;] &#92;s+ Objective: &#92;s+ (&#92;d+)  &#92;x0D?&#92;x0A  }ixmsgc) {    # ...process log entry...}&lt;/pre&gt;per my understanding, it should match &lt;tt class=&quot;inline_code&quot;&gt;&#92;G&lt;/tt&gt; as the beginning of the string on the first time through, then match it as the end of the &lt;i&gt;previous&lt;/i&gt; match from then on...however, it only ever matches one time.&lt;p&gt;am i missing something blatantly obvious?  or is there even a cleaner approach that i havent thought of?&lt;!-- Node text goes above. Div tags should contain sig only --&gt;&lt;div class=&quot;pmsig&quot;&gt;&lt;div class=&quot;pmsig-42880&quot;&gt;&lt;p&gt;&lt;font color=&#39;#000080&#39;&gt;__________&lt;br&gt;&lt;i&gt;Build a man a fire, and he&#39;ll be warm for a day. Set a man on fire, and he&#39;ll be warm for the rest of his life.&lt;/i&gt;&lt;br&gt;- Terry Pratchett &lt;/font&gt;&lt;br&gt;&lt;/div&gt;&lt;/div&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Win32::API::Struct problem (ldln)</title>\n    <link>http://prlmnks.org/html/580846.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580846.html</guid>\n\n    <description>\n        Prob some stupid mistake, but why does sizeof give 8 and not 5. One &quot;char&quot; (1byte) + One &quot;long&quot; (4bytes) = 5?&lt;p&gt;&lt;pre class=&quot;block_code&quot;&gt;    use Win32::API;    use Win32::API::Struct;    use strict;    use warnings;        #0.41                #print Win32::API-&gt;VERSION;    Win32::API::Struct-&gt;typedef(&#39;test&#39;, qw(       char i;      long l;    ));        my $Bl = Win32::API::Struct-&gt;new(&#39;test&#39;);        #8. Why not 5?    print &quot;&#92;nSize:&quot;, $Bl-&gt;sizeof();&lt;/pre&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Wrapping the open() built-in (almut)</title>\n    <link>http://prlmnks.org/html/580833.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580833.html</guid>\n\n    <description>\n        &lt;p&gt; Hi All, &lt;/p&gt;&lt;p&gt; I need to replace Perl&#39;s built-in open() function. The reason I want todo this is described in detail in another [id://580313|recent post] of mine.In a nutshell, I have to do encoding conversions on filename arguments(unicode -&gt; CP932). &lt;/p&gt;&lt;p&gt; Actually, it&#39;s not only open() I need to wrap, but open() appearsto be the most flexible beast of those, and I&#39;d very much appreciate ifsome of you wise monks could take a look at what I currently have, andlet me know if I&#39;ve overlooked something... &lt;/p&gt;&lt;p&gt; _____ I18N/Japanese.pm (the &#39;compatibility&#39; module) _____ &lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;package I18N::Japanese;use Encode &#39;encode&#39;;use Symbol &#39;qualify_to_ref&#39;;# eventually, determine this dynamicallymy $encoding = &quot;cp932&quot;;# this is meant to take effect for whoever uses usrequire encoding; encoding-&gt;import($encoding);# override/wrap Perl built-ins that take or return filenames# (... snippage of all but open()-wrapper)*CORE::GLOBAL::open = sub (*@) {    my $fhref = &#92;$_[0];    my $autov = !defined $_[0];    my $fh = qualify_to_ref(shift, scalar caller);    # pass filehandle up to caller when &quot;open my $f, ...&quot;    $$fhref = $fh if $autov;    my ($arg2, $arg3, @args) = convert_encoding(@_);    # need to handle the different prototypes seperately    if (@_ &gt;= 3) {        CORE::open $fh, $arg2, $arg3, @args;    } elsif (@_ == 2) {        if (defined $arg3) {            CORE::open $fh, $arg2, $arg3;        } else {            # must be undef _syntactically_            CORE::open $fh, $arg2, undef;        }    } elsif (@_ == 1) {        CORE::open $fh, $arg2;    } else {        CORE::open $fh;    }};sub convert_encoding {    return ( map ref(&#92;$_) eq &#39;SCALAR&#39; ? encode($encoding, $_) : $_, @_ );}1;&lt;/pre&gt;&lt;p&gt; _____ using the replaced open() _____ &lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;use I18N::Japanese;open F, &quot;&gt;&quot;, &quot;myfile&quot;  and print F &quot;foo&#92;n&quot;;open my $f, &quot;&gt;&quot;, &quot;myfile&quot; or die $!;print $f &quot;foo&#92;n&quot;;# ...&lt;/pre&gt;&lt;p&gt; I believe this code is able to handle all various usages of open() ...but please don&#39;t hesitate to prove me wrong ;)  Otherwise, well, I&#39;d beglad to share this snippet with whoever in need might google this up inthe future. &lt;/p&gt;&lt;p&gt; (Note: the encoding conversion aspect is not what I&#39;m worried aboutat the moment, but rather whether the replaced open() is still behavinglike the built-in one, interface-wise) &lt;/p&gt;&lt;p&gt; Thanks,&lt;br /&gt;Almut&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Problem pushing hashref results (rashley)</title>\n    <link>http://prlmnks.org/html/580796.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580796.html</guid>\n\n    <description>\n        I&#39;m trying to get the results of a verified SQL query returned by this function:&lt;pre class=&quot;block_code&quot;&gt;sub selectAttributesForReport{    my ($self, $viewName) = @_;    my $result;        my $attrHash;    ### SQL TO GET THE DATA ###    my $dbm      = $self-&gt;getDBManager();    my $sqlText  = $dbm-&gt;getSQL(&#39;selectAttributesForReport&#39;);     my $dbh = $dbm-&gt;getDBH();    my $sth = $dbh-&gt;prepare($sqlText);    $self-&gt;logger_sql-&gt;info(&quot;Executing SQL: $sqlText&quot;);    $sth-&gt;execute($viewName);        #push the data onto our results    while ( my $resultRowRef = $sth-&gt;fetchrow_hashref() )     {            $attrHash-&gt;{OBJECT} = $resultRowRef-&gt;{&#39;ATTRNAME&#39;};$attrHash-&gt;{OBJECTATTRIB} = $resultRowRef-&gt;{&#39;ATTRNAME2&#39;};push (@$result, $attrHash);     }    ##There were no results.    if(not $result)      {        $self-&gt;logger-&gt;error(&quot;There was no information available for the view: [$viewName]&quot;);      }    return $result;}&lt;/pre&gt;I&#39;ve verified via print statements that $attrHash-&gt;{OBJECT} is getting the correct values on each iteration through the loop, but when I look at the result returned, there are the correct number of them, but they all contain the value of the last row retrieved by the SQL.&lt;p&gt;I&#39;m sure I&#39;m doing something dumb on the push, but I can&#39;t put my finger on it.\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Perl Read-Ahead I/O Buffering (jeffthewookiee)</title>\n    <link>http://prlmnks.org/html/580786.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580786.html</guid>\n\n    <description>\n        I&#39;m currently writing scripts to read pipe-separated values from a very large text file (160+ GB). It&#39;s necessary to process every line, but this approach:@lines = &lt;BIGGUNFILE&gt; is unfeasible due to memory requirements. Currently the scripts use standard line by line behavior:while(my $line = &lt;BIGGUNFILE&gt;)I assume that this is pretty inefficient since it should cause a lot of very small reads instead of reading the data in large chunks. I&#39;ve also experimented with Tie::File, which reports that it will buffer data, but this too seems to be line by line. I only need to process each line once, so buffering this way doesn&#39;t help me much.Is there another approach in Perl wherein I can read in larger chunks of data at a time, but yet not slurp in the whole file? In other words, I&#39;d like to read-ahead and buffer a set of X lines so that the IO would be faster... \n    </description>\n</item>\n\n        \n\n<item>\n    <title>logfile parsing (phoneguy)</title>\n    <link>http://prlmnks.org/html/580784.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580784.html</guid>\n\n    <description>\n        I have a logfile that is somewhat unique in the fact that, well, it&#39;s a jumbled up mess.  For example:&lt;br&gt;&lt;blockquote&gt;&lt;pre class=&quot;block_code&quot;&gt;2006-10-25 18:20:20,751 DEBUG [stuff][][] End Query: [Id: 1] [duration: 96]2006-10-25 18:20:20,762 DEBUG [stuff][][] Start Query: [Id: 2] [Description: ] [debug sql] &lt;SQL Here&gt;   &lt;more SQL&gt;   &lt;more SQL&gt;2006-10-25 18:20:20,763 DEBUG [stuff][][] End Query: [Id: 2] [duration: 1]2006-10-25 18:20:20,764 DEBUG [stuff][][] Checking status of UserService2006-10-25 18:20:20,764 DEBUG [stuff][][] Starting IntegrationService2006-10-25 18:20:20,764 DEBUG [stuff][][] Service Started: IntegrationService2006-10-25 18:20:20,776 DEBUG [stuff][][] Start Query: [Id: 3] [Description: ] [debug sql] SELECT&lt;/pre&gt;&lt;/blockquote&gt;I&#39;d like to be able to write a logfile parser that will tell me which ID&#39;s haven&#39;t finished in a log file (when the server crashes), and what SQL statements are taking the longest time.What&#39;s the easiest way to do this?  \n    </description>\n</item>\n\n        \n\n<item>\n    <title>Error using Net::SFTP (kprasanna_79)</title>\n    <link>http://prlmnks.org/html/580780.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580780.html</guid>\n\n    <description>\n        Revered Monks,&lt;br&gt;&lt;p&gt;I am trying to use the module Net::SFTP and i am getting the following error.&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;Error using Net::SFTP, Reading configuration data d://.ssh/configReading configuration data /etc/ssh_configConnecting to stage.com, port 22.Remote version string: SSH-1.99-OpenSSH_3.9p1Remote protocol version 1.99, remote software version OpenSSH_3.9p1Net::SSH::Perl Version 1.30, protocol version 1.5.No compat match: OpenSSH_3.9p1.Can&#39;t set socket non-blocking: Bad file descriptor at D:/apps/site/lib/Net/SSH/Perl.pm line 216.&lt;/pre&gt;&lt;p&gt;Also when i try to use the Net::SFTP::Foreign i am getting the following error&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;sftp: Sending SSH2_FXP_INITreading from ssh pipe failed () at test1.pl line 14&lt;/pre&gt;&lt;p&gt;If any body throws light on this issue will be appreciated&lt;/p&gt;&lt;br&gt;&lt;p&gt;Update:- This error i am getting when used in windows and perl version 5.8.8&lt;/p&gt;-Prasanna.K\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Loading a module into many packages (arkturuz)</title>\n    <link>http://prlmnks.org/html/580774.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580774.html</guid>\n\n    <description>\n        Hello all!&lt;p&gt;I loaded one module into my package like this:&lt;pre class=&quot;block_code&quot;&gt;In MyClass.pm:{package MyClass;use mymodule;# call some function from mymodule}&lt;/pre&gt;and afterwards I load the same module into &lt;tt class=&quot;inline_code&quot;&gt;main&lt;/tt&gt;package:&lt;pre class=&quot;block_code&quot;&gt;In myapp.pl:use mymodule;# call some function from mymodule&lt;/pre&gt;The problem is that I can normally call functions from &lt;tt class=&quot;inline_code&quot;&gt;mymodule&lt;/tt&gt; within &lt;tt class=&quot;inline_code&quot;&gt;MyClass&lt;/tt&gt; but calling the same functions within &lt;tt class=&quot;inline_code&quot;&gt;main&lt;/tt&gt; throws an error about functions not being defined.I don&#39;t have any package declarations in &lt;tt class=&quot;inline_code&quot;&gt;mymodule.pm&lt;/tt&gt;; it&#39;s just a file with a lot of functions.&lt;p&gt;I resolved this by putting &lt;tt class=&quot;inline_code&quot;&gt;use mymodule&lt;/tt&gt; in &lt;tt class=&quot;inline_code&quot;&gt;MyClass&lt;/tt&gt; outside of package definition and brackets and now everything works fine, but I still don&#39;t know why the previous code failed to work.&lt;p&gt;Can it be because of &lt;tt class=&quot;inline_code&quot;&gt;Class::Contract&lt;/tt&gt;? I use it to construct a class in &lt;tt class=&quot;inline_code&quot;&gt;MyClass&lt;/tt&gt;. Does it somehow obscure loaded functions in MyClass so that no other packages can use it? (I know it sounds funny and probably is wrong, but that&#39;s the only reason I can think of.)&lt;p&gt;Any suggestions/descriptions/pointers to docs/slaps are appreciated.&lt;p&gt;&lt;b&gt;Update:&lt;/b&gt; sample test code similar to the original and it doesn&#39;t work:&lt;p&gt;&lt;b&gt;test_loading.pl:&lt;/b&gt;&lt;pre class=&quot;block_code&quot;&gt;#!/usr/bin/perl -wuse strict;use warnings;{    package MyClass;    use Class::Contract;    use test_func;    contract {        attr &#39;test&#39;;        ctor &#39;new&#39;;        impl {            ${self-&gt;test} = test_me(&#39;within class&#39;);        };    };};package main;use test_func;test_me(&#39;in main&#39;);&lt;/pre&gt;&lt;p&gt;&lt;b&gt;test_func.pm&lt;/b&gt;&lt;pre class=&quot;block_code&quot;&gt;sub test_me {    my $txt = shift;    print &quot;Exec of test_me with: $txt&#92;n&quot;;    return $txt;}1;&lt;/pre&gt;&lt;p&gt;It throws an error:&lt;pre class=&quot;block_code&quot;&gt;Undefined subroutine &amp;main::test_me called at test_loading.pl line 25&lt;/pre&gt;&lt;p&gt;It works fine when I remove &lt;tt class=&quot;inline_code&quot;&gt;use test_func&lt;/tt&gt; from MyClass and call &lt;tt class=&quot;inline_code&quot;&gt;test_me()&lt;/tt&gt; like &lt;tt class=&quot;inline_code&quot;&gt;main::test_me()&lt;/tt&gt; in class ctor.\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Using pipe and reading from the stdin (mellin)</title>\n    <link>http://prlmnks.org/html/580761.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580761.html</guid>\n\n    <description>\n        &lt;p&gt;I have a question, just for curiosity reasons, is there any drawbacks of monitoring server and a text file (e.g Apache log file) using tail and pipe to output the lines to perl script? I want to do it like this so i can control the formatting with the Perl script as i want it to be.&lt;/p&gt;&lt;tt class=&quot;inline_code&quot;&gt;tail -f -n 0 /etc/httpd/logs/access_log | ./readStdin.pl&lt;/tt&gt;&lt;p&gt;So the above command is what i run from my Linux www server, the tail command stays real-time in reading the access_log and since that readStdin.pl script is taking input using while (&lt;STDIN&gt;), it waits &quot;indefinitely&quot; for new lines to be formatted and displayed.&lt;/p&gt;&lt;p&gt;I&#39;m just curious if there is some major problem with this kind of monitoring that i haven&#39;t even thought about.&lt;/p&gt;&lt;p&gt;Please, comment freely.&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>HTTP/S Discovery (Zate)</title>\n    <link>http://prlmnks.org/html/580760.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580760.html</guid>\n\n    <description>\n        Hello,I am trying to write a simple bit of code to take the output from NMAP::Parser on what ports are open on a host, and then determine if a HTTP or HTTPS server runs on that port, if it is then get me the Type of Server (via the HTTP HEAD command).&lt;br&gt;&lt;br&gt;I am using IO::Socket::INET for the HTTP and IO::Socket::SSL for the HTTPS portion.  The problem I have is that the program tends to get &quot;stuck&quot; sometimes on non HTTP or HTTPS ports.&lt;br&gt;&lt;br&gt;Is there a way, at a very low level to quickly see if something speaks HTTP ? (or HTTPS) before doing the HEAD request?  I am using NMAP to get what ports are open on a box, I am thinking i need something to tell what of those speaks HTTP before asking it what kind of server its running.&lt;br&gt;&lt;br&gt;I tried using alarm() to &quot;die&quot; if it got hung but wasnt sure how to make the sub exit and return instead of dieing.&lt;br&gt;&lt;br&gt;Thank you for your time.\n    </description>\n</item>\n\n        \n\n<item>\n    <title>What magic is this? (Jonathan)</title>\n    <link>http://prlmnks.org/html/580738.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580738.html</guid>\n\n    <description>\n        I have two scripts that use XML::Simple to parse a small file. The XML::Simple code is identical for both, ie&lt;pre class=&quot;block_code&quot;&gt;  # Create XML reader object  my $xs = new XML::Simple();  # Parse XML string  my $ref = $xs-&gt;XMLin($file_str);&lt;/pre&gt;With an identical XML string the first script runs without complaint. The second also runs but I have a message in my log file&lt;pre class=&quot;block_code&quot;&gt;Thu Oct 26 12:47:37 2006 [PID 23309] [critical] Can&#39;t use string (&quot;&lt;sa:model xmlns:sa=&quot;urn:basel-rb&quot;) as a symbol ref while &quot;strict refs&quot; in use at /usr/local/lib/perl5/site_perl/5.6.0/sun4-solaris/XML/Parser/Expat.pm line 451.&lt;/pre&gt;The only difference between the two routines is that in the one that reports the problem I&#39;ve added my own error reporting overrides&lt;pre class=&quot;block_code&quot;&gt;    $SIG{__WARN__} = &#92;&amp;log_warn;    $SIG{__DIE__}  = &#92;&amp;log_die;&lt;/pre&gt;Can anyone offer me some enlightenment on whats going on?\n    </description>\n</item>\n\n        \n\n<item>\n    <title>ASCII chart that displays jobs that are running and jobs that are queued for a day (wishartz)</title>\n    <link>http://prlmnks.org/html/580735.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580735.html</guid>\n\n    <description>\n        Hi perlmonks, I&#39;m relativley new to perl and I have a problem which I cannot seem to get my head around.  I need to create an ASCII chart, which displays  jobs that are running, or a list of jobs that were queuing at a particular time.  The perl program will read a file which contains the following information:&lt;pre class=&quot;block_code&quot;&gt;Queue  Queued     Start      Endqueuea 1161611468 1161612964 1161657611queueb 1161612303 1161648292 1161674374queuec 1161620067 1161620070 1161651772queued 1161622109 1161622114 1161662607queueb 1161626408 1161626414 1161650011queueb 1161628081 1161628085 1161658563queued 1161629319 1161651912 1161652722queuea 1161629632 1161630900 1161649776queuea 1161630141 1161646804 1161656606queuec 1161632731 1161632986 1161670456queuec 1161633898 1161633929 1161656900queuea 1161635242 1161635247 1161703541queueb 1161635268 1161635275 1161653284queueb 1161635472 1161635479 1161657667queueb 1161636392 1161636399 1161652133queueb 1161636691 1161636698 1161652313queueb 1161636780 1161636785 1161654656queueb 1161638253 1161638258 1161652124queued 1161638845 1161638851 1161652164queueb 1161639646 1161639656 1161656089queuea 1161639811 1161672455 1161672927queued 1161639955 1161639958 1161650644queued 1161640162 1161640165 1161651353queued 1161640340 1161640343 1161650555queued 1161640545 1161640547 1161652089queued 1161641176 1161641181 1161651069queued 1161641484 1161641488 1161652164queued 1161643078 1161643083 1161653237&lt;/pre&gt;I&#39;ve cut the above file down, it would be a lot longer for a whole day.as you can see the times are all in epoch time.  I will need to display a chart, that has the time going down vertically on the chart and the name of the queue at the top.  The problem is I need to be able to set the time unit, for example if I wanted to see how many jobs were queued each hour for a day, I would set the time variable to 60 and it would list every hour of the day down the Y axis with how many jobs were queued and how many jobs were running at that time, as well as the queue the job belonged to.The chart would look like this:&lt;pre class=&quot;block_code&quot;&gt;Date: 26/10/06Time                     Queue      Queued   Running-----------------------------------------------------0:00                     queuea     2        1                         queueb     3        0                         queuec     4        4                         queued     0        6-----------------------------------------------------  1:00                     queuea     0        1                         queueb     0        10                         queuec     5        2                         queued     3        5-----------------------------------------------------&lt;/pre&gt;and so on for the rest of the hours of the day.              I just need to know how to build a program in perl to obtain those results.  I know basic perl, for example I know how to read the file in and pass parameters with use getopt, but im not sure how to go about getting the results. I hope I explained this clearly enough.  Can anybody help please?\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Oracle to MSSQL translation (Tabari)</title>\n    <link>http://prlmnks.org/html/580729.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580729.html</guid>\n\n    <description>\n        I have a series of Oracle PL/SQL code creating procedures and functions which I need to migrate to MSSQL. Apart from that , some DDL statements such as table/column/index creation need to be translated too.Is there some CPAN module or some other starting point for this exercise? The translation need not necessarily be complete in all details, I&#39;d be very glad if the tedious task of doing it all is a bit alleviated \n    </description>\n</item>\n\n        \n\n<item>\n    <title>help needed badly parsing ASN.1 data (Anonymous Monk)</title>\n    <link>http://prlmnks.org/html/580714.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580714.html</guid>\n\n    <description>\n        &lt;p&gt; Hi all,&lt;/p&gt;&lt;p&gt; I am a student working on a project using Perl.&lt;/p&gt;&lt;p&gt; My work is...&lt;/p&gt;&lt;p&gt; I have few hex bytes as inputs for my program. Its a series of hex bytes. for eg: 01 0a ab 2a 1c etc...&lt;/p&gt;&lt;p&gt; Here each byte stands for some representation. I also have a data file in which all the representations are stored. For eg:&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;01 =&gt; &quot;abcd&quot;02 =&gt; &quot;ertg&quot;1c =&gt; &quot;srfrf&quot;etc... &lt;/pre&gt;&lt;p&gt; I have to parse the input hex bytes using this data file and the output should show the parsed input series.&lt;/p&gt;&lt;p&gt; The problem i face in linear search id, there are few hex bytes in which the digits are same but the representations are different. For eg: 01 stands for &lt;tt class=&quot;inline_code&quot;&gt;&quot;abcd&quot;&lt;/tt&gt; and also in some other place it stands for &lt;tt class=&quot;inline_code&quot;&gt;&quot;cdfv&quot;&lt;/tt&gt; also.  &lt;/p&gt;&lt;p&gt; My program follows ASN.1 format. I mean The bytes come in a fashion like TYPE and then LENGTH and then VALUE..&lt;/p&gt;&lt;p&gt; So i have to parse in teh above mentioned manner.  &lt;/p&gt;&lt;p&gt; I am unable to come up with an algorithm for the same as i am very new to Perl programming.  &lt;/p&gt;&lt;p&gt; Also, the data files are very huge and input also is very huge file in which there are several hex bytes.  &lt;/p&gt;&lt;p&gt; So plz can anyone help me in this? &lt;/p&gt;&lt;p&gt;   The raw files(Given as input) looks like the following:&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;  0d a1 0b 02 01 02 02 01 0e 30 03 04 01 93 7f 01 00 8b 2a 1c 0d a2 0b 02 01 03 30 06 02 01 0e 80 01 04 &lt;/pre&gt;&lt;p&gt; The data files in which all possible hex combinations stored look like this&lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt; .......  02 OpCode Tag01 OpCode Length26 Foron0A Reg10B Era10C Act10D De10E Int111 Reg412 Get513 Pro63B Pro73C Uns73D Uns10 Not8 ......&lt;/pre&gt;&lt;p&gt; The above is just a small block of the data file... Here The byte 02 stand for a TYPE&lt;/p&gt;&lt;p&gt; the byte 01 stands for its LENGTH&lt;/p&gt;&lt;p&gt; the the following bytes after that stands for the possible occurences of the VALUES.&lt;/p&gt;&lt;p&gt; But in the input string, according to the LENGTH, the value part occurs. For eg: if LENGTH is 01, only one possible VALUE follows it... else if LENGTH is 02, then 2 VALUES etc...  &lt;/p&gt;&lt;p&gt; The output according to the input shown here shud look like the following:  &lt;/p&gt;&lt;pre class=&quot;block_code&quot;&gt;  0d -&gt; De1a1 -&gt; Comp10b -&gt; Era102 -&gt; Opcode tag01 -&gt; Opcode length*02 -&gt; cdff etc.....   &lt;/pre&gt;&lt;p&gt;    here since the length is 01(where it is starred), one of the possible values only can occur once... i mean each time...&lt;/p&gt;&lt;p&gt; So like this there are many TYPE LENGTH VALUES in the data files... so  hex value in one TLV can have one description and the same hex value in another can have another description..&lt;/p&gt;&lt;p&gt; If i get some logic to search in each TLVs also, its good...&lt;/p&gt;&lt;p&gt; I hope this will explain you better....&lt;/p&gt;&lt;p&gt;&lt;small&gt;20061026 Janitored by [id://5348]: Added formatting, code tags, as per [id://17558]&lt;/small&gt;&lt;/p&gt;&lt;p&gt;&lt;small&gt;2006-10-27 Retitled by [Corion], as per Monastery [id://341118|guidelines] &lt;br /&gt;Original title: &#39;Please help needed badly.....&#39;&lt;/small&gt;&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Writing to a file handle not attached to a file? (Anonymous Monk)</title>\n    <link>http://prlmnks.org/html/580704.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580704.html</guid>\n\n    <description>\n        I&#39;m dealing with an API that takes a file hanlde to write output to as an argument. The problem is, I need the output right after, and I&#39;d rather not go through the trouble of creating a file just to have to read from it and then delete it afterwards. Is there anyway to redirect a file handle to a scalar, so that when it&#39;s written to (e.g., &quot;print $handle $ouptut&quot;), the output ends up in a scalar?\n    </description>\n</item>\n\n        \n\n<item>\n    <title>sftp Windows (cdlvj)</title>\n    <link>http://prlmnks.org/html/580649.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580649.html</guid>\n\n    <description>\n        Topic for discussion:Has anyone gotten sftp module working in the windows environment?\n    </description>\n</item>\n\n        \n\n<item>\n    <title>How To Pass To Another Server and Spawn Another Script (o2bwise)</title>\n    <link>http://prlmnks.org/html/580646.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580646.html</guid>\n\n    <description>\n        Hi,&lt;br&gt;&lt;br&gt;Perhaps this is not an appropriate question, I am really not sure.  But, especially with the many mods out there, my guess is, it is.&lt;br&gt;&lt;br&gt;Anyway, I wrote an html form and perl cgi script.  The next phase of the application needs for another server to have some text, based in part on the form entry, passed to it and to have another script executed (script on the other server side, the side where the text needs to be passed).  This is something I have never done before and I am wondering if there is an approach and (if so) what it is, including mods to want to use.&lt;br&gt;&lt;br&gt;Not sure if it matters, but they are unix servers.&lt;br&gt;&lt;br&gt;Thanks in advance!&lt;br&gt;&lt;br&gt;Tony\n    </description>\n</item>\n\n        \n\n<item>\n    <title>calling scalar from scalar. symlinks (opensourcer)</title>\n    <link>http://prlmnks.org/html/580631.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580631.html</guid>\n\n    <description>\n        this is a package&lt;pre class=&quot;block_code&quot;&gt;package Utils::Agent;sub SetDestination{my $self = shift; my $class = shift;my $construct = &quot;&#92;$&quot;.$class;        # i have lot of destination in different packages        # so i can&#39;t say every time $pkg::destination$Destination = $construct::destination;return $Destination;}&lt;/pre&gt;-----------&lt;/br&gt;&lt;pre class=&quot;block_code&quot;&gt;use Utils::Agent;use Data::Config;use Web::Config;my $config = new Data::Config;my $webConfig = new Web::Config;my $utils = new Utils::Agent;$utils-&gt;SetDestination(ref($config));&lt;/pre&gt;and when i try this i get nothing\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Variable Name Mistery. Who calls? (porta)</title>\n    <link>http://prlmnks.org/html/580619.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580619.html</guid>\n\n    <description>\n        Hi to all. I&#39;m a perl rookie and I started to struggle creating my own modules.I&#39;m having a question that I cannot answer by myself and I ask for your Wisdom to trow some light on my dilemma.&lt;br/&gt;Lets say that I create a module Foo.pm, which has &quot;new&quot; sub.&lt;pre class=&quot;block_code&quot;&gt;package Foo;sub new {    my ($class) = @_;    my $self = {};    bless $self, $class;}&lt;/pre&gt;And, I have my script test.pl which has:&lt;pre class=&quot;block_code&quot;&gt;use Foo;my $one = Foo-&gt;new;my $second = Foo-&gt;new;&lt;/pre&gt;And my question is: Is there a way that I can, inside Foo.pm, &lt;i&gt;know&lt;/i&gt; the name of the variable that I&#39;m using on test.pl?&lt;br/&gt;Lets say I want to create a sub on Foo.pm that just returns the name of $one or $second.&lt;br/&gt;Note that I need this to be able to catch and display my own custom warnings on Foo.pm and I want to give the name of the variable that caused the warning when printing on screen the warning message.&lt;br/&gt;I hope my question is clear enough. I&#39;m not a good english speaker so please excuse any error on the writing.Thanks in advance for any help or comment about this.\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Can you use setsockopt with the strict pragma? (ronniec)</title>\n    <link>http://prlmnks.org/html/580605.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580605.html</guid>\n\n    <description>\n        I&#39;ve re-written a script that tries to waken PC&#39;s on our network (I had to as the Getopt::Std module didn&#39;t work on my office PC!) and it works perfectly well. Unfortunately I like to use the strict pragma in all my scripts and this re-write will not work with this. If I supply AF_INET and STOCK_DGRAM as the level and optname parameters to setsockopt it fails with the old bareword not allowed error. I thought that if I put these values in variables and passed these to my script this would satisfy the strict pragma. Nope I get the following error :-&lt;br&gt;&lt;pre class=&quot;block_code&quot;&gt;Argument &quot;SOCK_DGRAM&quot; isn&#39;t numeric in socket at RC_Bad_wakeonlan.pl line 59, &lt;INF&gt; line 1.Argument &quot;AF_INET&quot; isn&#39;t numeric in socket at RC_Bad_wakeonlan.pl line 59, &lt;INF&gt; line 1.socket :  at RC_Bad_wakeonlan.pl line 59, &lt;INF&gt; line 1.&lt;/pre&gt;The actual code in my script is :- &lt;br&gt;&lt;pre class=&quot;block_code&quot;&gt;my $Domain        = &quot;AF_INET&quot; ;my $Type          = &quot;SOCK_DGRAM&quot; ;my $Level         = &#39;SOL_SOCKET&#39; ;my $Optname       = &#39;SO_BROADCAST&#39; ;## Alocate socket and send packet   $raddr = gethostbyname($ipaddr);   $them = pack_sockaddr_in($port, $raddr);   $proto = getprotobyname(&#39;udp&#39;);   socket(S, $Domain, $Type, $proto) or die &quot;socket : $!&quot;;   setsockopt(S, $Level,$Optname, 1) or die &quot;setsockopt : $!&quot;;   print &quot;Sending magic packet to $ipaddr:$port with $hwaddr&#92;n&quot;;&lt;/pre&gt;&lt;br&gt;I can obviously get this to work without using the strict pragma with this code :-&lt;br&gt;&lt;pre class=&quot;block_code&quot;&gt;socket(S, AF_INET, SOCK_DGRAM, $proto) or die &quot;socket : $!&quot;;setsockopt(S, SOL_SOCKET, SO_BROADCAST, 1) or die &quot;setsockopt : $!&quot;;&lt;/pre&gt;Is my understanding of this wanting? As I say I can get round it but I&#39;m intrigued. I was also looking for the manual entry for setsockopt(2) (as alluded to on page 785 of the &quot;Programming Perl&quot; book but am unable to locate it on any of our servers (the powers that be probably thought these man pages took up too much room) is this documentation available on the net?\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Read Only fields from Tk, neither Text or ROText seem to work. (SkipHuffman)</title>\n    <link>http://prlmnks.org/html/580590.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580590.html</guid>\n\n    <description>\n        &lt;p&gt;I am really confused by this.  I need an interface with some fields read only (labels) and some editable (data).  I cannot seem to prevent editablity.  I have tried two things that I think should work, this:&lt;pre class=&quot;block_code&quot;&gt; $Cell[1] = {                CellType        =&gt; &quot;ROText&quot;,                Row             =&gt; 0,                Col             =&gt; 0,                Contents        =&gt; &quot;Bank&#92;&#92;Branch&#92;&#92;Dept:&quot;                };$Cell[2] = {                CellType        =&gt; &quot;ROText&quot;,                Row             =&gt; 1,                Col             =&gt; 0,                Contents        =&gt; &quot;Requestor:&quot;                };foreach (1 .. $#Cell) {        if (${$Cell[$_]}{&#39;CellType&#39;} == &quot;Text&quot;) {                $cell = $grid-&gt;Text(                                -width          =&gt; 17,                                -height         =&gt; 1,                                )-&gt;grid(                                -row =&gt; ${$Cell[$_]}{&#39;Row&#39;},                                -sticky =&gt; &quot;nsew&quot;,                                -column =&gt; ${$Cell[$_]}{&#39;Col&#39;},                                );        } elsif (${$Cell[$_]}{&#39;CellType&#39;} == &quot;ROText&quot;) {        $cell = $grid-&gt;ROText(                        -width          =&gt; 17,                        -height         =&gt; 1,                        )-&gt;grid(                        -row =&gt; ${$Cell[$_]}{&#39;Row&#39;},                        -sticky =&gt; &quot;nsew&quot;,                        -column =&gt; ${$Cell[$_]}{&#39;Col&#39;},                        );                };        $cell-&gt;Contents(&quot;${$Cell[$_]}{&#39;Contents&#39;}&quot;);};&lt;/pre&gt;&lt;p&gt;And this:&lt;pre class=&quot;block_code&quot;&gt;foreach (1 .. $#Cell) {        if (${$Cell[$_]}{&#39;CellType&#39;} == &quot;Text&quot;) {                $cell = $grid-&gt;Text(                                -width          =&gt; 17,                                -height         =&gt; 1,                                -state          =&gt;&#39;normal&#39;,                                )-&gt;grid(                                -row =&gt; ${$Cell[$_]}{&#39;Row&#39;},                                -column =&gt; ${$Cell[$_]}{&#39;Col&#39;},                                );        } elsif (${$Cell[$_]}{&#39;CellType&#39;} == &quot;ROText&quot;) {                $cell = $grid-&gt;Text(                                -width          =&gt; 17,                                -height         =&gt; 1,                                -state          =&gt;&#39;disabled&#39;,                                )-&gt;grid(                                -row =&gt; ${$Cell[$_]}{&#39;Row&#39;},                                -column =&gt; ${$Cell[$_]}{&#39;Col&#39;},                                );                };        $cell-&gt;Contents(&quot;${$Cell[$_]}{&#39;Contents&#39;}&quot;);};&lt;/pre&gt;&lt;p&gt;Both of these result in fields that can be clicked on and edited. &lt;p&gt;What am I doing wrong?&lt;div class=&quot;pmsig&quot;&gt;&lt;div class=&quot;pmsig-334836&quot;&gt;Skip&lt;/div&gt;&lt;/div&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>printing array ref of hash refs (Anonymous Monk)</title>\n    <link>http://prlmnks.org/html/580586.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580586.html</guid>\n\n    <description>\n        Using Data::Dumper, I have an array refs of hash refs data structure.  Whats the best way to iterate over it and print only the &quot;State&quot; key?  Using Dump I get the following:&lt;pre class=&quot;block_code&quot;&gt;$VAR1 = [          {            &#39;State&#39; =&gt; &#39;Maine&#39;,            &#39;Town&#39; =&gt; &#39;Portland&#39;          },          {            &#39;State&#39; =&gt; &#39;New Hampshire&#39;,            &#39;Town&#39; =&gt; &#39;Concord&#39;          }        ];$VAR1 = [          {            &#39;State&#39; =&gt; &#39;Florida&#39;,            &#39;Town&#39; =&gt; &#39;Jacksonville&#39;          },          {            &#39;State&#39; =&gt; &#39;North Carolina&#39;,            &#39;Town&#39; =&gt; &#39;Waynesville&#39;          }        ];&lt;/pre&gt;Thanks\n    </description>\n</item>\n\n        \n\n<item>\n    <title>regex and string functions help needed. (valavanp)</title>\n    <link>http://prlmnks.org/html/580554.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580554.html</guid>\n\n    <description>\n        i have used the code given by corion for the problem which i faced. I have tested with some values and the results of them are:&lt;pre class=&quot;block_code&quot;&gt;Input     Output Through Code   Expected Output.4ABC      8.432                 11.93544  2A2B2C    8.644                 23.873C        4.5                   4.5ABC       4.322                 2.98386&lt;/pre&gt;Only 1 value is coming correct. Other values are showing some discrepancies. I am attaching the code below:&lt;pre class=&quot;block_code&quot;&gt;$a=&quot;ABC&quot;;$b=length($a);print &quot;$b&#92;n&quot;;for($i=0;$i&lt;$b;$i++){$a=~s/(&#92;d+)(.)/$2 x $1/ge;}print &quot;$a&#92;n&quot;;my %value = (    A =&gt; 2.74,    B =&gt; 2.64,    C =&gt; 2.5,);my %factor = (    A =&gt; 50/100,    B =&gt; 55/100,    C =&gt; 60/100,);my @letters = split //, $a;my $result = 0;my $temp=0;for my $letter (@letters) {   $result=$result + $value{ $letter }* $factor{ $letter };#print &quot;$result&#92;n&quot;;};print $result;&lt;/pre&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Can&#39;t pass parameters in Win32 Perl Scripts (ronniec)</title>\n    <link>http://prlmnks.org/html/580543.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580543.html</guid>\n\n    <description>\n        Hello there monks I&#39;m trying to convert a script that used to use vars/Getopts::Std (I still don&#39;t know why this works on 1 PC and not another, especially when I did exactly the same install of Perl 5.8.7 Build 813 on both PC&#39;s!!!) to use command line parameters. I don&#39;t seem, using my usual method, to be able to pick up any parameters. Is there a different method employed in Win32 Perl from that used on a Unix server? An example of the code follows :- &lt;br&gt;&lt;pre class=&quot;block_code&quot;&gt;## Process the parameters#------------------------#$P_count = scalar @ARGV ;if ($P_count == 1) {   $file_in = $ARGV[0] ;}elsif  ($P_count == 2) {         ($IP_in, $MAC_in) = @ARGV ;}elsif ($P_count == 3) {         ($IP_in, $MAC_in, $Port_in) = @ARGV ;}else{   print &quot;&#92;n&#92;tIncorrect number of parameters supplied - ($P_count)&quot; ;   print &quot;&#92;n&#92;tThere MUST be between 1 &amp; 3 parameters!&#92;n&quot; ;   exit 123 ;}&lt;/pre&gt;On the command line I type the script name and the parameters and my counter always says that there are 0 supplied! eg script.pl(fred), script.pl fred &amp; script &quot;fred&quot; all produce 0 parameters? Is there a difference or have I got a typo or just plain misunderstood something?\n    </description>\n</item>\n\n        \n\n<item>\n    <title>PerlTk: Canvas next to another canvas (Anonymous Monk)</title>\n    <link>http://prlmnks.org/html/580534.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580534.html</guid>\n\n    <description>\n        Dear Monks,&lt;br/&gt;&lt;br/&gt;I would like to have two canvasses side by side. It is easy to do that, but do you see the thin grey line between those two ? How do I get rid of it, or how do I change its color ?&lt;br/&gt;&lt;br/&gt;&lt;pre class=&quot;block_code&quot;&gt;#!/usr/bin/perl -wuse strict;use Tk;my $mw = &#39;MainWindow&#39;-&gt;new();my $cv0 = $mw-&gt;Canvas( qw! -background red !  )             -&gt;pack( qw! -fill both -expand 1 ! );my $cv1 = $mw-&gt;Canvas( qw! -background blue ! )             -&gt;pack( qw! -fill both -expand 1 ! );MainLoop();&lt;/pre&gt;&lt;br/&gt;Any ideas ?&lt;br/&gt;&lt;br/&gt;Thanks,&lt;br/&gt;&lt;br/&gt;Philippe&lt;p&gt;&lt;small&gt;2006-10-25 [id://340870|Retitled] by [planetscape], as per Monastery [id://341118|guidelines] &lt;readmore title=&quot;view votes&quot;&gt;( keep:3 edit:13 reap:0 ) &lt;br /&gt;Original title: &#39;PerlTk: Canvas within canvas question&#39;&lt;/small&gt;&lt;/p&gt;\n    </description>\n</item>\n\n        \n\n<item>\n    <title>Responsive GUI without threads (ruoso)</title>\n    <link>http://prlmnks.org/html/580526.html</link>\n    <guid isPermaLink="true">http://prlmnks.org/html/580526.html</guid>\n\n    <description>\n        &lt;P&gt;In [id://580026], [merlyn] pointed that if &quot;threads&quot; is the answer, you asked the wrong question. For some tasks I do agree, some implementations does exceed the use of threads where forking could solve the same problem without the implicit problems of using threads. But one task still seems to me like one where &quot;threads&quot; is indeed the answer, which is making a responsive Graphical User Interface.&lt;/P&gt;&lt;P&gt;Considering the following code (currently without threads and, like that, unresponsive). How one could make that responsive without threads?&lt;/P&gt;&lt;pre class=&quot;block_code&quot;&gt;#!/usr/bin/perluse strict;use warnings;use Glib qw/TRUE FALSE/;use Gtk2 -init;# Code taken from Perl Gtk2 tutorial with some modifications...# http://gtk2-perl.sourceforge.net/doc/gtk2-perl-tut/sec-Statusbars.htmlmy $window = Gtk2::Window-&gt;new(&#39;toplevel&#39;);$window-&gt;set_size_request(200, 100);$window-&gt;set_title(&quot;gtk2-perl Statusbar Example&quot;);$window-&gt;signal_connect(delete_event =&gt; sub { Gtk2-&gt;main_quit; FALSE; });my $vbox = Gtk2::VBox-&gt;new(FALSE, 1);$window-&gt;add($vbox);$vbox-&gt;show;my $status_bar = Gtk2::Statusbar-&gt;new;$vbox-&gt;pack_start($status_bar, TRUE, TRUE, 0);$status_bar-&gt;show;$status_bar-&gt;{count} = 1;my $context_id = $status_bar-&gt;get_context_id(&quot;Statusbar example&quot;);my $button = Gtk2::Button-&gt;new(&quot;push item&quot;);$button-&gt;signal_connect(clicked =&gt; sub {$status_bar-&gt;push($context_id,                  sprintf(&quot;Starting... Item %d&quot;, $status_bar-&gt;{count}++));                sleep 10; # some lenghty task$status_bar-&gt;pop($context_id);});$vbox-&gt;pack_start($button, TRUE, TRUE, 2);$button-&gt;show;$window-&gt;show;Gtk2-&gt;main;&lt;/pre&gt;&lt;div class=&quot;pmsig&quot;&gt;&lt;div class=&quot;pmsig-463883&quot;&gt;daniel&lt;/div&gt;&lt;/div&gt;\n    </description>\n</item>\n\n    , 1)</channel>\n</rss>\n', '1191850126', 'Guest');
INSERT INTO `rss_info` (`id`, `name`, `link`, `data`, `date`, `sec_lvl`) VALUES
(3, 'Top News -  washingtonpost.com', 'http://www.washingtonpost.com/wp-dyn/rss/linkset/2005/03/24/LI2005032400102.xml', '<rss version="2.0">\n	<channel>HTML_TEXT::html_escape(\n		<title>washingtonpost.com - Today&#39;s Highlights</title>\n		<link>http://www.washingtonpost.com/?nav=rss_email/components</link>\n		<description></description>\n		<language>en-us</language>\n		<ttl>15</ttl>\n		<image>\n			<title>washingtonpost.com</title>\n			<width>140</width>\n			<height>20</height>\n			<link>http://www.washingtonpost.com?nav=rss</link>\n			<url>http://media3.washingtonpost.com/wp-srv/hp/image/wp_web.gif</url>\n		</image>\n		<item>\n			<title>GOP Donors Yet to Open Wallets</title>\n			<link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/16/AR2007101602294.html?nav=rss_email/components</link>\n			<guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/16/AR2007101602294.html?nav=rss_email/components</guid>\n			<pubDate>Wed Oct 17 14:27 EDT 2007</pubDate>\n			<description>More than a third of Bush&#39;s fundraisers have not given to a 2008 presidential candidate.</description>\n			<author>Chris Cillizza and Matthew Mosk</author>\n		</item>\n		<item>\n			<title>Obama&#39;s Message a Hard Sell</title>\n			<link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/16/AR2007101602267.html?nav=rss_email/components</link>\n			<guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/16/AR2007101602267.html?nav=rss_email/components</guid>\n			<pubDate>Wed Oct 17 12:00 EDT 2007</pubDate>\n			<description>Illinois senator champions bipartisanship while campaigning for votes of angry Democrats.</description>\n			<author>Alec MacGillis</author>\n		</item>\n		<item>\n			<title>Mukasey Signals a Fresh Start</title>\n			<link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/17/AR2007101700190.html?nav=rss_email/components</link>\n			<guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/17/AR2007101700190.html?nav=rss_email/components</guid>\n			<pubDate>Wed Oct 17 12:28 EDT 2007</pubDate>\n			<description>Attorney general-designate vows to adhere to law, protect civil liberties of Americans if confirmed.</description>\n			<author>Dan Eggen and Paul Kane</author>\n		</item>\n		<item>\n			<title>D.C. Taxis to Switch to Meters</title>\n			<link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/17/AR2007101700802.html?nav=rss_email/components</link>\n			<guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/17/AR2007101700802.html?nav=rss_email/components</guid>\n			<pubDate>Wed Oct 17 11:59 EDT 2007</pubDate>\n			<description>Mayor Adrian Fenty will sign mayoral order mandating that taxis switch from a zone system.</description>\n			<author>David Nakamura and Sue Anne Pressley Montes</author>\n		</item>\n		<item>\n			<title>Crackdown on Illegal Immigrants Approved</title>\n			<link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/17/AR2007101700234.html?nav=rss_email/components</link>\n			<guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/17/AR2007101700234.html?nav=rss_email/components</guid>\n			<pubDate>Wed Oct 17 06:18 EDT 2007</pubDate>\n			<description>After emotional testimony at marathon session, Prince William supervisors vote to increase enforcement, restrict certain public services.</description>\n			<author>Nick Miroff and Kristen Mack</author>\n		</item>\n	, 1)</channel>\n</rss>\n', '1192656575', 'Guest'),
(4, 'Security Force - News', 'http://www.securityfocus.com/rss/news.xml', '<?xml version="1.0" encoding="iso-8859-1" ?> \n<rss version="2.0"> \n<channel>\n&lt;title&gt;SecurityFocus News&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com&lt;/link&gt;\n&lt;description&gt;\nSecurityFocus is the most comprehensive and trusted source of security\ninformation on the Internet. We are a vendor-neutral site that provides\nobjective, timely and comprehensive security information to all members of\nthe security community, from end users, security hobbyists and network\nadministrators to security consultants, IT Managers, CIOs and CSOs.\n&lt;/description&gt;\n&lt;language&gt;en-us&lt;/language&gt;\n&lt;copyright&gt;Copyright @ 1999-2006 SecurityFocus&lt;/copyright&gt;\n&lt;pubDate&gt;&lt;/pubDate&gt;\n&lt;lastBuildDate&gt;&lt;/lastBuildDate&gt;\n&lt;category&gt;SecurityFocus&lt;/category&gt; \n&lt;image&gt; \n&lt;title&gt;SecurityFocus&lt;/title&gt; \n&lt;url&gt;http://www.securityfocus.com/rss/SFLogo_v1.gif&lt;/url&gt; \n&lt;link&gt;http://www.securityfocus.com&lt;/link&gt; \n&lt;/image&gt;\n\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;News: Senate delays vote on spy bill&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/news/11498?ref=rss&lt;/link&gt;\n&lt;description&gt;Senate delays vote on spy bill&lt;/description&gt;\n&lt;pubDate&gt;2007-12-18&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;News: Researchers reverse Netflix anonymization&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/news/11497?ref=rss&lt;/link&gt;\n&lt;description&gt;Researchers reverse Netflix anonymization&lt;/description&gt;\n&lt;pubDate&gt;2007-12-04&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;News: Group drafts rules to nix credit-card storage &lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/news/11496?ref=rss&lt;/link&gt;\n&lt;description&gt;Group drafts rules to nix credit-card storage &lt;/description&gt;\n&lt;pubDate&gt;2007-11-19&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;News: Task force aims to improve U.S. cybersecurity&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/news/11494?ref=rss&lt;/link&gt;\n&lt;description&gt;Task force aims to improve U.S. cybersecurity&lt;/description&gt;\n&lt;pubDate&gt;2007-11-01&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;Brief: Policy group warns over travel card&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/brief/653?ref=rss&lt;/link&gt;\n&lt;description&gt;Policy group warns over travel card&lt;/description&gt;\n&lt;pubDate&gt;2008-01-02&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;Brief: Reported data leaks reach high in 2007&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/brief/652?ref=rss&lt;/link&gt;\n&lt;description&gt;Reported data leaks reach high in 2007&lt;/description&gt;\n&lt;pubDate&gt;2007-12-31&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;Brief: Microsoft offers peek into &quot;juicy&quot; flaw details&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/brief/651?ref=rss&lt;/link&gt;\n&lt;description&gt;Microsoft offers peek into &quot;juicy&quot; flaw details&lt;/description&gt;\n&lt;pubDate&gt;2007-12-28&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;Brief: Fake codecs continue to plague searches&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/brief/650?ref=rss&lt;/link&gt;\n&lt;description&gt;Fake codecs continue to plague searches&lt;/description&gt;\n&lt;pubDate&gt;2007-12-27&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;News: Bot master owns up to 250,000 zombie PCs&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/news/11495?ref=rss&lt;/link&gt;\n&lt;description&gt;Bot master owns up to 250,000 zombie PCs&lt;/description&gt;\n&lt;pubDate&gt;2007-11-11&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;News: eBay users&#39; details posted to anti-fraud forum&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/news/11490?ref=rss&lt;/link&gt;\n&lt;description&gt;eBay users&#39; details posted to anti-fraud forum&lt;/description&gt;\n&lt;pubDate&gt;2007-09-26&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;News: NBC muckraker outed at DEFCON&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/news/11479?ref=rss&lt;/link&gt;\n&lt;description&gt;NBC muckraker outed at DEFCON&lt;/description&gt;\n&lt;pubDate&gt;2007-08-04&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;News: Student detained after attacks on Estonian websites&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/news/11464?ref=rss&lt;/link&gt;\n&lt;description&gt;Student detained after attacks on Estonian websites&lt;/description&gt;\n&lt;pubDate&gt;2007-05-07&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;News: Nigeria enlists Microsoft to fight spam scammers&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/elsewhere/41210?ref=rss&lt;/link&gt;\n&lt;description&gt;Nigeria enlists Microsoft to fight spam scammers&lt;/description&gt;\n&lt;pubDate&gt;2005-10-14&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;News: Cross-Site Scripting Worm Hits MySpace&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/elsewhere/41211?ref=rss&lt;/link&gt;\n&lt;description&gt;Cross-Site Scripting Worm Hits MySpace&lt;/description&gt;\n&lt;pubDate&gt;2005-10-14&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;News: Another data security bill in the works&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/elsewhere/41207?ref=rss&lt;/link&gt;\n&lt;description&gt;Another data security bill in the works&lt;/description&gt;\n&lt;pubDate&gt;2005-10-05&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;News: FTC sues company over spyware&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/elsewhere/41208?ref=rss&lt;/link&gt;\n&lt;description&gt;FTC sues company over spyware&lt;/description&gt;\n&lt;pubDate&gt;2005-10-05&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;Infocus: Proactively Managing Security Risk&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/infocus/1896?ref=rss&lt;/link&gt;\n&lt;description&gt;Proactively Managing Security Risk&lt;/description&gt;\n&lt;pubDate&gt;&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;Infocus: Aspect-Oriented Programming and Security&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/infocus/1895?ref=rss&lt;/link&gt;\n&lt;description&gt;Aspect-Oriented Programming and Security&lt;/description&gt;\n&lt;pubDate&gt;&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;Infocus: Passive Network Analysis&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/infocus/1894?ref=rss&lt;/link&gt;\n&lt;description&gt;Passive Network Analysis&lt;/description&gt;\n&lt;pubDate&gt;&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;Infocus: Windows Anti-Debug Reference&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/infocus/1893?ref=rss&lt;/link&gt;\n&lt;description&gt;Windows Anti-Debug Reference&lt;/description&gt;\n&lt;pubDate&gt;&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;Federico Biancuzzi: Real Flaws in Virtual Worlds&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/columnists/461?ref=rss&lt;/link&gt;\n&lt;description&gt;Real Flaws in Virtual Worlds&lt;/description&gt;\n&lt;pubDate&gt;&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;Mark Rasch: Copyrights and Wrongs&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/columnists/460?ref=rss&lt;/link&gt;\n&lt;description&gt;Copyrights and Wrongs&lt;/description&gt;\n&lt;pubDate&gt;&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;Federico Biancuzzi: The Man in the Machine&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/columnists/459?ref=rss&lt;/link&gt;\n&lt;description&gt;The Man in the Machine&lt;/description&gt;\n&lt;pubDate&gt;&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;Mark Rasch: Aye, Robot, or Can Computers Contract?&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/columnists/458?ref=rss&lt;/link&gt;\n&lt;description&gt;Aye, Robot, or Can Computers Contract?&lt;/description&gt;\n&lt;pubDate&gt;&lt;/pubDate&gt;\n&lt;/item&gt;\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n&lt;item&gt;\n&lt;title&gt;More rss feeds from SecurityFocus&lt;/title&gt;\n&lt;link&gt;http://www.securityfocus.com/rss/index.shtml&lt;/link&gt;\n&lt;description&gt;News, Infocus, Columns, Vulnerabilities, Bugtraq ...&lt;/description&gt;\n&lt;/item&gt;\n</channel> \n</rss> \n\n\n', '1199322583', 'Guest'),
(2, 'Science - washingtonpost.com', 'http://www.washingtonpost.com/wp-dyn/rss/nation/science/index.xml', '<?xml version="1.0" encoding="iso-8859-1"?><rss version="2.0">\n<channel>HTML_TEXT::html_escape(<title>washingtonpost.com - Science News and Headlines From The Washington Post</title><link>http://www.washingtonpost.com/wp-dyn/content/nation/science/index.html?nav=rss_nation/science</link><description>Science news from The Washington Post.  Read about the latest breakthroughs in technology,medicine and communications.</description><language>en-us</language><ttl>30</ttl><image><title>washingtonpost.com</title><width>140</width><height>20</height><link>http://www.washingtonpost.com?nav=rss</link><url>http://media3.washingtonpost.com/wp-srv/hp/image/wp_web.gif </url></image>\n<item><title> Science: Sonar and Beaked Whales </title><link>http://www.washingtonpost.com/wp-dyn/content/discussion/2007/10/12/DI2007101201169.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/discussion/2007/10/12/DI2007101201169.html?nav=rss_nation/science</guid>\n<pubDate>Mon, 15 Oct 2007 11:00:00 EDT</pubDate><description> Washington Post staff writer Marc Kaufman discusses a Navy project to learn how sonar and other loud ocean noises affect the deep-diving beaked whale. </description><author>Marc Kaufman</author><category>Science:</category><category>Sonar</category><category>and</category><category>Beaked</category><category>Whales</category><category></category></item>\n<item><title> SCIENCE NOTEBOOK </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/14/AR2007101400910.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/14/AR2007101400910.html?nav=rss_nation/science</guid>\n<pubDate>Mon, 15 Oct 2007 00:00:00 EDT</pubDate><description> Charities may want to add a pair of blinking eyes to their Web-based pleas for donations. That&#39;s one implication of new research into the evolutionary roots of generosity. </description><author>Post</author><category>SCIENCE</category><category>NOTEBOOK</category><category>Africa</category><category>Bob Dinneen</category><category>Brian Hare</category><category>Chesapeake Bay</category><category>Christopher Lee</category><category>Leipzig</category><category>Lucy E. King</category><category>Rick Weiss</category><category>Rob Stein</category><category>Terence Burnham</category><category>Germany</category><category>Harvard Business School</category><category>Harvard University</category><category>Kenya</category><category>Massachusetts Institute of Technology</category><category>Max Planck Institute for Evolutionary Anthropology</category><category>Renewable Fuels Association</category><category>The National Research Council</category><category>University of Oxford</category></item>\n<item><title> Going Against Bush, NIH Director Urges Expanded Stem Cell Research </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/16/AR2007101601933.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/16/AR2007101601933.html?nav=rss_nation/science</guid>\n<pubDate>Wed, 17 Oct 2007 00:00:00 EDT</pubDate><description> In a magazine arriving in mailboxes this week, National Institutes of Health Director Elias A. Zerhouni suggests that embryonic stem cell research should be expanded. </description><author>Mary Ann Akers</author><category>Going</category><category>Against</category><category>Bush,</category><category>NIH</category><category>Director</category><category>Urges</category><category>Expanded</category><category>Stem</category><category>Cell</category><category>Research</category><category>Elias A. Zerhouni</category><category>George W. Bush</category><category>National Institutes of Health</category><category>National Library of Medicine</category><category>Congressional Quarterly Inc.</category><category>John Burklow</category><category>The White House</category><category>Tony Fratto</category></item>\n<item><title> FINDINGS </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/15/AR2007101501766.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/15/AR2007101501766.html?nav=rss_nation/science</guid>\n<pubDate>Tue, 16 Oct 2007 00:00:00 EDT</pubDate><description> Death rates from cancer dropped more than 2 percent per year from 2002 through 2004, accelerating a trend that began in the early 1990s, new data show.<br clear="all"><a href="http://ad.doubleclick.net/jump/wpni.rss/nation/science;pos=ad9;tile=9;ad=rss;sz=479x40;ord=421711751980" target="_blank"><img src="http://ad.doubleclick.net/ad/wpni.rss/nation/science;pos=ad9;tile=9;ad=rss;sz=479x40;ord=421711751980" border="0" vspace="5"></a> </description><author>Post</author><category>FINDINGS</category><category>Medtronic Inc.</category><category>Food and Drug Administration</category><category>Daniel Schultz</category><category>American Cancer Society</category><category>Centers for Disease Control and Prevention</category><category>National Cancer Institute</category><category>North American Association of Central Cancer Registries</category></item>\n<item><title> When Immigration Goes Up, Prices Go Down </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/14/AR2007101400993.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/14/AR2007101400993.html?nav=rss_nation/science</guid>\n<pubDate>Mon, 15 Oct 2007 00:00:00 EDT</pubDate><description> Last week, a gallon of gas at an Exxon station in the tony suburb of Bethesda cost $2.99. </description><author>Shankar Vedantam</author><category>When</category><category>Immigration</category><category>Goes</category><category>Up,</category><category>Prices</category><category>Go</category><category>Down</category><category>Exxon Mobil Corporation</category><category>Saul Lach</category><category>Bethesda</category><category>Aviv Nevo</category><category>Israel</category><category>U.S.S.R.</category><category>Maryland</category><category>Virginia</category><category>Evanston (Illinois)</category><category>Joshua Angrist</category><category>Montgomery</category><category>Prince William of Wales</category><category>Stafford</category><category>Hebrew University of Jerusalem</category><category>Massachusetts Institute of Technology</category><category>Northwestern University</category><category>United States</category><category>Loudoun County</category><category>Washington, DC</category></item>\n<item><title> Sounding Out Whales for Clues to Sonar&#39;s Effects </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/14/AR2007101400857.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/14/AR2007101400857.html?nav=rss_nation/science</guid>\n<pubDate>Mon, 15 Oct 2007 00:00:00 EDT</pubDate><description> Twenty-two varieties of beaked whales roam the seas, diving as deep as a mile to feed on bottom-dwelling squid and small fish on the dark ocean floor. Shy and seldom seen by man, they are among the least understood large creatures on Earth. </description><author>Marc Kaufman</author><category>Sounding</category><category>Out</category><category>Whales</category><category>for</category><category>Clues</category><category>to</category><category>Sonar&#39;s</category><category>Effects</category><category>U.S. National Oceanic and Atmospheric Administration</category><category>Brandon Southall</category><category>Bahamas</category><category>Canary Islands</category><category>Andros Island</category><category>Blainville</category><category>Michael Jasny</category><category>Peter Tyack</category><category>Evaluation Center</category><category>National Resources Defense Council</category><category>Woods Hole Oceanographic Institution</category></item>\n<item><title> FINDINGS </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/11/AR2007101102264.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/11/AR2007101102264.html?nav=rss_nation/science</guid>\n<pubDate>Fri, 12 Oct 2007 00:00:00 EDT</pubDate><description> Women are just as likely to get an abortion in countries where it is outlawed as where it is legal, researchers reported today. </description><author>Post</author><category>FINDINGS</category><category>Kentucky</category><category>India</category><category>Centers for Disease Control and Prevention</category><category>Hawaii</category><category>Nevada</category><category>Abhijit Majumder</category><category>Eastern Europe</category><category>Europe</category><category>Gilda Sedgh</category><category>North America</category><category>Western Europe</category><category>Guttmacher Institute</category><category>Indian Institute of Technology, Kanpur</category><category>The Lancet</category><category>United States</category><category>World Health Organization</category></item>\n<item><title> Infant Cold Medications Pulled From Drugstores </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/11/AR2007101100853.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/11/AR2007101100853.html?nav=rss_nation/science</guid>\n<pubDate>Fri, 12 Oct 2007 00:00:00 EDT</pubDate><description> Drugstores began clearing their shelves of over-the-counter cough and cold medicine designed for infants yesterday after leading manufacturers announced they were withdrawing the products amid rising concerns about the safety of the popular remedies.<br clear="all"><a href="http://ad.doubleclick.net/jump/wpni.rss/nation/science;pos=ad9;tile=9;ad=rss;sz=479x40;ord=421711752833" target="_blank"><img src="http://ad.doubleclick.net/ad/wpni.rss/nation/science;pos=ad9;tile=9;ad=rss;sz=479x40;ord=421711752833" border="0" vspace="5"></a> </description><author>Rob Stein</author><category>Infant</category><category>Cold</category><category>Medications</category><category>Pulled</category><category>From</category><category>Drugstores</category><category>Joshua M. Sharfstein</category><category>Food and Drug Administration</category><category>Tylenol</category><category>ACNielsen Corporation</category><category>Baltimore</category><category>Dimetapp</category><category>Robitussin</category><category>McNeil-PPC Inc.</category><category>Novartis AG</category><category>Wal-Mart Stores Inc.</category><category>Boston</category><category>Daniel J. Levy</category><category>Joel Schiffenbauer</category><category>Owings Mills</category><category>American Academy of Pediatrics</category><category>Centers for Disease Control and Prevention</category><category>Consumer Healthcare Products Association</category><category>United States</category><category>New York</category></item>\n<item><title> FINDINGS </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/10/AR2007101002727.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/10/AR2007101002727.html?nav=rss_nation/science</guid>\n<pubDate>Thu, 11 Oct 2007 00:00:00 EDT</pubDate><description> Children who regularly see doctors get the appropriate routine care less than half the time -- whether it is preschool shots or chlamydia tests for teenage girls, according to the first comprehensive look at children&#39;s health-care quality in which nearly all 1,536 children in the nationwide study... </description><author>Post</author><category>FINDINGS</category><category>Taxol</category><category>Nathan Gillett</category><category>The New England Journal of Medicine</category><category>Herceptin</category><category>Nature Publishing Group</category><category>Daniel Hayes</category><category>Australia</category><category>RAND Corporation</category><category>Seattle Children&#39;s Hospital</category><category>South Africa</category><category>United Kingdom</category><category>United States</category><category>University of East Anglia</category><category>University of Michigan</category></item>\n<item><title> Chemist Wins Nobel For Catalyst Studies </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/10/AR2007101000149.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/10/AR2007101000149.html?nav=rss_nation/science</guid>\n<pubDate>Thu, 11 Oct 2007 00:00:00 EDT</pubDate><description> German scientist Gerhard Ertl got the birthday present of his dreams yesterday: the Nobel Prize in chemistry. </description><author>Rick Weiss</author><category>Chemist</category><category>Wins</category><category>Nobel</category><category>For</category><category>Catalyst</category><category>Studies</category><category>Gerhard Ertl</category><category>Bruce E. Bursten</category><category>American Chemical Society</category><category>Berlin</category><category>Katie Hunt</category><category>Munich</category><category>Stockholm</category><category>Royal Swedish Academy of Sciences</category><category>University of Tennessee</category><category>Washington, DC</category></item>\n<item><title> Data Storage Discovery Earns Nobel </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/09/AR2007100900245.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/09/AR2007100900245.html?nav=rss_nation/science</guid>\n<pubDate>Wed, 10 Oct 2007 00:00:00 EDT</pubDate><description> The Royal Swedish Academy of Sciences yesterday honored two scientists whose discovery revolutionized digital data storage, awarding the 2007 Nobel Prize in physics for work that allows millions to sway to music on their iPods and to store a lifetime&#39;s photographs on palm-size devices. </description><author>Shankar Vedantam</author><category>Data</category><category>Storage</category><category>Discovery</category><category>Earns</category><category>Nobel</category><category>Apple iPod</category><category>Peter Gruenberg</category><category>Albert Fert</category><category>Mark Dean</category><category>Stuart Parkin</category><category>France</category><category>IBM Corporation</category><category>Silicon Valley</category><category>Stockholm</category><category>Xiaoguang Zhang</category><category>Germany</category><category>Tennessee</category><category>Venkatesh Narayanamurti</category><category>Czech Republic</category><category>Harvard University</category><category>Institute of Solid State Research</category><category>Oak Ridge National Laboratory</category><category>Royal Swedish Academy of Sciences</category><category>University of Paris-Sud</category></item>\n<item><title> Dragonfly or Insect Spy? Scientists at Work on Robobugs. </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/08/AR2007100801434.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/08/AR2007100801434.html?nav=rss_nation/science</guid>\n<pubDate>Tue, 09 Oct 2007 00:00:00 EDT</pubDate><description> Vanessa Alarcon saw them while working at an antiwar rally in Lafayette Square last month.<br clear="all"><a href="http://ad.doubleclick.net/jump/wpni.rss/nation/science;pos=ad9;tile=9;ad=rss;sz=479x40;ord=421711754329" target="_blank"><img src="http://ad.doubleclick.net/ad/wpni.rss/nation/science;pos=ad9;tile=9;ad=rss;sz=479x40;ord=421711754329" border="0" vspace="5"></a> </description><author>Rick Weiss</author><category>Dragonfly</category><category>or</category><category>Insect</category><category>Spy?</category><category>Scientists</category><category>at</category><category>Work</category><category>on</category><category>Robobugs.</category><category>Ronald Fearing</category><category>Central Intelligence Agency</category><category>Defense Advanced Research Projects Agency</category><category>U.S. Department of Defense</category><category>Washington, DC</category><category>Amit Lal</category><category>Bernard Crane</category><category>Jerry Louton</category><category>Tom Ehrhard</category><category>Vanessa Alarcon</category><category>U.S. Department of Homeland Security</category><category>Intel Pentium Processors</category><category>Berkeley</category><category>Burlington (Massachusetts)</category><category>Gary Anderson</category><category>George Little</category><category>Joe Dyer</category><category>Mara Verheyden-Hilliard</category><category>Robert Michelson</category><category>Robert Wood</category><category>California Institute of Technology</category><category>Center for Strategic & Budgetary Assessments</category><category>Cornell University</category><category>Federal Bureau of Investigation</category><category>Georgia Institute of Technology</category><category>Harvard University</category><category>National Museum of Natural History</category><category>Office of Research and Development</category><category>Office of the Director of National Intelligence</category><category>Republican National Committee</category><category>Switzerland</category><category>U.S. Army Command and General Staff College</category><category>U.S. Naval Air Systems Command</category><category>U.S. Secret Service</category><category>United States</category><category>University of California-Berkeley</category><category>Vanderbilt University</category><category>New York</category></item>\n<item><title> From Child on Street to Nobel Laureate </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/08/AR2007100800252.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/08/AR2007100800252.html?nav=rss_nation/science</guid>\n<pubDate>Tue, 09 Oct 2007 00:00:00 EDT</pubDate><description> Mario R. Capecchi&#39;s earliest memories are of his mother being arrested by the Nazis. </description><author>Christopher Lee</author><category>From</category><category>Child</category><category>on</category><category>Street</category><category>to</category><category>Nobel</category><category>Laureate</category><category>Mario R. Capecchi</category><category>Martin J. Evans</category><category>Ray White</category><category>Dachau</category><category>Lucy Ramberg</category><category>Harvard University</category><category>United States</category><category>Ohio</category><category>Wales</category><category>The Salt Lake Tribune</category><category>Edward Ramberg</category><category>Italian Alps</category><category>James D. Watson</category><category>Madonna Lebling</category><category>Rick Weiss</category><category>Rome</category><category>Salt Lake City</category><category>Antioch College</category><category>Bucks County</category><category>Cardiff University</category><category>Germany</category><category>Japan</category><category>National Institutes of Health</category><category>The Gestapo</category><category>United Kingdom</category><category>University of California-San Francisco</category><category>University of North Carolina at Chapel Hill</category><category>University of Utah</category></item>\n<item><title> Smog Traps Calif. Community </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/07/AR2007100701223.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/07/AR2007100701223.html?nav=rss_nation/science</guid>\n<pubDate>Mon, 08 Oct 2007 00:00:00 EDT</pubDate><description> ARVIN, Calif. -- This small farming community at the southern end of the San Joaquin Valley has a distinction that often brings tears to the eyes of its residents. It is the smoggiest place in the United States. </description><author>Sonya Geis</author><category>Smog</category><category>Traps</category><category>Calif.</category><category>Community</category><category>Los Angeles</category><category>Seyed Sadredein</category><category>San Joaquin Valley</category><category>Ana Parra</category><category>U.S. Environmental Protection Agency</category><category>Diana Parra</category><category>Maria Corona</category><category>Raji Brar</category><category>Ronnie Pasiliao</category><category>San Francisco Bay Area</category><category>Arvin Community Health Center</category><category>Kern County</category><category>United States</category></item>\n<item><title> The Inconsistent Waffle Factor </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/07/AR2007100701112.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/07/AR2007100701112.html?nav=rss_nation/science</guid>\n<pubDate>Mon, 08 Oct 2007 00:00:00 EDT</pubDate><description> If you were Barack Obama, you would be scratching your head, too. </description><author>Shankar Vedantam</author><category>The</category><category>Inconsistent</category><category>Waffle</category><category>Factor</category><category>Barack Obama</category><category>Hillary Clinton</category><category>Iraq</category><category>Hillary Hoffman</category><category>George W. Bush</category><category>John Kerry</category><category>Illinois</category><category>Cynthia Nordstrom</category><category>Edwardsville</category><category>Michael Tomz</category><category>Susan Thomas</category><category>Southern Illinois University Carbondale</category><category>Stanford University</category><category>United States</category><category>University of Miami</category><category>Nordstrom Inc.</category></item>\n<item><title> SCIENCE NOTEBOOK </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/07/AR2007100700991.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/07/AR2007100700991.html?nav=rss_nation/science</guid>\n<pubDate>Mon, 08 Oct 2007 00:00:00 EDT</pubDate><description> It&#39;s well known that events that occur during times of intense happiness, anger or fear often remain most vivid in our memories -- far more likely to be recalled than less emotionally charged events. Now researchers think they have uncovered why: A hormone released during high emotion enhances the...<br clear="all"><a href="http://ad.doubleclick.net/jump/wpni.rss/nation/science;pos=ad9;tile=9;ad=rss;sz=479x40;ord=421711759851" target="_blank"><img src="http://ad.doubleclick.net/ad/wpni.rss/nation/science;pos=ad9;tile=9;ad=rss;sz=479x40;ord=421711759851" border="0" vspace="5"></a> </description><author>Post</author><category>SCIENCE</category><category>NOTEBOOK</category><category>Galapagos Islands</category><category>Nancy L. McElwain</category><category>Marc Kaufman</category><category>Maren N. Vitousek</category><category>Richard Huganir</category><category>Rick Weiss</category><category>Rob Stein</category><category>Santa Fe</category><category>Biology Letters</category><category>Johns Hopkins Medicine</category><category>Princeton University</category><category>The Royal Society</category><category>United Kingdom</category><category>University of Bath</category><category>University of Illinois at Urbana-Champaign</category></item>\n<item><title> Drone, Sensors May Open Path Into Eye of Storm </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/07/AR2007100700971.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/07/AR2007100700971.html?nav=rss_nation/science</guid>\n<pubDate>Mon, 08 Oct 2007 00:00:00 EDT</pubDate><description> The 2007 hurricane season has been relatively quiet, but whenever the next big cyclone spirals into life in the open ocean and takes aim at the U.S. coast, Joseph Cione will be ready to plunge into it. </description><author>Christopher Lee</author><category>Drone,</category><category>Sensors</category><category>May</category><category>Open</category><category>Path</category><category>Into</category><category>Eye</category><category>of</category><category>Storm</category><category>Joseph Cione</category><category>Kirt Squires</category><category>U.S. National Oceanic and Atmospheric Administration</category><category>Aerosonde Pty. Ltd.</category><category>NASA</category><category>Florida</category><category>Key West</category><category>Miami</category><category>Wallops Island</category><category>American Meteorological Society</category><category>National Hurricane Center</category><category>National Weather Service</category><category>Tropical Storm Ophelia</category><category>United States</category><category>University of Hawaii System</category></item>\n<item><title> Real Hope in a Virtual World </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/05/AR2007100502391.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/05/AR2007100502391.html?nav=rss_nation/science</guid>\n<pubDate>Sat, 06 Oct 2007 00:00:00 EDT</pubDate><description> After suffering a devastating stroke four years ago, Susan Brown was left in a wheelchair with little hope of walking again. Today, the 57-year-old Richmond woman has regained use of her legs and has begun to reclaim her life, thanks in part to encouragement she says she gets from an online "virt... </description><author>Rob Stein</author><category>Real</category><category>Hope</category><category>in</category><category>a</category><category>Virtual</category><category>World</category><category>Second Life</category><category>Susan Brown</category><category>Roberto Salvatierra</category><category>Thomas H. Murray</category><category>Centers for Disease Control and Prevention</category><category>Lawrence Whitehurst</category><category>Stephanie Koslow</category><category>United Kingdom</category><category>New Jersey</category><category>Brenda Wiederhold</category><category>Culpeper (Virginia)</category><category>Elena Mangan</category><category>John Suler</category><category>Kat Klata</category><category>Kathie Olson</category><category>Marie Hightower</category><category>Poughkeepsie</category><category>Richard Bedrosian</category><category>Richmond</category><category>Salt Lake City</category><category>San Diego</category><category>American Cancer Society</category><category>Harvard Medical School</category><category>Hastings Center</category><category>Iraq</category><category>March of Dimes Birth Defects Foundation</category><category>National Defense University</category><category>National Institutes of Health</category><category>National Library of Medicine</category><category>National Science Foundation</category><category>Rider University</category><category>Second Life Medical Association</category><category>Stanford University</category><category>University of California System</category><category>University of Massachusetts Amherst</category><category>University of Southern California</category><category>Washington, DC</category></item>\n<item><title> Probe Into Tainted Rice Ends </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/05/AR2007100502176.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/05/AR2007100502176.html?nav=rss_nation/science</guid>\n<pubDate>Sat, 06 Oct 2007 00:00:00 EDT</pubDate><description> More than 14 months after the Agriculture Department began an investigation into how the U.S. supply of long-grain rice became tainted with an unapproved genetically engineered variety -- an event that continues to disrupt U.S. exports -- the government announced yesterday that it could not figure... </description><author>Rick Weiss</author><category>Probe</category><category>Into</category><category>Tainted</category><category>Rice</category><category>Ends</category><category>Bayer AG</category><category>Animal and Plant Health Inspection Service</category><category>United States</category><category>Bayer CropScience AG</category><category>U.S. Department of Agriculture</category><category>Cindy Smith</category><category>North Carolina</category><category>Puerto Rico</category><category>Brussels</category><category>Margaret Mellon</category><category>Research Triangle Park</category><category>E.U.&#39;s European Commission</category><category>European Union</category><category>Louisiana State University</category><category>Russia</category><category>Union of Concerned Scientists</category></item>\n<item><title> Scientists See Politics in Spotted Owl Plan </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/02/AR2007100202031.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/02/AR2007100202031.html?nav=rss_nation/science</guid>\n<pubDate>Wed, 03 Oct 2007 00:00:00 EDT</pubDate><description> More than 100 independent scientists suggested yesterday that political pressure may have led federal officials to water down protections for the northern spotted owl in a recently revised recovery plan for the threatened bird.<br clear="all"><a href="http://ad.doubleclick.net/jump/wpni.rss/nation/science;pos=ad9;tile=9;ad=rss;sz=479x40;ord=421711801160" target="_blank"><img src="http://ad.doubleclick.net/ad/wpni.rss/nation/science;pos=ad9;tile=9;ad=rss;sz=479x40;ord=421711801160" border="0" vspace="5"></a> </description><author>Juliet Eilperin</author><category>Scientists</category><category>See</category><category>Politics</category><category>in</category><category>Spotted</category><category>Owl</category><category>Plan</category><category>David Wesley</category><category>U.S. Fish and Wildlife Service</category><category>Dirk A. Kempthorne</category><category>Jay Inslee</category><category>American Ornithologists&#39; Union</category><category>Society for Conservation Biology</category><category>U.S. Department of the Interior</category><category>U.S. Government Accountability Office</category><category>U.S. House Committee on Natural Resources</category><category>Washington, DC</category></item>\n<item><title> 50 Years Ago, Launch of a New World </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/01/AR2007100101678.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/01/AR2007100101678.html?nav=rss_nation/science</guid>\n<pubDate>Tue, 02 Oct 2007 00:00:00 EDT</pubDate><description> News flash, Oct. 4, 1957: The Russians have launched a tiny moon. It is an artificial satellite, 184 pounds, a pumpkin-size sphere polished to a shine. The Russians call it Sputnik. As it passes over the United States it transmits a signal -- surely the most ominous beep-beep-beep that any Americ... </description><author>Joel Achenbach</author><category>50</category><category>Years</category><category>Ago,</category><category>Launch</category><category>of</category><category>a</category><category>New</category><category>World</category><category>United States</category><category>Dwight D. Eisenhower</category><category>Wernher von Braun</category><category>Ernst Stuhlinger</category><category>Lyndon Johnson</category><category>Matthew Brzezinski</category><category>Roger Launius</category><category>Sergei Khrushchev</category><category>U.S.S.R.</category><category>Google Maps</category><category>Alabama</category><category>CBS Corporation</category><category>Barcelona</category><category>Huntsville</category><category>International Space Station</category><category>John Medaris</category><category>Jonathan McDowell</category><category>Julian Davidson</category><category>Kiev</category><category>Konrad Dannenberg</category><category>Mike Mansfield</category><category>Nikita Khrushchev</category><category>Paul Dickson</category><category>William Ewald</category><category>Army Ballistic Missile Agency</category><category>Brown University</category><category>Defense Advanced Research Projects Agency</category><category>Harvard-Smithsonian Center for Astrophysics</category><category>NASA</category><category>Smithsonian National Air and Space Museum</category><category>The Gillette Company</category></item>\n<item><title> FINDINGS </title><link>http://www.washingtonpost.com/wp-dyn/content/article/2007/10/01/AR2007100101776.html?nav=rss_nation/science</link><guid isPermaLink="true">http://www.washingtonpost.com/wp-dyn/content/article/2007/10/01/AR2007100101776.html?nav=rss_nation/science</guid>\n<pubDate>Tue, 02 Oct 2007 00:00:00 EDT</pubDate><description> Elderly people who see themselves as self-disciplined, organized achievers have a lower risk of developing Alzheimer&#39;s disease than people who are less conscientious. </description><author>Post</author><category>FINDINGS</category><category>Food and Drug Administration</category><category>United States</category><category>Fosamax</category><category>Reclast</category><category>Andrew Wilson</category><category>Kathleen Merikangas</category><category>Robert Wilson</category><category>Harvard Medical School</category><category>National Academy of Sciences</category><category>National Institute of Mental Health</category><category>Peru</category><category>Rush University Medical Center</category><category>The New England Journal of Medicine</category><category>United Kingdom</category><category>University of Bradford</category></item>\n, 1)</channel></rss>\n', '1192656591', 'Guest'),
(5, 'Security Force - Vulnerabilities', 'http://www.securityfocus.com/rss/vulnerabilities.xml', '<?xml version="1.0" encoding="iso-8859-1" ?> \n<rss version="2.0"> \n<channel>\n<title>SecurityFocus Vulnerabilities</title>\n<link>http://www.securityfocus.com</link>\n<description>\nSecurityFocus is the most comprehensive and trusted source of security\ninformation on the Internet. We are a vendor-neutral site that provides\nobjective, timely and comprehensive security information to all members of\nthe security community, from end users, security hobbyists and network\nadministrators to security consultants, IT Managers, CIOs and CSOs.\n</description>\n<language>en-us</language>\n<copyright>Copyright @ 1999-2006 SecurityFocus</copyright>\n<pubDate></pubDate>\n<lastBuildDate></lastBuildDate>\n<category>SecurityFocus</category> \n<image> \n<title>SecurityFocus</title> \n<url>http://www.securityfocus.com/rss/SFLogo_v1.gif</url> \n<link>http://www.securityfocus.com</link> \n</image>\n\n\n\n\n\n<item>\n<title>Vuln: Multiple Vendor DNS Protocol Insufficient Transaction ID Randomization DNS Spoofing Vulnerability</title>\n<link>http://www.securityfocus.com/bid/30131</link>\n<description> Multiple Vendor DNS Protocol Insufficient Transaction ID Randomization DNS Spoofing Vulnerability </description>\n<pubDate>2008-08-09</pubDate>\n</item>\n\n\n\n\n<item>\n<title>Vuln: Adobe Presenter Multiple Cross Site Scripting Vulnerabilities</title>\n<link>http://www.securityfocus.com/bid/30615</link>\n<description> Adobe Presenter Multiple Cross Site Scripting Vulnerabilities </description>\n<pubDate>2008-08-09</pubDate>\n</item>\n\n\n\n\n<item>\n<title>Vuln: HP-UX System Administration Manager NFS Configuration Security Bypass Vulnerability</title>\n<link>http://www.securityfocus.com/bid/30449</link>\n<description> HP-UX System Administration Manager NFS Configuration Security Bypass Vulnerability </description>\n<pubDate>2008-08-08</pubDate>\n</item>\n\n\n\n\n<item>\n<title>Vuln: rdesktop Multiple Remote Memory Corruption Vulnerabilities</title>\n<link>http://www.securityfocus.com/bid/29097</link>\n<description> rdesktop Multiple Remote Memory Corruption Vulnerabilities </description>\n<pubDate>2008-08-08</pubDate>\n</item>\n\n\n\n\n\n\n<item>\n<title>Bugtraq: Re: OpenID/Debian PRNG/DNS Cache poisoning advisory</title>\n<link>http://www.securityfocus.com/archive/1/495302</link>\n<description> Re: OpenID/Debian PRNG/DNS Cache poisoning advisory </description>\n<pubDate></pubDate>\n</item>\n\n\n\n\n<item>\n<title>Bugtraq: Re: OpenID/Debian PRNG/DNS Cache poisoning advisory</title>\n<link>http://www.securityfocus.com/archive/1/495301</link>\n<description> Re: OpenID/Debian PRNG/DNS Cache poisoning advisory </description>\n<pubDate></pubDate>\n</item>\n\n\n\n\n<item>\n<title>Bugtraq: key blacklisting &amp; file size (was: OpenID/Debian PRNG/DNS Cache poisoning advisory)</title>\n<link>http://www.securityfocus.com/archive/1/495303</link>\n<description> key blacklisting &amp; file size (was: OpenID/Debian PRNG/DNS Cache poisoning advisory) </description>\n<pubDate></pubDate>\n</item>\n\n\n\n\n<item>\n<title>Bugtraq: Re: OpenID/Debian PRNG/DNS Cache poisoning advisory</title>\n<link>http://www.securityfocus.com/archive/1/495299</link>\n<description> Re: OpenID/Debian PRNG/DNS Cache poisoning advisory </description>\n<pubDate></pubDate>\n</item>\n\n\n\n\n\n\n\n\n\n<item>\n<title>More rss feeds from SecurityFocus</title>\n<link>http://www.securityfocus.com/rss/index.shtml</link>\n<description>News, Infocus, Columns, Vulnerabilities, Bugtraq ...</description>\n</item>\n</channel> \n</rss> \n\n\n', '1218303498', 'Guest');
INSERT INTO `rss_info` (`id`, `name`, `link`, `data`, `date`, `sec_lvl`) VALUES
(7, 'Flex-WPS News', 'http://192.168.0.5/001/newsfeed.xml', '<?xml version="1.0" encoding="iso-8859-1" ?>\r\n<rss version="2.0">\r\n<channel>\r\n<title>Flex-WPS</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi</link>\r\n<description>\r\nFlex-WPS Newest Topics.\r\n</description>\r\n<language>en-us</language>\r\n<generator>Flex-WPS RSS Feeds</generator>\r\n<copyright>Copyright @ Flex-WPS</copyright>\r\n<pubDate>15.08.08, 12:24:39</pubDate>\r\n<lastBuildDate></lastBuildDate>\r\n<category>Flex-WPS</category>\r\n<image>\r\n<title>Flex-WPS</title>\r\n<url>http://192.168.0.5/001/images/pb_flex.gif</url>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi</link>\r\n</image>\r\n                \r\n<item>\r\n<title>Calendar module on the way</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=1;subcat=2;thread=91;sticky=forums</link>\r\n<description>I will start on a calendar soon.&#60;br&#62;It will keep track of private and public member events/appointments.&#60;br&#62;&#60;br&#62;Ideas:&#60;br&#62;Keep track of Birthdays private and public.&#60;br&#62;PM/email alert settings for special ...</description>\r\n<pubDate>15.08.08, 12:24:39</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>Test2 New RSS feeds</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=3;subcat=4;thread=90;sticky=articles</link>\r\n<description>Test2 New RSS feeds</description>\r\n<pubDate>03.01.08, 14:46:04</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>What do you like</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=8;subcat=10;thread=81;sticky=poll</link>\r\n<description>&amp;#40;Forum, Articels, Polls&amp;#41; Combo&#60;br&#62;Chat&#60;br&#62;Gallery&#60;br&#62;Wiki&#60;br&#62;FAQ&#60;br&#62;Private Messager&#60;br&#62;Search&#60;br&#62;RSS Feeds</description>\r\n<pubDate>23.12.07, 15:45:26</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>Unicode - Chinese [ux5E73][ux96EA][ux8FCE][ux9AA8]</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=3;subcat=4;thread=80;sticky=articles</link>\r\n<description>The [wiki://UBBC] now supports Unicode.&#60;br&#62;&#60;br&#62;Do you Speak Chinese [b][ux5E73][ux96EA][ux8FCE][ux9AA8] [/b]?&#60;br&#62;Thats not words anyway [tongue]&#60;br&#62;&#60;br&#62;Not only Chinese but any language UTF ...</description>\r\n<pubDate>13.11.07, 08:18:14</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>RSS Feed [eek]</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=1;subcat=2;thread=79;sticky=forums</link>\r\n<description>So nick when where you going to tell me you where working on an RSS Feed module?&#60;br&#62;WTF?&#60;br&#62;&#60;br&#62;[lol]&#60;br&#62;I look down there and see News from PerlMonks.org [grin] &#60;br&#62;it Looks good ...</description>\r\n<pubDate>08.10.07, 12:59:10</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>Experience and Vote system </title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=1;subcat=1;thread=77;sticky=forums</link>\r\n<description>[b]Experience:[/b]&#60;br&#62;Posting a New Thread or Reply = +1xp&#60;br&#62;Voting on a Poll or Member = +1xp &amp;amp; -1vote&#60;br&#62;Getting a Up Vote from a Member +1xp.&#60;br&#62;&#60;br&#62;All members get atlease 3 votes a day or more ...</description>\r\n<pubDate>27.09.07, 11:40:43</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>How To use the Polls</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=1;subcat=2;thread=76;sticky=forums</link>\r\n<description>When you go to Post a new poll you will see the same post page as the forum.&#60;br&#62;&#60;br&#62;[b]Type the Polls subject:[/b]&#60;br&#62;&amp;quot;My Poll Subject&amp;quot;&#60;br&#62;&#60;br&#62;[b]You can Set any Symbol you ...</description>\r\n<pubDate>25.09.07, 10:18:53</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>Test the Polls</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=8;subcat=10;thread=68;sticky=poll</link>\r\n<description>Yes i tested it.&#60;br&#62;No I didnt test it.</description>\r\n<pubDate>24.09.07, 18:36:51</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>Admin area completion</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=1;subcat=1;thread=66;sticky=forums</link>\r\n<description>TO DO:&#60;br&#62;Edit config&#60;br&#62;Theme Edit&#60;br&#62;............................................................................................. ....................................................................................</description>\r\n<pubDate>23.09.07, 15:32:52</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>Top Security Concerns!</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=1;subcat=9;thread=65;sticky=forums</link>\r\n<description>[quote][i][b]Lets be blunt:[/b] &#60;br&#62;[b]A web developer is not qualified to do the job if he or she does not have a good understanding of web application security concepts and techniques.[/b]&#60;br&#62;Leaders of development teams must stop ...</description>\r\n<pubDate>20.09.07, 14:53:22</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>Captcha - GD::SecurityImage</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=1;subcat=2;thread=62;sticky=forums</link>\r\n<description>New Captcha Module - GD::SecurityImage&#60;br&#62;This is a nice captcha script.&#60;br&#62;Comes with its own Font and can be configured from the Core ...</description>\r\n<pubDate>15.09.07, 13:28:31</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>UBBC - Rebuilding with better tags and security!</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=3;subcat=6;thread=34;sticky=articles</link>\r\n<description>Big overhaul of the UBBC tags. &#60;br&#62;Code tag - make as one and test for XSS &#60;br&#62;Need Left and Rigt align - try &amp;lt;div&amp;gt;[wikiquote://]&#60;br&#62; &#60;br&#62;&amp;lt;sup&amp;gt;adadad&amp;lt;/sup&amp;gt; ...</description>\r\n<pubDate>15.09.07, 13:28:29</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>Forum - Starting from scratch</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=1;subcat=2;thread=61;sticky=forums</link>\r\n<description>[[c]]....[[/c]]&#60;br&#62;Lots to do for the forum &#60;br&#62;[b]To Do:[/b] &#60;br&#62;[strike]remove the Sort data Perl and use the sql sort.[/strike]&#60;br&#62;E-mail or PM Notification &#60;br&#62;[strike]Edit Post[/strike] &#60;br&#62;Add ...</description>\r\n<pubDate>13.09.07, 16:59:09</pubDate>\r\n</item>\r\n\r\n                \r\n<item>\r\n<title>What do you think of the Polling system?</title>\r\n<link>http://192.168.0.5/cgi-bin/001/index.tgi?op=threads;module=Forum;cat=8;subcat=10;thread=67;sticky=poll</link>\r\n<description>WOW its Great!&#60;br&#62;Looks good andlike the intagration.&#60;br&#62;Could be better.&#60;br&#62;You call that a poll?</description>\r\n<pubDate>13.09.07, 16:59:08</pubDate>\r\n</item>\r\n\r\n\r\n</channel>\r\n</rss>\r\n', '1218992256', 'Guest');

-- --------------------------------------------------------

--
-- Table structure for table `rss_members`
--

CREATE TABLE `rss_members` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `uid` varchar(50) collate latin1_general_ci default NULL,
  `rss_id` varchar(50) collate latin1_general_ci default NULL,
  `options` text collate latin1_general_ci,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ;


-- --------------------------------------------------------

--
-- Table structure for table `search_log`
--

CREATE TABLE `search_log` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `term` varchar(50) collate latin1_general_ci default NULL,
  `count` varchar(50) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=53 ;

--
-- Dumping data for table `search_log`
--

INSERT INTO `search_log` (`id`, `term`, `count`) VALUES
(1, 'a a a', '353'),
(3, 'shaka', '2'),
(4, 'probate begin', '2'),
(5, 'dgdfg', '1'),
(6, 'SELECT', '1'),
(7, 'SELECT &#42; FROM config WHERE pcfg=1', '8'),
(8, 'WHERE id=1', '2'),
(9, 'a aba', '1'),
(10, ' &#92;w', '1'),
(11, ' &#40;a&#124;a&#124;a&#41;&#42;', '1'),
(12, '&#40;a&#124;a&#124;a&#41;&#42;', '1'),
(13, '(a|a|a)*', '1'),
(14, 'sSS', '1'),
(15, 'sSS', '1'),
(16, '(w)', '1'),
(17, 'aruf', '3'),
(18, 'ARUF', '1'),
(19, 'Goodman', '1'),
(20, ' 1 1 1 ', '2'),
(21, ' 1 1 1', '1'),
(22, ''''' ', '1'),
(23, ''''' ', '1'),
(24, '   ', '1'),
(25, 'A A A', '1'),
(26, 'scripts', '1'),
(27, 'admin', '2'),
(28, 'DJ ', '2'),
(29, '&#42;', '1'),
(30, '&#124;&#124;&#124;', '1'),
(31, 'Flex', '6'),
(32, 'tester', '1'),
(33, 'a e i o u y', '1'),
(34, 'a a a e i o u y', '7'),
(35, '1 1 1', '11'),
(36, '&#42; &#42; &#42;', '2'),
(37, '0 0 0', '26'),
(38, 'cook', '1'),
(39, 'cookie', '2'),
(40, 'Module', '1'),
(41, 'Z Z Z', '3'),
(42, 'and', '2'),
(43, 'UBBC - Rebuilding with better tags and security!', '3'),
(44, 'Rebuilding with better tags and security!', '2'),
(45, 'Rebuilding with better tags and security', '2'),
(46, ' UBBC - Rebuilding with better tags and security', '2'),
(47, 'UBBC - Rebuilding with better tags and security', '3'),
(48, 'Guest', '2'),
(49, '12/29/07', '2'),
(50, '12 29 07', '1'),
(51, '14:04:39', '1'),
(52, 'walter', '1');

-- --------------------------------------------------------

--
-- Table structure for table `smilies`
--

CREATE TABLE `smilies` (
  `id` smallint(6) unsigned NOT NULL auto_increment,
  `name` varchar(50) collate latin1_general_ci default NULL,
  `smilies` varchar(100) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=51 ;

--
-- Dumping data for table `smilies`
--

INSERT INTO `smilies` (`id`, `name`, `smilies`) VALUES
(1, 'bravo', 'bravo.gif'),
(2, 'baeh', 'baeh.gif'),
(3, 'confused', 'confused.gif'),
(4, 'cool', 'cool.gif'),
(5, 'cry', 'cry.gif'),
(6, 'deepthought', 'deepthought.gif'),
(7, 'eek', 'eek.gif'),
(8, 'evil', 'evil.gif'),
(9, 'excited', 'excited.gif'),
(10, 'frown', 'frown.gif'),
(11, 'grin', 'grin.gif'),
(12, 'grumpy', 'grumpy.gif'),
(13, 'kickyourass', 'kickyourass.gif'),
(14, 'lol', 'lol.gif'),
(15, 'loony', 'loony.gif'),
(16, 'mad', 'mad.gif'),
(17, 'ninja', 'ninja.gif'),
(18, 'nonsense', 'nonsense.gif'),
(19, 'oops', 'oops.gif'),
(20, 'pleased', 'pleased.gif'),
(21, 'respect', 'respect.gif'),
(22, 'rolleyes', 'rolleyes.gif'),
(23, 'smile', 'smile.gif'),
(24, 'star', 'star.gif'),
(25, 'tongue', 'tongue.gif'),
(26, 'wallbash', 'wallbash.gif'),
(27, 'wink', 'wink.gif'),
(28, 'blues', 'blues.gif'),
(29, 'zzz', 'zzz.gif'),
(30, 'rock', 'rock.gif'),
(31, 'search', 'search.gif'),
(32, 'secret', 'secret.gif'),
(33, 'shake', 'shake.gif'),
(34, 'super', 'super.gif'),
(35, 'angel', 'angel.gif'),
(36, 'whist', 'whist.gif'),
(37, 'ditsch', 'ditsch.gif'),
(38, 'bath', 'bath.gif'),
(39, 'cheerz', 'cheerz.gif'),
(40, 'hi', 'hi.gif'),
(41, 'eat', 'eat.gif'),
(42, 'bow', 'bow.gif'),
(43, 'nana', 'nana.gif'),
(44, 'buddys', 'buddys.gif'),
(45, 'phone', 'phone.gif'),
(46, 'psst', 'psst.gif'),
(47, 'rl', 'rl.gif'),
(48, 'blush', 'blush.gif'),
(49, 'yummy', 'yummy.gif'),
(50, 'fblush', 'blush.swf');

-- --------------------------------------------------------

--
-- Table structure for table `stats_log`
--

CREATE TABLE `stats_log` (
  `id` smallint(7) unsigned NOT NULL auto_increment,
  `date` varchar(25) collate latin1_general_ci NOT NULL,
  `stats_info` text collate latin1_general_ci NOT NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ;


--
-- Table structure for table `subload`
--

CREATE TABLE `subload` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `lib` varchar(15) collate latin1_general_ci NOT NULL,
  `module` varchar(50) collate latin1_general_ci default NULL,
  `pmname` varchar(50) collate latin1_general_ci default NULL,
  `subname` varchar(50) collate latin1_general_ci default NULL,
  `location` varchar(50) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=18 ;

--
-- Dumping data for table `subload`
--

INSERT INTO `subload` (`id`, `lib`, `module`, `pmname`, `subname`, `location`) VALUES
(1, '1', '', 'pm_alert', 'pm_alert', '3'),
(3, '1', '', 'theme', 'menu_print', '3'),
(4, '1', '', 'login_menu', 'print_menu', '3'),
(5, '1', NULL, 'stats_log', 'log', '1'),
(6, '1', '', 'anti_spam', 'Stove_Top', '1'),
(8, '1', '', 'theme', 'user_panel', '3'),
(12, '1', '', 'last_articles', 'print_posts', 'home'),
(13, '1', '', 'whosonilne', 'user_status', '3'),
(14, '', '1', 'RSS', 'menu', '3'),
(15, '1', '', 'forum_home', 'last_posts', 'home'),
(16, '1', '', 'chat_text', 'print_posts', '3'),
(17, '1', '', 'pm_alert', 'pm_alert', 'none');

-- --------------------------------------------------------

--
-- Table structure for table `themes`
--

CREATE TABLE `themes` (
  `themeid` int(11) NOT NULL auto_increment,
  `active` int(25) default NULL,
  `themename` varchar(50) collate latin1_general_ci default NULL,
  `theme_top` text collate latin1_general_ci,
  `theme_1` text collate latin1_general_ci,
  `theme_2` text collate latin1_general_ci,
  `theme_3` text collate latin1_general_ci,
  `theme_4` text collate latin1_general_ci NOT NULL,
  PRIMARY KEY  (`themeid`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=6 ;

--
-- Dumping data for table `themes`
--

INSERT INTO `themes` (`themeid`, `active`, `themename`, `theme_top`, `theme_1`, `theme_2`, `theme_3`, `theme_4`) VALUES
(3, 1, 'standard', '<table border="0" cellpadding="0" cellspacing="0" width="95%" class="bg4" align="center">\r\n<tr>\r\n<td><a href="%cgi_bin_url%/index.%ext%"><img src="%non_cgi_url%/themes/%default_theme%/images/logo_ok.jpg" border="0" alt=""></a></td>\r\n    <td align="right"><img src="%non_cgi_url%/themes/%default_theme%/images/logo_right_ok.jpg" border="0" alt=""></td>\r\n</tr>\r\n</table>\r\n<table align="center" border="0" cellpadding="0" cellspacing="0" width="95%">\r\n<tr>\r\n<td width="18%" align="center" class="bg"> <a href="%pageurl%/index.%ext%" class="nav">Home</a> </td>\r\n<td width="16%" align="center" class="bg"> <a href="%pageurl%/index.%ext%?op=cats;module=Forum" class="nav">Forums</a> </td>\r\n<td width="18%" align="center" class="bg"> <a href="%pageurl%/index.%ext%?op=cats;module=Forum;sticky=articles" class="nav">Articles</a> </td>\r\n<td width="16%" align="center" class="bg"> <a href="%pageurl%/index.%ext%?op=view;module=Wiki" class="nav">Flex-Wiki</a> </td>\r\n<td width="16%" align="center" class="bg"> <a href="%pageurl%/index.%ext%?op=faq;module=FAQ" class="nav">FAQ</a> </td>\r\n<td width="16%" align="center" class="bg"> <a href="%pageurl%/index.%ext%?op=print_ranks" class="nav">Ranks</a> </td>\r\n</tr>\r\n<tr>\r\n<td colspan="6" class="bg1" height="9"></td>\r\n</tr>\r\n</table>', '<table align="center" width="95%" border="0" cellspacing="0" cellpadding="3">\r\n<tr>\r\n<td valign="top">', '</td>\r\n<td width="100%" valign="top">\r\n<div name="controle" id="controle">\r\n', '</div>\r\n</td>\r\n<td valign="top">', '</td>\r\n</tr>\r\n</table>\r\n<table align="center" width="95%" class="navtable" cellspacing="0" cellpadding="3">\r\n<tr>\r\n<td align="center"> <a href="%pageurl%/index.%ext%" class="nav">Home</a> | <a href="%pageurl%/forum.%ext%" class="nav">About Us</a> | <a href="%pageurl%/topics.%ext%" class="nav">Contact Us</a> | <a href="%pageurl%/top10.%ext%" class="nav">Reasons to Sell</a> | <a href="%pageurl%/recommend.cgi" class="nav">Recommend</a> | <a href="%pageurl%/help.%ext%?topic=$topic" class="nav">Sell Your Note</a> \r\n</td>\r\n<td width="40" height="40" align="center"><a href="#top"><img alt="Top of Page" src="%imagesurl%/up.png" border="0"></a></td>\r\n</tr>\r\n</table>\r\n<div class="copyleft"><center> Copyright N. K. A., All Rights Reseved. <a href="#top" onClick="javascript:achangemessage(''%pageurl%/index.%ext%?op=page;id=194'');">Privacy Policy</a></center></div>'),
(2, 0, 'Flex', '<table border="0" cellpadding="0" cellspacing="0" width="95%" class="bg4" align="center">\r\n<tr>\r\n<td><a href="%cgi_bin_url%/index.%ext%"><img src="%non_cgi_url%/themes/%default_theme%/images/logo_ok.jpg" border="0" alt=""></a></td>\r\n    <td align="right"><img src="%non_cgi_url%/themes/%default_theme%/images/logo_right_ok.jpg" border="0" alt=""></td>\r\n</tr>\r\n</table>\r\n<table align="center" border="0" cellpadding="0" cellspacing="0" width="95%">\r\n<tr>\r\n<td width="18%" align="center" class="bg"> <a href="%pageurl%/index.%ext%" class="nav">Home</a> </td>\r\n<td width="16%" align="center" class="bg"> <a href="%pageurl%/index.%ext%?op=cats;module=Forum" class="nav">Forums</a> </td>\r\n<td width="18%" align="center" class="bg"> <a href="%pageurl%/index.%ext%" class="nav">Aarticles</a> </td>\r\n<td width="16%" align="center" class="bg"> <a href="%pageurl%/index.%ext%" class="nav">Statistics</a> </td>\r\n<td width="16%" align="center" class="bg"> <a href="%pageurl%/index.%ext%" class="nav">Top 10</a> </td>\r\n<td width="16%" align="center" class="bg"> <a href="%pageurl%/index.%ext%" class="nav">Recommend</a> </td>\r\n</tr>\r\n<tr>\r\n<td colspan="6" class="bg1" height="9"></td>\r\n</tr>\r\n</table>', '<table align="center" width="95%" border="0" cellspacing="0" cellpadding="3">\r\n<tr>\r\n<td valign="top">', '</td>\r\n<td width="100%" valign="top">\r\n<div name="controle" id="controle">\r\n', '</div>\r\n</td>\r\n<td valign="top">', '</td>\r\n</tr>\r\n</table>\r\n<table align="center" width="95%" class="navtable" cellspacing="0" cellpadding="3">\r\n<tr>\r\n<td align="center"> <a href="%pageurl%/index.%ext%" class="nav">Home</a> | <a href="%pageurl%/forum.%ext%" class="nav">About Us</a> | <a href="%pageurl%/topics.%ext%" class="nav">Contact Us</a> | <a href="%pageurl%/top10.%ext%" class="nav">Reasons to Sell</a> | <a href="%pageurl%/recommend.cgi" class="nav">Recommend</a> | <a href="%pageurl%/help.%ext%?topic=$topic" class="nav">Sell Your Note</a> \r\n</td>\r\n<td width="40" height="40" align="center"><a href="#top"><img alt="Top of Page" src="%imagesurl%/up.png" border="0"></a></td>\r\n</tr>\r\n</table>\r\n<div class="copyleft"><center> Copyright N. K. A., All Rights Reseved. <a href="#top" onClick="javascript:achangemessage(''%pageurl%/index.%ext%?op=page;id=194'');">Privacy Policy</a></center></div>');

-- --------------------------------------------------------

--
-- Table structure for table `useractions`
--

CREATE TABLE `useractions` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `pmname` varchar(50) collate latin1_general_ci default NULL,
  `subname` varchar(50) collate latin1_general_ci default NULL,
  `active` text collate latin1_general_ci NOT NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=63 ;

--
-- Dumping data for table `useractions`
--

INSERT INTO `useractions` (`id`, `pmname`, `subname`, `active`) VALUES
(1, '', 'main_page', '1'),
(2, 'LOGIN', 'login', '1'),
(3, 'LOGIN', 'login2', '1'),
(4, 'LOGIN', 'logout', '1'),
(5, 'LOGIN', 'logout2', '1'),
(6, 'LOGIN', 'reminder', '1'),
(7, 'memberlist', 'list', '1'),
(8, 'register', 'register', '1'),
(9, 'register', 'register2', '1'),
(10, 'user', 'view_profile', '1'),
(11, 'user', 'edit_profile', '1'),
(12, 'user', 'edit_profile2', '1'),
(13, 'page', 'page', '1'),
(14, 'PM', 'view_pm', '1'),
(15, 'PM', 'send_pm', '1'),
(16, 'PM', 'save_pm', '1'),
(17, 'PM', 'delete_pm', '1'),
(18, 'PM', 'delete_pm2', '1'),
(19, 'PM', 'buddys', '1'),
(20, 'PM', 'add_buddy', '1'),
(21, 'PM', 'message2', '1'),
(22, 'Search', 'search', '1'),
(23, 'LOGIN', 'reminder2', '1'),
(24, 'LOGIN', 'reminder3', '1'),
(25, 'admin', 'admin', '1'),
(26, 'admin', 'awelcome', '1'),
(27, 'admin', 'awelcome2', '1'),
(28, 'smilies', 'print_smilies', '1'),
(29, 'page', 'page_admin', '1'),
(30, 'page', 'page_edit', '1'),
(31, 'page', 'page_edit2', '1'),
(32, 'page', 'delete_page', '1'),
(33, 'admin', 'user_actions', '1'),
(34, 'admin', 'user_actions2', '1'),
(37, 'admin', 'main_menu', '1'),
(38, 'admin', 'main_menu2', '1'),
(40, 'admin', 'subs_load', '1'),
(41, 'admin', 'subs_load2', '1'),
(42, 'admin', 'user_menu2', '1'),
(43, 'admin', 'user_menu', '1'),
(44, 'rank', 'print_ranks', '1'),
(45, 'admin', 'user_ranks', '1'),
(46, 'admin', 'user_ranks2', '1'),
(48, 'admin', 'flush_mem', '1'),
(49, 'admin', 'flush_mem2', '1'),
(50, 'admin', 'admin_config', '1'),
(51, 'admin', 'admin_config2', '1'),
(52, 'admin', 'site_ban', '1'),
(53, 'admin', 'site_ban2', '1'),
(54, 'admin', 'theme', '1'),
(55, 'admin', 'theme2', '1'),
(56, 'admin', 'meta_tags', '1'),
(57, 'admin', 'meta_tags2', '1'),
(58, 'admin', 'optimize', '1'),
(59, 'register', 'user_names', '1'),
(60, 'PM', 'in_out_boxs', '1'),
(61, 'PM', 'menu_out_in', '1'),
(62, 'admin', 'optimize2', '1');

-- --------------------------------------------------------

--
-- Table structure for table `usermenu`
--

CREATE TABLE `usermenu` (
  `id` smallint(7) NOT NULL auto_increment,
  `title` varchar(50) collate latin1_general_ci NOT NULL default '',
  `link` varchar(150) collate latin1_general_ci default NULL,
  `image` varchar(50) collate latin1_general_ci default NULL,
  `image2` varchar(50) collate latin1_general_ci default NULL,
  `seclevel` varchar(50) collate latin1_general_ci default NULL,
  `uslevel` varchar(50) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=15 ;

--
-- Dumping data for table `usermenu`
--

INSERT INTO `usermenu` (`id`, `title`, `link`, `image`, `image2`, `seclevel`, `uslevel`) VALUES
(1, 'Logout', '%pageurl%/index.%ext%?op=logout', NULL, '/stats/member.gif', 'User', NULL),
(2, 'Site Admin', '%pageurl%/index.%ext%?op=admin', '', 'control_panel.png', 'Administrator', NULL),
(3, 'PM - Admin', '%pageurl%/index.%ext%?op=detail_view;module=Cart_Details', '', '/stats/threads.gif', 'admin', NULL),
(4, 'Register', '%pageurl%/index.%ext%?op=register', NULL, 'register.gif', 'Guest', NULL),
(5, 'Member List', '%pageurl%/index.%ext%?op=list', NULL, 'memlist.gif', 'User', NULL),
(6, 'Login', '%pageurl%/index.%ext%?op=login', NULL, '/stats/member.gif', 'Guest', NULL),
(7, 'Private Messages', '%pageurl%/index.%ext%?op=view_pm', '', '/PM/inbox_s.png', 'User', NULL),
(8, 'Edit Profile', '%pageurl%/index.%ext%?op=edit_profile', '', 'filesaveas.png', 'User', NULL),
(9, 'View Profile', '%pageurl%/index.%ext%?op=view_profile', '', 'files.png', 'User', NULL),
(10, 'Error Log', '%pageurl%/index.%ext%?op=admin_index;module=Error_Log', '', 'button_cance.png', 'Administrator', NULL),
(11, 'Fatal Error Log', '%pageurl%/index.%ext%?op=admin_index2;module=Error_Log', '', 'button_cance.png', 'Administrator', NULL),
(12, 'Page Admin', '%pageurl%/index.%ext%?op=page_admin', '', 'applications.png', 'Administrator', NULL),
(14, 'FAQ Admin', '%pageurl%/index.%ext%?op=faq;module=FAQ_Admin', '', 'help1.png', 'Administrator', '');

-- --------------------------------------------------------

--
-- Table structure for table `welcome`
--

CREATE TABLE `welcome` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `active` varchar(50) collate latin1_general_ci default NULL,
  `title` text collate latin1_general_ci,
  `text` text collate latin1_general_ci,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=2 ;

--
-- Dumping data for table `welcome`
--

INSERT INTO `welcome` (`id`, `active`, `title`, `text`) VALUES
(1, '1', 'Welcome to Flex - Web Portal System mySQL', 'Flex [wiki://Web Portal] System is design and and  maintained by N.K.A.. Built with Perl, mySQL and Security As the Highest Priority. [wiki://Flex-WPS] mySQL is a module based system Featuring many Unique Technologies, this Web Application has Speed, Power and Flexibility. <br>\r\nPlus it uses Perl and mySQL.\r\n <br><img src="%imagesurl%/flexworld.png" align="right">         \r\n<table width="95%" border="0" cellspacing="0" cellpadding="4" align="center">\r\n  <tr>\r\n    <td><b>Features:</b> <br>Member Management with Security Levels <br>Member Profile Edit <br>Member List <br>Private Messages <br>Search <br>Page Maker/Editor <br>Menu Managers <br>Admin area <br>Error & Fatal Log <br>Site Log and Flood Protection</td>\r\n    <td><b>[wiki://Flex Module]s:</b> <br>F.A.Q. <br>Forum/Articles Combo <br>Gallery <br>Secure Image Upload <br>Chat with Bots <br>Contact Form <br>Secure Info <br>Shopping Cart <br>Orders Manager <br>Many More...</td>\r\n  </tr>\r\n</table>\r\n <br> \r\n <br>\r\nThank You,');

-- --------------------------------------------------------

--
-- Table structure for table `whosonline`
--

CREATE TABLE `whosonline` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `membercount` int(11) default NULL,
  `mostonline` int(11) default NULL,
  `lastregistered` varchar(150) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=2 ;

--
-- Dumping data for table `whosonline`
--

INSERT INTO `whosonline` (`id`, `membercount`, `mostonline`, `lastregistered`) VALUES
(1, 1, 0, 'admin');

-- --------------------------------------------------------

--
-- Table structure for table `wiki_journal`
--

CREATE TABLE `wiki_journal` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `was_id` varchar(25) collate latin1_general_ci NOT NULL,
  `name` text collate latin1_general_ci,
  `desc` text collate latin1_general_ci,
  `lastdate` varchar(25) collate latin1_general_ci NOT NULL,
  `lastauther` varchar(50) collate latin1_general_ci default NULL,
  `also_see` text collate latin1_general_ci,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ;


--
-- Table structure for table `wiki_site`
--

CREATE TABLE `wiki_site` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `name` text collate latin1_general_ci,
  `desc` text collate latin1_general_ci,
  `lastdate` varchar(25) collate latin1_general_ci NOT NULL,
  `lastauther` varchar(50) collate latin1_general_ci default NULL,
  `also_see` text collate latin1_general_ci,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=8 ;

--
-- Dumping data for table `wiki_site`
--

INSERT INTO `wiki_site` (`id`, `name`, `desc`, `lastdate`, `lastauther`, `also_see`) VALUES
(1, 'Flex-WPS', 'Flex [wiki://Web Portal] System is designand and  maintained by N.K.A.. Built with Security As the Highest Priority and Featuring many Unique Technologies. [wiki://Flex-WPS] mySQL is a module based system, no other Web Applacation can match the Speed, Power and Flexibility this Script has to offer.<br>\r\nIf you are still playing around with those out-dated flat file Web Portal/Web Applacation systems.<br>Then this is the Breath of Fresh air you are looking for.\r\n<br><img src="/001/images/flexworld.png" align="right">         \r\n<table width="95%" border="0" cellspacing="0" cellpadding="4" align="center">\r\n  <tr>\r\n    <td><b>Features:</b><br>Member Management with Security Levels<br>Member Profile Edit<br>Member List<br>Private Messages<br>Search<br>Page Maker/Editer<br>Menu Managers<br>Admin area<br>Error & Fatal Log<br>Site Log and Flood Protection</td>\r\n    <td><b>[wiki://Flex Module]s:</b><br>F.A.Q.<br>Forum/Articles Combo<br>Gallery<br>Secure Image Upload<br>Chat with Bots<br>Contact Form<br>Secure Info<br>Shopping Cart<br>Orders Manager<br>Many More...</td>\r\n  </tr>\r\n</table>\r\n<br> \r\n<br>\r\nThank You,', '1192966824', 'Flex', '<li>[wiki://Flex Module]<br>\r\n<li>[wiki://Cookie]<br>\r\n<li>[wiki://Flex-WPS]<br>\r\n<li>[wiki://UBBC]<br>[wkid://155] [wkid://2] [wkid://156]'),
(2, 'Cookie', '<br><center><hr with="65%"><b><big>Cookies</big></b></center>A cookie is a piece of data stored on the user''s hard drive containing information about the user. The storage of such cookies is optional, and the user will still be able to use the web.<br>HTTP Only Fagged [wiki://Cookie] is used on this site to Authenticate  the Members and are per session only. Not all browsers support HTTP Only out of the box, but most vender''s do have a Add-on or Plug-in that can add this security.<br> Some of our business partners use cookies on our site (for example, advertisers). However, we have no access to or control over these [wiki://cookie]s.<br>', '1192791995', 'Flex', '<li>[wiki://Flex-WPS]<br>\r\n<li>[wiki://Cookie]'),
(3, 'Flex Module', 'A <b>Flex Module</b> can be a Perl wrighten "pure imperative" or "imperative" programming that supports any [wiki://Flex-WPS] version.<br><br><b>How to make a Flex Module</b><br>Lets make a new Module and call it "My_Module.pm"\r\n[c]package My_Module;\r\n\r\nuse strict; # Please use this\r\n# Assign global variables.\r\nuse vars qw(\r\n  %user_action %sub_action\r\n%user_data\r\n  );\r\nuse exporter;\r\n\r\n# Define possible user actions.\r\n%user_action = ( hello => 1 );\r\n\r\n# Define possible subload actions.\r\n%sub_action = ( hello_home => 1 );\r\n\r\n# The URL will be\r\n# %pageurl%/index.%ext%?op=hello;module=My_Module\r\nsub hello {\r\n      require theme;\r\n      theme::print_header();\r\n      theme::print_html($user_data{theme}, ''Hello'');\r\n      print <<HTML;\r\nHello\r\nHTML\r\ntheme::print_html($user_data{theme}, ''Hello'', 1);\r\n}\r\n\r\n# In the Site Admin area >> Sub''s Load\r\n# Add New lib/module = 0 & 1, PM = My_Module,\r\n# Sub = hello_home, Location = home\r\nsub hello_home {\r\nprint ''Hello Home Page'';\r\n}\r\n\r\n1;[/c]\r\n<br>\r\nAdd The file to the /lib/modules directory in ASCII and CHMOD to 755<br>', '1192886210', 'Flex', '<li>[wiki://UBBC]<br>\r\n<li>[wiki://Flex-WPS]<br>\r\n<li>[wiki://Cookie]'),
(4, 'UBBC', 'UBBC - (Universal Bulletin Board Code) Tags used to create formatting effects.<br><br>\r\n[b]Here are some Flex-WPS UBBC[/b]<br>\r\n[b]Linking to the site[/b] - like Forums(poll,forum,articles), Search, Wiki[code=Linking to the site]\r\nForums [id://thread_id] or [id://thread_id#jump_id]\r\nSearch \r\nPattern, search in   [search://search_term,wiki forums poll]\r\nPattern, search in, Boolean   [search://search_term,wiki forums poll,OR]\r\nPattern, search in, Boolean, case   [search://search_term,wiki forums poll,OR,s]\r\nAll Search  [search://search_term] \r\nWiki [wiki://wiki_name] or [wkid://wiki_id]\r\n[/code]Tests:<br>\r\n[id://62] forum is there<br>\r\n[id://61#6] Forum jump is there<br>\r\n[id://611111] Forum not there<br>\r\n[id://65555#3] Forum jump not there<br>\r\n[wiki://flex-wps] Wiki name is there<br>\r\n[wkid://3] Wiki ID is there<br>\r\n[wiki://Not There] Wiki Name Not There<br>\r\n[wkid://999999] Wiki ID Not There<br>\r\n[search://a a a] Search for "a a a"<br>\r\n[search://a a a,forums poll] Search for "a a a"<br>\r\n[search://Z Z Z,forums poll,AND] Search for "Z Z Z"<br>\r\n[search://Z Z Z,forums poll,AND,s] Search for "Z Z Z"<br><br>\r\n\r\n[b]Linking to other sites[/b] - like [google://Google] Search, [wp://Wikipedia:About] Wikipedia, [wb://Wikibooks:About] Wikibooks, [wq://Wikiquote:About] Wikiquote, [ws://Wikisource:About_Wikisource] Wikisource and [cpan://Cpan] Perl Modules\r\n[code=Linking to other sites]\r\n[google://Google] Google Search\r\n[wp://Wikipedia:About] or  [wikipedia://Wikipedia:About] Wikipedia\r\n[wb://Wikibooks:About] or [wikibooks://Wikibooks:About] Wikibooks\r\n[wq://Wikiquote:About] or [wikiquote://Wikiquote:About] Wikiquote\r\n[ws://Wikisource:About_Wikisource] or [wikisource://Wikisource:About_Wikisource] Wikisource\r\n[cpan://Cpan] Cpan Module Search\r\n[/code]\r\n<br><b>The Very common UBBC Tags</b><br>\r\n[[b]Bold[[/b] = [b]Bold[/b]<br>\r\n[[i]Italic[[/i] = [i]Italic[/i]<br>\r\n[[u]Underline[[/u] = [u]Underline[/u]<br>\r\n[[strike]Strike[[/strike] = [strike]Strike[/strike]<br>\r\n[left]]Left Align[[/left] = [left]Left Align[/left]<br>\r\n[[center]Center Align[[/center] = [center]Center Align[/center]<br>\r\n[right]]Right Align[[/right] = [right]Right Align[/right]<br>\r\n[sup]]Sup[[/sup] = [sup]Sup[/sup]<br>\r\n[sub]]Sub[[/sub] = [sub]Sub[/sub]<br>\r\n[pre]]Pre[[/pre] = [pre]Pre[/pre]<br>\r\n[img]]Image[[/img] = [img]/001/images/home1.png[/img]<br>\r\n[url]]URL[[/url] = [url]http://google.com[/url]<br>\r\n[email]]Email[/email] = [email]some@email.com[/email] Recommended Not to Post your email in a public area<br>\r\n[code]]# Some Code ......[[/code] = [code]# Some Code ......[/code]<br>\r\n[c]]# Some Code ......[/c]] = [c]# Some Code ......[/c]<br>\r\n[[c=My Code]# Some Code ......[/c]] = [c=My Code]# Some Code ......[/c]<br>\r\n[[code=My Code]]# Some Code ......[[/code]] = [code=My Code]# Some Code ......[/code]<br>\r\n[quote]]Quote[/quote]] = [quote]Quote[/quote]<br>\r\n[quote=Flex]]Quote[/quote]] = [quote=Flex]Quote[/quote]<br>\r\n[ul]]My List[li]]1)...[/li]][li]]2)...[/li]][li]]3)...[/li]][/ul]] = [ul]My List[li]1)...[/li][li]2)...[/li][li]3)...[/li][/ul]<br>\r\n[ol]]My Count[li=5]]...[/li]][li]]...[/li]][li]]...[/li]][/ol]] = [ol]My Count[li=5]...[/li][li]...[/li][li]...[/li][/ol]<br>\r\n[color=Red]]Color[/color]] = [color=Red]Color[/color]<br><br>\r\n<b>Unicode Support</b><br>[u://0931]] = [u://0931]<br>\r\n[u://x3A3]] = [u://x3A3]<br>\r\n[utf://x3A3]] = [utf://x3A3]<br>\r\n[utf://0931]] = [utf://0931]<br>\r\n[u0931]] = [u0931]<br>\r\n[ux3A3]] = [ux3A3]<br>\r\n[encode]&amp;#0931&amp;#59; =  &amp;#0931;[/encode]<br><br> ', '1218222373', 'Flex', '<li>[wiki://Flex Module]<br>\r\n<li>[wiki://Flex-WPS]<br>\r\n<li>[wiki://Cookie]'),
(5, 'Web Portal', 'A web portal is a site that functions as a point of access to information on the World Wide Web. Portals present information from diverse sources in a unified way. Popular portals are MSN, Yahoo, and AOL. Aside from the search engine standard, web portals offer other services such as news, stock prices, infotainment and various other features. Portals provide a way for enterprises to provide a consistent look and feel with access control and procedures for multiple applications, which otherwise would have been different entities altogether.<br><br>\r\nA personal portal is a site on the World Wide Web that typically provides personalized capabilities to its visitors, providing a pathway to other content. It is designed to use distributed applications, different numbers and types of middleware and hardware to provide services from a number of different sources. In addition, business portals are designed to share collaboration in workplaces. A further business-driven requirement of portals is that the content be able to work on multiple platforms such as personal computers, personal digital assistants (PDAs), and cell phones.', '1192969534', 'Flex', '<li>[wiki://Web Portal Security]<br>\r\n<li>[wiki://Flex-WPS]<br>\r\n<li>[wiki://Flex Module]'),
(6, 'Wiki', 'A wiki is computer software that allows users to easily create, edit and link web pages. Wikis are often used to create collaborative websites, power community websites, and are increasingly being installed by businesses to provide affordable and effective Intranets or for use in Knowledge Management. Ward Cunningham, developer of the first wiki, WikiWikiWeb, originally described it as "the simplest online database that could possibly work". One of the best-known wikis is Wikipedia.', '1192967150', 'Flex', '<li>[wiki://Web Portal]<br>\r\n<li>[wiki://Flex-WPS]<br>\r\n<li>[wiki://UBBC]<br>\r\n<li>[wiki://Flex Module]'),
(7, 'Web Portal Security', 'Web Portal Security is a branch of information security applied to both theoretical and actual computer systems or a branch of computer science that addresses enforcement of ''secure'' behavior on the operation of computers. The definition of ''secure'' varies by application, and is typically defined implicitly or explicitly by a security policy that addresses confidentiality, integrity and availability of electronic information that is processed by or stored on computer systems.<br><br>\r\n<b>Some Security Treats</b><br>\r\nHijacking, Cookie stealing, XSS(cross site script attack), Buffer Overflow, Buffer under run, DOS(Denial of Service), Flooding, Spam, Data Injection, DSI(Disclosure of Sensitive Information), Malicious People, est...<br><br>\r\nSince there are many security treats facing a Web Portal System there are many security Standards to combat against these treats.<br>\r\nSecurity Filters, Data Integrity, Client Authentication, Encryption, est...<br><br>', '1192969409', 'Flex', '<li>[wiki://Web Portal]<br>\r\n<li>[wiki://Flex Module]<br>\r\n<li>[wiki://Flex-WPS]');

-- --------------------------------------------------------

--
-- Table structure for table `wiki_user`
--

CREATE TABLE `wiki_user` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `uid` varchar(25) collate latin1_general_ci NOT NULL,
  `name` text collate latin1_general_ci,
  `desc` text collate latin1_general_ci,
  `also_see` text collate latin1_general_ci,
  `active` varchar(25) collate latin1_general_ci NOT NULL,
  `votes` varchar(25) collate latin1_general_ci NOT NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ;
