[Affelio-cvs 1238] CVS update: affelio/lib

Back to archive index

Tadashi Okoshi slash****@users*****
2006年 4月 19日 (水) 20:32:41 JST


Index: affelio/lib/AffelioApp.pm
diff -u affelio/lib/AffelioApp.pm:1.21 affelio/lib/AffelioApp.pm:1.22
--- affelio/lib/AffelioApp.pm:1.21	Wed Mar  8 00:06:26 2006
+++ affelio/lib/AffelioApp.pm	Wed Apr 19 20:32:41 2006
@@ -14,7 +14,7 @@
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 #
-# $Id: AffelioApp.pm,v 1.21 2006/03/07 15:06:26 slash5234 Exp $
+# $Id: AffelioApp.pm,v 1.22 2006/04/19 11:32:41 slash5234 Exp $
 
 package AffelioApp;
 {
@@ -185,12 +185,25 @@
 	my $URL = shift;
 
 	my $af = $self->{af};	
+	
+	my $hash = 
+	    $af->getMyNews()->post_news(app => $self->{install_title},
+					title => $title,
+					desc => $desc,
+					creator => $creator,
+					URL => $URL);
+	return($hash);
+    }
 
-	$af->getMyNews()->post_news(app => $self->{install_title},
-				    title => $title,
-				    desc => $desc,
-				    creator => $creator,
-				    URL => $URL);
+    ######################################################################
+    #remove_news
+    ######################################################################
+    sub remove_news{
+	my $self = shift;
+	my $sha1digest = shift;
+
+	my $af = $self->{af};	
+	return( $af->getMyNews()->remove_news(digest => $sha1digest) );
     }
 
     ######################################################################


Affelio-cvs メーリングリストの案内
Back to archive index