[Netpass-devel] NetPass/lib/NetPass DB.pm,1.47,1.48

[Matt <mt...@us...>]

Update of /cvsroot/netpass/NetPass/lib/NetPass
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22144

Modified Files:
	DB.pm 
Log Message:


Index: DB.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/DB.pm,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- DB.pm	23 Jun 2005 20:21:07 -0000	1.47
+++ DB.pm	19 Jul 2005 14:47:50 -0000	1.48
@@ -664,6 +664,82 @@
     return 0;
 }
 
+=head2 getSideLinks()
+
+Get a list of User Defined SideLinks from the sideLinks table in the database.
+Returns a HASH ref containing the name/url pair on success or C<undef> on 
+failure.
+
+=cut
+
+sub getSideLinks {
+	my $self = shift;
+	my $q = qq{SELECT name, url FROM sideLinks};
+
+	my $hr = $self->{'dbh'}->selectall_hashref($q, "name");
+	return undef unless (defined $hr && ref($hr) eq "HASH" );
+
+	return $hr;
+}
+
+=head2 addSideLink(-name => $name, -url => $url)
+
+Add a sidelink to the database with name = $name and url = $url.
+Returns true on success, C<undef> on failure.
+
+=cut
+
+sub addSideLink {
+	my $self = shift;
+	my $parms = parse_parms({
+                             	  -parms => \@_,
+                                  -required => [ qw(-name -url) ],
+                                  -defaults => {
+                                                -name   => '',
+                                                -url    => ''
+                                               }
+                            	}
+                               );
+
+	return undef if !defined $parms;
+    	my ($name, $url) = $parms->get('-name', '-url');
+
+	my $q = qq{INSERT INTO sideLinks VALUES(?,?)};
+	my $sth = $self->{'dbh'}->prepare($q);
+
+	return undef if !$sth->execute($name, $url);
+	$sth->finish;
+	return 1;	
+}
+
+=head2 delSideLink(-name => $name)
+
+Delete a sidelink from the database with name = $name.
+Returns true on success, C<undef> on failure.
+
+=cut
+
+sub delSideLink {
+	my $self = shift;
+        my $parms = parse_parms({
+                                  -parms => \@_,
+                                  -required => [ qw(-name) ],
+                                  -defaults => {
+                                                -name   => ''
+                                               }
+                                }
+                               );
+
+        return undef if !defined $parms;
+        my ($name) = $parms->get('-name');
+
+	my $q = qq{DELETE FROM sideLinks WHERE name = ?};
+	my $sth = $self->{'dbh'}->prepare($q);
+
+	return undef if !$sth->execute($name);
+	$sth->finish;
+	return 1;
+}
     
 =head2 requestMovePort(-switch => switch, -port => port, -vlan => <quarantine | unquarantine>)