Tadashi Okoshi
slash****@users*****
2005年 10月 25日 (火) 04:20:44 JST
Index: affelio_farm/admin/skelton/affelio/apps/Mixi/lib/AffelioApp/SNSGateway.pm
diff -u affelio_farm/admin/skelton/affelio/apps/Mixi/lib/AffelioApp/SNSGateway.pm:1.1.1.1 affelio_farm/admin/skelton/affelio/apps/Mixi/lib/AffelioApp/SNSGateway.pm:removed
--- affelio_farm/admin/skelton/affelio/apps/Mixi/lib/AffelioApp/SNSGateway.pm:1.1.1.1 Tue Oct 25 04:14:40 2005
+++ affelio_farm/admin/skelton/affelio/apps/Mixi/lib/AffelioApp/SNSGateway.pm Tue Oct 25 04:20:44 2005
@@ -1,47 +0,0 @@
-#!/usr/bin/perl
-use strict;
-
-package AffelioApp::SNSGateway;
-{
- use Exporter;
- @AffelioApp::SNSGateway::ISA = "Exporter";
- @AffelioApp::SNSGateway::EXPORT = qw (read_config write_config);
-
- sub write_config{
- my $afap =shift;
- my $u =shift;
- my $p =shift;
-
- my $cfg = Config::Tiny->new();
-
- $cfg->{user}->{username} = $u;
- $cfg->{user}->{password} = $p;
-
- my $filename = $afap->get_userdata_dir() . "/config.ini";
- $cfg->write($filename);
-
- return();
- }
-
- sub read_config{
- my $afap =shift;
- my $username="";
- my $password="";
-
- my $filename = $afap->get_userdata_dir() . "/config.ini";
-
- my $cfg = Config::Tiny->new();
- $cfg = Config::Tiny->read($filename);
-
- if($cfg){
- $username = $cfg->{user}->{username};
- $password = $cfg->{user}->{password};
- }
-
- return({username => $username,
- password => $password}
- );
- }
-
-}
-1;