7.) Example Scripts
#!/usr/bin/perl ## Make sure member is active exit(0) unless $EXTRA{'status'} == 1; ## Gather needed information $newline = join "::", $PROFILE{'username'}, $PROFILE{'email'}, $PROFILE{'password'}; ## Append information to text file open FILE, ">>results.txt"; print FILE "$newline\n"; close FILE; ## Exit exit(0); ## Add a 1 to ensure no errors 1; |
#!/usr/bin/perl ## Make sure member is active exit(0) unless $TRANS{'status'} == 1; ## Gather needed information $newline = join "::", $TRANS{'id'}, $TRANS{'amount'}, $PROFILE{'username'}; ## Append information to text file open FILE, ">>results.txt"; print FILE "$newline\n"; close FILE; ## Exit exit(0); ## Add a 1 to ensure no errors 1; |