澳门百家乐,百家乐规则 - 百家乐官网
澳门百家乐外聘兼职教师招聘启事
澳门百家乐食堂托管项目废标公告
百家乐规则
===党群百家乐规则===
组织人事处
纪检监审处
===行政百家乐规则===
百家乐官网处
评建督导处
对外合作交流处
===教学教辅===
经济贸易学院
商务信息技术学院
人文旅游学院
继续教育部
&&&&&学院服务号
&&&&&学院地址：长沙市岳麓区雷锋大道335号 | &邮编：410205& | 招生电话：6& | 招生传真：7 |
版权所有&&&&&& &|生命细胞科学，从粒子细胞研究探索实践开始，解决困绕我们的工作生活的阻碍，齐心协力共同建设我们的幸福家园，让我们健康快乐的走过每一天的分分秒秒
分享我们家人们的健康快乐自在的心情趣事,记录我们心灵成长的足迹,唱响我们的心曲，共建我们的生态文明,畅享我们的幸福家园生活
自然即大自然,是指人类万物众生灵赖以生活.生存的共同家园.探索自然就是通过辩证分析的方法发现自然内在外在规律,充分运用到现实生活中造福人类万物
全息动态能量平衡磁场音乐.视频.图片展示,在观看中，在畅听中，在阅读中，相互吸引中，在不知不觉中调整并提升身体健康.思想健康.家庭健康等水平
把发生在我们身边的故事，通过在线进行家人社区的直接交流,畅谈我们的幸福人生,畅享我们的幸福生活,共同建设我们的幸福家园
我们共同的生活空间,幸福家人的日常活动信息中心,我们共同的生活空间,转播实时新闻动态,畅想我们的幸福大合唱,歌唱我们的幸福家园生活
在新时代生活中，向幸福家人们转载网络上面的健康养生理念,让家人们通过更多的文章明白道理，让我们的每一个家人真正健健康康的工作,开开心心的生活,欢歌笑语每日间
我们的幸福家园,由你我他共同组成的大家园,我们在这里和平共处,积极主动的分享我们的对生活的点点滴滴，共同建设我们的新家园生活
> 生命细胞科学
为什么要常思己过？
引言：常思己过是人类超快速清洗、净化思维与心灵污垢的方法，同时也是消除各种慢性疾病、恶性病、绝症与灾难的良方。只有在生活中认识自己、反思自己，不断的提高、完善自己，方能逐步地实现自己人生的美好愿望，不断提升能力和智慧。
1、什么是常思己过？
常思己过，佛家叫忏悔，意思是常常反思自己言行举止、起心动念的过错，总结自己过往的经验教训，吃一堑，长一智，不断地认识自己，认识生命和天地万物，不断地完善自己。在现实生活中，不断地实践总结，透过事物表面的现象，认识事物起源、生发、成长、衰亡的原理和本质，并把总结出来的原理、规律应用于生活实践中检验，进一步的提炼、升华，如此循环反复，不断地提高、完善自己的认识和做人做事的能力，不断地提高生活质量和生命质量，不断地提高自己心身健康幸福的层次和境界。
2、我没有过错，不需要反思！
也许有缘看到这些文字的你，也是众多认为自己没有过错，不需要反思之群体中的一员，非常赞叹！非常OK！如果人人都有这样的信念，都能够一天天、一月月、一年年地保持这样完美的生命状态，走在自信从容的人生道路上，那么，人类社会就是真正的和谐社会，国家繁荣富强，人民安居乐业，健康幸福，天下太平，天下为公。就没有人与人，物与物，人与物彼此之间的相互争斗和矛盾，人与天地万物同呼吸共命运，你好我好大家好，人类万众生命都在我们的幸福家园&--大自然里和平共处，无病无灾，自然自在地享受健康幸福的美好生活。
可是，现实却总是事与愿违。也许，每个人的自信和从容，只能停留在短短的一瞬间。实在经不起时间的考验，经不起日月星辰分秒不停运动变化带来的影响和变化，刚刚说自己没有过错，话音未落的刹那，由于各种利益的矛盾和冲突，很快就发生了许多自己也不愿发生的事情。比如，自己认为正常的、理所当然的行为习惯对环境造成的各种影响和破坏，对空气、水造成的污染，自己的言行对自己身边的人和物造成的影响和困扰等等，等等。忙碌的你如果有时间，有耐心往下看，我们就放下所有的成见，一起来对常思己过做一些粗浅的分析和探讨。
3、认识自己和他人的好
修好的人多如牛毛，得好的人凤毛麟角，为什么呢？因为自己心里装满的，都是他人的不好，如此怎能得好呢？对于他人的不好，要淡入淡出；对于自己的不好，要深入浅出，下定决心，排除万难，去争取改正过错。无论是过去、现在的一切过错，改了就好，改了就不会影响、干扰自己的生活，就不会给自己的身体带来不利的影响，就不会给自己的思维造成混乱，就不会给自己本来心平明镜般的纯洁心灵带来无休止的纠结、烦恼和污染。
如果自己在站桩、拍打、意念口诀的时候，心灵深处常常都带着他人的不好不满，带着对宇宙天地，万事万物，列祖列宗的不好不满，那么，你获取的信息、能量等各种精微物质，就可能是不好的物质，可能是对自己身体的粒子、细胞不利的物质，可能是对自己的神经有干扰，或者造成神经障碍、病变，或者功能暂时性的丧失等等各种意料不到的状况出现。甚至是影响、干扰身体健康，阻碍潜能开拓的物质，比如各种废气、毒气、浊气、病气，各种暗物质、菌毒、病原微生物，甚至是各种传染源，超级细胞等等。
这些对人体不利的物质，有可能引发潜藏的各种病原病灶，造成一种或者多种病变，快速甚至瞬间的爆发出来。这些现象和神经功能暂时的失调综合起来，有的人叫&走火入魔&，有的人认为是开了天目，有的人认为是自己获得了某种神通，有的人甚至出现各种幻觉幻象幻听，由此带来的情绪不稳定，思维混乱不堪，大量消耗人体的元气、能量和各种精微物质，对自己心身健康的极端不利，对家庭对社会造成极坏的恶劣影响。
而身体的粒子、细胞需要的，渴求的好的信息、能量，各种微量元素、维生素等各种物质，就进不来，或者进的数量极少，无法满足粒子、细胞新陈代谢的正常需要。如此，带来的是身体素质难以提高，或者无法提高，甚至沿着原来的运行轨道，不停地向前发展。身体的脏腑、部位或者器官的病症继续加重、恶化等等，由于大自然天地万物分秒不停运动变化，太阳地球运动不止，人体也在遵循自然规律一天天的运动变化。
从起源、生发、成长到衰亡，人的身体各器官、脏腑、部位的功能也是自然地一天天发生变化，也是遵循从强到弱，从健全到低下，从好到差的自然规律发生变化。这是正常的，是自然的，是科学的，是符合自然规律的，是符合科学规律的。作为一个修行的人，有智慧的人，应该能够正确地认识这些客观规律，自然规律，能够正确地认识、看待这些生理现象，自然现象，而不致于自己给自己带来各种困扰，或者因家人、身边的朋友的冷言冷语，而丧失信心，甚至影响、动摇自己站桩、拍打、意念口诀的信心信念，影响、动摇行善积德的善心善信。
4、感恩宇宙天地、人类万众生命是聚灵，寻找宇宙天地、人类万众生命过错是收赃
聚灵是取精华，吸收阳光，心里温暖，坦坦荡荡，是吐故纳新，是吸收天地之精华，日月万物之灵气，是人体内在的粒子、细胞与外界大自然的人类万众生命内外沟通，相互交流，补充人体所需的各种能量和精微物质。可以恢复、增强粒子、细胞的功能，开拓粒子、细胞的潜能，不断地健体强身、增长智慧。感恩宇宙天地、人类万众生命是修真、存真。
寻找宇宙天地、人类万众生命过错是收赃。收赃是取糟粕，存储灰霾，心里阴冷，悲悲切切，是内外失联，断绝联系，孤立自己，是组成自己的粒子、细胞与外界大自然的人类万众生命的联系通道出现障碍，堵塞不通，信息中断，能量不能正常的进出往来，失去了外界大自然空间的人类万众生命的支持和帮助。一方有难，八方支援，由于失去了外界的支持，自己需求的信息、能量、各种精微物质进不来，体内的代谢产物和糟粕物质也由于通道的堵塞，排不出或者排除不干净不彻底，刚开始可能只是身体出现一些不舒适，情绪出现一些急躁，思维出现一些困惑，心灵显现一些烦恼，如果这时候幡然醒悟，亡羊补牢，为时未晚。
如果总是自以为是，自高自大，不知悔改，久而久之，在大自然空间繁杂多变的环境条件下，各种菌毒、病原微生物、传染源、超级细胞，更容易突破由于失去外援的免疫功能的防护，进入人体的粒子、细胞和神经里，不断地聚集。当聚集到一定数量，在适宜的条件下，由量变到质变，就可能会造成身体各脏腑、部位、器官、组织的病变或各种多发性的病变，甚至是恶性病变，如一个平常很健康的人突然发病，一下子就是癌症的晚期，给身心健康带来极大的损害，有的甚至失去宝贵的生命。寻找宇宙天地、人类万众生命过错是修假、存假。
人人都有好的一面，恶人也有好的一面，正面找不着，从反面上找。前面找不着，从后面找，左边找不着，从右边找，上面找不着，从下面找。没有好，就没有坏；没有坏，就没有好。一好再好不是好，一坏再坏不是坏！好中有坏，坏中有好。要学会辩证的分析看待事物。
5、常思己过是真金
想在石头堆里找到真金，就要自强不息立大志。以德为本，以志为根，以和为贵，持之以恒，功到自然成。在时代川流不息的经济海洋大潮中，能够保持清醒的头脑和心胸，能够坦然的面对各种利益冲突，能够站在公仆的立场，站在心甘情愿求奉献的立场，全心全意为人类万众生命服务的角度，建设大自然&&我们的幸福家园的生态文明，维持我们的幸福家园&&大自然的生态平衡，是非常难能可贵的。这就是无私，你无私，就能通，上通天，下通道，中通人类万众生命，你就能够得到天地、人类万众生命的支持和帮助。你就能得天助，做任何事都能天时地利人和和，你就能心平气和、出入平安、健康长寿、快乐幸福、心想事成！就能事业成功，家庭美满，金玉满堂！！
这就是你好我好大家好。如果人人都这样，人人为大自然万事万物，大自然万事万物为人人，人与大自然万事万物就能够和谐共存，生态平衡。真金不怕火炼，怕火不真金。在表面看似对自己没有丝毫益处的事物里，透过表面现象找出真正的益处来，这种益处方为真金。这种真金，佛家的列代祖师称之为----功德。这种真金不是你给某某有名望的，或者认为很灵的大寺庙捐赠一些钱就能得到的。过去人们常常讲发大财的家庭，或者出了状元的家庭，是祖上冒青烟，积了阴德。
由于祖祖辈辈行善积德，乐善好施，方有子孙后代的繁荣昌盛，学业有成，事业成功，金玉满堂。所以，通过修行，行善积德，不仅可以调整、改变自己的言行，还可以调整、改变自己的生活方式、为人处世的态度和方式，可以调整、改变自己与人与物，与家庭与各大小群体和环境空间的关系，使一切都顺风顺水，和谐相处，家庭温馨，事业成功，祥和圆满。二是可以还清自己过去的错误行为，导致欠下的情感、健康、心灵等各种因素造成的债务。金无足赤，人无完人，谁没有冲动的时候，谁能真正的没有一丁点过错？所以，要修行，要行善积德。三是可以为自己的父母偿还各种债务，消灾消难，还可以为子孙后代积阴德。
6、常思己过，识错改错，识过改过，改了就好
人生之路纵横交错，人在道上走，有时难免会贪恋某些美丽风景，而迷失方向，走上歧途和岔道。常思己过，就能够及时发现自己是不是迷失了方向，走错了道路。常思己过，就能够及时的调整发现，找回自己要走的正确道路。
比如我在湖南，要去北京天安门广场，我开着车子沿着京珠高速，一直向北走，就可以到自己要去的地方。可是，由于道上车水马龙，自己眼花缭乱，在进入一个离高速公路不远的美丽风景区，游玩之后，看着路牌明明标示的是南下的方向，不是北上，可是我却鬼神差使般的看作是北上，走上了南下的方向。这样一直走下去，怎么走也难以到达北京天安门。如果自己常思己过，看看沿途路上的标示牌，总会大脑清明，心平明镜，发现刚才上高速时走错了方向，要马上调转方向，才能到达目的地。
这就是常思己过的真实体现。人生之路不像去北京的高速公路，那么平坦、直观，没有一路上大大的简洁明了的各种标示牌。这条路眼睛是无法看见的，手和脚也是无法察觉出来的，靠的是什么呢？靠的是自己大脑清明、心平明镜的指引。如果没有清明的大脑和明镜般的心灵，前程是一片灰暗，混混沌沌的，是错综复杂，一环扣一环，很难找到方向和目标的。常思己过，是回首所走过的路，分析路上所发生的事，不断地总结经验教训，不断地认识发现各种各样的误区，调整前进的方向，朝着健康幸福的康庄大道奋勇前进，实现自己人生的美好愿望和生命更高境界的美好愿望。
7、常思己过如水
水？是的，常思己过如水。水无形、无味、无色，却能随方就圆、调五味、合五色。水本身没有固定的形状，用方形的容器装，是方的，用圆形的杯子装，就是圆的，可以随外界环境的变换，自然地进行变换；可以根据现实的需要，改变自己，扮演自己需要扮演的角色；也就是能够配合现实的需要，做自己应该做的事。水无常形，可长可短，可曲可直，可高可低，随方就圆，审时度势，根据客观需要自信从容，调整自己，改变自己，满足人类万众生命的各种需要。懂得常思己过的人，如水。
水本身没有固定的味道，日常生活中，人们可以用水加调料，调出需要的五味。用水加醋，调出酸味，用水加糖，调出甜味，用水加盐，可以调出咸味等等。五味对应的五行是木火土金水，五行是指大自然的五种属性，是生化万事万物的源头和根本。在某种程度上，五行也是万事万物的代表，与之对应的调五味的五，是全部，所有的意思，是指能够调出满足所有人类万众生命不同需要的味道，能够心甘情愿地为大家服务，做大家喜欢的事。你想要怎么样，我都可以配合你，满足你，无条件的为您服好务。懂得常思己过的人，如水。
合五色，水本身没有颜色是透明的，却可以融合大自然中所有的颜色，容纳大自然所有的污秽、污染，包容大自然一切善恶、美丑、是非等，公平公正地对待每一个生命。色是指颜色，五色是指各种各样的颜色，泛指大自然，在大自然中繁衍生息的人类万众生命，和人类万众生命的所有特性。每个生命都有不同的个性，有各自不同的善恶、美丑、是非观念，水却能完全融合所有的善与不善，好与不好，美与不美。全心全意为人类万众生命做奉献，心平气和做大家的公仆。奋不顾身，不惜牺牲自我，持之以恒，孜孜不倦。古人说上善若水，人，如果做人做事像水一样，就成道了。懂得常思己过的人，如水。
8、水也有污染
日常生活中，人们从睡梦中睁开眼睛，上洗手间，大小解，用水冲，刷牙、洗脸用水，喝的也是水。做饭，洗菜用水。洗衣服、拖地用水。晚上洗澡用的还是水，日复一日，年复一年，周而复始，一代一代都是用这个水。水有洗刷、净化万事万物的智慧，能够不断地沉淀、分解各种味、色和杂质，不断地净化自己的智慧。可是，任何事物的承受能力都有一定的限度，超过了这个限度，水的自我净化的功能，正在经受严峻的考验，面临崩溃的边缘。
改革开放以来，随着工业的进一步发展，造纸业、印染业、采矿业如雨后春笋般的冒出来，各种化学产品的大量使用，比如硫酸、盐酸各种酸，各种化工溶剂如笨类、酮类的大量使用，各种农药、毒药的过量使用，各种动植物生长激素的过量使用等等，各种工业废水、废气不经处理，直接排到大江大河，大自然空间，严重污染了人们朝夕相处的好朋友----水。尽管水自身有自己的净化功能，可是，长期大规模全方位的污染，使得水也无力保全自我，在全心全意做公仆的同时，自身也遭受严重的伤害。
前面自诩自己没有过错，不需要反思的你，不知道有没有跟随看到这里。如果有，请你反思一下，你有没有在水的伤口上撒盐，你是不是给水造成严重伤害的广大群体中之一员？如果你是农民，你有没有过量使用各种农药？有没有过量给动物植物使用各种生长激素？如果你是工人，你有没有过量使用各种化学物质，直接排放各种工业废水废气？如果你是各个行业的老板，你在挣钱发财的时候，有没有伤害我们的好朋友，水和空气，有没有伤害大自然&&我们的幸福家园？如果你还能够理直气壮地讲自己没有过错。那你确实是好人，是地地道道的好人，是善人，行善积德之人，上天必有福报。
9、空气也不能幸免被污染
水和空气是相互影响，互相依存的，互为一体的。地上的水，渗透到地下，与地下的水互相交汇融合。水蒸气蒸发到空间，遇到合适的条件变成雨，雨又下落到地上，滋润万众生命。这个过程，水蒸气散发到空间的时候，就与空气中各种微粒，如PM2.5结合在一起，下雨的时候，雨水又把空间的PM2.5颗粒带到地面，循环反复，周而复始。空气污染与水污染相互交叉，水的污染会影响空气，空气的污染也会影响水。彼此是你好我好大家好，你受污染我受污染大家受污染。而世世代代在大自然空间繁衍生息的人类万众生命，始终都离不开空气和水。水和空气都被污染了，人类万众生命还能幸免吗？就丝毫没有影响吗？也许，近些年层出不穷的恶性病，怪病，与空气和水的污染有些关联吧。
10、还人类万众生命阳光明媚、朗朗乾坤！
随着改革开放的深入，很多人的生活好起来了。于是，很多人开始提倡素食，不吃荤。说素食能够健康长寿，精神饱满，快乐幸福，有诸多的好。可是，素食再好，荤食再好，大家还是生活在有污染的空气中，你还是要呼吸有污染的空气，你还是要喝有污染的水，用有污染的水。如果有一种方式方法，能够穿透被污染的大气层，在太空无污染的空间进行自主的呼吸，获取高效无杂质的氧气、营养和能量，也许，就真的能够实现健康长寿、无病无灾的美好愿望。
可是，这样的高尖科学方式方法，世界上有几人能够懂得，又有几人能够运用自如！人类万众生命，还是在有污染的环境空间中求生存谋发展，与地球母亲同呼吸共命运，息息相连，息息相关，一损俱损，一荣俱荣。生命从呼吸开始，止于停止呼吸，而一呼一吸都是污染，人类又如何摆脱这种厄运？如何走向健康长寿、快乐幸福的美好人生？强烈呼吁各界有识之士，多想想办法，采取强制有效的各种措施，想方设法减小空气和水的污染，还人类万众生命阳光明媚、朗朗乾坤！
11、常思己过，识过改过；神清气朗、心平气和
现实生活中，每个人每天都要被动地接收外界各种各样的信息，这些信息是真的还是假的，难以鉴别。前段时间大肆横行的网络谣言，除了背后别有用心的操纵者，很多参与传播的，可能也是不知真相。既然这些人不知道真相，为何要去参与传播谣言呢？因为，没有常思己过。不知道传播谣言带给自己的影响和伤害。
常语说：出家人不打诳语。为什么出家人不打诳语呢？因为出家人明确知道诳语是假话，是谣言，假话害人害己害众生。出家修行要接受天地万物众生的监督，不管有意、无意误导众生，迷惑众生，犯下的过错，都要被天地万物记录下来。实际上，不仅是出家人，所有的人类万众生命的一言一行，功过是非都要接受天地万物的监督，并且被铁面无私的如实记录在案，容不得半点虚假。所以，出家修行的人，严格要求自己不打诳语。
常思己过的人，知道制造谣言，传播谣言是没有诚信，自己否认自己。你对他人没有诚信，别人对你也同样没有诚信，等于他人也否认你。如此，自己否认自己，他人也否认自己，这怎么可以啊？那还怎么顶天立地于天地之间呢。大家都知道，寺庙里的神像、佛菩萨，你相信他，他就是神，就是佛菩萨，能够给你化解灾难，助你事业成功，健康幸福！如果你不相信，就只是泥胎塑像。可见，信是非常重要的。你信，你就赋予了对方给你消灾消难的权利，你就赋予了对方助你事业成功，健康幸福的权利。你不信，也无所谓，对方也没有任何损失，有损失的是你自己！
去医院看病也是同样的道理，你相信这个医生，认为这个医生能很快治好你的病症，你的病就好得很快。如果你怀疑给你看病的医生，总是觉得这个医生医术不精湛，开的处方不好，你的病就很难好，这样的事例很多很多。如果你是学生，总觉得某某老师上课不精彩，口才不好，你就学不好该老师教授的学科。
常思己过，识过改过；神清气朗，心平气和。时常注意不要妨碍他人，情愿自己吃一点亏，受一点委屈，把方便给他人，这是修行的根本。
生命细胞科学教研组
2013年6月于深圳
版权所有：我们的幸福家园
生命细胞科学探索、应用项目组　网站备案号：
转载文章请注明本站&&&&QQ咨询
& & & & & & & & &&大红鹰娱乐城,大发体育注册 - 鸿运国际娱乐场
只需一步，快速开始
扫一扫，用微信登录
今日: 595|昨日: 2296|帖子: |会员: 492894|: |欢迎新会员:
大发体育注册：犬类竞技比赛打斗视频。(比特竞技不包括)
4320 / <span title="万
改版为&&比特犬正规比赛竞技视频专区、只记录国内外正规比赛录像视频。
叫口、适口、及其他类型的比特视频请发往竞技视频区！版主:
1480 / 6万
主题: 6万, 帖数: <span title="4万
主题: 94, 帖数: 532
主题: 2万, 帖数: <span title="万
主题: 1万, 帖数: <span title="万
主题: 9568, 帖数: <span title="万
主题: 1万, 帖数: <span title="万
主题: 1万, 帖数: <span title="万
主题: 1526, 帖数: 1万
主题: 389, 帖数: 5069
主题: 7696, 帖数: <span title="万
主题: 1万, 帖数: <span title="万
主题: 7126, 帖数: <span title="万
主题: 2348, 帖数: 2万
主题: 6789, 帖数: <span title="万
主题: 861, 帖数: 1万
主题: 359, 帖数: 3970
主题: 3771, 帖数: 6万
主题: 2万, 帖数: <span title="万
主题: 7095, 帖数: <span title="万
主题: 1万, 帖数: <span title="万
主题: 8868, 帖数: <span title="万
主题: 3071, 帖数: 6万
主题: 1551, 帖数: 4万
主题: 1328, 帖数: 2万
主题: 5095, 帖数: 9万
主题: 1万, 帖数: <span title="万
主题: 5万, 帖数: <span title="5万
主题: 2万, 帖数: <span title="万
主题: 3419, 帖数: 3万
主题: 1万, 帖数: <span title="万
主题: 1133, 帖数: 1万
主题: 2万, 帖数: <span title="万
主题: 4113, 帖数: 4万
主题: 1万, 帖数: <span title="万
主题: 2244, 帖数: 1万
主题: 4万, 帖数: <span title="万
主题: 1万, 帖数: <span title="万
主题: 3620, 帖数: 2万
主题: 1万, 帖数: <span title="万
主题: 5436, 帖数: 6万
主题: 6481, 帖数: <span title="万
主题: 1005, 帖数: 8967
主题: 756, 帖数: 7211
主题: 53, 帖数: 290
主题: 1万, 帖数: <span title="万
主题: 1万, 帖数: <span title="万
主题: 364, 帖数: 6816
主题: 1145, 帖数: 8939
2015年度摄影大赛
254 / 2087
昨天&10:17
　爱心是一片照射在冬日的阳光，它使贫病交迫的人分外感到人间的温暖；爱心是一泓出现在沙漠的泉水，它使濒临绝境的人重新看到鸿运国际娱乐场的希望。传递公益正能量！
主题: 12, 帖数: 21
主题: 2972, 帖数: <span title="万
主题: 31, 帖数: 247
主题: 2583, 帖数: 9万
Powered by#!/usr/bin/perl
#┌─────────────────────────────────
#│ Aska BBS v3.5 ()
#│ Copyright (c) KentWeb
#│ webmaster@
#│ http://www./
#└─────────────────────────────────
$ver = 'ASKA BBS v3.5';
#┌─────────────────────────────────
#│ [注意事項]
#│ 1. このスクリプトはフリーソフトです。このスクリプトを使用した
いかなる損害に対して作者は一切の責任を負いません。
#│ 2. 設置に関する質問はサポート掲示板にお願いいたします。
直接メールによる質問は一切お受けいたしておりません。
#└─────────────────────────────────
# 【ファイル構成例】
public_html (ホームディレクトリ)
+-- aska / aska.cgi
askalog.cgi [606]
#-------------------------------------------------
■基本設定
#-------------------------------------------------
# ライブラリ取り込み
require './jcode.pl';
# タイトル名
$title = "亜 州 ご 意 見 箱";
# タイトル文字の色
$tCol = "#666666";
# タイトル文字サイズ
$tSize = '24px';
# 本文文字サイズ
$bSize = '13px';
# 本文文字スタイル
$bFace = '"MS UI Gothic", "ＭＳ Ｐゴシック", Osaka';
# 記事題名の色
$subCol = "#DD0000";
# スクリプトURL
$script = './aska.cgi';
# ログファイル
$logfile = './askalog.cgi';
# 管理用パスワード
$pass = '0123';
# 最大記事数（これを超える記事は古い順に削除）
$max = 100;
# 戻り先URL
$home = "../index.html";
# タイトル画像を使う場合 (http://から画像を指定)
$ImgT = "";
$ImgW = 300; # 横幅サイズ
$ImgH = 70; # 縦幅サイズ
# bodyタグ
$body = '';
# URLの自動リンク (0=no 1=yes)
$autolink = 1;
# 引用部色変更
1 : 色指定を行うと「引用部」を色変更します
2 : この機能を使用しない場合は何も記述しないで下さい ($refCol="";)
$refCol = "#804000";
# １ページあたりの記事表示件数
$pageLog = 10;
# メール通知機能
0 : 通知しない
1 : 通知する → 自分の投稿記事も通知する
2 : 通知する → 自分の投稿記事は通知しない
$mailing = 0;
# sendmailのパス（メール通知する場合）
$sendmail = '/usr/sbin/sendmail';
# メール通知先アドレス（メール通知する場合）
$mailto = 'xxx@xxx.xxx';
# タグ広告挿入オプション
の代わりに「広告タグ」を挿入。
→ 広告タグ以外に、MIDIタグ や LimeCounter等のタグにも使用可能。
$banner1 = '';
# 表示部上部に挿入
$banner2 = '';
# 表示部下部に挿入
# 記事の更新は method=post に限定する場合（セキュリティ対策）
→ 0=no 1=yes
$postonly = 1;
# 他サイトから投稿排除時に指定する場合（セキュリティ対策）
→ 掲示板のURLをhttp://から書く
$baseUrl = '';
# 投稿制限（セキュリティ対策）
0 : しない
1 : 同一IPアドレスからの投稿間隔を制限する
2 : 全ての投稿間隔を制限する
$regCtl = 1;
# 制限投稿間隔（秒数）
→ $regCtl での投稿間隔
$wait = 60;
# 禁止ワード
# → 投稿時禁止するワードをコンマで区切る
$no_wd = '';
# 日本語チェック（投稿時日本語が含まれていなければ拒否する）
$jp_wd = 0;
# URL個数チェック
# → 投稿コメント中に含まれるURL個数の最大値
$urlnum = 3;
# 投稿後の処理
→ 掲示板自身のURLを記述しておくと、投稿後リロードします
→ ブラウザを再読み込みしても二重投稿されない措置。
→ Locationヘッダの使用可能なサーバのみ
$location = '';
# ホスト取得方法
# 0 : gethostbyaddr関数を使わない
# 1 : gethostbyaddr関数を使う
$gethostbyaddr = 0;
# アクセス制限（半角スペースで区切る、アスタリスク可）
→ 拒否ホスト名を記述（後方一致）【例】*.
$deny_host = '';
→ 拒否IPアドレスを記述（前方一致）【例】210.12.345.*
$deny_addr = '';
# １回当りの最大投稿サイズ (bytes)
$maxData = 51200;
#-------------------------------------------------
■設定完了
#-------------------------------------------------
if ($mode eq 'regist') { & }
elsif ($mode eq 'find') { & }
elsif ($mode eq 'howto') { & }
elsif ($mode eq 'admin') { & }
elsif ($mode eq 'usrdel') { & }
elsif ($mode eq 'check') { & }
#-------------------------------------------------
アクセス制限
#-------------------------------------------------
sub axscheck {
# IP&ホスト取得
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($gethostbyaddr && ($host eq "" || $host eq $addr)) {
$host = gethostbyaddr(pack("C4", split(/?./, $addr)), 2);
# IPチェック
local($flg);
foreach ( split(/?s+/, $deny_addr) ) {
s/?./???./g;
s/?*/?.?*/g;
if ($addr =? /^$_/i) { $flg = 1; }
if ($flg) {
&error("アクセスを許可されていません");
# ホストチェック
} elsif ($host) {
foreach ( split(/?s+/, $deny_host) ) {
s/?./???./g;
s/?*/?.?*/g;
if ($host =? /$_$/i) { $flg = 1; }
if ($flg) {
&error("アクセスを許可されていません");
if ($host eq "") { $host = $ }
#-------------------------------------------------
#-------------------------------------------------
sub html {
local($r_sub,$r_com);
# クッキー取得
local($cnam,$ceml,$curl,$cpwd) = &get_
if (!$curl) { $curl = 'http://'; }
# レス処理
$in{'res'} =? s/?D//g;
if ($in{'res'}) {
local($flag,$no,$dat,$nam,$eml,$sub,$com);
open(IN,"$logfile");
while () {
($no,$dat,$nam,$eml,$sub,$com) = split(//);
if ($in{'res'} == $no) { $flag = 1; }
close(IN);
if (!$flag) { &error("該当記事が見つかりません"); }
$sub =? s/^Re://g;
$sub =? s/?[?d+?]?s?//g;
$r_sub = "Re:[$no] $sub";
$r_com = "& $com";
$r_com =? s//?r& /
print "?n";
print "$banner1?n" if ($banner1 ne "");
# タイトル
if ($ImgT) {
print "?n";
print "$title?n";
print <<EOM;
メッセージ
(英数字で8文字以内)
クッキー情報保存
local($i) = 0;
open(IN,"$logfile") || &error("Open Error: $logfile");
while () {
next if ($i
$page + $pageLog);
local($no,$dat,$nam,$eml,$sub,$com,$url) = split(//);
if ($eml) { $nam = ""; }
if ($autolink) { &auto_link($com); }
if ($refCol) { $com =? s/([?>]|^)(&[^<]*)/$1$2/g; }
print "[$no] $sub?n";
print "投稿者：$nam 投稿日：$dat?n";
print "[]$com";
print "" if ($url);
print "?n";
close(IN);
print <<EOM;
# ページ繰り越し
local($next) = $page + $pageL
local($back) = $page - $pageL
if ($back >= 0) {
print "?n";
if ($next < $i) {
print "?n";
# 著作権表示（削除禁止）
print <<EOM;
#-------------------------------------------------
#-------------------------------------------------
sub regist {
# 投稿チェック
if ($postonly && !$post_flag) { &error("不正なアクセスです"); }
if ($baseUrl) { &refC }
# チェック
if ($no_wd) { &no_ }
if ($jp_wd) { &jp_ }
if ($urlnum > 0) { & }
# フォーム内容をチェック
local($err);
if ($in{'name'} eq "") { $err .= "名前が入力されていません"; }
if ($in{'comment'} eq "") { $err .= "コメントが入力されていません"; }
if ($in{'email'} && $in{'email'}!? /^[?w?.?-]+?@[?w?.?-]+?.[a-zA-Z]{2,6}$/) {
$err .= "Ｅメールの入力内容が不正です";
if ($err) { &error($err); }
if ($in{'url'} eq "http://") { $in{'url'} = ""; }
if ($in{'sub'} eq "") { $in{'sub'} = "無題"; }
# 先頭記事読み取り
local($top,$i,$flag,@data);
open(DAT,"+< $logfile") || &error("Open Error: $logfile");
eval 'flock(DAT, 2);';
# 重複投稿チェック
local($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$tim) = split(//, $top);
if ($in{'name'} eq $nam && $in{'comment'} eq $com) {
close(DAT);
&error("二重投稿は禁止です");
# 連続投稿チェック
local($time) =
if ($regCtl == 1) {
if ($host eq $hos && $time - $tim < $wait) { $flag = 1; }
} elsif ($regCtl == 2) {
if ($time - $tim < $wait) { $flag = 1; }
if ($flag) {
close(DAT);
&error("現在投稿制限中です。もうしばらくたってから投稿をお願いします");
# 記事No採番
# 削除キー暗号化
local($pwd);
if ($in{'pwd'} ne "") { $pwd = &encrypt($in{'pwd'}); }
# 時間取得
local($min,$hour,$mday,$mon,$year,$wday) = (localtime($time))[1..6];
local(@wk) = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
local($date) = sprintf("%04d/%02d/%02d(%s) %02d:%02d",
$year+1900,$mon+1,$mday,$wk[$wday],$hour,$min);
# 記事数調整
$data[0] = $
while () {
push(@data,$_);
last if ($i >= $max-1);
seek(DAT, 0, 0);
print DAT "$no$date$in{'name'}$in{'email'}$in{'sub'}$in{'comment'}$in{'url'}$host$pwd$time?n";
print DAT @
truncate(DAT, tell(DAT));
close(DAT);
# クッキーを記憶
if ($in{'cook'} eq 'on') {
&set_cookie($in{'name'},$in{'email'},$in{'url'},$in{'pwd'});
# メール通知処理
if ($mailing == 1 || ($mailing == 2 && $in{'email'} ne $mailto)) { &mail_ }
# リロード
if ($location) {
if ($ENV{'PERLXS'} eq "PerlIS") {
print "HTTP/1.0 302 Temporary Redirection?r?n";
print "Content-type: text/html?n";
print "Location: $location??n?n";
&message("投稿は正常に受理されました");
#-------------------------------------------------
ワード検索
#-------------------------------------------------
sub find {
print <<EOM;
キーワードを入力し、検索ボタンを押してください。
キーワードはスペースで区切って複数指定することができます。
キーワード
foreach ("AND", "OR") {
if ($in{'cond'} eq $_) {
print "$_?n";
print "$_?n";
print " 表?示 ?n";
foreach (10,15,20,25,30) {
if ($in{'view'} == $_) {
print "$_件?n";
print "$_件?n";
print <<EOM;
# ワード検索の実行と結果表示
if ($in{'word'} ne "") {
# 入力内容を整理
$in{'word'} =? s/?x81?x40/ /g;
local(@wd) = split(/?s+/, $in{'word'});
print "?n";
local($i) = 0;
local(@find);
open(IN,"$logfile") || &error("Open Error: $logfile");
while () {
local($no,$dat,$nam,$eml,$sub,$com,$url) = split(//);
$flag = 0;
foreach $wd (@wd) {
if (index("$no $nam $eml $sub $com $url",$wd) >= 0) {
$flag = 1;
if ($in{'cond'} eq 'OR') { }
if ($in{'cond'} eq 'AND') {
$flag = 0;
if ($flag) {
next if ($i
$page + $in{'view'});
push(@find,$_);
close(IN);
print "▽ $in{'word'} に関連する記事は$i件見つかりました。?n";
foreach (@find) {
local($no,$ymd,$nam,$eml,$sub,$com,$url) = split(//);
if ($eml) { $nam=""; }
if ($url) { $com .= ""; }
print "[$no] $sub ";
print "投稿者：$nam 投稿日：$ymd?n";
print "$com?n";
print "?n";
$next = $page + $in{'view'};
$back = $page - $in{'view'};
if ($back >= 0) {
print "?n";
if ($next < $i) {
print "?n";
print <<EOM;
#-------------------------------------------------
管理モード
#-------------------------------------------------
sub admin {
if ($in{'pass'} eq "") { & }
elsif ($in{'pass'} ne $pass) { &error("パスワードが違います"); }
# 削除処理
if ($in{'job'} eq "dele" && $in{'no'}) {
# 削除情報
local(@del) = split(/?0/, $in{'no'});
# 削除情報をマッチング
local(@data);
open(DAT,"+< $logfile") || &error("Open Error: $logfile");
eval 'flock(DAT, 2);';
while () {
local($no) = split(//);
local($flag);
foreach $del (@del) {
if ($no == $del) { $flag = 1; }
if (!$flag) { push(@data,$_); }
seek(DAT, 0, 0);
print DAT @
truncate(DAT, tell(DAT));
close(DAT);
# 修正画面
} elsif ($in{'job'} eq "edit" && $in{'no'}) {
if ($in{'no'} =? /?0/) {
&error("修正の場合選択する記事は１つのみです");
# 記事抽出
local($no,$dat,$nam,$eml,$sub,$com,$url);
open(IN,"$logfile") || &error("Open Error: $logfile");
while () {
($no,$dat,$nam,$eml,$sub,$com,$url) = split(//);
if ($in{'no'} == $no) { }
close(IN);
# 修正フォームへ
&edit_form($no,$dat,$nam,$eml,$sub,$com,$url);
# 修正実行
} elsif ($in{'job'} eq "edit2") {
if ($in{'url'} eq "http://") { $in{'url'} = ""; }
if ($in{'sub'} eq "") { $in{'sub'} = "無題"; }
# 読み出し
local(@data);
open(DAT,"+< $logfile") || &error("Open Error: $logfile");
eval 'flock(DAT, 2);';
while () {
local($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pwd,$tim) = split(//);
if ($in{'no'} == $no) {
$_ = "$no$dat$in{'name'}$in{'email'}$in{'sub'}$in{'comment'}$in{'url'}$hos$pwd$tim?n";
push(@data,$_);
seek(DAT, 0, 0);
print DAT @
truncate(DAT, tell(DAT));
close(DAT);
# 完了メッセージ
&message("記事を修正しました");
# 削除画面を表示
print <<EOM;
処理を選択して送信ボタンを押してください。
# 記事を展開
open(IN,"$logfile") || &error("Open Error: $logfile");
while () {
local($no,$dat,$nam,$eml,$sub,$com,$url,$hos) = split(//);
if ($eml) { $nam=""; }
$com =? s/]*(>|$)//g;
if (length($com) > 60) {
$com = substr($com,0,60) . '...';
print "[$no] $sub ";
print "$nam - $dat 【$hos】?n";
print "$com?n";
close(IN);
print <<EOM;
#-------------------------------------------------
修正フォーム
#-------------------------------------------------
sub edit_form {
$com =? s//?n/g;
if (!$url) { $url = "http://"; }
print <<EOM;
変更する部分のみ修正して送信ボタンを押してください。
メッセージ
#-------------------------------------------------
#-------------------------------------------------
sub howto {
print <<EOM;
この掲示板はクッキー対応です。一度記事を投稿いただくと、おなまえ、Ｅメール、ＵＲＬ、削除キーの情報は2回目以降は自動入力されます。（ただし利用者のブラウザがクッキー対応の場合）
投稿記事には、タグは一切使用できません。
記事を投稿する上での必須入力項目は「おなまえ」と「メッセージ」です。Ｅメール、ＵＲＬ、題名、削除キーは任意です。
記事には、半角カナは一切使用しないで下さい。文字化けの原因となります。
記事の投稿時に「削除キー」にパスワード（英数字で8文字以内）を入れておくと、その記事は次回削除キーによって削除することができます。
記事の保持件数は最大$max件です。それを超えると古い順に自動削除されます。
既存の記事に簡単に「返信」することができます。各記事にある「返信」のリンク部を押すと投稿フォームが返信用となります。
過去の投稿記事から「キーワード」によって簡易検索ができます。トップメニューののリンクをクリックすると検索モードとなります。
管理者が著しく不利益と判断する記事や他人を誹謗中傷する記事は予?告なく削除することがあります。
#-------------------------------------------------
ユーザ記事削除
#-------------------------------------------------
sub usrdel {
# 投稿チェック
if ($postonly && !$post_flag) { &error("不正なアクセスです"); }
if ($baseUrl) { &refC }
if ($in{'no'} eq '' || $in{'pwd'} eq '') {
&error("削除Noまたは削除キーが入力モレです");
local($flag,$match,@data);
eval 'flock(DAT, 2);';
open(DAT,"+< $logfile") || &error("Open Error: $logfile");
while () {
local($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw) = split(//);
if ($in{'no'} == $no) {
$flag = 1;
if (!$pw) { $flag = 2; }
$match = &decrypt($in{'pwd'}, $pw);
push(@data,$_);
if ($flag == 2) { &error("削除キーが設定されていません"); }
elsif (!$flag) { &error("該当記事が見当たりません"); }
elsif ($match != 1) { &error("削除キーが違います"); }
# ログを更新
seek(DAT, 0, 0);
print DAT @
truncate(DAT, tell(DAT));
close(DAT);
# 完了メッセージ
&message("記事を削除しました");
#-------------------------------------------------
フォームデコード
#-------------------------------------------------
sub decode {
local($buf);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
$post_flag = 1;
if ($ENV{'CONTENT_LENGTH'} > $maxData) {
&error("投稿量が大きすぎます");
read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
$post_flag = 0;
$buf = $ENV{'QUERY_STRING'};
undef(%in); $page = 0;
foreach ( split(/&/, $buf) ) {
local($key, $val) = split(/=/);
$val =? tr/+/ /;
$val =? s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/
# S-JISコード変換
&jcode'convert(*val, "sjis", "", "z");
# エスケープ
$val =? s/&/&/g;
$val =? s/"/&/g;
$val =? s//&/g;
$val =? s/?r?n//g;
$val =? s/?r//g;
$val =? s/?n//g;
# ページ繰り越し
if ($key =? /^page(?d+)$/) {
$page = $1;
$in{$key} .= "?0" if (defined($in{$key}));
$in{$key} .= $
$mode = $in{'mode'};
# タイムゾーン設定
$ENV{'TZ'} = "JST-9";
$headflag = 0;
#-------------------------------------------------
HTMLヘッダ
#-------------------------------------------------
sub header {
if ($headflag) { }
print "Content-type: text/html?n?n";
print <<"EOM";
$headflag = 1;
#-------------------------------------------------
エラー処理
#-------------------------------------------------
sub error {
print <<EOM;
#-------------------------------------------------
クッキー発行
#-------------------------------------------------
sub set_cookie {
local(@cook) = @_;
local($gmt, $cook, @t, @m, @w);
@t = gmtime(time + 60*24*60*60);
@m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
@w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
# 国際標準時を定義
$gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",
$w[$t[6]], $t[3], $m[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]);
# URLエンコード
foreach (@cook) {
s/(?W)/sprintf("%%%02X", unpack("C", $1))/
$cook .= "$_";
print "Set-Cookie: ASKA_BBS=$ expires=$gmt?n";
#-------------------------------------------------
クッキー取得
#-------------------------------------------------
sub get_cookie {
local($key, $val, *cook);
# クッキーを取得
$cook = $ENV{'HTTP_COOKIE'};
# 該当IDを取り出す
foreach ( split(/;/, $cook) ) {
($key, $val) = split(/=/);
$key =? s/?s//g;
$cook{$key} = $
# データをURLデコードして復元
foreach ( split(//, $cook{'ASKA_BBS'}) ) {
s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1)/
push(@cook,$_);
return (@cook);
#-------------------------------------------------
#-------------------------------------------------
sub encrypt {
local($in) = @_;
local($salt, $enc, @s);
@s = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');
$salt = $s[int(rand(@s))] . $s[int(rand(@s))];
$enc = crypt($in, $salt) || crypt ($in, '$1$' . $salt);
#-------------------------------------------------
#-------------------------------------------------
sub decrypt {
local($in, $dec) = @_;
local($salt) = $dec =? /^?$1?$(.*)?$/ && $1 || substr($dec, 0, 2);
if (crypt($in, $salt) eq $dec || crypt($in, '$1$' . $salt) eq $dec) {
return (1);
return (0);
#-------------------------------------------------
メール送信
#-------------------------------------------------
sub mail_to {
local($msub,$mbody,$mcom,$email);
# メールタイトルを定義
$msub = "[$title : $no] $in{'sub'}";
# 本文の改行?タグを復元
$mcom = $in{'comment'};
$mcom =? s//?n/g;
$mcom =? s/&/＜/g;
$mcom =? s/&/＞/g;
$mcom =? s/&/”/g;
$mcom =? s/&/＆/g;
$mbody = "$titleに以下の投稿がありました。?n?n";
$mbody .= "Date : $date?n";
$mbody .= "Host : $host?n";
$mbody .= "Agent: $ENV{'HTTP_USER_AGENT'}?n?n";
$mbody .= "名前 : $in{'name'}?n";
$mbody .= "email: $in{'email'}?n";
$mbody .= "題名 : $in{'sub'}?n";
$mbody .= "参照 : $in{'url'}?n" if ($in{'url'});
$mbody .= "?n$mcom?n";
# 題名をBASE64化
$msub = &base64($msub);
# メールアドレスがない場合は管理者アドレスに置き換え
if ($in{'email'} eq "") { $email = $ }
else { $email = $in{'email'}; }
# sendmail送信
open(MAIL,"| $sendmail -t -i") || &error("メール送信失敗");
print MAIL "To: $mailto?n";
print MAIL "From: $email?n";
print MAIL "Subject: $msub?n";
print MAIL "MIME-Version: 1.0?n";
print MAIL "Content-type: text/ charset=iso-2022-jp?n";
print MAIL "Content-Transfer-Encoding: 7bit?n";
print MAIL "X-Mailer: $ver?n?n";
foreach ( split(/?n/, $mbody) ) {
&jcode'convert(*_, 'jis', 'sjis');
print MAIL $_, "?n";
close(MAIL);
#-------------------------------------------------
自動リンク
#-------------------------------------------------
sub auto_link {
$_[0] =? s/([^=^?"]|^)(https??:[?w?.???-?/???&?=?@?;?#?:?%]+)/$1$2/g;
#-------------------------------------------------
REFチェック
#-------------------------------------------------
sub refCheck {
local($ref) = $ENV{'HTTP_REFERER'};
$ref =? s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/
$baseUrl =? s/(?W)/??$1/g;
if ($ref && $ref !? /$baseUrl/i) { &error("不正なアクセスです"); }
#-------------------------------------------------
BASE64変換
#-------------------------------------------------
# とほほのWWW入門で公開されているルーチンを参考にしました。
# http://tohoho.wakusei.ne.jp/
sub base64 {
local($sub) = @_;
&jcode'convert(*sub, 'jis', 'sjis');
$sub =? s/?x1b?x28?x42/?x1b?x28?x4a/g;
$sub = "=?iso-2022-jp?B?" . &b64enc($sub) . "?=";
sub b64enc {
local($ch)="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/";
local($x, $y, $z, $i);
$x = unpack("B*", $_[0]);
for ($i=0; $y=substr($x,$i,6); $i+=6) {
$z .= substr($ch, ord(pack("B*", "00" . $y)), 1);
if (length($y) == 2) {
$z .= "==";
} elsif (length($y) == 4) {
$z .= "=";
#-------------------------------------------------
#-------------------------------------------------
sub enter {
print <<EOM;
パスワードを入力して下さい
#-------------------------------------------------
メッセージ表示
#-------------------------------------------------
sub message {
print <<EOM;
if ($in{'pass'} ne "") {
print "?n";
print "?n";
print <<EOM;
#-------------------------------------------------
禁止ワードチェック
#-------------------------------------------------
sub no_wd {
local($flg);
foreach ( split(/,/, $no_wd) ) {
if (index("$in{'name'} $in{'sub'} $in{'comment'}",$_) >= 0) {
if ($flg) { &error("禁止ワードが含まれています"); }
#-------------------------------------------------
日本語チェック
#-------------------------------------------------
sub jp_wd {
local($sub, $com, $mat1, $mat2, $code1, $code2);
$sub = $in{'sub'};
$com = $in{'comment'};
if ($sub) {
($mat1, $code1) = &jcode'getcode(*sub);
($mat2, $code2) = &jcode'getcode(*com);
if ($code1 ne 'sjis' && $code2 ne 'sjis') {
&error("題名又はコメントに日本語が含まれていません");
#-------------------------------------------------
URL個数チェック
#-------------------------------------------------
sub urlnum {
local($com) = $in{'comment'};
local($num) = ($com =? s|(https?://)|$1|ig);
if ($num > $urlnum) {
&error("コメント中のURLアドレスは最大$urlnum個までです");
#-------------------------------------------------
チェックモード
#-------------------------------------------------
sub check {
print <<EOM;
Check Mode
# ログファイル
if (-e $logfile) {
print "LOGパス：OK?n";
if (-r $logfile && -w $logfile) {
print "LOGパーミッション：OK?n";
print "LOGパーミッションが不正です。?n";
print "LOGのパスが不正です：NG → $logfile?n";
print <<EOM;}