編集履歴

質問編集履歴

コード修正

2018/09/27 02:47

投稿

trm

スコア117

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -10,608 +10,6 @@
 ```perl
-#!/usr/bin/perl
-#use utf8;
-#binmode(STDOUT,":utf8");
-use CGI;
-$query = new CGI;
-use CGI qw(:standard);
-use File::Copy;
-use Encode 'encode';
-#require 'jcode.pl';
-#use jcode.pl;
-#binmode STDIN, ':utf8';
-#binmode STDOUT, ':utf8';
-#binmode STDERR, ':utf8';
-#use strict;
-#use warnings;
-#use DBI;
-#use DBD::SQLite;
-#追加use
-#use utf8;
-#use CGI;
-#$query = new CGI;
-#use CGI qw(:standard);
-#use File::Copy;
-#binmode STDIN, ':utf8';
-#binmode STDOUT, ':utf8';
-#binmode STDERR, ':utf8';
-#use strict;
-#use warnings;
-#追加use終了
-#binmode STDIN, ':encoding(cp932)';
-#binmode STDOUT, ':encoding(cp932)';
-#binmode STDERR, ':encoding(cp932)';
-#use open IN  => ":utf8";
-#use open OUT => ":utf8";
-#use open IO => ":utf8";
-#use open IN  => ":encoding(utf8)";
-#use open OUT => ":encoding(utf8)";
-#use open IO => ":encoding(utf8)";
-$ID =$query->param('ID');
-$pass =$query->param('pass');
-$pass2 =$query->param('pass2');
-$shimei =$query->param('shimei');
-$kaisyamei =$query->param('kaisyamei');
-$mail =$query->param('mail');
-$syouhinmei =$query->param('syouhinmei');
-$nedan =$query->param('nedan');
-$q1 =$query->param('q1');
-$file1 =$query->param('file1');
-$file2 =$query->param('file2');
-$file3 =$query->param('file3');
-$mojijouhou =$query->param('mojijouhou');
-#$ID = encode('UTF-8', $ID);
-#$pass = encode('UTF-8', $pass);
-#$pass2= encode('UTF-8', $pass2');
-#$shimei= encode('UTF-8', $shimei);
-#$kaisyamei= encode('UTF-8', $kaisyamei;
-#$mail= encode('UTF-8', $mail);
-#$syouhinmei= encode('UTF-8', $syouhinmei);
-#$nedan= encode('UTF-8', $nedan);
-#$q1= encode('UTF-8', $q1);
-#$file1= encode('UTF-8', $file1);
-#$file2= encode('UTF-8', $file2);
-#$file3= encode('UTF-8', $file3);
-#$mojijouhou= encode('UTF-8', $mojijouhou);
-#入力フォームにカンマが使われている場合はエラー
-$pos = index($ID, ",");
-if($pos>=0){
-system("68.cgi");
-exit;
-}
-$pos = index($pass, ",");
-if($pos>=0){
-system("68.cgi");
-exit;
-}
-$pos = index($pass2, ",");
-if($pos>=0){
-system("68.cgi");
-exit;
-}
-$pos = index($shimei, ",");
-if($pos>=0){
-system("68.cgi");
-exit;
-}
-$pos = index($kaisyamei, ",");
-if($pos>=0){
-system("68.cgi");
-exit;
-}
-$pos = index($mail, ",");
-if($pos>=0){
-system("68.cgi");
-exit;
-}
-$pos = index($syouhinmei, ",");
-if($pos>=0){
-system("68.cgi");
-exit;
-}
-$pos = index($nedan, ",");
-if($pos>=0){
-system("68.cgi");
-exit;
-}
-$pos = index($file1, ",");
-if($pos>=0){
-system("68.cgi");
-exit;
-}
-$pos = index($file2, ",");
-if($pos>=0){
-system("68.cgi");
-exit;
-}
-$pos = index($file3, ",");
-if($pos>=0){
-system("68.cgi");
-exit;
-}
-$pos = index($mojijouhou, ",");
-if($pos>=0){
-system("68.cgi");
-exit;
-}
-#入力漏れがある場合はエラー
-$num = length($ID);
-if($num == 0){
-system("69.cgi");
-exit;
-}
-$num = length($pass);
-if($num == 0){
-system("69.cgi");
-exit;
-}
-$num = length($pass2);
-if($num == 0){
-system("69.cgi");
-exit;
-}
-$num = length($shimei);
-if($num == 0){
-system("69.cgi");
-exit;
-}
-#$num = length($kaisyamei);
-#if($num == 0){
-#system("69.cgi");
-#exit;
-#}
-$num = length($mail);
-if($num == 0){
-system("69.cgi");
-exit;
-}
-$num = length($syouhinmei);
-if($num == 0){
-system("69.cgi");
-exit;
-}
-$num = length($nedan);
-if($num == 0){
-system("69.cgi");
-exit;
-}
-$num = length($q1);
-if($num == 0){
-system("69.cgi");
-exit;
-}
-$num = length($file1);
-if($num == 0){
-system("69.cgi");
-exit;
-}
-#$num = length(file2);
-#if($num == 0){
-#system("69.cgi");
-#exit;
-#}
-#$num = length($file3);
-#if($num == 0){
-#system("69.cgi");
-#exit;
-#}
-$num = length($mojijouhou);
-#↓下の文字が入り込んでいた。
-#}
-if($num == 0){
-system("69.cgi");
-exit;
-}
-if($pass ne $pass2){
-system("72.cgi");
-exit;
-}
-#ID重複チェック
-open($fh, "<kokyakusyouhinjouhou/ID.txt") or die("error :$!");
-while ($line = <$fh>){
-	chomp($line);
-	#print "$line\n";
-	if($line eq $ID){
-		$flg=1;
-		last;
-	}
-}
-close $fh;
-if($flg==1){
-	$flg=0;
-	system("73.cgi");
-	exit;
-}
-#商品名重複チェック
-open($fh, "<kokyakusyouhinjouhou/syouhinmei.txt") or die("error :$!");
-while ($line = <$fh>){
-	chomp($line);
-	#print "$line\n";
-	if($line eq $syouhinmei){
-		$flg=1;
-		last;
-	}
-}
-close $fh;
-if($flg==1){
-	$flg=0;
-	system("77.cgi");
-	exit;
-}
-#会社名重複チェック
-open($fh, "<kokyakusyouhinjouhou/kaisyamei.txt") or die("error :$!");
-while ($line = <$fh>){
-	chomp($line);
-	#print "$line\n";
-	if($line eq $kaisyamei){
-		$flg=1;
-		last;
-	}
-}
-close $fh;
-if($flg==1){
-	$flg=0;
-	system("78.cgi");
-	exit;
-}
-#file1の拡張子制限
-$p1=index($file1,".");
-$p1=$p1+1;
-$sub=substr($file1,$p1,3);
-if($sub ne "jpg" and $sub ne "png" and $sub ne "bmp" and $sub ne "gif"){
-	system("75.cgi");
-exit;
-}
-#if($sub ne "jpg" or $sub ne "png" or $sub ne "bmp" or $sub ne "gif"){
-#	system("75.cgi");
-#exit;
-#}
-#file2の拡張子がpdfか確認
-$num = length($file2);
-if($num != 0){
-	$p2=index($file2,".");
-	$sub2=substr($file2,$p2+1,3);
-	if($sub2 ne "pdf"){
-		system("76.cgi");
-		exit;
-	}
-}
 #IDをファイルに書き込み
 $abc = "kokyakusyouhinjouhou/ID.txt";
@@ -621,20 +19,6 @@
 $msg2 = "$ID\n";
 print OUT $msg2;
-close(OUT);
-#IDを控えファイルに書き込み
-$abd = "kokyakusyouhinjouhouhikae/ID.txt";
-open(OUT,">> $abd") || die("ファイルを追記モードで開けませんでした。");
-$msg3 = "$ID\n";
-print OUT $msg3;
 close(OUT);