&remove &subscribe can they be together at last?

[Theknonuttinguy]

$temp=0;
$temp=$ENV{'QUERY_STRING'};
if ($temp) {
$INPUT{'address'} = $temp;
&remove;
}

This a portion of the code that allows my CGI Mail Manager to place a remove link at the bottom of each email.

ie) Click below to be removed immediatly:

http://www.anydomain.com/cgi-bin/list.cgi?any@email.com

If I change the "&remove" to "&subscribe" the above link then becomes an instant subscribe instead of a remove link.

Is there a way to rewrite the above snippet of code to incoorporate both statements?

I am just learning perl/CGI so please speak to the disability and not the man

Thank you for your time

 

[siberian]

I do not fully understand.

You want to subscribe AND unsubscribe people in the same click? Or are you looking for one statement that handles both occurances?

 

[Theknonuttinguy]

I am looking for a statement that handles both occurances. I tried a couple of things but...

$temp=0;
$temp=$ENV{'QUERY_STRING'};
if ($temp) {
$INPUT{'address'} = $temp;
&remove;
}

 

[siberian]

Well, given an email address can you determine the status of the address(subscribed or unsubscribed?)?

$temp=0;
$temp=$ENV{'QUERY_STRING'};
if ($temp) {
if(subscribed($temp) ) {
&remove;
} else {
&subscribe;
}
}

where you write a routine named 'subscribed' that checks the status of that address.

If you do not have this knowledge your going to have to use real CGI arguments, not the query string stuff.

In that world

---

use CGI ;

my $query = new CGI ;

my $action = $query->param('action');

if( $action eq "Subscribe" ) { &subscribe($query->param('address') );
} elsif($action eq "Remove" ) {
&remove($query->param('address') ) ;
}

---

You URL would look like

&action=Subscribe&address=me@me.com

 

[siberian]

Can you determine if an address is subscribed or not?

 

[tviman]

I think this is what you want to happen - if I click the link and if my email address exists, I'm unsubscribed; otherwise I'm subscribed.

If this is true, you should be ashamed of yourself!

There's always a better way. The fun is trying to find it!