swaggboi/www2.0
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

New guestbook CGI script

Browse Source
This commit is contained in:
swaggboi 2021-04-02 20:37:49 -04:00
parent 13924d7f61
commit 63d130d6b5
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cgi-bin/guest_mm.cgi
View File

@ -29,11 +29,11 @@ my $dotfile = ".mmCreds.xml";
# Create XML::LibXML object # Create XML::LibXML object
my $dom = XML::LibXML->load_xml(location => $dotfile); my $dom = XML::LibXML->load_xml(location => $dotfile);
# Grab the values from creds file # Grab the values from creds file
my $user = $dom->findnodes('/credentials/username')->to_literal(); my $user = $dom->findvalue('/credentials/username');
my $pass = $dom->findnodes('/credentials/password')->to_literal(); my $pass = $dom->findvalue('/credentials/password');
my $url = $dom->findnodes('/credentials/base_url')->to_literal(); my $url = $dom->findvalue('/credentials/base_url');
my $chan = $dom->findnodes('/credentials/channel_id')->to_literal(); my $chan = $dom->findvalue('/credentials/channel_id');
my $spam = $dom->findnodes('/credentials/spam_chan_id')->to_literal(); my $spam = $dom->findvalue('/credentials/spam_chan_id');
# Put the values into place # Put the values into place
my %conf = ( my %conf = (
authenticate => 1, authenticate => 1,