Help for this page

Select Code to Download


  1. or download this
    my ($username, $imagename) = $ENV{REQUEST_URI} =~ /\/(.*)\/(.*)/;
if(not defined $username || $username eq ""){
    listall();
    }
  2. or download this
    my ($username, $imagename) = $ENV{REQUEST_URI} =~ /\/(.*)\/(.*)/;
if(not defined $username){
    listall();
    }