Tadashi Okoshi
slash****@users*****
2005年 10月 25日 (火) 04:20:58 JST
Index: affelio_farm/admin/skelton/affelio/tests/dbtest.cgi
diff -u affelio_farm/admin/skelton/affelio/tests/dbtest.cgi:1.1.1.1 affelio_farm/admin/skelton/affelio/tests/dbtest.cgi:removed
--- affelio_farm/admin/skelton/affelio/tests/dbtest.cgi:1.1.1.1 Tue Oct 25 04:14:40 2005
+++ affelio_farm/admin/skelton/affelio/tests/dbtest.cgi Tue Oct 25 04:20:58 2005
@@ -1,31 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use lib("../extlib");
-use Fcntl qw( :DEFAULT :flock);
-use MLDBM qw( DB_File Storable);
-
-my $db_file = "hoge.dat";
-my %hash;
-
-#######################
-#DB File open
-my $db = tie(%hash, "MLDBM", $db_file, O_CREAT|O_RDWR, 0644)
- or die "DB [$db_file] tie failed";
-my $fd = $db->fd;
-open DBM, "+<&=$fd" or die "DBM open failed";
-flock DBM, LOCK_EX;
-undef $db;
-
-#######################
-#$hash{'123456789'}= {
-# name => "Tadashi Okoshi",
-# email => "tadashi\@okoshi.org"
-# };
-
-print "$hash{'123456789'}{'name'}\n";
-print "$hash{'123456789'}{'email'}\n";
-
-#######################
-#DB close
-untie %hash;
Index: affelio_farm/admin/skelton/affelio/tests/hoge.dat
Index: affelio_farm/admin/skelton/affelio/tests/package_list.cgi
diff -u affelio_farm/admin/skelton/affelio/tests/package_list.cgi:1.1.1.1 affelio_farm/admin/skelton/affelio/tests/package_list.cgi:removed
--- affelio_farm/admin/skelton/affelio/tests/package_list.cgi:1.1.1.1 Tue Oct 25 04:14:40 2005
+++ affelio_farm/admin/skelton/affelio/tests/package_list.cgi Tue Oct 25 04:20:58 2005
@@ -1,20 +0,0 @@
-#!/usr/bin/perl
-
-use XML::Parser::Lite;
-print "$XML::Parser::Lite::VERSION\n";
-
-use CGI;
-print "$CGI::VERSION\n";
-
-use lib("./extlib/");
-
-
-use File::Copy;
-print "File::Copy $File::Copy::VERSION\n";
-
-
-use Data::Dumper;
-print "Data::Dumper $Data::Dumper::VERSION\n";
-
-use MLDBM;
-print "MLDBM $MLDBM::VERSION\n";
Index: affelio_farm/admin/skelton/affelio/tests/rc5test.cgi
diff -u affelio_farm/admin/skelton/affelio/tests/rc5test.cgi:1.1.1.1 affelio_farm/admin/skelton/affelio/tests/rc5test.cgi:removed
--- affelio_farm/admin/skelton/affelio/tests/rc5test.cgi:1.1.1.1 Tue Oct 25 04:14:40 2005
+++ affelio_farm/admin/skelton/affelio/tests/rc5test.cgi Tue Oct 25 04:20:58 2005
@@ -1,14 +0,0 @@
-#!/usr/bin/perl
-use lib "../lib";
-use Crypt::RC5;
-
-$plaintext = "test test.";
-
-$ref = Crypt::RC5->new("keykey", 12 );
-$ciphertext = $ref->encrypt( $plaintext );
-
-$ref2 = Crypt::RC5->new( "keykey", 12 );
-$plaintext2 = $ref2->decrypt( $ciphertext );
-
-
-print "plaintext2: $plaintext\n";
Index: affelio_farm/admin/skelton/affelio/tests/session_test.cgi
diff -u affelio_farm/admin/skelton/affelio/tests/session_test.cgi:1.1.1.1 affelio_farm/admin/skelton/affelio/tests/session_test.cgi:removed
--- affelio_farm/admin/skelton/affelio/tests/session_test.cgi:1.1.1.1 Tue Oct 25 04:14:40 2005
+++ affelio_farm/admin/skelton/affelio/tests/session_test.cgi Tue Oct 25 04:20:58 2005
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-use lib "../lib";
-use lib "../extlib";
-use Walrus::Session::Lite;
-
-my %session;
-my $session_dir = "../session/";
-
-#セッションをãŸã¡ã‚ã’ã‚‹
-tie(%session, 'Walrus::Session::Lite', $session_dir);
-$session{'latest_login'} = time();
-
-#自分ã®ã‚»ãƒƒã‚·ãƒ§ãƒ³IDã‚’å–å¾—
-# -> cookieã«ã„ã‚Œã¦é€ä¿¡ã™ã¹ã
-my $session_id = $session{'_session_id'};
-
-#セッションを終了ã—ä¿å˜ã™ã‚‹ã€‚
-untie %session;
-my $result = tied(%session)->delete_expired(3 * 24 * 60 * 60); # 3日以上更新ã®ãªã„セッションã¯ç ´æ£„
-
-
-#cokieを通ã˜ã¦clientã‹ã‚‰å–å¾—ã—ãŸsession IDを使ã£ã¦ sessionå†é–‹
-tie(%session, 'Walrus::Session::Lite', $session_dir, $session_id);
-$session{'latest_login'} = time();
-
-
-
-
-
-